diff --git a/GI/WebKit.hs b/GI/WebKit.hs # file too large to diff: GI/WebKit.hs diff --git a/GI/WebKit/Callbacks.hs b/GI/WebKit/Callbacks.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Callbacks.hs @@ -0,0 +1,20 @@ + +{- | +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.WebKit.Callbacks () where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types + + + diff --git a/GI/WebKit/Constants.hs b/GI/WebKit/Constants.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Constants.hs @@ -0,0 +1,44 @@ +{-# 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.WebKit.Constants + ( + pattern USER_AGENT_MINOR_VERSION , + pattern USER_AGENT_MAJOR_VERSION , + pattern MINOR_VERSION , + pattern MICRO_VERSION , + pattern MAJOR_VERSION , + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + + +pattern USER_AGENT_MINOR_VERSION = 15 :: Int32 + + +pattern USER_AGENT_MAJOR_VERSION = 538 :: Int32 + + +pattern MINOR_VERSION = 4 :: Int32 + + +pattern MICRO_VERSION = 9 :: Int32 + + +pattern MAJOR_VERSION = 2 :: Int32 + + diff --git a/GI/WebKit/Enums.hs b/GI/WebKit/Enums.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Enums.hs @@ -0,0 +1,644 @@ + +{- | +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.WebKit.Enums + ( + catchPolicyError , + handlePolicyError , + catchPluginError , + handlePluginError , + catchNetworkError , + handleNetworkError , + +-- * Exported types + WebViewViewMode(..) , + WebViewTargetInfo(..) , + WebNavigationReason(..) , + SelectionAffinity(..) , + PolicyError(..) , + PluginError(..) , + NetworkError(..) , + NavigationResponse(..) , + LoadStatus(..) , + InsertAction(..) , + EditingBehavior(..) , + DownloadStatus(..) , + DownloadError(..) , + ContextMenuAction(..) , + CacheModel(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- Enum WebViewViewMode + +data WebViewViewMode = + WebViewViewModeWindowed + | WebViewViewModeFloating + | WebViewViewModeFullscreen + | WebViewViewModeMaximized + | WebViewViewModeMinimized + | AnotherWebViewViewMode Int + deriving (Show, Eq) + +instance Enum WebViewViewMode where + fromEnum WebViewViewModeWindowed = 0 + fromEnum WebViewViewModeFloating = 1 + fromEnum WebViewViewModeFullscreen = 2 + fromEnum WebViewViewModeMaximized = 3 + fromEnum WebViewViewModeMinimized = 4 + fromEnum (AnotherWebViewViewMode k) = k + + toEnum 0 = WebViewViewModeWindowed + toEnum 1 = WebViewViewModeFloating + toEnum 2 = WebViewViewModeFullscreen + toEnum 3 = WebViewViewModeMaximized + toEnum 4 = WebViewViewModeMinimized + toEnum k = AnotherWebViewViewMode k + +foreign import ccall "webkit_web_view_view_mode_get_type" c_webkit_web_view_view_mode_get_type :: + IO GType + +instance BoxedEnum WebViewViewMode where + boxedEnumType _ = c_webkit_web_view_view_mode_get_type + +-- Enum WebViewTargetInfo + +data WebViewTargetInfo = + WebViewTargetInfoHtml + | WebViewTargetInfoText + | WebViewTargetInfoImage + | WebViewTargetInfoUriList + | WebViewTargetInfoNetscapeUrl + | AnotherWebViewTargetInfo Int + deriving (Show, Eq) + +instance Enum WebViewTargetInfo where + fromEnum WebViewTargetInfoHtml = 0 + fromEnum WebViewTargetInfoText = 1 + fromEnum WebViewTargetInfoImage = 2 + fromEnum WebViewTargetInfoUriList = 3 + fromEnum WebViewTargetInfoNetscapeUrl = 4 + fromEnum (AnotherWebViewTargetInfo k) = k + + toEnum 0 = WebViewTargetInfoHtml + toEnum 1 = WebViewTargetInfoText + toEnum 2 = WebViewTargetInfoImage + toEnum 3 = WebViewTargetInfoUriList + toEnum 4 = WebViewTargetInfoNetscapeUrl + toEnum k = AnotherWebViewTargetInfo k + +foreign import ccall "webkit_web_view_target_info_get_type" c_webkit_web_view_target_info_get_type :: + IO GType + +instance BoxedEnum WebViewTargetInfo where + boxedEnumType _ = c_webkit_web_view_target_info_get_type + +-- Enum WebNavigationReason + +data WebNavigationReason = + WebNavigationReasonLinkClicked + | WebNavigationReasonFormSubmitted + | WebNavigationReasonBackForward + | WebNavigationReasonReload + | WebNavigationReasonFormResubmitted + | WebNavigationReasonOther + | AnotherWebNavigationReason Int + deriving (Show, Eq) + +instance Enum WebNavigationReason where + fromEnum WebNavigationReasonLinkClicked = 0 + fromEnum WebNavigationReasonFormSubmitted = 1 + fromEnum WebNavigationReasonBackForward = 2 + fromEnum WebNavigationReasonReload = 3 + fromEnum WebNavigationReasonFormResubmitted = 4 + fromEnum WebNavigationReasonOther = 5 + fromEnum (AnotherWebNavigationReason k) = k + + toEnum 0 = WebNavigationReasonLinkClicked + toEnum 1 = WebNavigationReasonFormSubmitted + toEnum 2 = WebNavigationReasonBackForward + toEnum 3 = WebNavigationReasonReload + toEnum 4 = WebNavigationReasonFormResubmitted + toEnum 5 = WebNavigationReasonOther + toEnum k = AnotherWebNavigationReason k + +foreign import ccall "webkit_web_navigation_reason_get_type" c_webkit_web_navigation_reason_get_type :: + IO GType + +instance BoxedEnum WebNavigationReason where + boxedEnumType _ = c_webkit_web_navigation_reason_get_type + +-- Enum SelectionAffinity + +data SelectionAffinity = + SelectionAffinityUpstream + | SelectionAffinityDownstream + | AnotherSelectionAffinity Int + deriving (Show, Eq) + +instance Enum SelectionAffinity where + fromEnum SelectionAffinityUpstream = 0 + fromEnum SelectionAffinityDownstream = 1 + fromEnum (AnotherSelectionAffinity k) = k + + toEnum 0 = SelectionAffinityUpstream + toEnum 1 = SelectionAffinityDownstream + toEnum k = AnotherSelectionAffinity k + +foreign import ccall "webkit_selection_affinity_get_type" c_webkit_selection_affinity_get_type :: + IO GType + +instance BoxedEnum SelectionAffinity where + boxedEnumType _ = c_webkit_selection_affinity_get_type + +-- Enum PolicyError + +data PolicyError = + PolicyErrorFailed + | PolicyErrorCannotShowMimeType + | PolicyErrorCannotShowUrl + | PolicyErrorFrameLoadInterruptedByPolicyChange + | PolicyErrorCannotUseRestrictedPort + | AnotherPolicyError Int + deriving (Show, Eq) + +instance Enum PolicyError where + fromEnum PolicyErrorFailed = 199 + fromEnum PolicyErrorCannotShowMimeType = 100 + fromEnum PolicyErrorCannotShowUrl = 101 + fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102 + fromEnum PolicyErrorCannotUseRestrictedPort = 103 + fromEnum (AnotherPolicyError k) = k + + toEnum 100 = PolicyErrorCannotShowMimeType + toEnum 101 = PolicyErrorCannotShowUrl + toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange + toEnum 103 = PolicyErrorCannotUseRestrictedPort + toEnum 199 = PolicyErrorFailed + toEnum k = AnotherPolicyError k + +instance GErrorClass PolicyError where + gerrorClassDomain _ = "WebKitPolicyError" + +catchPolicyError :: + IO a -> + (PolicyError -> GErrorMessage -> IO a) -> + IO a +catchPolicyError = catchGErrorJustDomain + +handlePolicyError :: + (PolicyError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handlePolicyError = handleGErrorJustDomain + +foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: + IO GType + +instance BoxedEnum PolicyError where + boxedEnumType _ = c_webkit_policy_error_get_type + +-- Enum PluginError + +data PluginError = + PluginErrorFailed + | PluginErrorCannotFindPlugin + | PluginErrorCannotLoadPlugin + | PluginErrorJavaUnavailable + | PluginErrorConnectionCancelled + | PluginErrorWillHandleLoad + | AnotherPluginError Int + deriving (Show, Eq) + +instance Enum PluginError where + fromEnum PluginErrorFailed = 299 + fromEnum PluginErrorCannotFindPlugin = 200 + fromEnum PluginErrorCannotLoadPlugin = 201 + fromEnum PluginErrorJavaUnavailable = 202 + fromEnum PluginErrorConnectionCancelled = 203 + fromEnum PluginErrorWillHandleLoad = 204 + fromEnum (AnotherPluginError k) = k + + toEnum 200 = PluginErrorCannotFindPlugin + toEnum 201 = PluginErrorCannotLoadPlugin + toEnum 202 = PluginErrorJavaUnavailable + toEnum 203 = PluginErrorConnectionCancelled + toEnum 204 = PluginErrorWillHandleLoad + toEnum 299 = PluginErrorFailed + toEnum k = AnotherPluginError k + +instance GErrorClass PluginError where + gerrorClassDomain _ = "WebKitPluginError" + +catchPluginError :: + IO a -> + (PluginError -> GErrorMessage -> IO a) -> + IO a +catchPluginError = catchGErrorJustDomain + +handlePluginError :: + (PluginError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handlePluginError = handleGErrorJustDomain + +foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: + IO GType + +instance BoxedEnum PluginError where + boxedEnumType _ = c_webkit_plugin_error_get_type + +-- Enum NetworkError + +data NetworkError = + NetworkErrorFailed + | NetworkErrorTransport + | NetworkErrorUnknownProtocol + | NetworkErrorCancelled + | NetworkErrorFileDoesNotExist + | AnotherNetworkError Int + deriving (Show, Eq) + +instance Enum NetworkError where + fromEnum NetworkErrorFailed = 399 + fromEnum NetworkErrorTransport = 300 + fromEnum NetworkErrorUnknownProtocol = 301 + fromEnum NetworkErrorCancelled = 302 + fromEnum NetworkErrorFileDoesNotExist = 303 + fromEnum (AnotherNetworkError k) = k + + toEnum 300 = NetworkErrorTransport + toEnum 301 = NetworkErrorUnknownProtocol + toEnum 302 = NetworkErrorCancelled + toEnum 303 = NetworkErrorFileDoesNotExist + toEnum 399 = NetworkErrorFailed + toEnum k = AnotherNetworkError k + +instance GErrorClass NetworkError where + gerrorClassDomain _ = "WebKitNetworkError" + +catchNetworkError :: + IO a -> + (NetworkError -> GErrorMessage -> IO a) -> + IO a +catchNetworkError = catchGErrorJustDomain + +handleNetworkError :: + (NetworkError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleNetworkError = handleGErrorJustDomain + +foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: + IO GType + +instance BoxedEnum NetworkError where + boxedEnumType _ = c_webkit_network_error_get_type + +-- Enum NavigationResponse + +data NavigationResponse = + NavigationResponseAccept + | NavigationResponseIgnore + | NavigationResponseDownload + | AnotherNavigationResponse Int + deriving (Show, Eq) + +instance Enum NavigationResponse where + fromEnum NavigationResponseAccept = 0 + fromEnum NavigationResponseIgnore = 1 + fromEnum NavigationResponseDownload = 2 + fromEnum (AnotherNavigationResponse k) = k + + toEnum 0 = NavigationResponseAccept + toEnum 1 = NavigationResponseIgnore + toEnum 2 = NavigationResponseDownload + toEnum k = AnotherNavigationResponse k + +foreign import ccall "webkit_navigation_response_get_type" c_webkit_navigation_response_get_type :: + IO GType + +instance BoxedEnum NavigationResponse where + boxedEnumType _ = c_webkit_navigation_response_get_type + +-- Enum LoadStatus + +data LoadStatus = + LoadStatusProvisional + | LoadStatusCommitted + | LoadStatusFinished + | LoadStatusFirstVisuallyNonEmptyLayout + | LoadStatusFailed + | AnotherLoadStatus Int + deriving (Show, Eq) + +instance Enum LoadStatus where + fromEnum LoadStatusProvisional = 0 + fromEnum LoadStatusCommitted = 1 + fromEnum LoadStatusFinished = 2 + fromEnum LoadStatusFirstVisuallyNonEmptyLayout = 3 + fromEnum LoadStatusFailed = 4 + fromEnum (AnotherLoadStatus k) = k + + toEnum 0 = LoadStatusProvisional + toEnum 1 = LoadStatusCommitted + toEnum 2 = LoadStatusFinished + toEnum 3 = LoadStatusFirstVisuallyNonEmptyLayout + toEnum 4 = LoadStatusFailed + toEnum k = AnotherLoadStatus k + +foreign import ccall "webkit_load_status_get_type" c_webkit_load_status_get_type :: + IO GType + +instance BoxedEnum LoadStatus where + boxedEnumType _ = c_webkit_load_status_get_type + +-- Enum InsertAction + +data InsertAction = + InsertActionTyped + | InsertActionPasted + | InsertActionDropped + | AnotherInsertAction Int + deriving (Show, Eq) + +instance Enum InsertAction where + fromEnum InsertActionTyped = 0 + fromEnum InsertActionPasted = 1 + fromEnum InsertActionDropped = 2 + fromEnum (AnotherInsertAction k) = k + + toEnum 0 = InsertActionTyped + toEnum 1 = InsertActionPasted + toEnum 2 = InsertActionDropped + toEnum k = AnotherInsertAction k + +foreign import ccall "webkit_insert_action_get_type" c_webkit_insert_action_get_type :: + IO GType + +instance BoxedEnum InsertAction where + boxedEnumType _ = c_webkit_insert_action_get_type + +-- Enum EditingBehavior + +data EditingBehavior = + EditingBehaviorMac + | EditingBehaviorWindows + | EditingBehaviorUnix + | AnotherEditingBehavior Int + deriving (Show, Eq) + +instance Enum EditingBehavior where + fromEnum EditingBehaviorMac = 0 + fromEnum EditingBehaviorWindows = 1 + fromEnum EditingBehaviorUnix = 2 + fromEnum (AnotherEditingBehavior k) = k + + toEnum 0 = EditingBehaviorMac + toEnum 1 = EditingBehaviorWindows + toEnum 2 = EditingBehaviorUnix + toEnum k = AnotherEditingBehavior k + +foreign import ccall "webkit_editing_behavior_get_type" c_webkit_editing_behavior_get_type :: + IO GType + +instance BoxedEnum EditingBehavior where + boxedEnumType _ = c_webkit_editing_behavior_get_type + +-- Enum DownloadStatus + +data DownloadStatus = + DownloadStatusError + | DownloadStatusCreated + | DownloadStatusStarted + | DownloadStatusCancelled + | DownloadStatusFinished + | AnotherDownloadStatus Int + deriving (Show, Eq) + +instance Enum DownloadStatus where + fromEnum DownloadStatusError = -1 + fromEnum DownloadStatusCreated = 0 + fromEnum DownloadStatusStarted = 1 + fromEnum DownloadStatusCancelled = 2 + fromEnum DownloadStatusFinished = 3 + fromEnum (AnotherDownloadStatus k) = k + + toEnum -1 = DownloadStatusError + toEnum 0 = DownloadStatusCreated + toEnum 1 = DownloadStatusStarted + toEnum 2 = DownloadStatusCancelled + toEnum 3 = DownloadStatusFinished + toEnum k = AnotherDownloadStatus k + +foreign import ccall "webkit_download_status_get_type" c_webkit_download_status_get_type :: + IO GType + +instance BoxedEnum DownloadStatus where + boxedEnumType _ = c_webkit_download_status_get_type + +-- Enum DownloadError + +data DownloadError = + DownloadErrorCancelledByUser + | DownloadErrorDestination + | DownloadErrorNetwork + | AnotherDownloadError Int + deriving (Show, Eq) + +instance Enum DownloadError where + fromEnum DownloadErrorCancelledByUser = 0 + fromEnum DownloadErrorDestination = 1 + fromEnum DownloadErrorNetwork = 2 + fromEnum (AnotherDownloadError k) = k + + toEnum 0 = DownloadErrorCancelledByUser + toEnum 1 = DownloadErrorDestination + toEnum 2 = DownloadErrorNetwork + toEnum k = AnotherDownloadError k + +foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: + IO GType + +instance BoxedEnum DownloadError where + boxedEnumType _ = c_webkit_download_error_get_type + +-- Enum ContextMenuAction + +data ContextMenuAction = + ContextMenuActionNoAction + | ContextMenuActionOpenLink + | ContextMenuActionOpenLinkInNewWindow + | ContextMenuActionDownloadLinkToDisk + | ContextMenuActionCopyLinkToClipboard + | ContextMenuActionOpenImageInNewWindow + | ContextMenuActionDownloadImageToDisk + | ContextMenuActionCopyImageToClipboard + | ContextMenuActionCopyImageUrlToClipboard + | ContextMenuActionOpenFrameInNewWindow + | ContextMenuActionGoBack + | ContextMenuActionGoForward + | ContextMenuActionStop + | ContextMenuActionReload + | ContextMenuActionCopy + | ContextMenuActionCut + | ContextMenuActionPaste + | ContextMenuActionDelete + | ContextMenuActionSelectAll + | ContextMenuActionInputMethods + | ContextMenuActionUnicode + | ContextMenuActionSpellingGuess + | ContextMenuActionNoGuessesFound + | ContextMenuActionIgnoreSpelling + | ContextMenuActionLearnSpelling + | ContextMenuActionIgnoreGrammar + | ContextMenuActionFontMenu + | ContextMenuActionBold + | ContextMenuActionItalic + | ContextMenuActionUnderline + | ContextMenuActionOutline + | ContextMenuActionInspectElement + | ContextMenuActionOpenMediaInNewWindow + | ContextMenuActionCopyMediaLinkToClipboard + | ContextMenuActionToggleMediaControls + | ContextMenuActionToggleMediaLoop + | ContextMenuActionEnterVideoFullscreen + | ContextMenuActionMediaPlayPause + | ContextMenuActionMediaMute + | AnotherContextMenuAction Int + deriving (Show, Eq) + +instance Enum ContextMenuAction where + fromEnum ContextMenuActionNoAction = 0 + fromEnum ContextMenuActionOpenLink = 1 + fromEnum ContextMenuActionOpenLinkInNewWindow = 2 + fromEnum ContextMenuActionDownloadLinkToDisk = 3 + fromEnum ContextMenuActionCopyLinkToClipboard = 4 + fromEnum ContextMenuActionOpenImageInNewWindow = 5 + fromEnum ContextMenuActionDownloadImageToDisk = 6 + fromEnum ContextMenuActionCopyImageToClipboard = 7 + fromEnum ContextMenuActionCopyImageUrlToClipboard = 8 + fromEnum ContextMenuActionOpenFrameInNewWindow = 9 + fromEnum ContextMenuActionGoBack = 10 + fromEnum ContextMenuActionGoForward = 11 + fromEnum ContextMenuActionStop = 12 + fromEnum ContextMenuActionReload = 13 + fromEnum ContextMenuActionCopy = 14 + fromEnum ContextMenuActionCut = 15 + fromEnum ContextMenuActionPaste = 16 + fromEnum ContextMenuActionDelete = 17 + fromEnum ContextMenuActionSelectAll = 18 + fromEnum ContextMenuActionInputMethods = 19 + fromEnum ContextMenuActionUnicode = 20 + fromEnum ContextMenuActionSpellingGuess = 21 + fromEnum ContextMenuActionNoGuessesFound = 22 + fromEnum ContextMenuActionIgnoreSpelling = 23 + fromEnum ContextMenuActionLearnSpelling = 24 + fromEnum ContextMenuActionIgnoreGrammar = 25 + fromEnum ContextMenuActionFontMenu = 26 + fromEnum ContextMenuActionBold = 27 + fromEnum ContextMenuActionItalic = 28 + fromEnum ContextMenuActionUnderline = 29 + fromEnum ContextMenuActionOutline = 30 + fromEnum ContextMenuActionInspectElement = 31 + fromEnum ContextMenuActionOpenMediaInNewWindow = 32 + fromEnum ContextMenuActionCopyMediaLinkToClipboard = 33 + fromEnum ContextMenuActionToggleMediaControls = 34 + fromEnum ContextMenuActionToggleMediaLoop = 35 + fromEnum ContextMenuActionEnterVideoFullscreen = 36 + fromEnum ContextMenuActionMediaPlayPause = 37 + fromEnum ContextMenuActionMediaMute = 38 + fromEnum (AnotherContextMenuAction k) = k + + toEnum 0 = ContextMenuActionNoAction + toEnum 1 = ContextMenuActionOpenLink + toEnum 2 = ContextMenuActionOpenLinkInNewWindow + toEnum 3 = ContextMenuActionDownloadLinkToDisk + toEnum 4 = ContextMenuActionCopyLinkToClipboard + toEnum 5 = ContextMenuActionOpenImageInNewWindow + toEnum 6 = ContextMenuActionDownloadImageToDisk + toEnum 7 = ContextMenuActionCopyImageToClipboard + toEnum 8 = ContextMenuActionCopyImageUrlToClipboard + toEnum 9 = ContextMenuActionOpenFrameInNewWindow + toEnum 10 = ContextMenuActionGoBack + toEnum 11 = ContextMenuActionGoForward + toEnum 12 = ContextMenuActionStop + toEnum 13 = ContextMenuActionReload + toEnum 14 = ContextMenuActionCopy + toEnum 15 = ContextMenuActionCut + toEnum 16 = ContextMenuActionPaste + toEnum 17 = ContextMenuActionDelete + toEnum 18 = ContextMenuActionSelectAll + toEnum 19 = ContextMenuActionInputMethods + toEnum 20 = ContextMenuActionUnicode + toEnum 21 = ContextMenuActionSpellingGuess + toEnum 22 = ContextMenuActionNoGuessesFound + toEnum 23 = ContextMenuActionIgnoreSpelling + toEnum 24 = ContextMenuActionLearnSpelling + toEnum 25 = ContextMenuActionIgnoreGrammar + toEnum 26 = ContextMenuActionFontMenu + toEnum 27 = ContextMenuActionBold + toEnum 28 = ContextMenuActionItalic + toEnum 29 = ContextMenuActionUnderline + toEnum 30 = ContextMenuActionOutline + toEnum 31 = ContextMenuActionInspectElement + toEnum 32 = ContextMenuActionOpenMediaInNewWindow + toEnum 33 = ContextMenuActionCopyMediaLinkToClipboard + toEnum 34 = ContextMenuActionToggleMediaControls + toEnum 35 = ContextMenuActionToggleMediaLoop + toEnum 36 = ContextMenuActionEnterVideoFullscreen + toEnum 37 = ContextMenuActionMediaPlayPause + toEnum 38 = ContextMenuActionMediaMute + toEnum k = AnotherContextMenuAction k + +foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: + IO GType + +instance BoxedEnum ContextMenuAction where + boxedEnumType _ = c_webkit_context_menu_action_get_type + +-- Enum CacheModel + +data CacheModel = + CacheModelDefault + | CacheModelDocumentViewer + | CacheModelWebBrowser + | CacheModelDocumentBrowser + | AnotherCacheModel Int + deriving (Show, Eq) + +instance Enum CacheModel where + fromEnum CacheModelDefault = 0 + fromEnum CacheModelDocumentViewer = 1 + fromEnum CacheModelWebBrowser = 2 + fromEnum CacheModelDocumentBrowser = 3 + fromEnum (AnotherCacheModel k) = k + + toEnum 0 = CacheModelDefault + toEnum 1 = CacheModelDocumentViewer + toEnum 2 = CacheModelWebBrowser + toEnum 3 = CacheModelDocumentBrowser + toEnum k = AnotherCacheModel k + +foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: + IO GType + +instance BoxedEnum CacheModel where + boxedEnumType _ = c_webkit_cache_model_get_type + + diff --git a/GI/WebKit/Flags.hs b/GI/WebKit/Flags.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Flags.hs @@ -0,0 +1,102 @@ + +{- | +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.WebKit.Flags + ( + +-- * Exported types + SecurityPolicy(..) , + HitTestResultContext(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- Flags SecurityPolicy + +data SecurityPolicy = + SecurityPolicyLocal + | SecurityPolicyNoAccessToOtherScheme + | SecurityPolicyDisplayIsolated + | SecurityPolicySecure + | SecurityPolicyCorsEnabled + | SecurityPolicyEmptyDocument + | AnotherSecurityPolicy Int + deriving (Show, Eq) + +instance Enum SecurityPolicy where + fromEnum SecurityPolicyLocal = 2 + fromEnum SecurityPolicyNoAccessToOtherScheme = 4 + fromEnum SecurityPolicyDisplayIsolated = 8 + fromEnum SecurityPolicySecure = 16 + fromEnum SecurityPolicyCorsEnabled = 32 + fromEnum SecurityPolicyEmptyDocument = 64 + fromEnum (AnotherSecurityPolicy k) = k + + toEnum 2 = SecurityPolicyLocal + toEnum 4 = SecurityPolicyNoAccessToOtherScheme + toEnum 8 = SecurityPolicyDisplayIsolated + toEnum 16 = SecurityPolicySecure + toEnum 32 = SecurityPolicyCorsEnabled + toEnum 64 = SecurityPolicyEmptyDocument + toEnum k = AnotherSecurityPolicy k + +foreign import ccall "webkit_security_policy_get_type" c_webkit_security_policy_get_type :: + IO GType + +instance BoxedEnum SecurityPolicy where + boxedEnumType _ = c_webkit_security_policy_get_type + +instance IsGFlag SecurityPolicy + +-- Flags HitTestResultContext + +data HitTestResultContext = + HitTestResultContextDocument + | HitTestResultContextLink + | HitTestResultContextImage + | HitTestResultContextMedia + | HitTestResultContextSelection + | HitTestResultContextEditable + | AnotherHitTestResultContext Int + deriving (Show, Eq) + +instance Enum HitTestResultContext where + fromEnum HitTestResultContextDocument = 2 + fromEnum HitTestResultContextLink = 4 + fromEnum HitTestResultContextImage = 8 + fromEnum HitTestResultContextMedia = 16 + fromEnum HitTestResultContextSelection = 32 + fromEnum HitTestResultContextEditable = 64 + fromEnum (AnotherHitTestResultContext k) = k + + toEnum 2 = HitTestResultContextDocument + toEnum 4 = HitTestResultContextLink + toEnum 8 = HitTestResultContextImage + toEnum 16 = HitTestResultContextMedia + toEnum 32 = HitTestResultContextSelection + toEnum 64 = HitTestResultContextEditable + toEnum k = AnotherHitTestResultContext k + +foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: + IO GType + +instance BoxedEnum HitTestResultContext where + boxedEnumType _ = c_webkit_hit_test_result_context_get_type + +instance IsGFlag HitTestResultContext + + diff --git a/GI/WebKit/Functions.hs b/GI/WebKit/Functions.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Functions.hs @@ -0,0 +1,682 @@ + +{- | +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.WebKit.Functions + ( + + -- * Methods +-- ** applicationCacheGetDatabaseDirectoryPath + applicationCacheGetDatabaseDirectoryPath, + + +-- ** contextMenuItemGetAction + contextMenuItemGetAction , + + +-- ** geolocationPolicyAllow + geolocationPolicyAllow , + + +-- ** geolocationPolicyDeny + geolocationPolicyDeny , + + +-- ** getCacheModel + getCacheModel , + + +-- ** getDefaultSession + getDefaultSession , + + +-- ** getDefaultWebDatabaseQuota + getDefaultWebDatabaseQuota , + + +-- ** getFaviconDatabase + getFaviconDatabase , + + +-- ** getIconDatabase + getIconDatabase , + + +-- ** getSecurityPolicyForUriScheme + getSecurityPolicyForUriScheme , + + +-- ** getTextChecker + getTextChecker , + + +-- ** getWebDatabaseDirectoryPath + getWebDatabaseDirectoryPath , + + +-- ** getWebPluginDatabase + getWebPluginDatabase , + + +-- ** majorVersion + majorVersion , + + +-- ** microVersion + microVersion , + + +-- ** minorVersion + minorVersion , + + +-- ** networkErrorQuark + networkErrorQuark , + + +-- ** pluginErrorQuark + pluginErrorQuark , + + +-- ** policyErrorQuark + policyErrorQuark , + + +-- ** removeAllWebDatabases + removeAllWebDatabases , + + +-- ** setCacheModel + setCacheModel , + + +-- ** setDefaultWebDatabaseQuota + setDefaultWebDatabaseQuota , + + +-- ** setSecurityPolicyForUriScheme + setSecurityPolicyForUriScheme , + + +-- ** setTextChecker + setTextChecker , + + +-- ** setWebDatabaseDirectoryPath + setWebDatabaseDirectoryPath , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gtk as Gtk +import qualified GI.Soup as Soup + +-- function webkit_set_web_database_directory_path +-- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_set_web_database_directory_path" webkit_set_web_database_directory_path :: + CString -> -- path : TBasicType TUTF8 + IO () + + +setWebDatabaseDirectoryPath :: + (MonadIO m) => + T.Text -> -- path + m () +setWebDatabaseDirectoryPath path = liftIO $ do + path' <- textToCString path + webkit_set_web_database_directory_path path' + freeMem path' + return () + + +-- function webkit_set_text_checker +-- Args : [Arg {argName = "checker", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "checker", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_set_text_checker" webkit_set_text_checker :: + Ptr GObject.Object -> -- checker : TInterface "GObject" "Object" + IO () + + +setTextChecker :: + (MonadIO m, GObject.ObjectK a) => + a -> -- checker + m () +setTextChecker checker = liftIO $ do + let checker' = unsafeManagedPtrCastPtr checker + webkit_set_text_checker checker' + touchManagedPtr checker + return () + + +-- function webkit_set_security_policy_for_uri_scheme +-- Args : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit" "SecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit" "SecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_set_security_policy_for_uri_scheme" webkit_set_security_policy_for_uri_scheme :: + CString -> -- scheme : TBasicType TUTF8 + CUInt -> -- policy : TInterface "WebKit" "SecurityPolicy" + IO () + + +setSecurityPolicyForUriScheme :: + (MonadIO m) => + T.Text -> -- scheme + [SecurityPolicy] -> -- policy + m () +setSecurityPolicyForUriScheme scheme policy = liftIO $ do + scheme' <- textToCString scheme + let policy' = gflagsToWord policy + webkit_set_security_policy_for_uri_scheme scheme' policy' + freeMem scheme' + return () + + +-- function webkit_set_default_web_database_quota +-- Args : [Arg {argName = "defaultQuota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "defaultQuota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_set_default_web_database_quota" webkit_set_default_web_database_quota :: + Word64 -> -- defaultQuota : TBasicType TUInt64 + IO () + + +setDefaultWebDatabaseQuota :: + (MonadIO m) => + Word64 -> -- defaultQuota + m () +setDefaultWebDatabaseQuota defaultQuota = liftIO $ do + webkit_set_default_web_database_quota defaultQuota + return () + + +-- function webkit_set_cache_model +-- Args : [Arg {argName = "cache_model", argType = TInterface "WebKit" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "cache_model", argType = TInterface "WebKit" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_set_cache_model" webkit_set_cache_model :: + CUInt -> -- cache_model : TInterface "WebKit" "CacheModel" + IO () + + +setCacheModel :: + (MonadIO m) => + CacheModel -> -- cache_model + m () +setCacheModel cache_model = liftIO $ do + let cache_model' = (fromIntegral . fromEnum) cache_model + webkit_set_cache_model cache_model' + return () + + +-- function webkit_remove_all_web_databases +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_remove_all_web_databases" webkit_remove_all_web_databases :: + IO () + + +removeAllWebDatabases :: + (MonadIO m) => + m () +removeAllWebDatabases = liftIO $ do + webkit_remove_all_web_databases + return () + + +-- function webkit_policy_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_policy_error_quark" webkit_policy_error_quark :: + IO Word32 + + +policyErrorQuark :: + (MonadIO m) => + m Word32 +policyErrorQuark = liftIO $ do + result <- webkit_policy_error_quark + return result + + +-- function webkit_plugin_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_plugin_error_quark" webkit_plugin_error_quark :: + IO Word32 + + +pluginErrorQuark :: + (MonadIO m) => + m Word32 +pluginErrorQuark = liftIO $ do + result <- webkit_plugin_error_quark + return result + + +-- function webkit_network_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_error_quark" webkit_network_error_quark :: + IO Word32 + + +networkErrorQuark :: + (MonadIO m) => + m Word32 +networkErrorQuark = liftIO $ do + result <- webkit_network_error_quark + return result + + +-- function webkit_minor_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_minor_version" webkit_minor_version :: + IO Word32 + + +minorVersion :: + (MonadIO m) => + m Word32 +minorVersion = liftIO $ do + result <- webkit_minor_version + return result + + +-- function webkit_micro_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_micro_version" webkit_micro_version :: + IO Word32 + + +microVersion :: + (MonadIO m) => + m Word32 +microVersion = liftIO $ do + result <- webkit_micro_version + return result + + +-- function webkit_major_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_major_version" webkit_major_version :: + IO Word32 + + +majorVersion :: + (MonadIO m) => + m Word32 +majorVersion = liftIO $ do + result <- webkit_major_version + return result + + +-- function webkit_get_web_plugin_database +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebPluginDatabase" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_web_plugin_database" webkit_get_web_plugin_database :: + IO (Ptr WebPluginDatabase) + + +getWebPluginDatabase :: + (MonadIO m) => + m WebPluginDatabase +getWebPluginDatabase = liftIO $ do + result <- webkit_get_web_plugin_database + checkUnexpectedReturnNULL "webkit_get_web_plugin_database" result + result' <- (newObject WebPluginDatabase) result + return result' + + +-- function webkit_get_web_database_directory_path +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_web_database_directory_path" webkit_get_web_database_directory_path :: + IO CString + + +getWebDatabaseDirectoryPath :: + (MonadIO m) => + m T.Text +getWebDatabaseDirectoryPath = liftIO $ do + result <- webkit_get_web_database_directory_path + checkUnexpectedReturnNULL "webkit_get_web_database_directory_path" result + result' <- cstringToText result + return result' + + +-- function webkit_get_text_checker +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_text_checker" webkit_get_text_checker :: + IO (Ptr GObject.Object) + + +getTextChecker :: + (MonadIO m) => + m GObject.Object +getTextChecker = liftIO $ do + result <- webkit_get_text_checker + checkUnexpectedReturnNULL "webkit_get_text_checker" result + result' <- (newObject GObject.Object) result + return result' + + +-- function webkit_get_security_policy_for_uri_scheme +-- Args : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "SecurityPolicy" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_security_policy_for_uri_scheme" webkit_get_security_policy_for_uri_scheme :: + CString -> -- scheme : TBasicType TUTF8 + IO CUInt + + +getSecurityPolicyForUriScheme :: + (MonadIO m) => + T.Text -> -- scheme + m [SecurityPolicy] +getSecurityPolicyForUriScheme scheme = liftIO $ do + scheme' <- textToCString scheme + result <- webkit_get_security_policy_for_uri_scheme scheme' + let result' = wordToGFlags result + freeMem scheme' + return result' + + +-- function webkit_get_icon_database +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "IconDatabase" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_icon_database" webkit_get_icon_database :: + IO (Ptr IconDatabase) + +{-# DEPRECATED getIconDatabase ["(Since version 1.8)","Use webkit_get_favicon_database() instead"]#-} +getIconDatabase :: + (MonadIO m) => + m IconDatabase +getIconDatabase = liftIO $ do + result <- webkit_get_icon_database + checkUnexpectedReturnNULL "webkit_get_icon_database" result + result' <- (newObject IconDatabase) result + return result' + + +-- function webkit_get_favicon_database +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "FaviconDatabase" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_favicon_database" webkit_get_favicon_database :: + IO (Ptr FaviconDatabase) + + +getFaviconDatabase :: + (MonadIO m) => + m FaviconDatabase +getFaviconDatabase = liftIO $ do + result <- webkit_get_favicon_database + checkUnexpectedReturnNULL "webkit_get_favicon_database" result + result' <- (newObject FaviconDatabase) result + return result' + + +-- function webkit_get_default_web_database_quota +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_default_web_database_quota" webkit_get_default_web_database_quota :: + IO Word64 + + +getDefaultWebDatabaseQuota :: + (MonadIO m) => + m Word64 +getDefaultWebDatabaseQuota = liftIO $ do + result <- webkit_get_default_web_database_quota + return result + + +-- function webkit_get_default_session +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "Session" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_default_session" webkit_get_default_session :: + IO (Ptr Soup.Session) + + +getDefaultSession :: + (MonadIO m) => + m Soup.Session +getDefaultSession = liftIO $ do + result <- webkit_get_default_session + checkUnexpectedReturnNULL "webkit_get_default_session" result + result' <- (newObject Soup.Session) result + return result' + + +-- function webkit_get_cache_model +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "CacheModel" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_get_cache_model" webkit_get_cache_model :: + IO CUInt + + +getCacheModel :: + (MonadIO m) => + m CacheModel +getCacheModel = liftIO $ do + result <- webkit_get_cache_model + let result' = (toEnum . fromIntegral) result + return result' + + +-- function webkit_geolocation_policy_deny +-- Args : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_geolocation_policy_deny" webkit_geolocation_policy_deny :: + Ptr GeolocationPolicyDecision -> -- decision : TInterface "WebKit" "GeolocationPolicyDecision" + IO () + + +geolocationPolicyDeny :: + (MonadIO m, GeolocationPolicyDecisionK a) => + a -> -- decision + m () +geolocationPolicyDeny decision = liftIO $ do + let decision' = unsafeManagedPtrCastPtr decision + webkit_geolocation_policy_deny decision' + touchManagedPtr decision + return () + + +-- function webkit_geolocation_policy_allow +-- Args : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_geolocation_policy_allow" webkit_geolocation_policy_allow :: + Ptr GeolocationPolicyDecision -> -- decision : TInterface "WebKit" "GeolocationPolicyDecision" + IO () + + +geolocationPolicyAllow :: + (MonadIO m, GeolocationPolicyDecisionK a) => + a -> -- decision + m () +geolocationPolicyAllow decision = liftIO $ do + let decision' = unsafeManagedPtrCastPtr decision + webkit_geolocation_policy_allow decision' + touchManagedPtr decision + return () + + +-- function webkit_context_menu_item_get_action +-- Args : [Arg {argName = "item", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "item", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "ContextMenuAction" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: + Ptr Gtk.MenuItem -> -- item : TInterface "Gtk" "MenuItem" + IO CUInt + + +contextMenuItemGetAction :: + (MonadIO m, Gtk.MenuItemK a) => + a -> -- item + m ContextMenuAction +contextMenuItemGetAction item = liftIO $ do + let item' = unsafeManagedPtrCastPtr item + result <- webkit_context_menu_item_get_action item' + let result' = (toEnum . fromIntegral) result + touchManagedPtr item + return result' + + +-- function webkit_application_cache_get_database_directory_path +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_application_cache_get_database_directory_path" webkit_application_cache_get_database_directory_path :: + IO CString + + +applicationCacheGetDatabaseDirectoryPath :: + (MonadIO m) => + m T.Text +applicationCacheGetDatabaseDirectoryPath = liftIO $ do + result <- webkit_application_cache_get_database_directory_path + checkUnexpectedReturnNULL "webkit_application_cache_get_database_directory_path" result + result' <- cstringToText result + return result' + + + diff --git a/GI/WebKit/Interfaces.hs b/GI/WebKit/Interfaces.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Interfaces.hs @@ -0,0 +1,28 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Interfaces + ( module GI.WebKit.Interfaces.DOMEventTarget, + module GI.WebKit.Interfaces.SpellChecker, + + + ) where + +import GI.WebKit.Interfaces.DOMEventTarget +import GI.WebKit.Interfaces.SpellChecker + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + + diff --git a/GI/WebKit/Interfaces/DOMEventTarget.hs b/GI/WebKit/Interfaces/DOMEventTarget.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Interfaces/DOMEventTarget.hs @@ -0,0 +1,180 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Interfaces.DOMEventTarget + ( + +-- * Exported types + DOMEventTarget(..) , + noDOMEventTarget , + DOMEventTargetK , + toDOMEventTarget , + + + -- * Methods +-- ** dOMEventTargetAddEventListener + dOMEventTargetAddEventListener , + + +-- ** dOMEventTargetDispatchEvent + dOMEventTargetDispatchEvent , + + +-- ** dOMEventTargetRemoveEventListener + dOMEventTargetRemoveEventListener , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +-- interface DOMEventTarget + +newtype DOMEventTarget = DOMEventTarget (ForeignPtr DOMEventTarget) +noDOMEventTarget :: Maybe DOMEventTarget +noDOMEventTarget = Nothing + +type instance AttributeList DOMEventTarget = DOMEventTargetAttributeList +type DOMEventTargetAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList DOMEventTarget = DOMEventTargetSignalList +type DOMEventTargetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +foreign import ccall "webkit_dom_event_target_get_type" + c_webkit_dom_event_target_get_type :: IO GType + +type instance ParentTypes DOMEventTarget = DOMEventTargetParentTypes +type DOMEventTargetParentTypes = '[GObject.Object] + +instance GObject DOMEventTarget where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_event_target_get_type + + +class GObject o => DOMEventTargetK o +instance (GObject o, IsDescendantOf DOMEventTarget o) => DOMEventTargetK o + +toDOMEventTarget :: DOMEventTargetK o => o -> IO DOMEventTarget +toDOMEventTarget = unsafeCastTo DOMEventTarget + +-- method DOMEventTarget::add_event_listener +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_target_add_event_listener_with_closure" webkit_dom_event_target_add_event_listener_with_closure :: + Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget" + CString -> -- event_name : TBasicType TUTF8 + Ptr Closure -> -- handler : TInterface "GObject" "Closure" + CInt -> -- use_capture : TBasicType TBoolean + IO CInt + + +dOMEventTargetAddEventListener :: + (MonadIO m, DOMEventTargetK a) => + a -> -- _obj + T.Text -> -- event_name + Closure -> -- handler + Bool -> -- use_capture + m Bool +dOMEventTargetAddEventListener _obj event_name handler use_capture = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + event_name' <- textToCString event_name + let handler' = unsafeManagedPtrGetPtr handler + let use_capture' = (fromIntegral . fromEnum) use_capture + result <- webkit_dom_event_target_add_event_listener_with_closure _obj' event_name' handler' use_capture' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr handler + freeMem event_name' + return result' + +-- method DOMEventTarget::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_event_target_dispatch_event" webkit_dom_event_target_dispatch_event :: + Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget" + Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMEventTargetDispatchEvent :: + (MonadIO m, DOMEventTargetK a, DOMEventK b) => + a -> -- _obj + b -> -- event + m () +dOMEventTargetDispatchEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrCastPtr event + onException (do + _ <- propagateGError $ webkit_dom_event_target_dispatch_event _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return () + ) (do + return () + ) + +-- method DOMEventTarget::remove_event_listener +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_target_remove_event_listener_with_closure" webkit_dom_event_target_remove_event_listener_with_closure :: + Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget" + CString -> -- event_name : TBasicType TUTF8 + Ptr Closure -> -- handler : TInterface "GObject" "Closure" + CInt -> -- use_capture : TBasicType TBoolean + IO CInt + + +dOMEventTargetRemoveEventListener :: + (MonadIO m, DOMEventTargetK a) => + a -> -- _obj + T.Text -> -- event_name + Closure -> -- handler + Bool -> -- use_capture + m Bool +dOMEventTargetRemoveEventListener _obj event_name handler use_capture = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + event_name' <- textToCString event_name + let handler' = unsafeManagedPtrGetPtr handler + let use_capture' = (fromIntegral . fromEnum) use_capture + result <- webkit_dom_event_target_remove_event_listener_with_closure _obj' event_name' handler' use_capture' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr handler + freeMem event_name' + return result' + + diff --git a/GI/WebKit/Interfaces/DOMEventTarget.hs-boot b/GI/WebKit/Interfaces/DOMEventTarget.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Interfaces/DOMEventTarget.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Interfaces.DOMEventTarget where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMEventTarget = DOMEventTarget (ForeignPtr DOMEventTarget) +instance GObject DOMEventTarget where +class GObject o => DOMEventTargetK o +instance (GObject o, IsDescendantOf DOMEventTarget o) => DOMEventTargetK o diff --git a/GI/WebKit/Interfaces/SpellChecker.hs b/GI/WebKit/Interfaces/SpellChecker.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Interfaces/SpellChecker.hs @@ -0,0 +1,282 @@ + +{- | +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.WebKit.Interfaces.SpellChecker + ( + +-- * Exported types + SpellChecker(..) , + noSpellChecker , + SpellCheckerK , + toSpellChecker , + + + -- * Methods +-- ** spellCheckerCheckSpellingOfString + spellCheckerCheckSpellingOfString , + + +-- ** spellCheckerGetAutocorrectSuggestionsForMisspelledWord + spellCheckerGetAutocorrectSuggestionsForMisspelledWord, + + +-- ** spellCheckerGetGuessesForWord + spellCheckerGetGuessesForWord , + + +-- ** spellCheckerIgnoreWord + spellCheckerIgnoreWord , + + +-- ** spellCheckerLearnWord + spellCheckerLearnWord , + + +-- ** spellCheckerUpdateSpellCheckingLanguages + spellCheckerUpdateSpellCheckingLanguages, + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +-- interface SpellChecker + +newtype SpellChecker = SpellChecker (ForeignPtr SpellChecker) +noSpellChecker :: Maybe SpellChecker +noSpellChecker = Nothing + +type instance AttributeList SpellChecker = SpellCheckerAttributeList +type SpellCheckerAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList SpellChecker = SpellCheckerSignalList +type SpellCheckerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +foreign import ccall "webkit_spell_checker_get_type" + c_webkit_spell_checker_get_type :: IO GType + +type instance ParentTypes SpellChecker = SpellCheckerParentTypes +type SpellCheckerParentTypes = '[GObject.Object] + +instance GObject SpellChecker where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_spell_checker_get_type + + +class GObject o => SpellCheckerK o +instance (GObject o, IsDescendantOf SpellChecker o) => SpellCheckerK o + +toSpellChecker :: SpellCheckerK o => o -> IO SpellChecker +toSpellChecker = unsafeCastTo SpellChecker + +-- method SpellChecker::check_spelling_of_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "misspelling_location", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "misspelling_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_check_spelling_of_string" webkit_spell_checker_check_spelling_of_string :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- string : TBasicType TUTF8 + Ptr Int32 -> -- misspelling_location : TBasicType TInt32 + Ptr Int32 -> -- misspelling_length : TBasicType TInt32 + IO () + + +spellCheckerCheckSpellingOfString :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + T.Text -> -- string + m (Int32,Int32) +spellCheckerCheckSpellingOfString _obj string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + misspelling_location <- allocMem :: IO (Ptr Int32) + misspelling_length <- allocMem :: IO (Ptr Int32) + webkit_spell_checker_check_spelling_of_string _obj' string' misspelling_location misspelling_length + misspelling_location' <- peek misspelling_location + misspelling_length' <- peek misspelling_length + touchManagedPtr _obj + freeMem string' + freeMem misspelling_location + freeMem misspelling_length + return (misspelling_location', misspelling_length') + +-- method SpellChecker::get_autocorrect_suggestions_for_misspelled_word +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word" webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- word : TBasicType TUTF8 + IO CString + + +spellCheckerGetAutocorrectSuggestionsForMisspelledWord :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + T.Text -> -- word + m T.Text +spellCheckerGetAutocorrectSuggestionsForMisspelledWord _obj word = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + word' <- textToCString word + result <- webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word _obj' word' + checkUnexpectedReturnNULL "webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem word' + return result' + +-- method SpellChecker::get_guesses_for_word +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_get_guesses_for_word" webkit_spell_checker_get_guesses_for_word :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- word : TBasicType TUTF8 + CString -> -- context : TBasicType TUTF8 + IO (Ptr CString) + + +spellCheckerGetGuessesForWord :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + T.Text -> -- word + Maybe (T.Text) -> -- context + m [T.Text] +spellCheckerGetGuessesForWord _obj word context = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + word' <- textToCString word + maybeContext <- case context of + Nothing -> return nullPtr + Just jContext -> do + jContext' <- textToCString jContext + return jContext' + result <- webkit_spell_checker_get_guesses_for_word _obj' word' maybeContext + checkUnexpectedReturnNULL "webkit_spell_checker_get_guesses_for_word" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr _obj + freeMem word' + freeMem maybeContext + return result' + +-- method SpellChecker::ignore_word +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_ignore_word" webkit_spell_checker_ignore_word :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- word : TBasicType TUTF8 + IO () + + +spellCheckerIgnoreWord :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + T.Text -> -- word + m () +spellCheckerIgnoreWord _obj word = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + word' <- textToCString word + webkit_spell_checker_ignore_word _obj' word' + touchManagedPtr _obj + freeMem word' + return () + +-- method SpellChecker::learn_word +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_learn_word" webkit_spell_checker_learn_word :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- word : TBasicType TUTF8 + IO () + + +spellCheckerLearnWord :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + T.Text -> -- word + m () +spellCheckerLearnWord _obj word = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + word' <- textToCString word + webkit_spell_checker_learn_word _obj' word' + touchManagedPtr _obj + freeMem word' + return () + +-- method SpellChecker::update_spell_checking_languages +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_spell_checker_update_spell_checking_languages" webkit_spell_checker_update_spell_checking_languages :: + Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" + CString -> -- languages : TBasicType TUTF8 + IO () + + +spellCheckerUpdateSpellCheckingLanguages :: + (MonadIO m, SpellCheckerK a) => + a -> -- _obj + Maybe (T.Text) -> -- languages + m () +spellCheckerUpdateSpellCheckingLanguages _obj languages = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeLanguages <- case languages of + Nothing -> return nullPtr + Just jLanguages -> do + jLanguages' <- textToCString jLanguages + return jLanguages' + webkit_spell_checker_update_spell_checking_languages _obj' maybeLanguages + touchManagedPtr _obj + freeMem maybeLanguages + return () + + diff --git a/GI/WebKit/Interfaces/SpellChecker.hs-boot b/GI/WebKit/Interfaces/SpellChecker.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Interfaces/SpellChecker.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Interfaces.SpellChecker where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype SpellChecker = SpellChecker (ForeignPtr SpellChecker) +instance GObject SpellChecker where +class GObject o => SpellCheckerK o +instance (GObject o, IsDescendantOf SpellChecker o) => SpellCheckerK o diff --git a/GI/WebKit/Objects.hs b/GI/WebKit/Objects.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects.hs @@ -0,0 +1,396 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects + ( module GI.WebKit.Objects.DOMAttr , + module GI.WebKit.Objects.DOMAudioTrack , + module GI.WebKit.Objects.DOMAudioTrackList, + module GI.WebKit.Objects.DOMBarInfo , + module GI.WebKit.Objects.DOMBarProp , + module GI.WebKit.Objects.DOMBatteryManager, + module GI.WebKit.Objects.DOMBlob , + module GI.WebKit.Objects.DOMCDATASection, + module GI.WebKit.Objects.DOMCSSRule , + module GI.WebKit.Objects.DOMCSSRuleList , + module GI.WebKit.Objects.DOMCSSStyleDeclaration, + module GI.WebKit.Objects.DOMCSSStyleSheet, + module GI.WebKit.Objects.DOMCSSValue , + module GI.WebKit.Objects.DOMCharacterData, + module GI.WebKit.Objects.DOMComment , + module GI.WebKit.Objects.DOMConsole , + module GI.WebKit.Objects.DOMDOMApplicationCache, + module GI.WebKit.Objects.DOMDOMImplementation, + module GI.WebKit.Objects.DOMDOMMimeType , + module GI.WebKit.Objects.DOMDOMMimeTypeArray, + module GI.WebKit.Objects.DOMDOMNamedFlowCollection, + module GI.WebKit.Objects.DOMDOMPlugin , + module GI.WebKit.Objects.DOMDOMPluginArray, + module GI.WebKit.Objects.DOMDOMSecurityPolicy, + module GI.WebKit.Objects.DOMDOMSelection, + module GI.WebKit.Objects.DOMDOMSettableTokenList, + module GI.WebKit.Objects.DOMDOMStringList, + module GI.WebKit.Objects.DOMDOMStringMap, + module GI.WebKit.Objects.DOMDOMTokenList, + module GI.WebKit.Objects.DOMDOMWindow , + module GI.WebKit.Objects.DOMDOMWindowCSS, + module GI.WebKit.Objects.DOMDatabase , + module GI.WebKit.Objects.DOMDocument , + module GI.WebKit.Objects.DOMDocumentFragment, + module GI.WebKit.Objects.DOMDocumentType, + module GI.WebKit.Objects.DOMElement , + module GI.WebKit.Objects.DOMEntityReference, + module GI.WebKit.Objects.DOMEvent , + module GI.WebKit.Objects.DOMFile , + module GI.WebKit.Objects.DOMFileList , + module GI.WebKit.Objects.DOMGamepad , + module GI.WebKit.Objects.DOMGamepadList , + module GI.WebKit.Objects.DOMGeolocation , + module GI.WebKit.Objects.DOMHTMLAnchorElement, + module GI.WebKit.Objects.DOMHTMLAppletElement, + module GI.WebKit.Objects.DOMHTMLAreaElement, + module GI.WebKit.Objects.DOMHTMLAudioElement, + module GI.WebKit.Objects.DOMHTMLBRElement, + module GI.WebKit.Objects.DOMHTMLBaseElement, + module GI.WebKit.Objects.DOMHTMLBaseFontElement, + module GI.WebKit.Objects.DOMHTMLBodyElement, + module GI.WebKit.Objects.DOMHTMLButtonElement, + module GI.WebKit.Objects.DOMHTMLCanvasElement, + module GI.WebKit.Objects.DOMHTMLCollection, + module GI.WebKit.Objects.DOMHTMLDListElement, + module GI.WebKit.Objects.DOMHTMLDetailsElement, + module GI.WebKit.Objects.DOMHTMLDirectoryElement, + module GI.WebKit.Objects.DOMHTMLDivElement, + module GI.WebKit.Objects.DOMHTMLDocument, + module GI.WebKit.Objects.DOMHTMLElement , + module GI.WebKit.Objects.DOMHTMLEmbedElement, + module GI.WebKit.Objects.DOMHTMLFieldSetElement, + module GI.WebKit.Objects.DOMHTMLFontElement, + module GI.WebKit.Objects.DOMHTMLFormElement, + module GI.WebKit.Objects.DOMHTMLFrameElement, + module GI.WebKit.Objects.DOMHTMLFrameSetElement, + module GI.WebKit.Objects.DOMHTMLHRElement, + module GI.WebKit.Objects.DOMHTMLHeadElement, + module GI.WebKit.Objects.DOMHTMLHeadingElement, + module GI.WebKit.Objects.DOMHTMLHtmlElement, + module GI.WebKit.Objects.DOMHTMLIFrameElement, + module GI.WebKit.Objects.DOMHTMLImageElement, + module GI.WebKit.Objects.DOMHTMLInputElement, + module GI.WebKit.Objects.DOMHTMLKeygenElement, + module GI.WebKit.Objects.DOMHTMLLIElement, + module GI.WebKit.Objects.DOMHTMLLabelElement, + module GI.WebKit.Objects.DOMHTMLLegendElement, + module GI.WebKit.Objects.DOMHTMLLinkElement, + module GI.WebKit.Objects.DOMHTMLMapElement, + module GI.WebKit.Objects.DOMHTMLMarqueeElement, + module GI.WebKit.Objects.DOMHTMLMediaElement, + module GI.WebKit.Objects.DOMHTMLMenuElement, + module GI.WebKit.Objects.DOMHTMLMetaElement, + module GI.WebKit.Objects.DOMHTMLModElement, + module GI.WebKit.Objects.DOMHTMLOListElement, + module GI.WebKit.Objects.DOMHTMLObjectElement, + module GI.WebKit.Objects.DOMHTMLOptGroupElement, + module GI.WebKit.Objects.DOMHTMLOptionElement, + module GI.WebKit.Objects.DOMHTMLOptionsCollection, + module GI.WebKit.Objects.DOMHTMLParagraphElement, + module GI.WebKit.Objects.DOMHTMLParamElement, + module GI.WebKit.Objects.DOMHTMLPreElement, + module GI.WebKit.Objects.DOMHTMLPropertiesCollection, + module GI.WebKit.Objects.DOMHTMLQuoteElement, + module GI.WebKit.Objects.DOMHTMLScriptElement, + module GI.WebKit.Objects.DOMHTMLSelectElement, + module GI.WebKit.Objects.DOMHTMLStyleElement, + module GI.WebKit.Objects.DOMHTMLTableCaptionElement, + module GI.WebKit.Objects.DOMHTMLTableCellElement, + module GI.WebKit.Objects.DOMHTMLTableColElement, + module GI.WebKit.Objects.DOMHTMLTableElement, + module GI.WebKit.Objects.DOMHTMLTableRowElement, + module GI.WebKit.Objects.DOMHTMLTableSectionElement, + module GI.WebKit.Objects.DOMHTMLTextAreaElement, + module GI.WebKit.Objects.DOMHTMLTitleElement, + module GI.WebKit.Objects.DOMHTMLUListElement, + module GI.WebKit.Objects.DOMHTMLVideoElement, + module GI.WebKit.Objects.DOMHistory , + module GI.WebKit.Objects.DOMKeyboardEvent, + module GI.WebKit.Objects.DOMLocation , + module GI.WebKit.Objects.DOMMediaController, + module GI.WebKit.Objects.DOMMediaError , + module GI.WebKit.Objects.DOMMediaList , + module GI.WebKit.Objects.DOMMediaQueryList, + module GI.WebKit.Objects.DOMMemoryInfo , + module GI.WebKit.Objects.DOMMessagePort , + module GI.WebKit.Objects.DOMMicroDataItemValue, + module GI.WebKit.Objects.DOMMouseEvent , + module GI.WebKit.Objects.DOMNamedNodeMap, + module GI.WebKit.Objects.DOMNavigator , + module GI.WebKit.Objects.DOMNode , + module GI.WebKit.Objects.DOMNodeFilter , + module GI.WebKit.Objects.DOMNodeIterator, + module GI.WebKit.Objects.DOMNodeList , + module GI.WebKit.Objects.DOMObject , + module GI.WebKit.Objects.DOMPerformance , + module GI.WebKit.Objects.DOMPerformanceEntry, + module GI.WebKit.Objects.DOMPerformanceEntryList, + module GI.WebKit.Objects.DOMPerformanceNavigation, + module GI.WebKit.Objects.DOMPerformanceTiming, + module GI.WebKit.Objects.DOMProcessingInstruction, + module GI.WebKit.Objects.DOMPropertyNodeList, + module GI.WebKit.Objects.DOMRange , + module GI.WebKit.Objects.DOMScreen , + module GI.WebKit.Objects.DOMShadowRoot , + module GI.WebKit.Objects.DOMStorage , + module GI.WebKit.Objects.DOMStorageInfo , + module GI.WebKit.Objects.DOMStorageQuota, + module GI.WebKit.Objects.DOMStyleMedia , + module GI.WebKit.Objects.DOMStyleSheet , + module GI.WebKit.Objects.DOMStyleSheetList, + module GI.WebKit.Objects.DOMText , + module GI.WebKit.Objects.DOMTextTrack , + module GI.WebKit.Objects.DOMTextTrackCue, + module GI.WebKit.Objects.DOMTextTrackCueList, + module GI.WebKit.Objects.DOMTextTrackList, + module GI.WebKit.Objects.DOMTimeRanges , + module GI.WebKit.Objects.DOMTouch , + module GI.WebKit.Objects.DOMTrackEvent , + module GI.WebKit.Objects.DOMTreeWalker , + module GI.WebKit.Objects.DOMUIEvent , + module GI.WebKit.Objects.DOMValidityState, + module GI.WebKit.Objects.DOMVideoPlaybackQuality, + module GI.WebKit.Objects.DOMVideoTrack , + module GI.WebKit.Objects.DOMVideoTrackList, + module GI.WebKit.Objects.DOMWebKitNamedFlow, + module GI.WebKit.Objects.DOMWebKitPoint , + module GI.WebKit.Objects.DOMWheelEvent , + module GI.WebKit.Objects.DOMXPathExpression, + module GI.WebKit.Objects.DOMXPathNSResolver, + module GI.WebKit.Objects.DOMXPathResult , + module GI.WebKit.Objects.Download , + module GI.WebKit.Objects.FaviconDatabase, + module GI.WebKit.Objects.FileChooserRequest, + module GI.WebKit.Objects.GeolocationPolicyDecision, + module GI.WebKit.Objects.HitTestResult , + module GI.WebKit.Objects.IconDatabase , + module GI.WebKit.Objects.NetworkRequest , + module GI.WebKit.Objects.NetworkResponse, + module GI.WebKit.Objects.SecurityOrigin , + module GI.WebKit.Objects.SoupAuthDialog , + module GI.WebKit.Objects.ViewportAttributes, + module GI.WebKit.Objects.WebBackForwardList, + module GI.WebKit.Objects.WebDataSource , + module GI.WebKit.Objects.WebDatabase , + module GI.WebKit.Objects.WebFrame , + module GI.WebKit.Objects.WebHistoryItem , + module GI.WebKit.Objects.WebInspector , + module GI.WebKit.Objects.WebNavigationAction, + module GI.WebKit.Objects.WebPlugin , + module GI.WebKit.Objects.WebPluginDatabase, + module GI.WebKit.Objects.WebPolicyDecision, + module GI.WebKit.Objects.WebResource , + module GI.WebKit.Objects.WebSettings , + module GI.WebKit.Objects.WebView , + module GI.WebKit.Objects.WebWindowFeatures, + + + ) where + +import GI.WebKit.Objects.DOMAttr +import GI.WebKit.Objects.DOMAudioTrack +import GI.WebKit.Objects.DOMAudioTrackList +import GI.WebKit.Objects.DOMBarInfo +import GI.WebKit.Objects.DOMBarProp +import GI.WebKit.Objects.DOMBatteryManager +import GI.WebKit.Objects.DOMBlob +import GI.WebKit.Objects.DOMCDATASection +import GI.WebKit.Objects.DOMCSSRule +import GI.WebKit.Objects.DOMCSSRuleList +import GI.WebKit.Objects.DOMCSSStyleDeclaration +import GI.WebKit.Objects.DOMCSSStyleSheet +import GI.WebKit.Objects.DOMCSSValue +import GI.WebKit.Objects.DOMCharacterData +import GI.WebKit.Objects.DOMComment +import GI.WebKit.Objects.DOMConsole +import GI.WebKit.Objects.DOMDOMApplicationCache +import GI.WebKit.Objects.DOMDOMImplementation +import GI.WebKit.Objects.DOMDOMMimeType +import GI.WebKit.Objects.DOMDOMMimeTypeArray +import GI.WebKit.Objects.DOMDOMNamedFlowCollection +import GI.WebKit.Objects.DOMDOMPlugin +import GI.WebKit.Objects.DOMDOMPluginArray +import GI.WebKit.Objects.DOMDOMSecurityPolicy +import GI.WebKit.Objects.DOMDOMSelection +import GI.WebKit.Objects.DOMDOMSettableTokenList +import GI.WebKit.Objects.DOMDOMStringList +import GI.WebKit.Objects.DOMDOMStringMap +import GI.WebKit.Objects.DOMDOMTokenList +import GI.WebKit.Objects.DOMDOMWindow +import GI.WebKit.Objects.DOMDOMWindowCSS +import GI.WebKit.Objects.DOMDatabase +import GI.WebKit.Objects.DOMDocument +import GI.WebKit.Objects.DOMDocumentFragment +import GI.WebKit.Objects.DOMDocumentType +import GI.WebKit.Objects.DOMElement +import GI.WebKit.Objects.DOMEntityReference +import GI.WebKit.Objects.DOMEvent +import GI.WebKit.Objects.DOMFile +import GI.WebKit.Objects.DOMFileList +import GI.WebKit.Objects.DOMGamepad +import GI.WebKit.Objects.DOMGamepadList +import GI.WebKit.Objects.DOMGeolocation +import GI.WebKit.Objects.DOMHTMLAnchorElement +import GI.WebKit.Objects.DOMHTMLAppletElement +import GI.WebKit.Objects.DOMHTMLAreaElement +import GI.WebKit.Objects.DOMHTMLAudioElement +import GI.WebKit.Objects.DOMHTMLBRElement +import GI.WebKit.Objects.DOMHTMLBaseElement +import GI.WebKit.Objects.DOMHTMLBaseFontElement +import GI.WebKit.Objects.DOMHTMLBodyElement +import GI.WebKit.Objects.DOMHTMLButtonElement +import GI.WebKit.Objects.DOMHTMLCanvasElement +import GI.WebKit.Objects.DOMHTMLCollection +import GI.WebKit.Objects.DOMHTMLDListElement +import GI.WebKit.Objects.DOMHTMLDetailsElement +import GI.WebKit.Objects.DOMHTMLDirectoryElement +import GI.WebKit.Objects.DOMHTMLDivElement +import GI.WebKit.Objects.DOMHTMLDocument +import GI.WebKit.Objects.DOMHTMLElement +import GI.WebKit.Objects.DOMHTMLEmbedElement +import GI.WebKit.Objects.DOMHTMLFieldSetElement +import GI.WebKit.Objects.DOMHTMLFontElement +import GI.WebKit.Objects.DOMHTMLFormElement +import GI.WebKit.Objects.DOMHTMLFrameElement +import GI.WebKit.Objects.DOMHTMLFrameSetElement +import GI.WebKit.Objects.DOMHTMLHRElement +import GI.WebKit.Objects.DOMHTMLHeadElement +import GI.WebKit.Objects.DOMHTMLHeadingElement +import GI.WebKit.Objects.DOMHTMLHtmlElement +import GI.WebKit.Objects.DOMHTMLIFrameElement +import GI.WebKit.Objects.DOMHTMLImageElement +import GI.WebKit.Objects.DOMHTMLInputElement +import GI.WebKit.Objects.DOMHTMLKeygenElement +import GI.WebKit.Objects.DOMHTMLLIElement +import GI.WebKit.Objects.DOMHTMLLabelElement +import GI.WebKit.Objects.DOMHTMLLegendElement +import GI.WebKit.Objects.DOMHTMLLinkElement +import GI.WebKit.Objects.DOMHTMLMapElement +import GI.WebKit.Objects.DOMHTMLMarqueeElement +import GI.WebKit.Objects.DOMHTMLMediaElement +import GI.WebKit.Objects.DOMHTMLMenuElement +import GI.WebKit.Objects.DOMHTMLMetaElement +import GI.WebKit.Objects.DOMHTMLModElement +import GI.WebKit.Objects.DOMHTMLOListElement +import GI.WebKit.Objects.DOMHTMLObjectElement +import GI.WebKit.Objects.DOMHTMLOptGroupElement +import GI.WebKit.Objects.DOMHTMLOptionElement +import GI.WebKit.Objects.DOMHTMLOptionsCollection +import GI.WebKit.Objects.DOMHTMLParagraphElement +import GI.WebKit.Objects.DOMHTMLParamElement +import GI.WebKit.Objects.DOMHTMLPreElement +import GI.WebKit.Objects.DOMHTMLPropertiesCollection +import GI.WebKit.Objects.DOMHTMLQuoteElement +import GI.WebKit.Objects.DOMHTMLScriptElement +import GI.WebKit.Objects.DOMHTMLSelectElement +import GI.WebKit.Objects.DOMHTMLStyleElement +import GI.WebKit.Objects.DOMHTMLTableCaptionElement +import GI.WebKit.Objects.DOMHTMLTableCellElement +import GI.WebKit.Objects.DOMHTMLTableColElement +import GI.WebKit.Objects.DOMHTMLTableElement +import GI.WebKit.Objects.DOMHTMLTableRowElement +import GI.WebKit.Objects.DOMHTMLTableSectionElement +import GI.WebKit.Objects.DOMHTMLTextAreaElement +import GI.WebKit.Objects.DOMHTMLTitleElement +import GI.WebKit.Objects.DOMHTMLUListElement +import GI.WebKit.Objects.DOMHTMLVideoElement +import GI.WebKit.Objects.DOMHistory +import GI.WebKit.Objects.DOMKeyboardEvent +import GI.WebKit.Objects.DOMLocation +import GI.WebKit.Objects.DOMMediaController +import GI.WebKit.Objects.DOMMediaError +import GI.WebKit.Objects.DOMMediaList +import GI.WebKit.Objects.DOMMediaQueryList +import GI.WebKit.Objects.DOMMemoryInfo +import GI.WebKit.Objects.DOMMessagePort +import GI.WebKit.Objects.DOMMicroDataItemValue +import GI.WebKit.Objects.DOMMouseEvent +import GI.WebKit.Objects.DOMNamedNodeMap +import GI.WebKit.Objects.DOMNavigator +import GI.WebKit.Objects.DOMNode +import GI.WebKit.Objects.DOMNodeFilter +import GI.WebKit.Objects.DOMNodeIterator +import GI.WebKit.Objects.DOMNodeList +import GI.WebKit.Objects.DOMObject +import GI.WebKit.Objects.DOMPerformance +import GI.WebKit.Objects.DOMPerformanceEntry +import GI.WebKit.Objects.DOMPerformanceEntryList +import GI.WebKit.Objects.DOMPerformanceNavigation +import GI.WebKit.Objects.DOMPerformanceTiming +import GI.WebKit.Objects.DOMProcessingInstruction +import GI.WebKit.Objects.DOMPropertyNodeList +import GI.WebKit.Objects.DOMRange +import GI.WebKit.Objects.DOMScreen +import GI.WebKit.Objects.DOMShadowRoot +import GI.WebKit.Objects.DOMStorage +import GI.WebKit.Objects.DOMStorageInfo +import GI.WebKit.Objects.DOMStorageQuota +import GI.WebKit.Objects.DOMStyleMedia +import GI.WebKit.Objects.DOMStyleSheet +import GI.WebKit.Objects.DOMStyleSheetList +import GI.WebKit.Objects.DOMText +import GI.WebKit.Objects.DOMTextTrack +import GI.WebKit.Objects.DOMTextTrackCue +import GI.WebKit.Objects.DOMTextTrackCueList +import GI.WebKit.Objects.DOMTextTrackList +import GI.WebKit.Objects.DOMTimeRanges +import GI.WebKit.Objects.DOMTouch +import GI.WebKit.Objects.DOMTrackEvent +import GI.WebKit.Objects.DOMTreeWalker +import GI.WebKit.Objects.DOMUIEvent +import GI.WebKit.Objects.DOMValidityState +import GI.WebKit.Objects.DOMVideoPlaybackQuality +import GI.WebKit.Objects.DOMVideoTrack +import GI.WebKit.Objects.DOMVideoTrackList +import GI.WebKit.Objects.DOMWebKitNamedFlow +import GI.WebKit.Objects.DOMWebKitPoint +import GI.WebKit.Objects.DOMWheelEvent +import GI.WebKit.Objects.DOMXPathExpression +import GI.WebKit.Objects.DOMXPathNSResolver +import GI.WebKit.Objects.DOMXPathResult +import GI.WebKit.Objects.Download +import GI.WebKit.Objects.FaviconDatabase +import GI.WebKit.Objects.FileChooserRequest +import GI.WebKit.Objects.GeolocationPolicyDecision +import GI.WebKit.Objects.HitTestResult +import GI.WebKit.Objects.IconDatabase +import GI.WebKit.Objects.NetworkRequest +import GI.WebKit.Objects.NetworkResponse +import GI.WebKit.Objects.SecurityOrigin +import GI.WebKit.Objects.SoupAuthDialog +import GI.WebKit.Objects.ViewportAttributes +import GI.WebKit.Objects.WebBackForwardList +import GI.WebKit.Objects.WebDataSource +import GI.WebKit.Objects.WebDatabase +import GI.WebKit.Objects.WebFrame +import GI.WebKit.Objects.WebHistoryItem +import GI.WebKit.Objects.WebInspector +import GI.WebKit.Objects.WebNavigationAction +import GI.WebKit.Objects.WebPlugin +import GI.WebKit.Objects.WebPluginDatabase +import GI.WebKit.Objects.WebPolicyDecision +import GI.WebKit.Objects.WebResource +import GI.WebKit.Objects.WebSettings +import GI.WebKit.Objects.WebView +import GI.WebKit.Objects.WebWindowFeatures + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + + diff --git a/GI/WebKit/Objects/DOMAttr.hs b/GI/WebKit/Objects/DOMAttr.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAttr.hs @@ -0,0 +1,374 @@ + +{- | +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.WebKit.Objects.DOMAttr + ( + +-- * Exported types + DOMAttr(..) , + DOMAttrK , + toDOMAttr , + noDOMAttr , + + + -- * Methods +-- ** dOMAttrGetIsId + dOMAttrGetIsId , + + +-- ** dOMAttrGetName + dOMAttrGetName , + + +-- ** dOMAttrGetOwnerElement + dOMAttrGetOwnerElement , + + +-- ** dOMAttrGetSpecified + dOMAttrGetSpecified , + + +-- ** dOMAttrGetValue + dOMAttrGetValue , + + +-- ** dOMAttrSetValue + dOMAttrSetValue , + + + + + -- * Properties +-- ** IsId + DOMAttrIsIdPropertyInfo , + getDOMAttrIsId , + + +-- ** Name + DOMAttrNamePropertyInfo , + getDOMAttrName , + + +-- ** OwnerElement + DOMAttrOwnerElementPropertyInfo , + getDOMAttrOwnerElement , + + +-- ** Specified + DOMAttrSpecifiedPropertyInfo , + getDOMAttrSpecified , + + +-- ** Value + DOMAttrValuePropertyInfo , + constructDOMAttrValue , + getDOMAttrValue , + setDOMAttrValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMAttr = DOMAttr (ForeignPtr DOMAttr) +foreign import ccall "webkit_dom_attr_get_type" + c_webkit_dom_attr_get_type :: IO GType + +type instance ParentTypes DOMAttr = DOMAttrParentTypes +type DOMAttrParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMAttr where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_attr_get_type + + +class GObject o => DOMAttrK o +instance (GObject o, IsDescendantOf DOMAttr o) => DOMAttrK o + +toDOMAttr :: DOMAttrK o => o -> IO DOMAttr +toDOMAttr = unsafeCastTo DOMAttr + +noDOMAttr :: Maybe DOMAttr +noDOMAttr = Nothing + +-- VVV Prop "is-id" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool +getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id" + +data DOMAttrIsIdPropertyInfo +instance AttrInfo DOMAttrIsIdPropertyInfo where + type AttrAllowedOps DOMAttrIsIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrIsIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrIsIdPropertyInfo = DOMAttrK + type AttrGetType DOMAttrIsIdPropertyInfo = Bool + type AttrLabel DOMAttrIsIdPropertyInfo = "DOMAttr::is-id" + attrGet _ = getDOMAttrIsId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMAttrNamePropertyInfo +instance AttrInfo DOMAttrNamePropertyInfo where + type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK + type AttrGetType DOMAttrNamePropertyInfo = T.Text + type AttrLabel DOMAttrNamePropertyInfo = "DOMAttr::name" + attrGet _ = getDOMAttrName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement +getDOMAttrOwnerElement obj = liftIO $ getObjectPropertyObject obj "owner-element" DOMElement + +data DOMAttrOwnerElementPropertyInfo +instance AttrInfo DOMAttrOwnerElementPropertyInfo where + type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK + type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement + type AttrLabel DOMAttrOwnerElementPropertyInfo = "DOMAttr::owner-element" + attrGet _ = getDOMAttrOwnerElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "specified" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMAttrSpecified :: (MonadIO m, DOMAttrK o) => o -> m Bool +getDOMAttrSpecified obj = liftIO $ getObjectPropertyBool obj "specified" + +data DOMAttrSpecifiedPropertyInfo +instance AttrInfo DOMAttrSpecifiedPropertyInfo where + type AttrAllowedOps DOMAttrSpecifiedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrSpecifiedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrSpecifiedPropertyInfo = DOMAttrK + type AttrGetType DOMAttrSpecifiedPropertyInfo = Bool + type AttrLabel DOMAttrSpecifiedPropertyInfo = "DOMAttr::specified" + attrGet _ = getDOMAttrSpecified + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m () +setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMAttrValue :: T.Text -> IO ([Char], GValue) +constructDOMAttrValue val = constructObjectPropertyString "value" val + +data DOMAttrValuePropertyInfo +instance AttrInfo DOMAttrValuePropertyInfo where + type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK + type AttrGetType DOMAttrValuePropertyInfo = T.Text + type AttrLabel DOMAttrValuePropertyInfo = "DOMAttr::value" + attrGet _ = getDOMAttrValue + attrSet _ = setDOMAttrValue + attrConstruct _ = constructDOMAttrValue + +type instance AttributeList DOMAttr = DOMAttrAttributeList +type DOMAttrAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("is-id", DOMAttrIsIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("owner-element", DOMAttrOwnerElementPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("value", DOMAttrValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMAttr = DOMAttrSignalList +type DOMAttrSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMAttr::get_is_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_attr_get_is_id" webkit_dom_attr_get_is_id :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + IO CInt + + +dOMAttrGetIsId :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + m Bool +dOMAttrGetIsId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_attr_get_is_id _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMAttr::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_attr_get_name" webkit_dom_attr_get_name :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + IO CString + + +dOMAttrGetName :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + m T.Text +dOMAttrGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_attr_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_attr_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAttr::get_owner_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_attr_get_owner_element" webkit_dom_attr_get_owner_element :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + IO (Ptr DOMElement) + + +dOMAttrGetOwnerElement :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + m DOMElement +dOMAttrGetOwnerElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_attr_get_owner_element _obj' + checkUnexpectedReturnNULL "webkit_dom_attr_get_owner_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMAttr::get_specified +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_attr_get_specified" webkit_dom_attr_get_specified :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + IO CInt + + +dOMAttrGetSpecified :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + m Bool +dOMAttrGetSpecified _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_attr_get_specified _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMAttr::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_attr_get_value" webkit_dom_attr_get_value :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + IO CString + + +dOMAttrGetValue :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + m T.Text +dOMAttrGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_attr_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_attr_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAttr::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_attr_set_value" webkit_dom_attr_set_value :: + Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMAttrSetValue :: + (MonadIO m, DOMAttrK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMAttrSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_attr_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMAttr.hs-boot b/GI/WebKit/Objects/DOMAttr.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAttr.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMAttr where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMAttr = DOMAttr (ForeignPtr DOMAttr) +instance GObject DOMAttr where +class GObject o => DOMAttrK o +instance (GObject o, IsDescendantOf DOMAttr o) => DOMAttrK o +data DOMAttrIsIdPropertyInfo +data DOMAttrNamePropertyInfo +data DOMAttrOwnerElementPropertyInfo +data DOMAttrSpecifiedPropertyInfo +data DOMAttrValuePropertyInfo diff --git a/GI/WebKit/Objects/DOMAudioTrack.hs b/GI/WebKit/Objects/DOMAudioTrack.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAudioTrack.hs @@ -0,0 +1,371 @@ + +{- | +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.WebKit.Objects.DOMAudioTrack + ( + +-- * Exported types + DOMAudioTrack(..) , + DOMAudioTrackK , + toDOMAudioTrack , + noDOMAudioTrack , + + + -- * Methods +-- ** dOMAudioTrackGetEnabled + dOMAudioTrackGetEnabled , + + +-- ** dOMAudioTrackGetId + dOMAudioTrackGetId , + + +-- ** dOMAudioTrackGetKind + dOMAudioTrackGetKind , + + +-- ** dOMAudioTrackGetLabel + dOMAudioTrackGetLabel , + + +-- ** dOMAudioTrackGetLanguage + dOMAudioTrackGetLanguage , + + +-- ** dOMAudioTrackSetEnabled + dOMAudioTrackSetEnabled , + + + + + -- * Properties +-- ** Enabled + DOMAudioTrackEnabledPropertyInfo , + constructDOMAudioTrackEnabled , + getDOMAudioTrackEnabled , + setDOMAudioTrackEnabled , + + +-- ** Id + DOMAudioTrackIdPropertyInfo , + getDOMAudioTrackId , + + +-- ** Kind + DOMAudioTrackKindPropertyInfo , + getDOMAudioTrackKind , + + +-- ** Label + DOMAudioTrackLabelPropertyInfo , + getDOMAudioTrackLabel , + + +-- ** Language + DOMAudioTrackLanguagePropertyInfo , + getDOMAudioTrackLanguage , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMAudioTrack = DOMAudioTrack (ForeignPtr DOMAudioTrack) +foreign import ccall "webkit_dom_audio_track_get_type" + c_webkit_dom_audio_track_get_type :: IO GType + +type instance ParentTypes DOMAudioTrack = DOMAudioTrackParentTypes +type DOMAudioTrackParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMAudioTrack where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_audio_track_get_type + + +class GObject o => DOMAudioTrackK o +instance (GObject o, IsDescendantOf DOMAudioTrack o) => DOMAudioTrackK o + +toDOMAudioTrack :: DOMAudioTrackK o => o -> IO DOMAudioTrack +toDOMAudioTrack = unsafeCastTo DOMAudioTrack + +noDOMAudioTrack :: Maybe DOMAudioTrack +noDOMAudioTrack = Nothing + +-- VVV Prop "enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> m Bool +getDOMAudioTrackEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" + +setDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> Bool -> m () +setDOMAudioTrackEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val + +constructDOMAudioTrackEnabled :: Bool -> IO ([Char], GValue) +constructDOMAudioTrackEnabled val = constructObjectPropertyBool "enabled" val + +data DOMAudioTrackEnabledPropertyInfo +instance AttrInfo DOMAudioTrackEnabledPropertyInfo where + type AttrAllowedOps DOMAudioTrackEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMAudioTrackEnabledPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackEnabledPropertyInfo = Bool + type AttrLabel DOMAudioTrackEnabledPropertyInfo = "DOMAudioTrack::enabled" + attrGet _ = getDOMAudioTrackEnabled + attrSet _ = setDOMAudioTrackEnabled + attrConstruct _ = constructDOMAudioTrackEnabled + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMAudioTrackIdPropertyInfo +instance AttrInfo DOMAudioTrackIdPropertyInfo where + type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackIdPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackIdPropertyInfo = T.Text + type AttrLabel DOMAudioTrackIdPropertyInfo = "DOMAudioTrack::id" + attrGet _ = getDOMAudioTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMAudioTrackKindPropertyInfo +instance AttrInfo DOMAudioTrackKindPropertyInfo where + type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackKindPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackKindPropertyInfo = T.Text + type AttrLabel DOMAudioTrackKindPropertyInfo = "DOMAudioTrack::kind" + attrGet _ = getDOMAudioTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMAudioTrackLabelPropertyInfo +instance AttrInfo DOMAudioTrackLabelPropertyInfo where + type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackLabelPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackLabelPropertyInfo = T.Text + type AttrLabel DOMAudioTrackLabelPropertyInfo = "DOMAudioTrack::label" + attrGet _ = getDOMAudioTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMAudioTrackLanguagePropertyInfo +instance AttrInfo DOMAudioTrackLanguagePropertyInfo where + type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackLanguagePropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMAudioTrackLanguagePropertyInfo = "DOMAudioTrack::language" + attrGet _ = getDOMAudioTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMAudioTrack = DOMAudioTrackAttributeList +type DOMAudioTrackAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("enabled", DOMAudioTrackEnabledPropertyInfo), '("id", DOMAudioTrackIdPropertyInfo), '("kind", DOMAudioTrackKindPropertyInfo), '("label", DOMAudioTrackLabelPropertyInfo), '("language", DOMAudioTrackLanguagePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMAudioTrack = DOMAudioTrackSignalList +type DOMAudioTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMAudioTrack::get_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_get_enabled" webkit_dom_audio_track_get_enabled :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + IO CInt + + +dOMAudioTrackGetEnabled :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + m Bool +dOMAudioTrackGetEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_get_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMAudioTrack::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_get_id" webkit_dom_audio_track_get_id :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + IO CString + + +dOMAudioTrackGetId :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + m T.Text +dOMAudioTrackGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_audio_track_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAudioTrack::get_kind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_get_kind" webkit_dom_audio_track_get_kind :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + IO CString + + +dOMAudioTrackGetKind :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + m T.Text +dOMAudioTrackGetKind _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_get_kind _obj' + checkUnexpectedReturnNULL "webkit_dom_audio_track_get_kind" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAudioTrack::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_get_label" webkit_dom_audio_track_get_label :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + IO CString + + +dOMAudioTrackGetLabel :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + m T.Text +dOMAudioTrackGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_get_label _obj' + checkUnexpectedReturnNULL "webkit_dom_audio_track_get_label" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAudioTrack::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_get_language" webkit_dom_audio_track_get_language :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + IO CString + + +dOMAudioTrackGetLanguage :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + m T.Text +dOMAudioTrackGetLanguage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_get_language _obj' + checkUnexpectedReturnNULL "webkit_dom_audio_track_get_language" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMAudioTrack::set_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_set_enabled" webkit_dom_audio_track_set_enabled :: + Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMAudioTrackSetEnabled :: + (MonadIO m, DOMAudioTrackK a) => + a -> -- _obj + Bool -> -- value + m () +dOMAudioTrackSetEnabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_audio_track_set_enabled _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMAudioTrack.hs-boot b/GI/WebKit/Objects/DOMAudioTrack.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAudioTrack.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMAudioTrack where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMAudioTrack = DOMAudioTrack (ForeignPtr DOMAudioTrack) +instance GObject DOMAudioTrack where +class GObject o => DOMAudioTrackK o +instance (GObject o, IsDescendantOf DOMAudioTrack o) => DOMAudioTrackK o +data DOMAudioTrackEnabledPropertyInfo +data DOMAudioTrackIdPropertyInfo +data DOMAudioTrackKindPropertyInfo +data DOMAudioTrackLabelPropertyInfo +data DOMAudioTrackLanguagePropertyInfo diff --git a/GI/WebKit/Objects/DOMAudioTrackList.hs b/GI/WebKit/Objects/DOMAudioTrackList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAudioTrackList.hs @@ -0,0 +1,218 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMAudioTrackList + ( + +-- * Exported types + DOMAudioTrackList(..) , + DOMAudioTrackListK , + toDOMAudioTrackList , + noDOMAudioTrackList , + + + -- * Methods +-- ** dOMAudioTrackListDispatchEvent + dOMAudioTrackListDispatchEvent , + + +-- ** dOMAudioTrackListGetLength + dOMAudioTrackListGetLength , + + +-- ** dOMAudioTrackListGetTrackById + dOMAudioTrackListGetTrackById , + + +-- ** dOMAudioTrackListItem + dOMAudioTrackListItem , + + + + + -- * Properties +-- ** Length + DOMAudioTrackListLengthPropertyInfo , + getDOMAudioTrackListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMAudioTrackList = DOMAudioTrackList (ForeignPtr DOMAudioTrackList) +foreign import ccall "webkit_dom_audio_track_list_get_type" + c_webkit_dom_audio_track_list_get_type :: IO GType + +type instance ParentTypes DOMAudioTrackList = DOMAudioTrackListParentTypes +type DOMAudioTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMAudioTrackList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_audio_track_list_get_type + + +class GObject o => DOMAudioTrackListK o +instance (GObject o, IsDescendantOf DOMAudioTrackList o) => DOMAudioTrackListK o + +toDOMAudioTrackList :: DOMAudioTrackListK o => o -> IO DOMAudioTrackList +toDOMAudioTrackList = unsafeCastTo DOMAudioTrackList + +noDOMAudioTrackList :: Maybe DOMAudioTrackList +noDOMAudioTrackList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m Word64 +getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMAudioTrackListLengthPropertyInfo +instance AttrInfo DOMAudioTrackListLengthPropertyInfo where + type AttrAllowedOps DOMAudioTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackListLengthPropertyInfo = DOMAudioTrackListK + type AttrGetType DOMAudioTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMAudioTrackListLengthPropertyInfo = "DOMAudioTrackList::length" + attrGet _ = getDOMAudioTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMAudioTrackList = DOMAudioTrackListAttributeList +type DOMAudioTrackListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMAudioTrackListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMAudioTrackList = DOMAudioTrackListSignalList +type DOMAudioTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMAudioTrackList::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_list_dispatch_event" webkit_dom_audio_track_list_dispatch_event :: + Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMAudioTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMAudioTrackListDispatchEvent :: + (MonadIO m, DOMAudioTrackListK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMAudioTrackListDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_audio_track_list_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMAudioTrackList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_list_get_length" webkit_dom_audio_track_list_get_length :: + Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" + IO Word64 + + +dOMAudioTrackListGetLength :: + (MonadIO m, DOMAudioTrackListK a) => + a -> -- _obj + m Word64 +dOMAudioTrackListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMAudioTrackList::get_track_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAudioTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_list_get_track_by_id" webkit_dom_audio_track_list_get_track_by_id :: + Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" + CString -> -- id : TBasicType TUTF8 + IO (Ptr DOMAudioTrack) + + +dOMAudioTrackListGetTrackById :: + (MonadIO m, DOMAudioTrackListK a) => + a -> -- _obj + T.Text -> -- id + m DOMAudioTrack +dOMAudioTrackListGetTrackById _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + id' <- textToCString id + result <- webkit_dom_audio_track_list_get_track_by_id _obj' id' + checkUnexpectedReturnNULL "webkit_dom_audio_track_list_get_track_by_id" result + result' <- (wrapObject DOMAudioTrack) result + touchManagedPtr _obj + freeMem id' + return result' + +-- method DOMAudioTrackList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAudioTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_audio_track_list_item" webkit_dom_audio_track_list_item :: + Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMAudioTrack) + + +dOMAudioTrackListItem :: + (MonadIO m, DOMAudioTrackListK a) => + a -> -- _obj + Word64 -> -- index + m DOMAudioTrack +dOMAudioTrackListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_audio_track_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_audio_track_list_item" result + result' <- (wrapObject DOMAudioTrack) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMAudioTrackList.hs-boot b/GI/WebKit/Objects/DOMAudioTrackList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMAudioTrackList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMAudioTrackList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMAudioTrackList = DOMAudioTrackList (ForeignPtr DOMAudioTrackList) +instance GObject DOMAudioTrackList where +class GObject o => DOMAudioTrackListK o +instance (GObject o, IsDescendantOf DOMAudioTrackList o) => DOMAudioTrackListK o +data DOMAudioTrackListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMBarInfo.hs b/GI/WebKit/Objects/DOMBarInfo.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBarInfo.hs @@ -0,0 +1,114 @@ + +{- | +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.WebKit.Objects.DOMBarInfo + ( + +-- * Exported types + DOMBarInfo(..) , + DOMBarInfoK , + toDOMBarInfo , + noDOMBarInfo , + + + -- * Methods +-- ** dOMBarInfoGetVisible + dOMBarInfoGetVisible , + + + + + -- * Properties +-- ** Visible + DOMBarInfoVisiblePropertyInfo , + getDOMBarInfoVisible , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMBarInfo = DOMBarInfo (ForeignPtr DOMBarInfo) +foreign import ccall "webkit_dom_bar_info_get_type" + c_webkit_dom_bar_info_get_type :: IO GType + +type instance ParentTypes DOMBarInfo = DOMBarInfoParentTypes +type DOMBarInfoParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMBarInfo where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_bar_info_get_type + + +class GObject o => DOMBarInfoK o +instance (GObject o, IsDescendantOf DOMBarInfo o) => DOMBarInfoK o + +toDOMBarInfo :: DOMBarInfoK o => o -> IO DOMBarInfo +toDOMBarInfo = unsafeCastTo DOMBarInfo + +noDOMBarInfo :: Maybe DOMBarInfo +noDOMBarInfo = Nothing + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBarInfoVisible :: (MonadIO m, DOMBarInfoK o) => o -> m Bool +getDOMBarInfoVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +data DOMBarInfoVisiblePropertyInfo +instance AttrInfo DOMBarInfoVisiblePropertyInfo where + type AttrAllowedOps DOMBarInfoVisiblePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBarInfoVisiblePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBarInfoVisiblePropertyInfo = DOMBarInfoK + type AttrGetType DOMBarInfoVisiblePropertyInfo = Bool + type AttrLabel DOMBarInfoVisiblePropertyInfo = "DOMBarInfo::visible" + attrGet _ = getDOMBarInfoVisible + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBarInfo = DOMBarInfoAttributeList +type DOMBarInfoAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarInfoVisiblePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMBarInfo = DOMBarInfoSignalList +type DOMBarInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMBarInfo::get_visible +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_bar_info_get_visible" webkit_dom_bar_info_get_visible :: + Ptr () -> -- self : TBasicType TVoid + IO CInt + +{-# DEPRECATED dOMBarInfoGetVisible ["(Since version 2.2)"]#-} +dOMBarInfoGetVisible :: + (MonadIO m) => + Ptr () -> -- self + m Bool +dOMBarInfoGetVisible self = liftIO $ do + result <- webkit_dom_bar_info_get_visible self + let result' = (/= 0) result + return result' + + diff --git a/GI/WebKit/Objects/DOMBarInfo.hs-boot b/GI/WebKit/Objects/DOMBarInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBarInfo.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMBarInfo where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMBarInfo = DOMBarInfo (ForeignPtr DOMBarInfo) +instance GObject DOMBarInfo where +class GObject o => DOMBarInfoK o +instance (GObject o, IsDescendantOf DOMBarInfo o) => DOMBarInfoK o +data DOMBarInfoVisiblePropertyInfo diff --git a/GI/WebKit/Objects/DOMBarProp.hs b/GI/WebKit/Objects/DOMBarProp.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBarProp.hs @@ -0,0 +1,116 @@ + +{- | +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.WebKit.Objects.DOMBarProp + ( + +-- * Exported types + DOMBarProp(..) , + DOMBarPropK , + toDOMBarProp , + noDOMBarProp , + + + -- * Methods +-- ** dOMBarPropGetVisible + dOMBarPropGetVisible , + + + + + -- * Properties +-- ** Visible + DOMBarPropVisiblePropertyInfo , + getDOMBarPropVisible , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMBarProp = DOMBarProp (ForeignPtr DOMBarProp) +foreign import ccall "webkit_dom_bar_prop_get_type" + c_webkit_dom_bar_prop_get_type :: IO GType + +type instance ParentTypes DOMBarProp = DOMBarPropParentTypes +type DOMBarPropParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMBarProp where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_bar_prop_get_type + + +class GObject o => DOMBarPropK o +instance (GObject o, IsDescendantOf DOMBarProp o) => DOMBarPropK o + +toDOMBarProp :: DOMBarPropK o => o -> IO DOMBarProp +toDOMBarProp = unsafeCastTo DOMBarProp + +noDOMBarProp :: Maybe DOMBarProp +noDOMBarProp = Nothing + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBarPropVisible :: (MonadIO m, DOMBarPropK o) => o -> m Bool +getDOMBarPropVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +data DOMBarPropVisiblePropertyInfo +instance AttrInfo DOMBarPropVisiblePropertyInfo where + type AttrAllowedOps DOMBarPropVisiblePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBarPropVisiblePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBarPropVisiblePropertyInfo = DOMBarPropK + type AttrGetType DOMBarPropVisiblePropertyInfo = Bool + type AttrLabel DOMBarPropVisiblePropertyInfo = "DOMBarProp::visible" + attrGet _ = getDOMBarPropVisible + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBarProp = DOMBarPropAttributeList +type DOMBarPropAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarPropVisiblePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMBarProp = DOMBarPropSignalList +type DOMBarPropSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMBarProp::get_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBarProp", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBarProp", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_bar_prop_get_visible" webkit_dom_bar_prop_get_visible :: + Ptr DOMBarProp -> -- _obj : TInterface "WebKit" "DOMBarProp" + IO CInt + + +dOMBarPropGetVisible :: + (MonadIO m, DOMBarPropK a) => + a -> -- _obj + m Bool +dOMBarPropGetVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_bar_prop_get_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMBarProp.hs-boot b/GI/WebKit/Objects/DOMBarProp.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBarProp.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMBarProp where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMBarProp = DOMBarProp (ForeignPtr DOMBarProp) +instance GObject DOMBarProp where +class GObject o => DOMBarPropK o +instance (GObject o, IsDescendantOf DOMBarProp o) => DOMBarPropK o +data DOMBarPropVisiblePropertyInfo diff --git a/GI/WebKit/Objects/DOMBatteryManager.hs b/GI/WebKit/Objects/DOMBatteryManager.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBatteryManager.hs @@ -0,0 +1,309 @@ + +{- | +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.WebKit.Objects.DOMBatteryManager + ( + +-- * Exported types + DOMBatteryManager(..) , + DOMBatteryManagerK , + toDOMBatteryManager , + noDOMBatteryManager , + + + -- * Methods +-- ** dOMBatteryManagerDispatchEvent + dOMBatteryManagerDispatchEvent , + + +-- ** dOMBatteryManagerGetCharging + dOMBatteryManagerGetCharging , + + +-- ** dOMBatteryManagerGetChargingTime + dOMBatteryManagerGetChargingTime , + + +-- ** dOMBatteryManagerGetDischargingTime + dOMBatteryManagerGetDischargingTime , + + +-- ** dOMBatteryManagerGetLevel + dOMBatteryManagerGetLevel , + + + + + -- * Properties +-- ** Charging + DOMBatteryManagerChargingPropertyInfo , + getDOMBatteryManagerCharging , + + +-- ** ChargingTime + DOMBatteryManagerChargingTimePropertyInfo, + getDOMBatteryManagerChargingTime , + + +-- ** DischargingTime + DOMBatteryManagerDischargingTimePropertyInfo, + getDOMBatteryManagerDischargingTime , + + +-- ** Level + DOMBatteryManagerLevelPropertyInfo , + getDOMBatteryManagerLevel , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMBatteryManager = DOMBatteryManager (ForeignPtr DOMBatteryManager) +foreign import ccall "webkit_dom_battery_manager_get_type" + c_webkit_dom_battery_manager_get_type :: IO GType + +type instance ParentTypes DOMBatteryManager = DOMBatteryManagerParentTypes +type DOMBatteryManagerParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMBatteryManager where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_battery_manager_get_type + + +class GObject o => DOMBatteryManagerK o +instance (GObject o, IsDescendantOf DOMBatteryManager o) => DOMBatteryManagerK o + +toDOMBatteryManager :: DOMBatteryManagerK o => o -> IO DOMBatteryManager +toDOMBatteryManager = unsafeCastTo DOMBatteryManager + +noDOMBatteryManager :: Maybe DOMBatteryManager +noDOMBatteryManager = Nothing + +-- VVV Prop "charging" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBatteryManagerCharging :: (MonadIO m, DOMBatteryManagerK o) => o -> m Bool +getDOMBatteryManagerCharging obj = liftIO $ getObjectPropertyBool obj "charging" + +data DOMBatteryManagerChargingPropertyInfo +instance AttrInfo DOMBatteryManagerChargingPropertyInfo where + type AttrAllowedOps DOMBatteryManagerChargingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerChargingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerChargingPropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerChargingPropertyInfo = Bool + type AttrLabel DOMBatteryManagerChargingPropertyInfo = "DOMBatteryManager::charging" + attrGet _ = getDOMBatteryManagerCharging + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "charging-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerChargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerChargingTime obj = liftIO $ getObjectPropertyDouble obj "charging-time" + +data DOMBatteryManagerChargingTimePropertyInfo +instance AttrInfo DOMBatteryManagerChargingTimePropertyInfo where + type AttrAllowedOps DOMBatteryManagerChargingTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerChargingTimePropertyInfo = Double + type AttrLabel DOMBatteryManagerChargingTimePropertyInfo = "DOMBatteryManager::charging-time" + attrGet _ = getDOMBatteryManagerChargingTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "discharging-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerDischargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerDischargingTime obj = liftIO $ getObjectPropertyDouble obj "discharging-time" + +data DOMBatteryManagerDischargingTimePropertyInfo +instance AttrInfo DOMBatteryManagerDischargingTimePropertyInfo where + type AttrAllowedOps DOMBatteryManagerDischargingTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerDischargingTimePropertyInfo = Double + type AttrLabel DOMBatteryManagerDischargingTimePropertyInfo = "DOMBatteryManager::discharging-time" + attrGet _ = getDOMBatteryManagerDischargingTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "level" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerLevel :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerLevel obj = liftIO $ getObjectPropertyDouble obj "level" + +data DOMBatteryManagerLevelPropertyInfo +instance AttrInfo DOMBatteryManagerLevelPropertyInfo where + type AttrAllowedOps DOMBatteryManagerLevelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerLevelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerLevelPropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerLevelPropertyInfo = Double + type AttrLabel DOMBatteryManagerLevelPropertyInfo = "DOMBatteryManager::level" + attrGet _ = getDOMBatteryManagerLevel + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBatteryManager = DOMBatteryManagerAttributeList +type DOMBatteryManagerAttributeList = ('[ '("charging", DOMBatteryManagerChargingPropertyInfo), '("charging-time", DOMBatteryManagerChargingTimePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("discharging-time", DOMBatteryManagerDischargingTimePropertyInfo), '("level", DOMBatteryManagerLevelPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMBatteryManager = DOMBatteryManagerSignalList +type DOMBatteryManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMBatteryManager::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_battery_manager_dispatch_event" webkit_dom_battery_manager_dispatch_event :: + Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager" + Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMBatteryManagerDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMBatteryManagerDispatchEvent :: + (MonadIO m, DOMBatteryManagerK a, DOMEventK b) => + a -> -- _obj + b -> -- event + m () +dOMBatteryManagerDispatchEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrCastPtr event + onException (do + _ <- propagateGError $ webkit_dom_battery_manager_dispatch_event _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return () + ) (do + return () + ) + +-- method DOMBatteryManager::get_charging +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_battery_manager_get_charging" webkit_dom_battery_manager_get_charging :: + Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager" + IO CInt + + +dOMBatteryManagerGetCharging :: + (MonadIO m, DOMBatteryManagerK a) => + a -> -- _obj + m Bool +dOMBatteryManagerGetCharging _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_battery_manager_get_charging _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMBatteryManager::get_charging_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_battery_manager_get_charging_time" webkit_dom_battery_manager_get_charging_time :: + Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager" + IO CDouble + + +dOMBatteryManagerGetChargingTime :: + (MonadIO m, DOMBatteryManagerK a) => + a -> -- _obj + m Double +dOMBatteryManagerGetChargingTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_battery_manager_get_charging_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMBatteryManager::get_discharging_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_battery_manager_get_discharging_time" webkit_dom_battery_manager_get_discharging_time :: + Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager" + IO CDouble + + +dOMBatteryManagerGetDischargingTime :: + (MonadIO m, DOMBatteryManagerK a) => + a -> -- _obj + m Double +dOMBatteryManagerGetDischargingTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_battery_manager_get_discharging_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMBatteryManager::get_level +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_battery_manager_get_level" webkit_dom_battery_manager_get_level :: + Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager" + IO CDouble + + +dOMBatteryManagerGetLevel :: + (MonadIO m, DOMBatteryManagerK a) => + a -> -- _obj + m Double +dOMBatteryManagerGetLevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_battery_manager_get_level _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMBatteryManager.hs-boot b/GI/WebKit/Objects/DOMBatteryManager.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBatteryManager.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMBatteryManager where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMBatteryManager = DOMBatteryManager (ForeignPtr DOMBatteryManager) +instance GObject DOMBatteryManager where +class GObject o => DOMBatteryManagerK o +instance (GObject o, IsDescendantOf DOMBatteryManager o) => DOMBatteryManagerK o +data DOMBatteryManagerChargingPropertyInfo +data DOMBatteryManagerChargingTimePropertyInfo +data DOMBatteryManagerDischargingTimePropertyInfo +data DOMBatteryManagerLevelPropertyInfo diff --git a/GI/WebKit/Objects/DOMBlob.hs b/GI/WebKit/Objects/DOMBlob.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBlob.hs @@ -0,0 +1,214 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMBlob + ( + +-- * Exported types + DOMBlob(..) , + DOMBlobK , + toDOMBlob , + noDOMBlob , + + + -- * Methods +-- ** dOMBlobGetSize + dOMBlobGetSize , + + +-- ** dOMBlobSlice + dOMBlobSlice , + + +-- ** dOMBlobWebkitSlice + dOMBlobWebkitSlice , + + + + + -- * Properties +-- ** Size + DOMBlobSizePropertyInfo , + getDOMBlobSize , + + +-- ** Type + DOMBlobTypePropertyInfo , + getDOMBlobType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMBlob = DOMBlob (ForeignPtr DOMBlob) +foreign import ccall "webkit_dom_blob_get_type" + c_webkit_dom_blob_get_type :: IO GType + +type instance ParentTypes DOMBlob = DOMBlobParentTypes +type DOMBlobParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMBlob where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_blob_get_type + + +class GObject o => DOMBlobK o +instance (GObject o, IsDescendantOf DOMBlob o) => DOMBlobK o + +toDOMBlob :: DOMBlobK o => o -> IO DOMBlob +toDOMBlob = unsafeCastTo DOMBlob + +noDOMBlob :: Maybe DOMBlob +noDOMBlob = Nothing + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMBlobSize :: (MonadIO m, DOMBlobK o) => o -> m Word64 +getDOMBlobSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +data DOMBlobSizePropertyInfo +instance AttrInfo DOMBlobSizePropertyInfo where + type AttrAllowedOps DOMBlobSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBlobSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBlobSizePropertyInfo = DOMBlobK + type AttrGetType DOMBlobSizePropertyInfo = Word64 + type AttrLabel DOMBlobSizePropertyInfo = "DOMBlob::size" + attrGet _ = getDOMBlobSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m T.Text +getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMBlobTypePropertyInfo +instance AttrInfo DOMBlobTypePropertyInfo where + type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK + type AttrGetType DOMBlobTypePropertyInfo = T.Text + type AttrLabel DOMBlobTypePropertyInfo = "DOMBlob::type" + attrGet _ = getDOMBlobType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBlob = DOMBlobAttributeList +type DOMBlobAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMBlob = DOMBlobSignalList +type DOMBlobSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMBlob::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_blob_get_size" webkit_dom_blob_get_size :: + Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob" + IO Word64 + + +dOMBlobGetSize :: + (MonadIO m, DOMBlobK a) => + a -> -- _obj + m Word64 +dOMBlobGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_blob_get_size _obj' + touchManagedPtr _obj + return result + +-- method DOMBlob::slice +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBlob" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_blob_slice" webkit_dom_blob_slice :: + Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob" + Int64 -> -- start : TBasicType TInt64 + Int64 -> -- end : TBasicType TInt64 + CString -> -- contentType : TBasicType TUTF8 + IO (Ptr DOMBlob) + + +dOMBlobSlice :: + (MonadIO m, DOMBlobK a) => + a -> -- _obj + Int64 -> -- start + Int64 -> -- end + T.Text -> -- contentType + m DOMBlob +dOMBlobSlice _obj start end contentType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + contentType' <- textToCString contentType + result <- webkit_dom_blob_slice _obj' start end contentType' + checkUnexpectedReturnNULL "webkit_dom_blob_slice" result + result' <- (wrapObject DOMBlob) result + touchManagedPtr _obj + freeMem contentType' + return result' + +-- method DOMBlob::webkit_slice +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBlob" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_blob_webkit_slice" webkit_dom_blob_webkit_slice :: + Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob" + Int64 -> -- start : TBasicType TInt64 + Int64 -> -- end : TBasicType TInt64 + CString -> -- content_type : TBasicType TUTF8 + IO (Ptr DOMBlob) + +{-# DEPRECATED dOMBlobWebkitSlice ["(Since version 1.10)","Use webkit_dom_blob_slice() instead."]#-} +dOMBlobWebkitSlice :: + (MonadIO m, DOMBlobK a) => + a -> -- _obj + Int64 -> -- start + Int64 -> -- end + T.Text -> -- content_type + m DOMBlob +dOMBlobWebkitSlice _obj start end content_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content_type' <- textToCString content_type + result <- webkit_dom_blob_webkit_slice _obj' start end content_type' + checkUnexpectedReturnNULL "webkit_dom_blob_webkit_slice" result + result' <- (newObject DOMBlob) result + touchManagedPtr _obj + freeMem content_type' + return result' + + diff --git a/GI/WebKit/Objects/DOMBlob.hs-boot b/GI/WebKit/Objects/DOMBlob.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMBlob.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMBlob where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMBlob = DOMBlob (ForeignPtr DOMBlob) +instance GObject DOMBlob where +class GObject o => DOMBlobK o +instance (GObject o, IsDescendantOf DOMBlob o) => DOMBlobK o +data DOMBlobSizePropertyInfo +data DOMBlobTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMCDATASection.hs b/GI/WebKit/Objects/DOMCDATASection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCDATASection.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMCDATASection + ( + +-- * Exported types + DOMCDATASection(..) , + DOMCDATASectionK , + toDOMCDATASection , + noDOMCDATASection , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCDATASection = DOMCDATASection (ForeignPtr DOMCDATASection) +foreign import ccall "webkit_dom_cdata_section_get_type" + c_webkit_dom_cdata_section_get_type :: IO GType + +type instance ParentTypes DOMCDATASection = DOMCDATASectionParentTypes +type DOMCDATASectionParentTypes = '[DOMText, DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMCDATASection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_cdata_section_get_type + + +class GObject o => DOMCDATASectionK o +instance (GObject o, IsDescendantOf DOMCDATASection o) => DOMCDATASectionK o + +toDOMCDATASection :: DOMCDATASectionK o => o -> IO DOMCDATASection +toDOMCDATASection = unsafeCastTo DOMCDATASection + +noDOMCDATASection :: Maybe DOMCDATASection +noDOMCDATASection = Nothing + +type instance AttributeList DOMCDATASection = DOMCDATASectionAttributeList +type DOMCDATASectionAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCDATASection = DOMCDATASectionSignalList +type DOMCDATASectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMCDATASection.hs-boot b/GI/WebKit/Objects/DOMCDATASection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCDATASection.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMCDATASection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCDATASection = DOMCDATASection (ForeignPtr DOMCDATASection) +instance GObject DOMCDATASection where +class GObject o => DOMCDATASectionK o +instance (GObject o, IsDescendantOf DOMCDATASection o) => DOMCDATASectionK o diff --git a/GI/WebKit/Objects/DOMCSSRule.hs b/GI/WebKit/Objects/DOMCSSRule.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSRule.hs @@ -0,0 +1,292 @@ + +{- | +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.WebKit.Objects.DOMCSSRule + ( + +-- * Exported types + DOMCSSRule(..) , + DOMCSSRuleK , + toDOMCSSRule , + noDOMCSSRule , + + + -- * Methods +-- ** dOMCSSRuleGetCssText + dOMCSSRuleGetCssText , + + +-- ** dOMCSSRuleGetParentRule + dOMCSSRuleGetParentRule , + + +-- ** dOMCSSRuleGetParentStyleSheet + dOMCSSRuleGetParentStyleSheet , + + +-- ** dOMCSSRuleSetCssText + dOMCSSRuleSetCssText , + + + + + -- * Properties +-- ** CssText + DOMCSSRuleCssTextPropertyInfo , + constructDOMCSSRuleCssText , + getDOMCSSRuleCssText , + setDOMCSSRuleCssText , + + +-- ** ParentRule + DOMCSSRuleParentRulePropertyInfo , + getDOMCSSRuleParentRule , + + +-- ** ParentStyleSheet + DOMCSSRuleParentStyleSheetPropertyInfo , + getDOMCSSRuleParentStyleSheet , + + +-- ** Type + DOMCSSRuleTypePropertyInfo , + getDOMCSSRuleType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule) +foreign import ccall "webkit_dom_css_rule_get_type" + c_webkit_dom_css_rule_get_type :: IO GType + +type instance ParentTypes DOMCSSRule = DOMCSSRuleParentTypes +type DOMCSSRuleParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMCSSRule where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_css_rule_get_type + + +class GObject o => DOMCSSRuleK o +instance (GObject o, IsDescendantOf DOMCSSRule o) => DOMCSSRuleK o + +toDOMCSSRule :: DOMCSSRuleK o => o -> IO DOMCSSRule +toDOMCSSRule = unsafeCastTo DOMCSSRule + +noDOMCSSRule :: Maybe DOMCSSRule +noDOMCSSRule = Nothing + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text +getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m () +setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSRuleCssTextPropertyInfo +instance AttrInfo DOMCSSRuleCssTextPropertyInfo where + type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSRuleCssTextPropertyInfo = "DOMCSSRule::css-text" + attrGet _ = getDOMCSSRuleCssText + attrSet _ = setDOMCSSRuleCssText + attrConstruct _ = constructDOMCSSRuleCssText + +-- VVV Prop "parent-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule +getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule + +data DOMCSSRuleParentRulePropertyInfo +instance AttrInfo DOMCSSRuleParentRulePropertyInfo where + type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSRuleParentRulePropertyInfo = "DOMCSSRule::parent-rule" + attrGet _ = getDOMCSSRuleParentRule + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-style-sheet" + -- Type: TInterface "WebKit" "DOMCSSStyleSheet" + -- Flags: [PropertyReadable] + +getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet +getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet + +data DOMCSSRuleParentStyleSheetPropertyInfo +instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where + type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet + type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "DOMCSSRule::parent-style-sheet" + attrGet _ = getDOMCSSRuleParentStyleSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32 +getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type" + +data DOMCSSRuleTypePropertyInfo +instance AttrInfo DOMCSSRuleTypePropertyInfo where + type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleTypePropertyInfo = Word32 + type AttrLabel DOMCSSRuleTypePropertyInfo = "DOMCSSRule::type" + attrGet _ = getDOMCSSRuleType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSRule = DOMCSSRuleAttributeList +type DOMCSSRuleAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSRuleCssTextPropertyInfo), '("parent-rule", DOMCSSRuleParentRulePropertyInfo), '("parent-style-sheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCSSRule = DOMCSSRuleSignalList +type DOMCSSRuleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCSSRule::get_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_get_css_text" webkit_dom_css_rule_get_css_text :: + Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule" + IO CString + + +dOMCSSRuleGetCssText :: + (MonadIO m, DOMCSSRuleK a) => + a -> -- _obj + m T.Text +dOMCSSRuleGetCssText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_rule_get_css_text _obj' + checkUnexpectedReturnNULL "webkit_dom_css_rule_get_css_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMCSSRule::get_parent_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRule" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_get_parent_rule" webkit_dom_css_rule_get_parent_rule :: + Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule" + IO (Ptr DOMCSSRule) + + +dOMCSSRuleGetParentRule :: + (MonadIO m, DOMCSSRuleK a) => + a -> -- _obj + m DOMCSSRule +dOMCSSRuleGetParentRule _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_rule_get_parent_rule _obj' + checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_rule" result + result' <- (wrapObject DOMCSSRule) result + touchManagedPtr _obj + return result' + +-- method DOMCSSRule::get_parent_style_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_get_parent_style_sheet" webkit_dom_css_rule_get_parent_style_sheet :: + Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule" + IO (Ptr DOMCSSStyleSheet) + + +dOMCSSRuleGetParentStyleSheet :: + (MonadIO m, DOMCSSRuleK a) => + a -> -- _obj + m DOMCSSStyleSheet +dOMCSSRuleGetParentStyleSheet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_rule_get_parent_style_sheet _obj' + checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_style_sheet" result + result' <- (wrapObject DOMCSSStyleSheet) result + touchManagedPtr _obj + return result' + +-- method DOMCSSRule::set_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_set_css_text" webkit_dom_css_rule_set_css_text :: + Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSRuleSetCssText :: + (MonadIO m, DOMCSSRuleK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMCSSRuleSetCssText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_css_rule_set_css_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMCSSRule.hs-boot b/GI/WebKit/Objects/DOMCSSRule.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSRule.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMCSSRule where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule) +instance GObject DOMCSSRule where +class GObject o => DOMCSSRuleK o +instance (GObject o, IsDescendantOf DOMCSSRule o) => DOMCSSRuleK o +data DOMCSSRuleCssTextPropertyInfo +data DOMCSSRuleParentRulePropertyInfo +data DOMCSSRuleParentStyleSheetPropertyInfo +data DOMCSSRuleTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMCSSRuleList.hs b/GI/WebKit/Objects/DOMCSSRuleList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSRuleList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMCSSRuleList + ( + +-- * Exported types + DOMCSSRuleList(..) , + DOMCSSRuleListK , + toDOMCSSRuleList , + noDOMCSSRuleList , + + + -- * Methods +-- ** dOMCSSRuleListGetLength + dOMCSSRuleListGetLength , + + +-- ** dOMCSSRuleListItem + dOMCSSRuleListItem , + + + + + -- * Properties +-- ** Length + DOMCSSRuleListLengthPropertyInfo , + getDOMCSSRuleListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCSSRuleList = DOMCSSRuleList (ForeignPtr DOMCSSRuleList) +foreign import ccall "webkit_dom_css_rule_list_get_type" + c_webkit_dom_css_rule_list_get_type :: IO GType + +type instance ParentTypes DOMCSSRuleList = DOMCSSRuleListParentTypes +type DOMCSSRuleListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMCSSRuleList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_css_rule_list_get_type + + +class GObject o => DOMCSSRuleListK o +instance (GObject o, IsDescendantOf DOMCSSRuleList o) => DOMCSSRuleListK o + +toDOMCSSRuleList :: DOMCSSRuleListK o => o -> IO DOMCSSRuleList +toDOMCSSRuleList = unsafeCastTo DOMCSSRuleList + +noDOMCSSRuleList :: Maybe DOMCSSRuleList +noDOMCSSRuleList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m Word64 +getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCSSRuleListLengthPropertyInfo +instance AttrInfo DOMCSSRuleListLengthPropertyInfo where + type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK + type AttrGetType DOMCSSRuleListLengthPropertyInfo = Word64 + type AttrLabel DOMCSSRuleListLengthPropertyInfo = "DOMCSSRuleList::length" + attrGet _ = getDOMCSSRuleListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSRuleList = DOMCSSRuleListAttributeList +type DOMCSSRuleListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCSSRuleList = DOMCSSRuleListSignalList +type DOMCSSRuleListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCSSRuleList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_list_get_length" webkit_dom_css_rule_list_get_length :: + Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList" + IO Word64 + + +dOMCSSRuleListGetLength :: + (MonadIO m, DOMCSSRuleListK a) => + a -> -- _obj + m Word64 +dOMCSSRuleListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_rule_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMCSSRuleList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRule" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_rule_list_item" webkit_dom_css_rule_list_item :: + Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMCSSRule) + + +dOMCSSRuleListItem :: + (MonadIO m, DOMCSSRuleListK a) => + a -> -- _obj + Word64 -> -- index + m DOMCSSRule +dOMCSSRuleListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_rule_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_css_rule_list_item" result + result' <- (wrapObject DOMCSSRule) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMCSSRuleList.hs-boot b/GI/WebKit/Objects/DOMCSSRuleList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSRuleList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMCSSRuleList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCSSRuleList = DOMCSSRuleList (ForeignPtr DOMCSSRuleList) +instance GObject DOMCSSRuleList where +class GObject o => DOMCSSRuleListK o +instance (GObject o, IsDescendantOf DOMCSSRuleList o) => DOMCSSRuleListK o +data DOMCSSRuleListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs @@ -0,0 +1,559 @@ + +{- | +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.WebKit.Objects.DOMCSSStyleDeclaration + ( + +-- * Exported types + DOMCSSStyleDeclaration(..) , + DOMCSSStyleDeclarationK , + toDOMCSSStyleDeclaration , + noDOMCSSStyleDeclaration , + + + -- * Methods +-- ** dOMCSSStyleDeclarationGetCssText + dOMCSSStyleDeclarationGetCssText , + + +-- ** dOMCSSStyleDeclarationGetLength + dOMCSSStyleDeclarationGetLength , + + +-- ** dOMCSSStyleDeclarationGetParentRule + dOMCSSStyleDeclarationGetParentRule , + + +-- ** dOMCSSStyleDeclarationGetPropertyCssValue + dOMCSSStyleDeclarationGetPropertyCssValue, + + +-- ** dOMCSSStyleDeclarationGetPropertyPriority + dOMCSSStyleDeclarationGetPropertyPriority, + + +-- ** dOMCSSStyleDeclarationGetPropertyShorthand + dOMCSSStyleDeclarationGetPropertyShorthand, + + +-- ** dOMCSSStyleDeclarationGetPropertyValue + dOMCSSStyleDeclarationGetPropertyValue , + + +-- ** dOMCSSStyleDeclarationIsPropertyImplicit + dOMCSSStyleDeclarationIsPropertyImplicit, + + +-- ** dOMCSSStyleDeclarationItem + dOMCSSStyleDeclarationItem , + + +-- ** dOMCSSStyleDeclarationRemoveProperty + dOMCSSStyleDeclarationRemoveProperty , + + +-- ** dOMCSSStyleDeclarationSetCssText + dOMCSSStyleDeclarationSetCssText , + + +-- ** dOMCSSStyleDeclarationSetProperty + dOMCSSStyleDeclarationSetProperty , + + + + + -- * Properties +-- ** CssText + DOMCSSStyleDeclarationCssTextPropertyInfo, + constructDOMCSSStyleDeclarationCssText , + getDOMCSSStyleDeclarationCssText , + setDOMCSSStyleDeclarationCssText , + + +-- ** Length + DOMCSSStyleDeclarationLengthPropertyInfo, + getDOMCSSStyleDeclarationLength , + + +-- ** ParentRule + DOMCSSStyleDeclarationParentRulePropertyInfo, + getDOMCSSStyleDeclarationParentRule , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ForeignPtr DOMCSSStyleDeclaration) +foreign import ccall "webkit_dom_css_style_declaration_get_type" + c_webkit_dom_css_style_declaration_get_type :: IO GType + +type instance ParentTypes DOMCSSStyleDeclaration = DOMCSSStyleDeclarationParentTypes +type DOMCSSStyleDeclarationParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMCSSStyleDeclaration where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_css_style_declaration_get_type + + +class GObject o => DOMCSSStyleDeclarationK o +instance (GObject o, IsDescendantOf DOMCSSStyleDeclaration o) => DOMCSSStyleDeclarationK o + +toDOMCSSStyleDeclaration :: DOMCSSStyleDeclarationK o => o -> IO DOMCSSStyleDeclaration +toDOMCSSStyleDeclaration = unsafeCastTo DOMCSSStyleDeclaration + +noDOMCSSStyleDeclaration :: Maybe DOMCSSStyleDeclaration +noDOMCSSStyleDeclaration = Nothing + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m T.Text +getDOMCSSStyleDeclarationCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> T.Text -> m () +setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSStyleDeclarationCssTextPropertyInfo +instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "DOMCSSStyleDeclaration::css-text" + attrGet _ = getDOMCSSStyleDeclarationCssText + attrSet _ = setDOMCSSStyleDeclarationCssText + attrConstruct _ = constructDOMCSSStyleDeclarationCssText + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m Word64 +getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCSSStyleDeclarationLengthPropertyInfo +instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = Word64 + type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "DOMCSSStyleDeclaration::length" + attrGet _ = getDOMCSSStyleDeclarationLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m DOMCSSRule +getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule + +data DOMCSSStyleDeclarationParentRulePropertyInfo +instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "DOMCSSStyleDeclaration::parent-rule" + attrGet _ = getDOMCSSStyleDeclarationParentRule + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationAttributeList +type DOMCSSStyleDeclarationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parent-rule", DOMCSSStyleDeclarationParentRulePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationSignalList +type DOMCSSStyleDeclarationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCSSStyleDeclaration::get_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_css_text" webkit_dom_css_style_declaration_get_css_text :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + IO CString + + +dOMCSSStyleDeclarationGetCssText :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + m T.Text +dOMCSSStyleDeclarationGetCssText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_declaration_get_css_text _obj' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_css_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleDeclaration::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_length" webkit_dom_css_style_declaration_get_length :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + IO Word64 + + +dOMCSSStyleDeclarationGetLength :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + m Word64 +dOMCSSStyleDeclarationGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_declaration_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMCSSStyleDeclaration::get_parent_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRule" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_parent_rule" webkit_dom_css_style_declaration_get_parent_rule :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + IO (Ptr DOMCSSRule) + + +dOMCSSStyleDeclarationGetParentRule :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + m DOMCSSRule +dOMCSSStyleDeclarationGetParentRule _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_declaration_get_parent_rule _obj' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_parent_rule" result + result' <- (wrapObject DOMCSSRule) result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleDeclaration::get_property_css_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSValue" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_property_css_value" webkit_dom_css_style_declaration_get_property_css_value :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + IO (Ptr DOMCSSValue) + +{-# DEPRECATED dOMCSSStyleDeclarationGetPropertyCssValue ["(Since version 2.2)"]#-} +dOMCSSStyleDeclarationGetPropertyCssValue :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m DOMCSSValue +dOMCSSStyleDeclarationGetPropertyCssValue _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + result <- webkit_dom_css_style_declaration_get_property_css_value _obj' propertyName' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_css_value" result + result' <- (newObject DOMCSSValue) result + touchManagedPtr _obj + freeMem propertyName' + return result' + +-- method DOMCSSStyleDeclaration::get_property_priority +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_property_priority" webkit_dom_css_style_declaration_get_property_priority :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + IO CString + + +dOMCSSStyleDeclarationGetPropertyPriority :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m T.Text +dOMCSSStyleDeclarationGetPropertyPriority _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + result <- webkit_dom_css_style_declaration_get_property_priority _obj' propertyName' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_priority" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem propertyName' + return result' + +-- method DOMCSSStyleDeclaration::get_property_shorthand +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_property_shorthand" webkit_dom_css_style_declaration_get_property_shorthand :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + IO CString + + +dOMCSSStyleDeclarationGetPropertyShorthand :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m T.Text +dOMCSSStyleDeclarationGetPropertyShorthand _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + result <- webkit_dom_css_style_declaration_get_property_shorthand _obj' propertyName' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_shorthand" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem propertyName' + return result' + +-- method DOMCSSStyleDeclaration::get_property_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_get_property_value" webkit_dom_css_style_declaration_get_property_value :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + IO CString + + +dOMCSSStyleDeclarationGetPropertyValue :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m T.Text +dOMCSSStyleDeclarationGetPropertyValue _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + result <- webkit_dom_css_style_declaration_get_property_value _obj' propertyName' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem propertyName' + return result' + +-- method DOMCSSStyleDeclaration::is_property_implicit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_is_property_implicit" webkit_dom_css_style_declaration_is_property_implicit :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + IO CInt + + +dOMCSSStyleDeclarationIsPropertyImplicit :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m Bool +dOMCSSStyleDeclarationIsPropertyImplicit _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + result <- webkit_dom_css_style_declaration_is_property_implicit _obj' propertyName' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem propertyName' + return result' + +-- method DOMCSSStyleDeclaration::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_item" webkit_dom_css_style_declaration_item :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + Word64 -> -- index : TBasicType TUInt64 + IO CString + + +dOMCSSStyleDeclarationItem :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + Word64 -> -- index + m T.Text +dOMCSSStyleDeclarationItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_declaration_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_item" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleDeclaration::remove_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_remove_property" webkit_dom_css_style_declaration_remove_property :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMCSSStyleDeclarationRemoveProperty :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + m T.Text +dOMCSSStyleDeclarationRemoveProperty _obj propertyName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + onException (do + result <- propagateGError $ webkit_dom_css_style_declaration_remove_property _obj' propertyName' + checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_remove_property" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem propertyName' + return result' + ) (do + freeMem propertyName' + ) + +-- method DOMCSSStyleDeclaration::set_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_set_css_text" webkit_dom_css_style_declaration_set_css_text :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSStyleDeclarationSetCssText :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMCSSStyleDeclarationSetCssText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_css_style_declaration_set_css_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMCSSStyleDeclaration::set_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_declaration_set_property" webkit_dom_css_style_declaration_set_property :: + Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" + CString -> -- propertyName : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + CString -> -- priority : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSStyleDeclarationSetProperty :: + (MonadIO m, DOMCSSStyleDeclarationK a) => + a -> -- _obj + T.Text -> -- propertyName + T.Text -> -- value + T.Text -> -- priority + m () +dOMCSSStyleDeclarationSetProperty _obj propertyName value priority = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + value' <- textToCString value + priority' <- textToCString priority + onException (do + propagateGError $ webkit_dom_css_style_declaration_set_property _obj' propertyName' value' priority' + touchManagedPtr _obj + freeMem propertyName' + freeMem value' + freeMem priority' + return () + ) (do + freeMem propertyName' + freeMem value' + freeMem priority' + ) + + diff --git a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMCSSStyleDeclaration where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ForeignPtr DOMCSSStyleDeclaration) +instance GObject DOMCSSStyleDeclaration where +class GObject o => DOMCSSStyleDeclarationK o +instance (GObject o, IsDescendantOf DOMCSSStyleDeclaration o) => DOMCSSStyleDeclarationK o +data DOMCSSStyleDeclarationCssTextPropertyInfo +data DOMCSSStyleDeclarationLengthPropertyInfo +data DOMCSSStyleDeclarationParentRulePropertyInfo diff --git a/GI/WebKit/Objects/DOMCSSStyleSheet.hs b/GI/WebKit/Objects/DOMCSSStyleSheet.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSStyleSheet.hs @@ -0,0 +1,376 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMCSSStyleSheet + ( + +-- * Exported types + DOMCSSStyleSheet(..) , + DOMCSSStyleSheetK , + toDOMCSSStyleSheet , + noDOMCSSStyleSheet , + + + -- * Methods +-- ** dOMCSSStyleSheetAddRule + dOMCSSStyleSheetAddRule , + + +-- ** dOMCSSStyleSheetDeleteRule + dOMCSSStyleSheetDeleteRule , + + +-- ** dOMCSSStyleSheetGetCssRules + dOMCSSStyleSheetGetCssRules , + + +-- ** dOMCSSStyleSheetGetOwnerRule + dOMCSSStyleSheetGetOwnerRule , + + +-- ** dOMCSSStyleSheetGetRules + dOMCSSStyleSheetGetRules , + + +-- ** dOMCSSStyleSheetInsertRule + dOMCSSStyleSheetInsertRule , + + +-- ** dOMCSSStyleSheetRemoveRule + dOMCSSStyleSheetRemoveRule , + + + + + -- * Properties +-- ** CssRules + DOMCSSStyleSheetCssRulesPropertyInfo , + getDOMCSSStyleSheetCssRules , + + +-- ** OwnerRule + DOMCSSStyleSheetOwnerRulePropertyInfo , + getDOMCSSStyleSheetOwnerRule , + + +-- ** Rules + DOMCSSStyleSheetRulesPropertyInfo , + getDOMCSSStyleSheetRules , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ForeignPtr DOMCSSStyleSheet) +foreign import ccall "webkit_dom_css_style_sheet_get_type" + c_webkit_dom_css_style_sheet_get_type :: IO GType + +type instance ParentTypes DOMCSSStyleSheet = DOMCSSStyleSheetParentTypes +type DOMCSSStyleSheetParentTypes = '[DOMStyleSheet, DOMObject, GObject.Object] + +instance GObject DOMCSSStyleSheet where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_css_style_sheet_get_type + + +class GObject o => DOMCSSStyleSheetK o +instance (GObject o, IsDescendantOf DOMCSSStyleSheet o) => DOMCSSStyleSheetK o + +toDOMCSSStyleSheet :: DOMCSSStyleSheetK o => o -> IO DOMCSSStyleSheet +toDOMCSSStyleSheet = unsafeCastTo DOMCSSStyleSheet + +noDOMCSSStyleSheet :: Maybe DOMCSSStyleSheet +noDOMCSSStyleSheet = Nothing + +-- VVV Prop "css-rules" + -- Type: TInterface "WebKit" "DOMCSSRuleList" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList + +data DOMCSSStyleSheetCssRulesPropertyInfo +instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSRuleList + type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "DOMCSSStyleSheet::css-rules" + attrGet _ = getDOMCSSStyleSheetCssRules + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRule +getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule + +data DOMCSSStyleSheetOwnerRulePropertyInfo +instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "DOMCSSStyleSheet::owner-rule" + attrGet _ = getDOMCSSStyleSheetOwnerRule + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "rules" + -- Type: TInterface "WebKit" "DOMCSSRuleList" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList + +data DOMCSSStyleSheetRulesPropertyInfo +instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = DOMCSSRuleList + type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "DOMCSSStyleSheet::rules" + attrGet _ = getDOMCSSStyleSheetRules + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSStyleSheet = DOMCSSStyleSheetAttributeList +type DOMCSSStyleSheetAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-rules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("owner-rule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList +type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCSSStyleSheet::add_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_add_rule" webkit_dom_css_style_sheet_add_rule :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + CString -> -- selector : TBasicType TUTF8 + CString -> -- style : TBasicType TUTF8 + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO Int64 + + +dOMCSSStyleSheetAddRule :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + T.Text -> -- selector + T.Text -> -- style + Word64 -> -- index + m Int64 +dOMCSSStyleSheetAddRule _obj selector style index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selector' <- textToCString selector + style' <- textToCString style + onException (do + result <- propagateGError $ webkit_dom_css_style_sheet_add_rule _obj' selector' style' index + touchManagedPtr _obj + freeMem selector' + freeMem style' + return result + ) (do + freeMem selector' + freeMem style' + ) + +-- method DOMCSSStyleSheet::delete_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_delete_rule" webkit_dom_css_style_sheet_delete_rule :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSStyleSheetDeleteRule :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + Word64 -> -- index + m () +dOMCSSStyleSheetDeleteRule _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_css_style_sheet_delete_rule _obj' index + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMCSSStyleSheet::get_css_rules +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRuleList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_get_css_rules" webkit_dom_css_style_sheet_get_css_rules :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + IO (Ptr DOMCSSRuleList) + + +dOMCSSStyleSheetGetCssRules :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + m DOMCSSRuleList +dOMCSSStyleSheetGetCssRules _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_sheet_get_css_rules _obj' + checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_css_rules" result + result' <- (wrapObject DOMCSSRuleList) result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleSheet::get_owner_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRule" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_get_owner_rule" webkit_dom_css_style_sheet_get_owner_rule :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + IO (Ptr DOMCSSRule) + + +dOMCSSStyleSheetGetOwnerRule :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + m DOMCSSRule +dOMCSSStyleSheetGetOwnerRule _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_sheet_get_owner_rule _obj' + checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_owner_rule" result + result' <- (wrapObject DOMCSSRule) result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleSheet::get_rules +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSRuleList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_get_rules" webkit_dom_css_style_sheet_get_rules :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + IO (Ptr DOMCSSRuleList) + + +dOMCSSStyleSheetGetRules :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + m DOMCSSRuleList +dOMCSSStyleSheetGetRules _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_style_sheet_get_rules _obj' + checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_rules" result + result' <- (wrapObject DOMCSSRuleList) result + touchManagedPtr _obj + return result' + +-- method DOMCSSStyleSheet::insert_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_insert_rule" webkit_dom_css_style_sheet_insert_rule :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + CString -> -- rule : TBasicType TUTF8 + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO Word64 + + +dOMCSSStyleSheetInsertRule :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + T.Text -> -- rule + Word64 -> -- index + m Word64 +dOMCSSStyleSheetInsertRule _obj rule index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + rule' <- textToCString rule + onException (do + result <- propagateGError $ webkit_dom_css_style_sheet_insert_rule _obj' rule' index + touchManagedPtr _obj + freeMem rule' + return result + ) (do + freeMem rule' + ) + +-- method DOMCSSStyleSheet::remove_rule +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_style_sheet_remove_rule" webkit_dom_css_style_sheet_remove_rule :: + Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSStyleSheetRemoveRule :: + (MonadIO m, DOMCSSStyleSheetK a) => + a -> -- _obj + Word64 -> -- index + m () +dOMCSSStyleSheetRemoveRule _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_css_style_sheet_remove_rule _obj' index + touchManagedPtr _obj + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot b/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMCSSStyleSheet where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ForeignPtr DOMCSSStyleSheet) +instance GObject DOMCSSStyleSheet where +class GObject o => DOMCSSStyleSheetK o +instance (GObject o, IsDescendantOf DOMCSSStyleSheet o) => DOMCSSStyleSheetK o +data DOMCSSStyleSheetCssRulesPropertyInfo +data DOMCSSStyleSheetOwnerRulePropertyInfo +data DOMCSSStyleSheetRulesPropertyInfo diff --git a/GI/WebKit/Objects/DOMCSSValue.hs b/GI/WebKit/Objects/DOMCSSValue.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSValue.hs @@ -0,0 +1,214 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMCSSValue + ( + +-- * Exported types + DOMCSSValue(..) , + DOMCSSValueK , + toDOMCSSValue , + noDOMCSSValue , + + + -- * Methods +-- ** dOMCSSValueGetCssText + dOMCSSValueGetCssText , + + +-- ** dOMCSSValueGetCssValueType + dOMCSSValueGetCssValueType , + + +-- ** dOMCSSValueSetCssText + dOMCSSValueSetCssText , + + + + + -- * Properties +-- ** CssText + DOMCSSValueCssTextPropertyInfo , + constructDOMCSSValueCssText , + getDOMCSSValueCssText , + setDOMCSSValueCssText , + + +-- ** CssValueType + DOMCSSValueCssValueTypePropertyInfo , + getDOMCSSValueCssValueType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCSSValue = DOMCSSValue (ForeignPtr DOMCSSValue) +foreign import ccall "webkit_dom_css_value_get_type" + c_webkit_dom_css_value_get_type :: IO GType + +type instance ParentTypes DOMCSSValue = DOMCSSValueParentTypes +type DOMCSSValueParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMCSSValue where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_css_value_get_type + + +class GObject o => DOMCSSValueK o +instance (GObject o, IsDescendantOf DOMCSSValue o) => DOMCSSValueK o + +toDOMCSSValue :: DOMCSSValueK o => o -> IO DOMCSSValue +toDOMCSSValue = unsafeCastTo DOMCSSValue + +noDOMCSSValue :: Maybe DOMCSSValue +noDOMCSSValue = Nothing + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m T.Text +getDOMCSSValueCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> T.Text -> m () +setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSValueCssTextPropertyInfo +instance AttrInfo DOMCSSValueCssTextPropertyInfo where + type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK + type AttrGetType DOMCSSValueCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSValueCssTextPropertyInfo = "DOMCSSValue::css-text" + attrGet _ = getDOMCSSValueCssText + attrSet _ = setDOMCSSValueCssText + attrConstruct _ = constructDOMCSSValueCssText + +-- VVV Prop "css-value-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32 +getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyCUInt obj "css-value-type" + +data DOMCSSValueCssValueTypePropertyInfo +instance AttrInfo DOMCSSValueCssValueTypePropertyInfo where + type AttrAllowedOps DOMCSSValueCssValueTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSValueCssValueTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSValueCssValueTypePropertyInfo = DOMCSSValueK + type AttrGetType DOMCSSValueCssValueTypePropertyInfo = Word32 + type AttrLabel DOMCSSValueCssValueTypePropertyInfo = "DOMCSSValue::css-value-type" + attrGet _ = getDOMCSSValueCssValueType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSValue = DOMCSSValueAttributeList +type DOMCSSValueAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSValueCssTextPropertyInfo), '("css-value-type", DOMCSSValueCssValueTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCSSValue = DOMCSSValueSignalList +type DOMCSSValueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCSSValue::get_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_value_get_css_text" webkit_dom_css_value_get_css_text :: + Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue" + IO CString + + +dOMCSSValueGetCssText :: + (MonadIO m, DOMCSSValueK a) => + a -> -- _obj + m T.Text +dOMCSSValueGetCssText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_value_get_css_text _obj' + checkUnexpectedReturnNULL "webkit_dom_css_value_get_css_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMCSSValue::get_css_value_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_css_value_get_css_value_type" webkit_dom_css_value_get_css_value_type :: + Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue" + IO Word16 + + +dOMCSSValueGetCssValueType :: + (MonadIO m, DOMCSSValueK a) => + a -> -- _obj + m Word16 +dOMCSSValueGetCssValueType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_css_value_get_css_value_type _obj' + touchManagedPtr _obj + return result + +-- method DOMCSSValue::set_css_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_css_value_set_css_text" webkit_dom_css_value_set_css_text :: + Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCSSValueSetCssText :: + (MonadIO m, DOMCSSValueK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMCSSValueSetCssText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_css_value_set_css_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMCSSValue.hs-boot b/GI/WebKit/Objects/DOMCSSValue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCSSValue.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMCSSValue where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCSSValue = DOMCSSValue (ForeignPtr DOMCSSValue) +instance GObject DOMCSSValue where +class GObject o => DOMCSSValueK o +instance (GObject o, IsDescendantOf DOMCSSValue o) => DOMCSSValueK o +data DOMCSSValueCssTextPropertyInfo +data DOMCSSValueCssValueTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMCharacterData.hs b/GI/WebKit/Objects/DOMCharacterData.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCharacterData.hs @@ -0,0 +1,441 @@ + +{- | +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.WebKit.Objects.DOMCharacterData + ( + +-- * Exported types + DOMCharacterData(..) , + DOMCharacterDataK , + toDOMCharacterData , + noDOMCharacterData , + + + -- * Methods +-- ** dOMCharacterDataAppendData + dOMCharacterDataAppendData , + + +-- ** dOMCharacterDataDeleteData + dOMCharacterDataDeleteData , + + +-- ** dOMCharacterDataGetData + dOMCharacterDataGetData , + + +-- ** dOMCharacterDataGetLength + dOMCharacterDataGetLength , + + +-- ** dOMCharacterDataInsertData + dOMCharacterDataInsertData , + + +-- ** dOMCharacterDataRemove + dOMCharacterDataRemove , + + +-- ** dOMCharacterDataReplaceData + dOMCharacterDataReplaceData , + + +-- ** dOMCharacterDataSetData + dOMCharacterDataSetData , + + +-- ** dOMCharacterDataSubstringData + dOMCharacterDataSubstringData , + + + + + -- * Properties +-- ** Data + DOMCharacterDataDataPropertyInfo , + constructDOMCharacterDataData , + getDOMCharacterDataData , + setDOMCharacterDataData , + + +-- ** Length + DOMCharacterDataLengthPropertyInfo , + getDOMCharacterDataLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData) +foreign import ccall "webkit_dom_character_data_get_type" + c_webkit_dom_character_data_get_type :: IO GType + +type instance ParentTypes DOMCharacterData = DOMCharacterDataParentTypes +type DOMCharacterDataParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMCharacterData where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_character_data_get_type + + +class GObject o => DOMCharacterDataK o +instance (GObject o, IsDescendantOf DOMCharacterData o) => DOMCharacterDataK o + +toDOMCharacterData :: DOMCharacterDataK o => o -> IO DOMCharacterData +toDOMCharacterData = unsafeCastTo DOMCharacterData + +noDOMCharacterData :: Maybe DOMCharacterData +noDOMCharacterData = Nothing + +-- VVV Prop "data" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text +getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data" + +setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m () +setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val + +constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue) +constructDOMCharacterDataData val = constructObjectPropertyString "data" val + +data DOMCharacterDataDataPropertyInfo +instance AttrInfo DOMCharacterDataDataPropertyInfo where + type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK + type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text + type AttrLabel DOMCharacterDataDataPropertyInfo = "DOMCharacterData::data" + attrGet _ = getDOMCharacterDataData + attrSet _ = setDOMCharacterDataData + attrConstruct _ = constructDOMCharacterDataData + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64 +getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCharacterDataLengthPropertyInfo +instance AttrInfo DOMCharacterDataLengthPropertyInfo where + type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK + type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64 + type AttrLabel DOMCharacterDataLengthPropertyInfo = "DOMCharacterData::length" + attrGet _ = getDOMCharacterDataLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCharacterData = DOMCharacterDataAttributeList +type DOMCharacterDataAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMCharacterData = DOMCharacterDataSignalList +type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMCharacterData::append_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_append_data" webkit_dom_character_data_append_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataAppendData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + T.Text -> -- data + m () +dOMCharacterDataAppendData _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + onException (do + propagateGError $ webkit_dom_character_data_append_data _obj' data_' + touchManagedPtr _obj + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- method DOMCharacterData::delete_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_delete_data" webkit_dom_character_data_delete_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + Word64 -> -- offset : TBasicType TUInt64 + Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataDeleteData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + Word64 -> -- offset + Word64 -> -- length + m () +dOMCharacterDataDeleteData _obj offset length_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_character_data_delete_data _obj' offset length_ + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMCharacterData::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_get_data" webkit_dom_character_data_get_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + IO CString + + +dOMCharacterDataGetData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + m T.Text +dOMCharacterDataGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_character_data_get_data _obj' + checkUnexpectedReturnNULL "webkit_dom_character_data_get_data" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMCharacterData::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_get_length" webkit_dom_character_data_get_length :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + IO Word64 + + +dOMCharacterDataGetLength :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + m Word64 +dOMCharacterDataGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_character_data_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMCharacterData::insert_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_insert_data" webkit_dom_character_data_insert_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + Word64 -> -- offset : TBasicType TUInt64 + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataInsertData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + Word64 -> -- offset + T.Text -> -- data + m () +dOMCharacterDataInsertData _obj offset data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + onException (do + propagateGError $ webkit_dom_character_data_insert_data _obj' offset data_' + touchManagedPtr _obj + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- method DOMCharacterData::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_remove" webkit_dom_character_data_remove :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataRemove :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + m () +dOMCharacterDataRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_character_data_remove _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMCharacterData::replace_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_replace_data" webkit_dom_character_data_replace_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + Word64 -> -- offset : TBasicType TUInt64 + Word64 -> -- length : TBasicType TUInt64 + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataReplaceData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + Word64 -> -- offset + Word64 -> -- length + T.Text -> -- data + m () +dOMCharacterDataReplaceData _obj offset length_ data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + onException (do + propagateGError $ webkit_dom_character_data_replace_data _obj' offset length_ data_' + touchManagedPtr _obj + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- method DOMCharacterData::set_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_set_data" webkit_dom_character_data_set_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMCharacterDataSetData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMCharacterDataSetData _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_character_data_set_data _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMCharacterData::substring_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_character_data_substring_data" webkit_dom_character_data_substring_data :: + Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" + Word64 -> -- offset : TBasicType TUInt64 + Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMCharacterDataSubstringData :: + (MonadIO m, DOMCharacterDataK a) => + a -> -- _obj + Word64 -> -- offset + Word64 -> -- length + m T.Text +dOMCharacterDataSubstringData _obj offset length_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_character_data_substring_data _obj' offset length_ + checkUnexpectedReturnNULL "webkit_dom_character_data_substring_data" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMCharacterData.hs-boot b/GI/WebKit/Objects/DOMCharacterData.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMCharacterData.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMCharacterData where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData) +instance GObject DOMCharacterData where +class GObject o => DOMCharacterDataK o +instance (GObject o, IsDescendantOf DOMCharacterData o) => DOMCharacterDataK o +data DOMCharacterDataDataPropertyInfo +data DOMCharacterDataLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMComment.hs b/GI/WebKit/Objects/DOMComment.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMComment.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMComment + ( + +-- * Exported types + DOMComment(..) , + DOMCommentK , + toDOMComment , + noDOMComment , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMComment = DOMComment (ForeignPtr DOMComment) +foreign import ccall "webkit_dom_comment_get_type" + c_webkit_dom_comment_get_type :: IO GType + +type instance ParentTypes DOMComment = DOMCommentParentTypes +type DOMCommentParentTypes = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMComment where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_comment_get_type + + +class GObject o => DOMCommentK o +instance (GObject o, IsDescendantOf DOMComment o) => DOMCommentK o + +toDOMComment :: DOMCommentK o => o -> IO DOMComment +toDOMComment = unsafeCastTo DOMComment + +noDOMComment :: Maybe DOMComment +noDOMComment = Nothing + +type instance AttributeList DOMComment = DOMCommentAttributeList +type DOMCommentAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMComment = DOMCommentSignalList +type DOMCommentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMComment.hs-boot b/GI/WebKit/Objects/DOMComment.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMComment.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMComment where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMComment = DOMComment (ForeignPtr DOMComment) +instance GObject DOMComment where +class GObject o => DOMCommentK o +instance (GObject o, IsDescendantOf DOMComment o) => DOMCommentK o diff --git a/GI/WebKit/Objects/DOMConsole.hs b/GI/WebKit/Objects/DOMConsole.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMConsole.hs @@ -0,0 +1,149 @@ + +{- | +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.WebKit.Objects.DOMConsole + ( + +-- * Exported types + DOMConsole(..) , + DOMConsoleK , + toDOMConsole , + noDOMConsole , + + + -- * Methods +-- ** dOMConsoleGetMemory + dOMConsoleGetMemory , + + +-- ** dOMConsoleGroupEnd + dOMConsoleGroupEnd , + + +-- ** dOMConsoleTime + dOMConsoleTime , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMConsole = DOMConsole (ForeignPtr DOMConsole) +foreign import ccall "webkit_dom_console_get_type" + c_webkit_dom_console_get_type :: IO GType + +type instance ParentTypes DOMConsole = DOMConsoleParentTypes +type DOMConsoleParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMConsole where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_console_get_type + + +class GObject o => DOMConsoleK o +instance (GObject o, IsDescendantOf DOMConsole o) => DOMConsoleK o + +toDOMConsole :: DOMConsoleK o => o -> IO DOMConsole +toDOMConsole = unsafeCastTo DOMConsole + +noDOMConsole :: Maybe DOMConsole +noDOMConsole = Nothing + +type instance AttributeList DOMConsole = DOMConsoleAttributeList +type DOMConsoleAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMConsole = DOMConsoleSignalList +type DOMConsoleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMConsole::get_memory +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_console_get_memory" webkit_dom_console_get_memory :: + Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole" + IO () + +{-# DEPRECATED dOMConsoleGetMemory ["(Since version 2.2)"]#-} +dOMConsoleGetMemory :: + (MonadIO m, DOMConsoleK a) => + a -> -- _obj + m () +dOMConsoleGetMemory _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_console_get_memory _obj' + touchManagedPtr _obj + return () + +-- method DOMConsole::group_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_console_group_end" webkit_dom_console_group_end :: + Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole" + IO () + + +dOMConsoleGroupEnd :: + (MonadIO m, DOMConsoleK a) => + a -> -- _obj + m () +dOMConsoleGroupEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_console_group_end _obj' + touchManagedPtr _obj + return () + +-- method DOMConsole::time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_console_time" webkit_dom_console_time :: + Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole" + CString -> -- title : TBasicType TUTF8 + IO () + + +dOMConsoleTime :: + (MonadIO m, DOMConsoleK a) => + a -> -- _obj + T.Text -> -- title + m () +dOMConsoleTime _obj title = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + webkit_dom_console_time _obj' title' + touchManagedPtr _obj + freeMem title' + return () + + diff --git a/GI/WebKit/Objects/DOMConsole.hs-boot b/GI/WebKit/Objects/DOMConsole.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMConsole.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMConsole where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMConsole = DOMConsole (ForeignPtr DOMConsole) +instance GObject DOMConsole where +class GObject o => DOMConsoleK o +instance (GObject o, IsDescendantOf DOMConsole o) => DOMConsoleK o diff --git a/GI/WebKit/Objects/DOMDOMApplicationCache.hs b/GI/WebKit/Objects/DOMDOMApplicationCache.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMApplicationCache.hs @@ -0,0 +1,246 @@ + +{- | +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.WebKit.Objects.DOMDOMApplicationCache + ( + +-- * Exported types + DOMDOMApplicationCache(..) , + DOMDOMApplicationCacheK , + toDOMDOMApplicationCache , + noDOMDOMApplicationCache , + + + -- * Methods +-- ** dOMDOMApplicationCacheAbort + dOMDOMApplicationCacheAbort , + + +-- ** dOMDOMApplicationCacheDispatchEvent + dOMDOMApplicationCacheDispatchEvent , + + +-- ** dOMDOMApplicationCacheGetStatus + dOMDOMApplicationCacheGetStatus , + + +-- ** dOMDOMApplicationCacheSwapCache + dOMDOMApplicationCacheSwapCache , + + +-- ** dOMDOMApplicationCacheUpdate + dOMDOMApplicationCacheUpdate , + + + + + -- * Properties +-- ** Status + DOMDOMApplicationCacheStatusPropertyInfo, + getDOMDOMApplicationCacheStatus , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMApplicationCache = DOMDOMApplicationCache (ForeignPtr DOMDOMApplicationCache) +foreign import ccall "webkit_dom_dom_application_cache_get_type" + c_webkit_dom_dom_application_cache_get_type :: IO GType + +type instance ParentTypes DOMDOMApplicationCache = DOMDOMApplicationCacheParentTypes +type DOMDOMApplicationCacheParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMDOMApplicationCache where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_application_cache_get_type + + +class GObject o => DOMDOMApplicationCacheK o +instance (GObject o, IsDescendantOf DOMDOMApplicationCache o) => DOMDOMApplicationCacheK o + +toDOMDOMApplicationCache :: DOMDOMApplicationCacheK o => o -> IO DOMDOMApplicationCache +toDOMDOMApplicationCache = unsafeCastTo DOMDOMApplicationCache + +noDOMDOMApplicationCache :: Maybe DOMDOMApplicationCache +noDOMDOMApplicationCache = Nothing + +-- VVV Prop "status" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMDOMApplicationCacheStatus :: (MonadIO m, DOMDOMApplicationCacheK o) => o -> m Word32 +getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyCUInt obj "status" + +data DOMDOMApplicationCacheStatusPropertyInfo +instance AttrInfo DOMDOMApplicationCacheStatusPropertyInfo where + type AttrAllowedOps DOMDOMApplicationCacheStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = DOMDOMApplicationCacheK + type AttrGetType DOMDOMApplicationCacheStatusPropertyInfo = Word32 + type AttrLabel DOMDOMApplicationCacheStatusPropertyInfo = "DOMDOMApplicationCache::status" + attrGet _ = getDOMDOMApplicationCacheStatus + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMApplicationCache = DOMDOMApplicationCacheAttributeList +type DOMDOMApplicationCacheAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("status", DOMDOMApplicationCacheStatusPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMApplicationCache = DOMDOMApplicationCacheSignalList +type DOMDOMApplicationCacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMApplicationCache::abort +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_application_cache_abort" webkit_dom_dom_application_cache_abort :: + Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache" + IO () + + +dOMDOMApplicationCacheAbort :: + (MonadIO m, DOMDOMApplicationCacheK a) => + a -> -- _obj + m () +dOMDOMApplicationCacheAbort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_application_cache_abort _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMApplicationCache::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_application_cache_dispatch_event" webkit_dom_dom_application_cache_dispatch_event :: + Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMDOMApplicationCacheDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMDOMApplicationCacheDispatchEvent :: + (MonadIO m, DOMDOMApplicationCacheK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMDOMApplicationCacheDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_dom_application_cache_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMDOMApplicationCache::get_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_application_cache_get_status" webkit_dom_dom_application_cache_get_status :: + Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache" + IO Word16 + + +dOMDOMApplicationCacheGetStatus :: + (MonadIO m, DOMDOMApplicationCacheK a) => + a -> -- _obj + m Word16 +dOMDOMApplicationCacheGetStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_application_cache_get_status _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMApplicationCache::swap_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_application_cache_swap_cache" webkit_dom_dom_application_cache_swap_cache :: + Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMApplicationCacheSwapCache :: + (MonadIO m, DOMDOMApplicationCacheK a) => + a -> -- _obj + m () +dOMDOMApplicationCacheSwapCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_dom_application_cache_swap_cache _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMDOMApplicationCache::update +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_application_cache_update" webkit_dom_dom_application_cache_update :: + Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMApplicationCacheUpdate :: + (MonadIO m, DOMDOMApplicationCacheK a) => + a -> -- _obj + m () +dOMDOMApplicationCacheUpdate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_dom_application_cache_update _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot b/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMApplicationCache where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMApplicationCache = DOMDOMApplicationCache (ForeignPtr DOMDOMApplicationCache) +instance GObject DOMDOMApplicationCache where +class GObject o => DOMDOMApplicationCacheK o +instance (GObject o, IsDescendantOf DOMDOMApplicationCache o) => DOMDOMApplicationCacheK o +data DOMDOMApplicationCacheStatusPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMImplementation.hs b/GI/WebKit/Objects/DOMDOMImplementation.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMImplementation.hs @@ -0,0 +1,281 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMImplementation + ( + +-- * Exported types + DOMDOMImplementation(..) , + DOMDOMImplementationK , + toDOMDOMImplementation , + noDOMDOMImplementation , + + + -- * Methods +-- ** dOMDOMImplementationCreateCssStyleSheet + dOMDOMImplementationCreateCssStyleSheet , + + +-- ** dOMDOMImplementationCreateDocument + dOMDOMImplementationCreateDocument , + + +-- ** dOMDOMImplementationCreateDocumentType + dOMDOMImplementationCreateDocumentType , + + +-- ** dOMDOMImplementationCreateHtmlDocument + dOMDOMImplementationCreateHtmlDocument , + + +-- ** dOMDOMImplementationHasFeature + dOMDOMImplementationHasFeature , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMImplementation = DOMDOMImplementation (ForeignPtr DOMDOMImplementation) +foreign import ccall "webkit_dom_dom_implementation_get_type" + c_webkit_dom_dom_implementation_get_type :: IO GType + +type instance ParentTypes DOMDOMImplementation = DOMDOMImplementationParentTypes +type DOMDOMImplementationParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMImplementation where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_implementation_get_type + + +class GObject o => DOMDOMImplementationK o +instance (GObject o, IsDescendantOf DOMDOMImplementation o) => DOMDOMImplementationK o + +toDOMDOMImplementation :: DOMDOMImplementationK o => o -> IO DOMDOMImplementation +toDOMDOMImplementation = unsafeCastTo DOMDOMImplementation + +noDOMDOMImplementation :: Maybe DOMDOMImplementation +noDOMDOMImplementation = Nothing + +type instance AttributeList DOMDOMImplementation = DOMDOMImplementationAttributeList +type DOMDOMImplementationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMImplementation = DOMDOMImplementationSignalList +type DOMDOMImplementationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMImplementation::create_css_style_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleSheet" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_implementation_create_css_style_sheet" webkit_dom_dom_implementation_create_css_style_sheet :: + Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation" + CString -> -- title : TBasicType TUTF8 + CString -> -- media : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMCSSStyleSheet) + + +dOMDOMImplementationCreateCssStyleSheet :: + (MonadIO m, DOMDOMImplementationK a) => + a -> -- _obj + T.Text -> -- title + T.Text -> -- media + m DOMCSSStyleSheet +dOMDOMImplementationCreateCssStyleSheet _obj title media = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + media' <- textToCString media + onException (do + result <- propagateGError $ webkit_dom_dom_implementation_create_css_style_sheet _obj' title' media' + checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_css_style_sheet" result + result' <- (wrapObject DOMCSSStyleSheet) result + touchManagedPtr _obj + freeMem title' + freeMem media' + return result' + ) (do + freeMem title' + freeMem media' + ) + +-- method DOMDOMImplementation::create_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "doctype", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "doctype", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_implementation_create_document" webkit_dom_dom_implementation_create_document :: + Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- qualifiedName : TBasicType TUTF8 + Ptr DOMDocumentType -> -- doctype : TInterface "WebKit" "DOMDocumentType" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMDocument) + + +dOMDOMImplementationCreateDocument :: + (MonadIO m, DOMDOMImplementationK a, DOMDocumentTypeK b) => + a -> -- _obj + Maybe (T.Text) -> -- namespaceURI + T.Text -> -- qualifiedName + Maybe (b) -> -- doctype + m DOMDocument +dOMDOMImplementationCreateDocument _obj namespaceURI qualifiedName doctype = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeNamespaceURI <- case namespaceURI of + Nothing -> return nullPtr + Just jNamespaceURI -> do + jNamespaceURI' <- textToCString jNamespaceURI + return jNamespaceURI' + qualifiedName' <- textToCString qualifiedName + maybeDoctype <- case doctype of + Nothing -> return nullPtr + Just jDoctype -> do + let jDoctype' = unsafeManagedPtrCastPtr jDoctype + return jDoctype' + onException (do + result <- propagateGError $ webkit_dom_dom_implementation_create_document _obj' maybeNamespaceURI qualifiedName' maybeDoctype + checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + whenJust doctype touchManagedPtr + freeMem maybeNamespaceURI + freeMem qualifiedName' + return result' + ) (do + freeMem maybeNamespaceURI + freeMem qualifiedName' + ) + +-- method DOMDOMImplementation::create_document_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentType" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_implementation_create_document_type" webkit_dom_dom_implementation_create_document_type :: + Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation" + CString -> -- qualifiedName : TBasicType TUTF8 + CString -> -- publicId : TBasicType TUTF8 + CString -> -- systemId : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMDocumentType) + + +dOMDOMImplementationCreateDocumentType :: + (MonadIO m, DOMDOMImplementationK a) => + a -> -- _obj + T.Text -> -- qualifiedName + T.Text -> -- publicId + T.Text -> -- systemId + m DOMDocumentType +dOMDOMImplementationCreateDocumentType _obj qualifiedName publicId systemId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + qualifiedName' <- textToCString qualifiedName + publicId' <- textToCString publicId + systemId' <- textToCString systemId + onException (do + result <- propagateGError $ webkit_dom_dom_implementation_create_document_type _obj' qualifiedName' publicId' systemId' + checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_document_type" result + result' <- (newObject DOMDocumentType) result + touchManagedPtr _obj + freeMem qualifiedName' + freeMem publicId' + freeMem systemId' + return result' + ) (do + freeMem qualifiedName' + freeMem publicId' + freeMem systemId' + ) + +-- method DOMDOMImplementation::create_html_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_implementation_create_html_document" webkit_dom_dom_implementation_create_html_document :: + Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation" + CString -> -- title : TBasicType TUTF8 + IO (Ptr DOMHTMLDocument) + + +dOMDOMImplementationCreateHtmlDocument :: + (MonadIO m, DOMDOMImplementationK a) => + a -> -- _obj + T.Text -> -- title + m DOMHTMLDocument +dOMDOMImplementationCreateHtmlDocument _obj title = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + result <- webkit_dom_dom_implementation_create_html_document _obj' title' + checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_html_document" result + result' <- (newObject DOMHTMLDocument) result + touchManagedPtr _obj + freeMem title' + return result' + +-- method DOMDOMImplementation::has_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_implementation_has_feature" webkit_dom_dom_implementation_has_feature :: + Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation" + CString -> -- feature : TBasicType TUTF8 + CString -> -- version : TBasicType TUTF8 + IO CInt + + +dOMDOMImplementationHasFeature :: + (MonadIO m, DOMDOMImplementationK a) => + a -> -- _obj + T.Text -> -- feature + T.Text -> -- version + m Bool +dOMDOMImplementationHasFeature _obj feature version = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + feature' <- textToCString feature + version' <- textToCString version + result <- webkit_dom_dom_implementation_has_feature _obj' feature' version' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem feature' + freeMem version' + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMImplementation.hs-boot b/GI/WebKit/Objects/DOMDOMImplementation.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMImplementation.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMDOMImplementation where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMImplementation = DOMDOMImplementation (ForeignPtr DOMDOMImplementation) +instance GObject DOMDOMImplementation where +class GObject o => DOMDOMImplementationK o +instance (GObject o, IsDescendantOf DOMDOMImplementation o) => DOMDOMImplementationK o diff --git a/GI/WebKit/Objects/DOMDOMMimeType.hs b/GI/WebKit/Objects/DOMDOMMimeType.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMMimeType.hs @@ -0,0 +1,248 @@ + +{- | +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.WebKit.Objects.DOMDOMMimeType + ( + +-- * Exported types + DOMDOMMimeType(..) , + DOMDOMMimeTypeK , + toDOMDOMMimeType , + noDOMDOMMimeType , + + + -- * Methods +-- ** dOMDOMMimeTypeGetDescription + dOMDOMMimeTypeGetDescription , + + +-- ** dOMDOMMimeTypeGetEnabledPlugin + dOMDOMMimeTypeGetEnabledPlugin , + + +-- ** dOMDOMMimeTypeGetSuffixes + dOMDOMMimeTypeGetSuffixes , + + + + + -- * Properties +-- ** Description + DOMDOMMimeTypeDescriptionPropertyInfo , + getDOMDOMMimeTypeDescription , + + +-- ** EnabledPlugin + DOMDOMMimeTypeEnabledPluginPropertyInfo , + getDOMDOMMimeTypeEnabledPlugin , + + +-- ** Suffixes + DOMDOMMimeTypeSuffixesPropertyInfo , + getDOMDOMMimeTypeSuffixes , + + +-- ** Type + DOMDOMMimeTypeTypePropertyInfo , + getDOMDOMMimeTypeType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMMimeType = DOMDOMMimeType (ForeignPtr DOMDOMMimeType) +foreign import ccall "webkit_dom_dom_mime_type_get_type" + c_webkit_dom_dom_mime_type_get_type :: IO GType + +type instance ParentTypes DOMDOMMimeType = DOMDOMMimeTypeParentTypes +type DOMDOMMimeTypeParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMMimeType where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_mime_type_get_type + + +class GObject o => DOMDOMMimeTypeK o +instance (GObject o, IsDescendantOf DOMDOMMimeType o) => DOMDOMMimeTypeK o + +toDOMDOMMimeType :: DOMDOMMimeTypeK o => o -> IO DOMDOMMimeType +toDOMDOMMimeType = unsafeCastTo DOMDOMMimeType + +noDOMDOMMimeType :: Maybe DOMDOMMimeType +noDOMDOMMimeType = Nothing + +-- VVV Prop "description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeDescription :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeDescription obj = liftIO $ getObjectPropertyString obj "description" + +data DOMDOMMimeTypeDescriptionPropertyInfo +instance AttrInfo DOMDOMMimeTypeDescriptionPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeDescriptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeDescriptionPropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeDescriptionPropertyInfo = "DOMDOMMimeType::description" + attrGet _ = getDOMDOMMimeTypeDescription + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "enabled-plugin" + -- Type: TInterface "WebKit" "DOMDOMPlugin" + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeEnabledPlugin :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m DOMDOMPlugin +getDOMDOMMimeTypeEnabledPlugin obj = liftIO $ getObjectPropertyObject obj "enabled-plugin" DOMDOMPlugin + +data DOMDOMMimeTypeEnabledPluginPropertyInfo +instance AttrInfo DOMDOMMimeTypeEnabledPluginPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeEnabledPluginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMPlugin + type AttrLabel DOMDOMMimeTypeEnabledPluginPropertyInfo = "DOMDOMMimeType::enabled-plugin" + attrGet _ = getDOMDOMMimeTypeEnabledPlugin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "suffixes" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeSuffixes :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeSuffixes obj = liftIO $ getObjectPropertyString obj "suffixes" + +data DOMDOMMimeTypeSuffixesPropertyInfo +instance AttrInfo DOMDOMMimeTypeSuffixesPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeSuffixesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeSuffixesPropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeSuffixesPropertyInfo = "DOMDOMMimeType::suffixes" + attrGet _ = getDOMDOMMimeTypeSuffixes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeType :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMDOMMimeTypeTypePropertyInfo +instance AttrInfo DOMDOMMimeTypeTypePropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeTypePropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeTypePropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeTypePropertyInfo = "DOMDOMMimeType::type" + attrGet _ = getDOMDOMMimeTypeType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMMimeType = DOMDOMMimeTypeAttributeList +type DOMDOMMimeTypeAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMMimeTypeDescriptionPropertyInfo), '("enabled-plugin", DOMDOMMimeTypeEnabledPluginPropertyInfo), '("suffixes", DOMDOMMimeTypeSuffixesPropertyInfo), '("type", DOMDOMMimeTypeTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMMimeType = DOMDOMMimeTypeSignalList +type DOMDOMMimeTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMMimeType::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_get_description" webkit_dom_dom_mime_type_get_description :: + Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType" + IO CString + + +dOMDOMMimeTypeGetDescription :: + (MonadIO m, DOMDOMMimeTypeK a) => + a -> -- _obj + m T.Text +dOMDOMMimeTypeGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_mime_type_get_description _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_mime_type_get_description" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMMimeType::get_enabled_plugin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_get_enabled_plugin" webkit_dom_dom_mime_type_get_enabled_plugin :: + Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType" + IO (Ptr DOMDOMPlugin) + + +dOMDOMMimeTypeGetEnabledPlugin :: + (MonadIO m, DOMDOMMimeTypeK a) => + a -> -- _obj + m DOMDOMPlugin +dOMDOMMimeTypeGetEnabledPlugin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_mime_type_get_enabled_plugin _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_mime_type_get_enabled_plugin" result + result' <- (wrapObject DOMDOMPlugin) result + touchManagedPtr _obj + return result' + +-- method DOMDOMMimeType::get_suffixes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_get_suffixes" webkit_dom_dom_mime_type_get_suffixes :: + Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType" + IO CString + + +dOMDOMMimeTypeGetSuffixes :: + (MonadIO m, DOMDOMMimeTypeK a) => + a -> -- _obj + m T.Text +dOMDOMMimeTypeGetSuffixes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_mime_type_get_suffixes _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_mime_type_get_suffixes" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMMimeType.hs-boot b/GI/WebKit/Objects/DOMDOMMimeType.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMMimeType.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMDOMMimeType where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMMimeType = DOMDOMMimeType (ForeignPtr DOMDOMMimeType) +instance GObject DOMDOMMimeType where +class GObject o => DOMDOMMimeTypeK o +instance (GObject o, IsDescendantOf DOMDOMMimeType o) => DOMDOMMimeTypeK o +data DOMDOMMimeTypeDescriptionPropertyInfo +data DOMDOMMimeTypeEnabledPluginPropertyInfo +data DOMDOMMimeTypeSuffixesPropertyInfo +data DOMDOMMimeTypeTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs @@ -0,0 +1,181 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMMimeTypeArray + ( + +-- * Exported types + DOMDOMMimeTypeArray(..) , + DOMDOMMimeTypeArrayK , + toDOMDOMMimeTypeArray , + noDOMDOMMimeTypeArray , + + + -- * Methods +-- ** dOMDOMMimeTypeArrayGetLength + dOMDOMMimeTypeArrayGetLength , + + +-- ** dOMDOMMimeTypeArrayItem + dOMDOMMimeTypeArrayItem , + + +-- ** dOMDOMMimeTypeArrayNamedItem + dOMDOMMimeTypeArrayNamedItem , + + + + + -- * Properties +-- ** Length + DOMDOMMimeTypeArrayLengthPropertyInfo , + getDOMDOMMimeTypeArrayLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMMimeTypeArray = DOMDOMMimeTypeArray (ForeignPtr DOMDOMMimeTypeArray) +foreign import ccall "webkit_dom_dom_mime_type_array_get_type" + c_webkit_dom_dom_mime_type_array_get_type :: IO GType + +type instance ParentTypes DOMDOMMimeTypeArray = DOMDOMMimeTypeArrayParentTypes +type DOMDOMMimeTypeArrayParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMMimeTypeArray where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_mime_type_array_get_type + + +class GObject o => DOMDOMMimeTypeArrayK o +instance (GObject o, IsDescendantOf DOMDOMMimeTypeArray o) => DOMDOMMimeTypeArrayK o + +toDOMDOMMimeTypeArray :: DOMDOMMimeTypeArrayK o => o -> IO DOMDOMMimeTypeArray +toDOMDOMMimeTypeArray = unsafeCastTo DOMDOMMimeTypeArray + +noDOMDOMMimeTypeArray :: Maybe DOMDOMMimeTypeArray +noDOMDOMMimeTypeArray = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeArrayLength :: (MonadIO m, DOMDOMMimeTypeArrayK o) => o -> m Word64 +getDOMDOMMimeTypeArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMMimeTypeArrayLengthPropertyInfo +instance AttrInfo DOMDOMMimeTypeArrayLengthPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeArrayLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = DOMDOMMimeTypeArrayK + type AttrGetType DOMDOMMimeTypeArrayLengthPropertyInfo = Word64 + type AttrLabel DOMDOMMimeTypeArrayLengthPropertyInfo = "DOMDOMMimeTypeArray::length" + attrGet _ = getDOMDOMMimeTypeArrayLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMMimeTypeArray = DOMDOMMimeTypeArrayAttributeList +type DOMDOMMimeTypeArrayAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMMimeTypeArrayLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMMimeTypeArray = DOMDOMMimeTypeArraySignalList +type DOMDOMMimeTypeArraySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMMimeTypeArray::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_array_get_length" webkit_dom_dom_mime_type_array_get_length :: + Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray" + IO Word64 + + +dOMDOMMimeTypeArrayGetLength :: + (MonadIO m, DOMDOMMimeTypeArrayK a) => + a -> -- _obj + m Word64 +dOMDOMMimeTypeArrayGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_mime_type_array_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMMimeTypeArray::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_array_item" webkit_dom_dom_mime_type_array_item :: + Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMDOMMimeType) + + +dOMDOMMimeTypeArrayItem :: + (MonadIO m, DOMDOMMimeTypeArrayK a) => + a -> -- _obj + Word64 -> -- index + m DOMDOMMimeType +dOMDOMMimeTypeArrayItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_mime_type_array_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_mime_type_array_item" result + result' <- (wrapObject DOMDOMMimeType) result + touchManagedPtr _obj + return result' + +-- method DOMDOMMimeTypeArray::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_mime_type_array_named_item" webkit_dom_dom_mime_type_array_named_item :: + Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMDOMMimeType) + + +dOMDOMMimeTypeArrayNamedItem :: + (MonadIO m, DOMDOMMimeTypeArrayK a) => + a -> -- _obj + T.Text -> -- name + m DOMDOMMimeType +dOMDOMMimeTypeArrayNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_dom_mime_type_array_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_dom_mime_type_array_named_item" result + result' <- (wrapObject DOMDOMMimeType) result + touchManagedPtr _obj + freeMem name' + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMMimeTypeArray where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMMimeTypeArray = DOMDOMMimeTypeArray (ForeignPtr DOMDOMMimeTypeArray) +instance GObject DOMDOMMimeTypeArray where +class GObject o => DOMDOMMimeTypeArrayK o +instance (GObject o, IsDescendantOf DOMDOMMimeTypeArray o) => DOMDOMMimeTypeArrayK o +data DOMDOMMimeTypeArrayLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs @@ -0,0 +1,181 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMNamedFlowCollection + ( + +-- * Exported types + DOMDOMNamedFlowCollection(..) , + DOMDOMNamedFlowCollectionK , + toDOMDOMNamedFlowCollection , + noDOMDOMNamedFlowCollection , + + + -- * Methods +-- ** dOMDOMNamedFlowCollectionGetLength + dOMDOMNamedFlowCollectionGetLength , + + +-- ** dOMDOMNamedFlowCollectionItem + dOMDOMNamedFlowCollectionItem , + + +-- ** dOMDOMNamedFlowCollectionNamedItem + dOMDOMNamedFlowCollectionNamedItem , + + + + + -- * Properties +-- ** Length + DOMDOMNamedFlowCollectionLengthPropertyInfo, + getDOMDOMNamedFlowCollectionLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollection (ForeignPtr DOMDOMNamedFlowCollection) +foreign import ccall "webkit_dom_dom_named_flow_collection_get_type" + c_webkit_dom_dom_named_flow_collection_get_type :: IO GType + +type instance ParentTypes DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionParentTypes +type DOMDOMNamedFlowCollectionParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMNamedFlowCollection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_named_flow_collection_get_type + + +class GObject o => DOMDOMNamedFlowCollectionK o +instance (GObject o, IsDescendantOf DOMDOMNamedFlowCollection o) => DOMDOMNamedFlowCollectionK o + +toDOMDOMNamedFlowCollection :: DOMDOMNamedFlowCollectionK o => o -> IO DOMDOMNamedFlowCollection +toDOMDOMNamedFlowCollection = unsafeCastTo DOMDOMNamedFlowCollection + +noDOMDOMNamedFlowCollection :: Maybe DOMDOMNamedFlowCollection +noDOMDOMNamedFlowCollection = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m Word64 +getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMNamedFlowCollectionLengthPropertyInfo +instance AttrInfo DOMDOMNamedFlowCollectionLengthPropertyInfo where + type AttrAllowedOps DOMDOMNamedFlowCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = DOMDOMNamedFlowCollectionK + type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMDOMNamedFlowCollectionLengthPropertyInfo = "DOMDOMNamedFlowCollection::length" + attrGet _ = getDOMDOMNamedFlowCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionAttributeList +type DOMDOMNamedFlowCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMNamedFlowCollectionLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionSignalList +type DOMDOMNamedFlowCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMNamedFlowCollection::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_named_flow_collection_get_length" webkit_dom_dom_named_flow_collection_get_length :: + Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection" + IO Word64 + + +dOMDOMNamedFlowCollectionGetLength :: + (MonadIO m, DOMDOMNamedFlowCollectionK a) => + a -> -- _obj + m Word64 +dOMDOMNamedFlowCollectionGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_named_flow_collection_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMNamedFlowCollection::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMWebKitNamedFlow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_named_flow_collection_item" webkit_dom_dom_named_flow_collection_item :: + Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMWebKitNamedFlow) + + +dOMDOMNamedFlowCollectionItem :: + (MonadIO m, DOMDOMNamedFlowCollectionK a) => + a -> -- _obj + Word64 -> -- index + m DOMWebKitNamedFlow +dOMDOMNamedFlowCollectionItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_named_flow_collection_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_named_flow_collection_item" result + result' <- (wrapObject DOMWebKitNamedFlow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMNamedFlowCollection::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMWebKitNamedFlow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_named_flow_collection_named_item" webkit_dom_dom_named_flow_collection_named_item :: + Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMWebKitNamedFlow) + + +dOMDOMNamedFlowCollectionNamedItem :: + (MonadIO m, DOMDOMNamedFlowCollectionK a) => + a -> -- _obj + T.Text -> -- name + m DOMWebKitNamedFlow +dOMDOMNamedFlowCollectionNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_dom_named_flow_collection_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_dom_named_flow_collection_named_item" result + result' <- (wrapObject DOMWebKitNamedFlow) result + touchManagedPtr _obj + freeMem name' + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMNamedFlowCollection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollection (ForeignPtr DOMDOMNamedFlowCollection) +instance GObject DOMDOMNamedFlowCollection where +class GObject o => DOMDOMNamedFlowCollectionK o +instance (GObject o, IsDescendantOf DOMDOMNamedFlowCollection o) => DOMDOMNamedFlowCollectionK o +data DOMDOMNamedFlowCollectionLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMPlugin.hs b/GI/WebKit/Objects/DOMDOMPlugin.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMPlugin.hs @@ -0,0 +1,343 @@ + +{- | +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.WebKit.Objects.DOMDOMPlugin + ( + +-- * Exported types + DOMDOMPlugin(..) , + DOMDOMPluginK , + toDOMDOMPlugin , + noDOMDOMPlugin , + + + -- * Methods +-- ** dOMDOMPluginGetDescription + dOMDOMPluginGetDescription , + + +-- ** dOMDOMPluginGetFilename + dOMDOMPluginGetFilename , + + +-- ** dOMDOMPluginGetLength + dOMDOMPluginGetLength , + + +-- ** dOMDOMPluginGetName + dOMDOMPluginGetName , + + +-- ** dOMDOMPluginItem + dOMDOMPluginItem , + + +-- ** dOMDOMPluginNamedItem + dOMDOMPluginNamedItem , + + + + + -- * Properties +-- ** Description + DOMDOMPluginDescriptionPropertyInfo , + getDOMDOMPluginDescription , + + +-- ** Filename + DOMDOMPluginFilenamePropertyInfo , + getDOMDOMPluginFilename , + + +-- ** Length + DOMDOMPluginLengthPropertyInfo , + getDOMDOMPluginLength , + + +-- ** Name + DOMDOMPluginNamePropertyInfo , + getDOMDOMPluginName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMPlugin = DOMDOMPlugin (ForeignPtr DOMDOMPlugin) +foreign import ccall "webkit_dom_dom_plugin_get_type" + c_webkit_dom_dom_plugin_get_type :: IO GType + +type instance ParentTypes DOMDOMPlugin = DOMDOMPluginParentTypes +type DOMDOMPluginParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMPlugin where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_plugin_get_type + + +class GObject o => DOMDOMPluginK o +instance (GObject o, IsDescendantOf DOMDOMPlugin o) => DOMDOMPluginK o + +toDOMDOMPlugin :: DOMDOMPluginK o => o -> IO DOMDOMPlugin +toDOMDOMPlugin = unsafeCastTo DOMDOMPlugin + +noDOMDOMPlugin :: Maybe DOMDOMPlugin +noDOMDOMPlugin = Nothing + +-- VVV Prop "description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginDescription :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginDescription obj = liftIO $ getObjectPropertyString obj "description" + +data DOMDOMPluginDescriptionPropertyInfo +instance AttrInfo DOMDOMPluginDescriptionPropertyInfo where + type AttrAllowedOps DOMDOMPluginDescriptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginDescriptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginDescriptionPropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginDescriptionPropertyInfo = T.Text + type AttrLabel DOMDOMPluginDescriptionPropertyInfo = "DOMDOMPlugin::description" + attrGet _ = getDOMDOMPluginDescription + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginFilename :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginFilename obj = liftIO $ getObjectPropertyString obj "filename" + +data DOMDOMPluginFilenamePropertyInfo +instance AttrInfo DOMDOMPluginFilenamePropertyInfo where + type AttrAllowedOps DOMDOMPluginFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginFilenamePropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginFilenamePropertyInfo = T.Text + type AttrLabel DOMDOMPluginFilenamePropertyInfo = "DOMDOMPlugin::filename" + attrGet _ = getDOMDOMPluginFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMPluginLength :: (MonadIO m, DOMDOMPluginK o) => o -> m Word64 +getDOMDOMPluginLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMPluginLengthPropertyInfo +instance AttrInfo DOMDOMPluginLengthPropertyInfo where + type AttrAllowedOps DOMDOMPluginLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginLengthPropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginLengthPropertyInfo = Word64 + type AttrLabel DOMDOMPluginLengthPropertyInfo = "DOMDOMPlugin::length" + attrGet _ = getDOMDOMPluginLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginName :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMDOMPluginNamePropertyInfo +instance AttrInfo DOMDOMPluginNamePropertyInfo where + type AttrAllowedOps DOMDOMPluginNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginNamePropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginNamePropertyInfo = T.Text + type AttrLabel DOMDOMPluginNamePropertyInfo = "DOMDOMPlugin::name" + attrGet _ = getDOMDOMPluginName + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMPlugin = DOMDOMPluginAttributeList +type DOMDOMPluginAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMPluginDescriptionPropertyInfo), '("filename", DOMDOMPluginFilenamePropertyInfo), '("length", DOMDOMPluginLengthPropertyInfo), '("name", DOMDOMPluginNamePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMPlugin = DOMDOMPluginSignalList +type DOMDOMPluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMPlugin::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_get_description" webkit_dom_dom_plugin_get_description :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + IO CString + + +dOMDOMPluginGetDescription :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + m T.Text +dOMDOMPluginGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_get_description _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_get_description" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMPlugin::get_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_get_filename" webkit_dom_dom_plugin_get_filename :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + IO CString + + +dOMDOMPluginGetFilename :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + m T.Text +dOMDOMPluginGetFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_get_filename _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_get_filename" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMPlugin::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_get_length" webkit_dom_dom_plugin_get_length :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + IO Word64 + + +dOMDOMPluginGetLength :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + m Word64 +dOMDOMPluginGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMPlugin::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_get_name" webkit_dom_dom_plugin_get_name :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + IO CString + + +dOMDOMPluginGetName :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + m T.Text +dOMDOMPluginGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMPlugin::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_item" webkit_dom_dom_plugin_item :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMDOMMimeType) + + +dOMDOMPluginItem :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + Word64 -> -- index + m DOMDOMMimeType +dOMDOMPluginItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_item" result + result' <- (wrapObject DOMDOMMimeType) result + touchManagedPtr _obj + return result' + +-- method DOMDOMPlugin::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_named_item" webkit_dom_dom_plugin_named_item :: + Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMDOMMimeType) + + +dOMDOMPluginNamedItem :: + (MonadIO m, DOMDOMPluginK a) => + a -> -- _obj + T.Text -> -- name + m DOMDOMMimeType +dOMDOMPluginNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_dom_plugin_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_named_item" result + result' <- (wrapObject DOMDOMMimeType) result + touchManagedPtr _obj + freeMem name' + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMPlugin.hs-boot b/GI/WebKit/Objects/DOMDOMPlugin.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMPlugin.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMDOMPlugin where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMPlugin = DOMDOMPlugin (ForeignPtr DOMDOMPlugin) +instance GObject DOMDOMPlugin where +class GObject o => DOMDOMPluginK o +instance (GObject o, IsDescendantOf DOMDOMPlugin o) => DOMDOMPluginK o +data DOMDOMPluginDescriptionPropertyInfo +data DOMDOMPluginFilenamePropertyInfo +data DOMDOMPluginLengthPropertyInfo +data DOMDOMPluginNamePropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMPluginArray.hs b/GI/WebKit/Objects/DOMDOMPluginArray.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMPluginArray.hs @@ -0,0 +1,212 @@ + +{- | +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.WebKit.Objects.DOMDOMPluginArray + ( + +-- * Exported types + DOMDOMPluginArray(..) , + DOMDOMPluginArrayK , + toDOMDOMPluginArray , + noDOMDOMPluginArray , + + + -- * Methods +-- ** dOMDOMPluginArrayGetLength + dOMDOMPluginArrayGetLength , + + +-- ** dOMDOMPluginArrayItem + dOMDOMPluginArrayItem , + + +-- ** dOMDOMPluginArrayNamedItem + dOMDOMPluginArrayNamedItem , + + +-- ** dOMDOMPluginArrayRefresh + dOMDOMPluginArrayRefresh , + + + + + -- * Properties +-- ** Length + DOMDOMPluginArrayLengthPropertyInfo , + getDOMDOMPluginArrayLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMPluginArray = DOMDOMPluginArray (ForeignPtr DOMDOMPluginArray) +foreign import ccall "webkit_dom_dom_plugin_array_get_type" + c_webkit_dom_dom_plugin_array_get_type :: IO GType + +type instance ParentTypes DOMDOMPluginArray = DOMDOMPluginArrayParentTypes +type DOMDOMPluginArrayParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMPluginArray where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_plugin_array_get_type + + +class GObject o => DOMDOMPluginArrayK o +instance (GObject o, IsDescendantOf DOMDOMPluginArray o) => DOMDOMPluginArrayK o + +toDOMDOMPluginArray :: DOMDOMPluginArrayK o => o -> IO DOMDOMPluginArray +toDOMDOMPluginArray = unsafeCastTo DOMDOMPluginArray + +noDOMDOMPluginArray :: Maybe DOMDOMPluginArray +noDOMDOMPluginArray = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMPluginArrayLength :: (MonadIO m, DOMDOMPluginArrayK o) => o -> m Word64 +getDOMDOMPluginArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMPluginArrayLengthPropertyInfo +instance AttrInfo DOMDOMPluginArrayLengthPropertyInfo where + type AttrAllowedOps DOMDOMPluginArrayLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = DOMDOMPluginArrayK + type AttrGetType DOMDOMPluginArrayLengthPropertyInfo = Word64 + type AttrLabel DOMDOMPluginArrayLengthPropertyInfo = "DOMDOMPluginArray::length" + attrGet _ = getDOMDOMPluginArrayLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMPluginArray = DOMDOMPluginArrayAttributeList +type DOMDOMPluginArrayAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMPluginArrayLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMPluginArray = DOMDOMPluginArraySignalList +type DOMDOMPluginArraySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMPluginArray::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_array_get_length" webkit_dom_dom_plugin_array_get_length :: + Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" + IO Word64 + + +dOMDOMPluginArrayGetLength :: + (MonadIO m, DOMDOMPluginArrayK a) => + a -> -- _obj + m Word64 +dOMDOMPluginArrayGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_array_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMPluginArray::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_array_item" webkit_dom_dom_plugin_array_item :: + Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMDOMPlugin) + + +dOMDOMPluginArrayItem :: + (MonadIO m, DOMDOMPluginArrayK a) => + a -> -- _obj + Word64 -> -- index + m DOMDOMPlugin +dOMDOMPluginArrayItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_plugin_array_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_array_item" result + result' <- (wrapObject DOMDOMPlugin) result + touchManagedPtr _obj + return result' + +-- method DOMDOMPluginArray::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_array_named_item" webkit_dom_dom_plugin_array_named_item :: + Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMDOMPlugin) + + +dOMDOMPluginArrayNamedItem :: + (MonadIO m, DOMDOMPluginArrayK a) => + a -> -- _obj + T.Text -> -- name + m DOMDOMPlugin +dOMDOMPluginArrayNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_dom_plugin_array_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_dom_plugin_array_named_item" result + result' <- (wrapObject DOMDOMPlugin) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMDOMPluginArray::refresh +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reload", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reload", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_plugin_array_refresh" webkit_dom_dom_plugin_array_refresh :: + Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" + CInt -> -- reload : TBasicType TBoolean + IO () + + +dOMDOMPluginArrayRefresh :: + (MonadIO m, DOMDOMPluginArrayK a) => + a -> -- _obj + Bool -> -- reload + m () +dOMDOMPluginArrayRefresh _obj reload = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let reload' = (fromIntegral . fromEnum) reload + webkit_dom_dom_plugin_array_refresh _obj' reload' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot b/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMPluginArray where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMPluginArray = DOMDOMPluginArray (ForeignPtr DOMDOMPluginArray) +instance GObject DOMDOMPluginArray where +class GObject o => DOMDOMPluginArrayK o +instance (GObject o, IsDescendantOf DOMDOMPluginArray o) => DOMDOMPluginArrayK o +data DOMDOMPluginArrayLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs @@ -0,0 +1,655 @@ + +{- | +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.WebKit.Objects.DOMDOMSecurityPolicy + ( + +-- * Exported types + DOMDOMSecurityPolicy(..) , + DOMDOMSecurityPolicyK , + toDOMDOMSecurityPolicy , + noDOMDOMSecurityPolicy , + + + -- * Methods +-- ** dOMDOMSecurityPolicyAllowsConnectionTo + dOMDOMSecurityPolicyAllowsConnectionTo , + + +-- ** dOMDOMSecurityPolicyAllowsFontFrom + dOMDOMSecurityPolicyAllowsFontFrom , + + +-- ** dOMDOMSecurityPolicyAllowsFormAction + dOMDOMSecurityPolicyAllowsFormAction , + + +-- ** dOMDOMSecurityPolicyAllowsFrameFrom + dOMDOMSecurityPolicyAllowsFrameFrom , + + +-- ** dOMDOMSecurityPolicyAllowsImageFrom + dOMDOMSecurityPolicyAllowsImageFrom , + + +-- ** dOMDOMSecurityPolicyAllowsMediaFrom + dOMDOMSecurityPolicyAllowsMediaFrom , + + +-- ** dOMDOMSecurityPolicyAllowsObjectFrom + dOMDOMSecurityPolicyAllowsObjectFrom , + + +-- ** dOMDOMSecurityPolicyAllowsPluginType + dOMDOMSecurityPolicyAllowsPluginType , + + +-- ** dOMDOMSecurityPolicyAllowsScriptFrom + dOMDOMSecurityPolicyAllowsScriptFrom , + + +-- ** dOMDOMSecurityPolicyAllowsStyleFrom + dOMDOMSecurityPolicyAllowsStyleFrom , + + +-- ** dOMDOMSecurityPolicyGetAllowsEval + dOMDOMSecurityPolicyGetAllowsEval , + + +-- ** dOMDOMSecurityPolicyGetAllowsInlineScript + dOMDOMSecurityPolicyGetAllowsInlineScript, + + +-- ** dOMDOMSecurityPolicyGetAllowsInlineStyle + dOMDOMSecurityPolicyGetAllowsInlineStyle, + + +-- ** dOMDOMSecurityPolicyGetIsActive + dOMDOMSecurityPolicyGetIsActive , + + +-- ** dOMDOMSecurityPolicyGetReportUrIs + dOMDOMSecurityPolicyGetReportUrIs , + + + + + -- * Properties +-- ** AllowsEval + DOMDOMSecurityPolicyAllowsEvalPropertyInfo, + getDOMDOMSecurityPolicyAllowsEval , + + +-- ** AllowsInlineScript + DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo, + getDOMDOMSecurityPolicyAllowsInlineScript, + + +-- ** AllowsInlineStyle + DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo, + getDOMDOMSecurityPolicyAllowsInlineStyle, + + +-- ** IsActive + DOMDOMSecurityPolicyIsActivePropertyInfo, + getDOMDOMSecurityPolicyIsActive , + + +-- ** ReportUrIs + DOMDOMSecurityPolicyReportUrIsPropertyInfo, + getDOMDOMSecurityPolicyReportUrIs , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMSecurityPolicy = DOMDOMSecurityPolicy (ForeignPtr DOMDOMSecurityPolicy) +foreign import ccall "webkit_dom_dom_security_policy_get_type" + c_webkit_dom_dom_security_policy_get_type :: IO GType + +type instance ParentTypes DOMDOMSecurityPolicy = DOMDOMSecurityPolicyParentTypes +type DOMDOMSecurityPolicyParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMSecurityPolicy where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_security_policy_get_type + + +class GObject o => DOMDOMSecurityPolicyK o +instance (GObject o, IsDescendantOf DOMDOMSecurityPolicy o) => DOMDOMSecurityPolicyK o + +toDOMDOMSecurityPolicy :: DOMDOMSecurityPolicyK o => o -> IO DOMDOMSecurityPolicy +toDOMDOMSecurityPolicy = unsafeCastTo DOMDOMSecurityPolicy + +noDOMDOMSecurityPolicy :: Maybe DOMDOMSecurityPolicy +noDOMDOMSecurityPolicy = Nothing + +-- VVV Prop "allows-eval" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsEval :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsEval obj = liftIO $ getObjectPropertyBool obj "allows-eval" + +data DOMDOMSecurityPolicyAllowsEvalPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsEvalPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsEvalPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsEvalPropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsEvalPropertyInfo = "DOMDOMSecurityPolicy::allows-eval" + attrGet _ = getDOMDOMSecurityPolicyAllowsEval + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "allows-inline-script" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsInlineScript :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsInlineScript obj = liftIO $ getObjectPropertyBool obj "allows-inline-script" + +data DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = "DOMDOMSecurityPolicy::allows-inline-script" + attrGet _ = getDOMDOMSecurityPolicyAllowsInlineScript + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "allows-inline-style" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsInlineStyle :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsInlineStyle obj = liftIO $ getObjectPropertyBool obj "allows-inline-style" + +data DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = "DOMDOMSecurityPolicy::allows-inline-style" + attrGet _ = getDOMDOMSecurityPolicyAllowsInlineStyle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyIsActive :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" + +data DOMDOMSecurityPolicyIsActivePropertyInfo +instance AttrInfo DOMDOMSecurityPolicyIsActivePropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyIsActivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyIsActivePropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyIsActivePropertyInfo = "DOMDOMSecurityPolicy::is-active" + attrGet _ = getDOMDOMSecurityPolicyIsActive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "report-ur-is" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyReportUrIs :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m DOMDOMStringList +getDOMDOMSecurityPolicyReportUrIs obj = liftIO $ getObjectPropertyObject obj "report-ur-is" DOMDOMStringList + +data DOMDOMSecurityPolicyReportUrIsPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyReportUrIsPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyReportUrIsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMStringList + type AttrLabel DOMDOMSecurityPolicyReportUrIsPropertyInfo = "DOMDOMSecurityPolicy::report-ur-is" + attrGet _ = getDOMDOMSecurityPolicyReportUrIs + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMSecurityPolicy = DOMDOMSecurityPolicyAttributeList +type DOMDOMSecurityPolicyAttributeList = ('[ '("allows-eval", DOMDOMSecurityPolicyAllowsEvalPropertyInfo), '("allows-inline-script", DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo), '("allows-inline-style", DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("is-active", DOMDOMSecurityPolicyIsActivePropertyInfo), '("report-ur-is", DOMDOMSecurityPolicyReportUrIsPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMSecurityPolicy = DOMDOMSecurityPolicySignalList +type DOMDOMSecurityPolicySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMSecurityPolicy::allows_connection_to +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_connection_to" webkit_dom_dom_security_policy_allows_connection_to :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsConnectionTo :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsConnectionTo _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_connection_to _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_font_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_font_from" webkit_dom_dom_security_policy_allows_font_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsFontFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsFontFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_font_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_form_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_form_action" webkit_dom_dom_security_policy_allows_form_action :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsFormAction :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsFormAction _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_form_action _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_frame_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_frame_from" webkit_dom_dom_security_policy_allows_frame_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsFrameFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsFrameFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_frame_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_image_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_image_from" webkit_dom_dom_security_policy_allows_image_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsImageFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsImageFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_image_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_media_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_media_from" webkit_dom_dom_security_policy_allows_media_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsMediaFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsMediaFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_media_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_object_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_object_from" webkit_dom_dom_security_policy_allows_object_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsObjectFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsObjectFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_object_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_plugin_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_plugin_type" webkit_dom_dom_security_policy_allows_plugin_type :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- type : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsPluginType :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- type + m Bool +dOMDOMSecurityPolicyAllowsPluginType _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + type_' <- textToCString type_ + result <- webkit_dom_dom_security_policy_allows_plugin_type _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem type_' + return result' + +-- method DOMDOMSecurityPolicy::allows_script_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_script_from" webkit_dom_dom_security_policy_allows_script_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsScriptFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsScriptFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_script_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::allows_style_from +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_allows_style_from" webkit_dom_dom_security_policy_allows_style_from :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + CString -> -- url : TBasicType TUTF8 + IO CInt + + +dOMDOMSecurityPolicyAllowsStyleFrom :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + T.Text -> -- url + m Bool +dOMDOMSecurityPolicyAllowsStyleFrom _obj url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + url' <- textToCString url + result <- webkit_dom_dom_security_policy_allows_style_from _obj' url' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem url' + return result' + +-- method DOMDOMSecurityPolicy::get_allows_eval +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_get_allows_eval" webkit_dom_dom_security_policy_get_allows_eval :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + IO CInt + + +dOMDOMSecurityPolicyGetAllowsEval :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + m Bool +dOMDOMSecurityPolicyGetAllowsEval _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_security_policy_get_allows_eval _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSecurityPolicy::get_allows_inline_script +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_get_allows_inline_script" webkit_dom_dom_security_policy_get_allows_inline_script :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + IO CInt + + +dOMDOMSecurityPolicyGetAllowsInlineScript :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + m Bool +dOMDOMSecurityPolicyGetAllowsInlineScript _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_security_policy_get_allows_inline_script _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSecurityPolicy::get_allows_inline_style +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_get_allows_inline_style" webkit_dom_dom_security_policy_get_allows_inline_style :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + IO CInt + + +dOMDOMSecurityPolicyGetAllowsInlineStyle :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + m Bool +dOMDOMSecurityPolicyGetAllowsInlineStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_security_policy_get_allows_inline_style _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSecurityPolicy::get_is_active +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_get_is_active" webkit_dom_dom_security_policy_get_is_active :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + IO CInt + + +dOMDOMSecurityPolicyGetIsActive :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + m Bool +dOMDOMSecurityPolicyGetIsActive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_security_policy_get_is_active _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSecurityPolicy::get_report_ur_is +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMStringList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_security_policy_get_report_ur_is" webkit_dom_dom_security_policy_get_report_ur_is :: + Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy" + IO (Ptr DOMDOMStringList) + + +dOMDOMSecurityPolicyGetReportUrIs :: + (MonadIO m, DOMDOMSecurityPolicyK a) => + a -> -- _obj + m DOMDOMStringList +dOMDOMSecurityPolicyGetReportUrIs _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_security_policy_get_report_ur_is _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_security_policy_get_report_ur_is" result + result' <- (wrapObject DOMDOMStringList) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMDOMSecurityPolicy where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMSecurityPolicy = DOMDOMSecurityPolicy (ForeignPtr DOMDOMSecurityPolicy) +instance GObject DOMDOMSecurityPolicy where +class GObject o => DOMDOMSecurityPolicyK o +instance (GObject o, IsDescendantOf DOMDOMSecurityPolicy o) => DOMDOMSecurityPolicyK o +data DOMDOMSecurityPolicyAllowsEvalPropertyInfo +data DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo +data DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo +data DOMDOMSecurityPolicyIsActivePropertyInfo +data DOMDOMSecurityPolicyReportUrIsPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMSelection.hs b/GI/WebKit/Objects/DOMDOMSelection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSelection.hs @@ -0,0 +1,1100 @@ + +{- | +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.WebKit.Objects.DOMDOMSelection + ( + +-- * Exported types + DOMDOMSelection(..) , + DOMDOMSelectionK , + toDOMDOMSelection , + noDOMDOMSelection , + + + -- * Methods +-- ** dOMDOMSelectionAddRange + dOMDOMSelectionAddRange , + + +-- ** dOMDOMSelectionCollapse + dOMDOMSelectionCollapse , + + +-- ** dOMDOMSelectionCollapseToEnd + dOMDOMSelectionCollapseToEnd , + + +-- ** dOMDOMSelectionCollapseToStart + dOMDOMSelectionCollapseToStart , + + +-- ** dOMDOMSelectionContainsNode + dOMDOMSelectionContainsNode , + + +-- ** dOMDOMSelectionDeleteFromDocument + dOMDOMSelectionDeleteFromDocument , + + +-- ** dOMDOMSelectionEmpty + dOMDOMSelectionEmpty , + + +-- ** dOMDOMSelectionExtend + dOMDOMSelectionExtend , + + +-- ** dOMDOMSelectionGetAnchorNode + dOMDOMSelectionGetAnchorNode , + + +-- ** dOMDOMSelectionGetAnchorOffset + dOMDOMSelectionGetAnchorOffset , + + +-- ** dOMDOMSelectionGetBaseNode + dOMDOMSelectionGetBaseNode , + + +-- ** dOMDOMSelectionGetBaseOffset + dOMDOMSelectionGetBaseOffset , + + +-- ** dOMDOMSelectionGetExtentNode + dOMDOMSelectionGetExtentNode , + + +-- ** dOMDOMSelectionGetExtentOffset + dOMDOMSelectionGetExtentOffset , + + +-- ** dOMDOMSelectionGetFocusNode + dOMDOMSelectionGetFocusNode , + + +-- ** dOMDOMSelectionGetFocusOffset + dOMDOMSelectionGetFocusOffset , + + +-- ** dOMDOMSelectionGetIsCollapsed + dOMDOMSelectionGetIsCollapsed , + + +-- ** dOMDOMSelectionGetRangeAt + dOMDOMSelectionGetRangeAt , + + +-- ** dOMDOMSelectionGetRangeCount + dOMDOMSelectionGetRangeCount , + + +-- ** dOMDOMSelectionModify + dOMDOMSelectionModify , + + +-- ** dOMDOMSelectionRemoveAllRanges + dOMDOMSelectionRemoveAllRanges , + + +-- ** dOMDOMSelectionSelectAllChildren + dOMDOMSelectionSelectAllChildren , + + +-- ** dOMDOMSelectionSetBaseAndExtent + dOMDOMSelectionSetBaseAndExtent , + + +-- ** dOMDOMSelectionSetPosition + dOMDOMSelectionSetPosition , + + + + + -- * Properties +-- ** AnchorNode + DOMDOMSelectionAnchorNodePropertyInfo , + getDOMDOMSelectionAnchorNode , + + +-- ** AnchorOffset + DOMDOMSelectionAnchorOffsetPropertyInfo , + getDOMDOMSelectionAnchorOffset , + + +-- ** BaseNode + DOMDOMSelectionBaseNodePropertyInfo , + getDOMDOMSelectionBaseNode , + + +-- ** BaseOffset + DOMDOMSelectionBaseOffsetPropertyInfo , + getDOMDOMSelectionBaseOffset , + + +-- ** ExtentNode + DOMDOMSelectionExtentNodePropertyInfo , + getDOMDOMSelectionExtentNode , + + +-- ** ExtentOffset + DOMDOMSelectionExtentOffsetPropertyInfo , + getDOMDOMSelectionExtentOffset , + + +-- ** FocusNode + DOMDOMSelectionFocusNodePropertyInfo , + getDOMDOMSelectionFocusNode , + + +-- ** FocusOffset + DOMDOMSelectionFocusOffsetPropertyInfo , + getDOMDOMSelectionFocusOffset , + + +-- ** IsCollapsed + DOMDOMSelectionIsCollapsedPropertyInfo , + getDOMDOMSelectionIsCollapsed , + + +-- ** RangeCount + DOMDOMSelectionRangeCountPropertyInfo , + getDOMDOMSelectionRangeCount , + + +-- ** Type + DOMDOMSelectionTypePropertyInfo , + getDOMDOMSelectionType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMSelection = DOMDOMSelection (ForeignPtr DOMDOMSelection) +foreign import ccall "webkit_dom_dom_selection_get_type" + c_webkit_dom_dom_selection_get_type :: IO GType + +type instance ParentTypes DOMDOMSelection = DOMDOMSelectionParentTypes +type DOMDOMSelectionParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMSelection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_selection_get_type + + +class GObject o => DOMDOMSelectionK o +instance (GObject o, IsDescendantOf DOMDOMSelection o) => DOMDOMSelectionK o + +toDOMDOMSelection :: DOMDOMSelectionK o => o -> IO DOMDOMSelection +toDOMDOMSelection = unsafeCastTo DOMDOMSelection + +noDOMDOMSelection :: Maybe DOMDOMSelection +noDOMDOMSelection = Nothing + +-- VVV Prop "anchor-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionAnchorNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionAnchorNode obj = liftIO $ getObjectPropertyObject obj "anchor-node" DOMNode + +data DOMDOMSelectionAnchorNodePropertyInfo +instance AttrInfo DOMDOMSelectionAnchorNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionAnchorNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionAnchorNodePropertyInfo = "DOMDOMSelection::anchor-node" + attrGet _ = getDOMDOMSelectionAnchorNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "anchor-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionAnchorOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionAnchorOffset obj = liftIO $ getObjectPropertyInt64 obj "anchor-offset" + +data DOMDOMSelectionAnchorOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionAnchorOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionAnchorOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionAnchorOffsetPropertyInfo = "DOMDOMSelection::anchor-offset" + attrGet _ = getDOMDOMSelectionAnchorOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "base-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionBaseNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionBaseNode obj = liftIO $ getObjectPropertyObject obj "base-node" DOMNode + +data DOMDOMSelectionBaseNodePropertyInfo +instance AttrInfo DOMDOMSelectionBaseNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionBaseNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionBaseNodePropertyInfo = "DOMDOMSelection::base-node" + attrGet _ = getDOMDOMSelectionBaseNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "base-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionBaseOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionBaseOffset obj = liftIO $ getObjectPropertyInt64 obj "base-offset" + +data DOMDOMSelectionBaseOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionBaseOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionBaseOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionBaseOffsetPropertyInfo = "DOMDOMSelection::base-offset" + attrGet _ = getDOMDOMSelectionBaseOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "extent-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionExtentNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionExtentNode obj = liftIO $ getObjectPropertyObject obj "extent-node" DOMNode + +data DOMDOMSelectionExtentNodePropertyInfo +instance AttrInfo DOMDOMSelectionExtentNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionExtentNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionExtentNodePropertyInfo = "DOMDOMSelection::extent-node" + attrGet _ = getDOMDOMSelectionExtentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "extent-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionExtentOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionExtentOffset obj = liftIO $ getObjectPropertyInt64 obj "extent-offset" + +data DOMDOMSelectionExtentOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionExtentOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionExtentOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionExtentOffsetPropertyInfo = "DOMDOMSelection::extent-offset" + attrGet _ = getDOMDOMSelectionExtentOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "focus-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionFocusNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionFocusNode obj = liftIO $ getObjectPropertyObject obj "focus-node" DOMNode + +data DOMDOMSelectionFocusNodePropertyInfo +instance AttrInfo DOMDOMSelectionFocusNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionFocusNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionFocusNodePropertyInfo = "DOMDOMSelection::focus-node" + attrGet _ = getDOMDOMSelectionFocusNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "focus-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionFocusOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionFocusOffset obj = liftIO $ getObjectPropertyInt64 obj "focus-offset" + +data DOMDOMSelectionFocusOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionFocusOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionFocusOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionFocusOffsetPropertyInfo = "DOMDOMSelection::focus-offset" + attrGet _ = getDOMDOMSelectionFocusOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-collapsed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSelectionIsCollapsed :: (MonadIO m, DOMDOMSelectionK o) => o -> m Bool +getDOMDOMSelectionIsCollapsed obj = liftIO $ getObjectPropertyBool obj "is-collapsed" + +data DOMDOMSelectionIsCollapsedPropertyInfo +instance AttrInfo DOMDOMSelectionIsCollapsedPropertyInfo where + type AttrAllowedOps DOMDOMSelectionIsCollapsedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionIsCollapsedPropertyInfo = Bool + type AttrLabel DOMDOMSelectionIsCollapsedPropertyInfo = "DOMDOMSelection::is-collapsed" + attrGet _ = getDOMDOMSelectionIsCollapsed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-count" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionRangeCount :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionRangeCount obj = liftIO $ getObjectPropertyInt64 obj "range-count" + +data DOMDOMSelectionRangeCountPropertyInfo +instance AttrInfo DOMDOMSelectionRangeCountPropertyInfo where + type AttrAllowedOps DOMDOMSelectionRangeCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionRangeCountPropertyInfo = "DOMDOMSelection::range-count" + attrGet _ = getDOMDOMSelectionRangeCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionType :: (MonadIO m, DOMDOMSelectionK o) => o -> m T.Text +getDOMDOMSelectionType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMDOMSelectionTypePropertyInfo +instance AttrInfo DOMDOMSelectionTypePropertyInfo where + type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionTypePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionTypePropertyInfo = T.Text + type AttrLabel DOMDOMSelectionTypePropertyInfo = "DOMDOMSelection::type" + attrGet _ = getDOMDOMSelectionType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMSelection = DOMDOMSelectionAttributeList +type DOMDOMSelectionAttributeList = ('[ '("anchor-node", DOMDOMSelectionAnchorNodePropertyInfo), '("anchor-offset", DOMDOMSelectionAnchorOffsetPropertyInfo), '("base-node", DOMDOMSelectionBaseNodePropertyInfo), '("base-offset", DOMDOMSelectionBaseOffsetPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("extent-node", DOMDOMSelectionExtentNodePropertyInfo), '("extent-offset", DOMDOMSelectionExtentOffsetPropertyInfo), '("focus-node", DOMDOMSelectionFocusNodePropertyInfo), '("focus-offset", DOMDOMSelectionFocusOffsetPropertyInfo), '("is-collapsed", DOMDOMSelectionIsCollapsedPropertyInfo), '("range-count", DOMDOMSelectionRangeCountPropertyInfo), '("type", DOMDOMSelectionTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMSelection = DOMDOMSelectionSignalList +type DOMDOMSelectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMSelection::add_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_add_range" webkit_dom_dom_selection_add_range :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMRange -> -- range : TInterface "WebKit" "DOMRange" + IO () + + +dOMDOMSelectionAddRange :: + (MonadIO m, DOMDOMSelectionK a, DOMRangeK b) => + a -> -- _obj + b -> -- range + m () +dOMDOMSelectionAddRange _obj range = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let range' = unsafeManagedPtrCastPtr range + webkit_dom_dom_selection_add_range _obj' range' + touchManagedPtr _obj + touchManagedPtr range + return () + +-- method DOMDOMSelection::collapse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_collapse" webkit_dom_dom_selection_collapse :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionCollapse :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + Int64 -> -- index + m () +dOMDOMSelectionCollapse _obj node index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + propagateGError $ webkit_dom_dom_selection_collapse _obj' node' index + touchManagedPtr _obj + touchManagedPtr node + return () + ) (do + return () + ) + +-- method DOMDOMSelection::collapse_to_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_collapse_to_end" webkit_dom_dom_selection_collapse_to_end :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionCollapseToEnd :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m () +dOMDOMSelectionCollapseToEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_dom_selection_collapse_to_end _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMDOMSelection::collapse_to_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_collapse_to_start" webkit_dom_dom_selection_collapse_to_start :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionCollapseToStart :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m () +dOMDOMSelectionCollapseToStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_dom_selection_collapse_to_start _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMDOMSelection::contains_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowPartial", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowPartial", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_contains_node" webkit_dom_dom_selection_contains_node :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + CInt -> -- allowPartial : TBasicType TBoolean + IO CInt + + +dOMDOMSelectionContainsNode :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + Bool -> -- allowPartial + m Bool +dOMDOMSelectionContainsNode _obj node allowPartial = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + let allowPartial' = (fromIntegral . fromEnum) allowPartial + result <- webkit_dom_dom_selection_contains_node _obj' node' allowPartial' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr node + return result' + +-- method DOMDOMSelection::delete_from_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_delete_from_document" webkit_dom_dom_selection_delete_from_document :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO () + + +dOMDOMSelectionDeleteFromDocument :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m () +dOMDOMSelectionDeleteFromDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_selection_delete_from_document _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMSelection::empty +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_empty" webkit_dom_dom_selection_empty :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO () + + +dOMDOMSelectionEmpty :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m () +dOMDOMSelectionEmpty _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_selection_empty _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMSelection::extend +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_extend" webkit_dom_dom_selection_extend :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionExtend :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + Int64 -> -- offset + m () +dOMDOMSelectionExtend _obj node offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + propagateGError $ webkit_dom_dom_selection_extend _obj' node' offset + touchManagedPtr _obj + touchManagedPtr node + return () + ) (do + return () + ) + +-- method DOMDOMSelection::get_anchor_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_anchor_node" webkit_dom_dom_selection_get_anchor_node :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO (Ptr DOMNode) + + +dOMDOMSelectionGetAnchorNode :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m DOMNode +dOMDOMSelectionGetAnchorNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_anchor_node _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_selection_get_anchor_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSelection::get_anchor_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_anchor_offset" webkit_dom_dom_selection_get_anchor_offset :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO Int64 + + +dOMDOMSelectionGetAnchorOffset :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Int64 +dOMDOMSelectionGetAnchorOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_anchor_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMSelection::get_base_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_base_node" webkit_dom_dom_selection_get_base_node :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO (Ptr DOMNode) + + +dOMDOMSelectionGetBaseNode :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m DOMNode +dOMDOMSelectionGetBaseNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_base_node _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_selection_get_base_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSelection::get_base_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_base_offset" webkit_dom_dom_selection_get_base_offset :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO Int64 + + +dOMDOMSelectionGetBaseOffset :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Int64 +dOMDOMSelectionGetBaseOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_base_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMSelection::get_extent_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_extent_node" webkit_dom_dom_selection_get_extent_node :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO (Ptr DOMNode) + + +dOMDOMSelectionGetExtentNode :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m DOMNode +dOMDOMSelectionGetExtentNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_extent_node _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_selection_get_extent_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSelection::get_extent_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_extent_offset" webkit_dom_dom_selection_get_extent_offset :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO Int64 + + +dOMDOMSelectionGetExtentOffset :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Int64 +dOMDOMSelectionGetExtentOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_extent_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMSelection::get_focus_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_focus_node" webkit_dom_dom_selection_get_focus_node :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO (Ptr DOMNode) + + +dOMDOMSelectionGetFocusNode :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m DOMNode +dOMDOMSelectionGetFocusNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_focus_node _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_selection_get_focus_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSelection::get_focus_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_focus_offset" webkit_dom_dom_selection_get_focus_offset :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO Int64 + + +dOMDOMSelectionGetFocusOffset :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Int64 +dOMDOMSelectionGetFocusOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_focus_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMSelection::get_is_collapsed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_is_collapsed" webkit_dom_dom_selection_get_is_collapsed :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO CInt + + +dOMDOMSelectionGetIsCollapsed :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Bool +dOMDOMSelectionGetIsCollapsed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_is_collapsed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMSelection::get_range_at +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMRange" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_range_at" webkit_dom_dom_selection_get_range_at :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMRange) + + +dOMDOMSelectionGetRangeAt :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + Int64 -> -- index + m DOMRange +dOMDOMSelectionGetRangeAt _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_dom_selection_get_range_at _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_selection_get_range_at" result + result' <- (wrapObject DOMRange) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMDOMSelection::get_range_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_get_range_count" webkit_dom_dom_selection_get_range_count :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO Int64 + + +dOMDOMSelectionGetRangeCount :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m Int64 +dOMDOMSelectionGetRangeCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_selection_get_range_count _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMSelection::modify +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alter", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alter", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_modify" webkit_dom_dom_selection_modify :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + CString -> -- alter : TBasicType TUTF8 + CString -> -- direction : TBasicType TUTF8 + CString -> -- granularity : TBasicType TUTF8 + IO () + + +dOMDOMSelectionModify :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + T.Text -> -- alter + T.Text -> -- direction + T.Text -> -- granularity + m () +dOMDOMSelectionModify _obj alter direction granularity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + alter' <- textToCString alter + direction' <- textToCString direction + granularity' <- textToCString granularity + webkit_dom_dom_selection_modify _obj' alter' direction' granularity' + touchManagedPtr _obj + freeMem alter' + freeMem direction' + freeMem granularity' + return () + +-- method DOMDOMSelection::remove_all_ranges +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_remove_all_ranges" webkit_dom_dom_selection_remove_all_ranges :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + IO () + + +dOMDOMSelectionRemoveAllRanges :: + (MonadIO m, DOMDOMSelectionK a) => + a -> -- _obj + m () +dOMDOMSelectionRemoveAllRanges _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_selection_remove_all_ranges _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMSelection::select_all_children +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_select_all_children" webkit_dom_dom_selection_select_all_children :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionSelectAllChildren :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + m () +dOMDOMSelectionSelectAllChildren _obj node = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + propagateGError $ webkit_dom_dom_selection_select_all_children _obj' node' + touchManagedPtr _obj + touchManagedPtr node + return () + ) (do + return () + ) + +-- method DOMDOMSelection::set_base_and_extent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_set_base_and_extent" webkit_dom_dom_selection_set_base_and_extent :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- baseNode : TInterface "WebKit" "DOMNode" + Int64 -> -- baseOffset : TBasicType TInt64 + Ptr DOMNode -> -- extentNode : TInterface "WebKit" "DOMNode" + Int64 -> -- extentOffset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionSetBaseAndExtent :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b, DOMNodeK c) => + a -> -- _obj + b -> -- baseNode + Int64 -> -- baseOffset + c -> -- extentNode + Int64 -> -- extentOffset + m () +dOMDOMSelectionSetBaseAndExtent _obj baseNode baseOffset extentNode extentOffset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let baseNode' = unsafeManagedPtrCastPtr baseNode + let extentNode' = unsafeManagedPtrCastPtr extentNode + onException (do + propagateGError $ webkit_dom_dom_selection_set_base_and_extent _obj' baseNode' baseOffset extentNode' extentOffset + touchManagedPtr _obj + touchManagedPtr baseNode + touchManagedPtr extentNode + return () + ) (do + return () + ) + +-- method DOMDOMSelection::set_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_selection_set_position" webkit_dom_dom_selection_set_position :: + Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMSelectionSetPosition :: + (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + Int64 -> -- offset + m () +dOMDOMSelectionSetPosition _obj node offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + propagateGError $ webkit_dom_dom_selection_set_position _obj' node' offset + touchManagedPtr _obj + touchManagedPtr node + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMDOMSelection.hs-boot b/GI/WebKit/Objects/DOMDOMSelection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSelection.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMDOMSelection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMSelection = DOMDOMSelection (ForeignPtr DOMDOMSelection) +instance GObject DOMDOMSelection where +class GObject o => DOMDOMSelectionK o +instance (GObject o, IsDescendantOf DOMDOMSelection o) => DOMDOMSelectionK o +data DOMDOMSelectionAnchorNodePropertyInfo +data DOMDOMSelectionAnchorOffsetPropertyInfo +data DOMDOMSelectionBaseNodePropertyInfo +data DOMDOMSelectionBaseOffsetPropertyInfo +data DOMDOMSelectionExtentNodePropertyInfo +data DOMDOMSelectionExtentOffsetPropertyInfo +data DOMDOMSelectionFocusNodePropertyInfo +data DOMDOMSelectionFocusOffsetPropertyInfo +data DOMDOMSelectionIsCollapsedPropertyInfo +data DOMDOMSelectionRangeCountPropertyInfo +data DOMDOMSelectionTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMSettableTokenList + ( + +-- * Exported types + DOMDOMSettableTokenList(..) , + DOMDOMSettableTokenListK , + toDOMDOMSettableTokenList , + noDOMDOMSettableTokenList , + + + -- * Methods +-- ** dOMDOMSettableTokenListGetValue + dOMDOMSettableTokenListGetValue , + + +-- ** dOMDOMSettableTokenListSetValue + dOMDOMSettableTokenListSetValue , + + + + + -- * Properties +-- ** Value + DOMDOMSettableTokenListValuePropertyInfo, + constructDOMDOMSettableTokenListValue , + getDOMDOMSettableTokenListValue , + setDOMDOMSettableTokenListValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMSettableTokenList = DOMDOMSettableTokenList (ForeignPtr DOMDOMSettableTokenList) +foreign import ccall "webkit_dom_dom_settable_token_list_get_type" + c_webkit_dom_dom_settable_token_list_get_type :: IO GType + +type instance ParentTypes DOMDOMSettableTokenList = DOMDOMSettableTokenListParentTypes +type DOMDOMSettableTokenListParentTypes = '[DOMDOMTokenList, DOMObject, GObject.Object] + +instance GObject DOMDOMSettableTokenList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_settable_token_list_get_type + + +class GObject o => DOMDOMSettableTokenListK o +instance (GObject o, IsDescendantOf DOMDOMSettableTokenList o) => DOMDOMSettableTokenListK o + +toDOMDOMSettableTokenList :: DOMDOMSettableTokenListK o => o -> IO DOMDOMSettableTokenList +toDOMDOMSettableTokenList = unsafeCastTo DOMDOMSettableTokenList + +noDOMDOMSettableTokenList :: Maybe DOMDOMSettableTokenList +noDOMDOMSettableTokenList = Nothing + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> m T.Text +getDOMDOMSettableTokenListValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> T.Text -> m () +setDOMDOMSettableTokenListValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMDOMSettableTokenListValue :: T.Text -> IO ([Char], GValue) +constructDOMDOMSettableTokenListValue val = constructObjectPropertyString "value" val + +data DOMDOMSettableTokenListValuePropertyInfo +instance AttrInfo DOMDOMSettableTokenListValuePropertyInfo where + type AttrAllowedOps DOMDOMSettableTokenListValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = DOMDOMSettableTokenListK + type AttrGetType DOMDOMSettableTokenListValuePropertyInfo = T.Text + type AttrLabel DOMDOMSettableTokenListValuePropertyInfo = "DOMDOMSettableTokenList::value" + attrGet _ = getDOMDOMSettableTokenListValue + attrSet _ = setDOMDOMSettableTokenListValue + attrConstruct _ = constructDOMDOMSettableTokenListValue + +type instance AttributeList DOMDOMSettableTokenList = DOMDOMSettableTokenListAttributeList +type DOMDOMSettableTokenListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo), '("value", DOMDOMSettableTokenListValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMSettableTokenList = DOMDOMSettableTokenListSignalList +type DOMDOMSettableTokenListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMSettableTokenList::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_settable_token_list_get_value" webkit_dom_dom_settable_token_list_get_value :: + Ptr DOMDOMSettableTokenList -> -- _obj : TInterface "WebKit" "DOMDOMSettableTokenList" + IO CString + + +dOMDOMSettableTokenListGetValue :: + (MonadIO m, DOMDOMSettableTokenListK a) => + a -> -- _obj + m T.Text +dOMDOMSettableTokenListGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_settable_token_list_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_settable_token_list_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMSettableTokenList::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_settable_token_list_set_value" webkit_dom_dom_settable_token_list_set_value :: + Ptr DOMDOMSettableTokenList -> -- _obj : TInterface "WebKit" "DOMDOMSettableTokenList" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDOMSettableTokenListSetValue :: + (MonadIO m, DOMDOMSettableTokenListK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDOMSettableTokenListSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_dom_settable_token_list_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMSettableTokenList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMSettableTokenList = DOMDOMSettableTokenList (ForeignPtr DOMDOMSettableTokenList) +instance GObject DOMDOMSettableTokenList where +class GObject o => DOMDOMSettableTokenListK o +instance (GObject o, IsDescendantOf DOMDOMSettableTokenList o) => DOMDOMSettableTokenListK o +data DOMDOMSettableTokenListValuePropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMStringList.hs b/GI/WebKit/Objects/DOMDOMStringList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMStringList.hs @@ -0,0 +1,181 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMStringList + ( + +-- * Exported types + DOMDOMStringList(..) , + DOMDOMStringListK , + toDOMDOMStringList , + noDOMDOMStringList , + + + -- * Methods +-- ** dOMDOMStringListContains + dOMDOMStringListContains , + + +-- ** dOMDOMStringListGetLength + dOMDOMStringListGetLength , + + +-- ** dOMDOMStringListItem + dOMDOMStringListItem , + + + + + -- * Properties +-- ** Length + DOMDOMStringListLengthPropertyInfo , + getDOMDOMStringListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMStringList = DOMDOMStringList (ForeignPtr DOMDOMStringList) +foreign import ccall "webkit_dom_dom_string_list_get_type" + c_webkit_dom_dom_string_list_get_type :: IO GType + +type instance ParentTypes DOMDOMStringList = DOMDOMStringListParentTypes +type DOMDOMStringListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMStringList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_string_list_get_type + + +class GObject o => DOMDOMStringListK o +instance (GObject o, IsDescendantOf DOMDOMStringList o) => DOMDOMStringListK o + +toDOMDOMStringList :: DOMDOMStringListK o => o -> IO DOMDOMStringList +toDOMDOMStringList = unsafeCastTo DOMDOMStringList + +noDOMDOMStringList :: Maybe DOMDOMStringList +noDOMDOMStringList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m Word64 +getDOMDOMStringListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMStringListLengthPropertyInfo +instance AttrInfo DOMDOMStringListLengthPropertyInfo where + type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = DOMDOMStringListK + type AttrGetType DOMDOMStringListLengthPropertyInfo = Word64 + type AttrLabel DOMDOMStringListLengthPropertyInfo = "DOMDOMStringList::length" + attrGet _ = getDOMDOMStringListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMStringList = DOMDOMStringListAttributeList +type DOMDOMStringListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMStringList = DOMDOMStringListSignalList +type DOMDOMStringListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMStringList::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_string_list_contains" webkit_dom_dom_string_list_contains :: + Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList" + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dOMDOMStringListContains :: + (MonadIO m, DOMDOMStringListK a) => + a -> -- _obj + T.Text -> -- string + m Bool +dOMDOMStringListContains _obj string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + result <- webkit_dom_dom_string_list_contains _obj' string' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem string' + return result' + +-- method DOMDOMStringList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_string_list_get_length" webkit_dom_dom_string_list_get_length :: + Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList" + IO Word64 + + +dOMDOMStringListGetLength :: + (MonadIO m, DOMDOMStringListK a) => + a -> -- _obj + m Word64 +dOMDOMStringListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_string_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMStringList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_string_list_item" webkit_dom_dom_string_list_item :: + Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList" + Word64 -> -- index : TBasicType TUInt64 + IO CString + + +dOMDOMStringListItem :: + (MonadIO m, DOMDOMStringListK a) => + a -> -- _obj + Word64 -> -- index + m T.Text +dOMDOMStringListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_string_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_string_list_item" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMStringList.hs-boot b/GI/WebKit/Objects/DOMDOMStringList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMStringList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMStringList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMStringList = DOMDOMStringList (ForeignPtr DOMDOMStringList) +instance GObject DOMDOMStringList where +class GObject o => DOMDOMStringListK o +instance (GObject o, IsDescendantOf DOMDOMStringList o) => DOMDOMStringListK o +data DOMDOMStringListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMStringMap.hs b/GI/WebKit/Objects/DOMDOMStringMap.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMStringMap.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMStringMap + ( + +-- * Exported types + DOMDOMStringMap(..) , + DOMDOMStringMapK , + toDOMDOMStringMap , + noDOMDOMStringMap , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMStringMap = DOMDOMStringMap (ForeignPtr DOMDOMStringMap) +foreign import ccall "webkit_dom_dom_string_map_get_type" + c_webkit_dom_dom_string_map_get_type :: IO GType + +type instance ParentTypes DOMDOMStringMap = DOMDOMStringMapParentTypes +type DOMDOMStringMapParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMStringMap where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_string_map_get_type + + +class GObject o => DOMDOMStringMapK o +instance (GObject o, IsDescendantOf DOMDOMStringMap o) => DOMDOMStringMapK o + +toDOMDOMStringMap :: DOMDOMStringMapK o => o -> IO DOMDOMStringMap +toDOMDOMStringMap = unsafeCastTo DOMDOMStringMap + +noDOMDOMStringMap :: Maybe DOMDOMStringMap +noDOMDOMStringMap = Nothing + +type instance AttributeList DOMDOMStringMap = DOMDOMStringMapAttributeList +type DOMDOMStringMapAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMStringMap = DOMDOMStringMapSignalList +type DOMDOMStringMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMDOMStringMap.hs-boot b/GI/WebKit/Objects/DOMDOMStringMap.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMStringMap.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMDOMStringMap where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMStringMap = DOMDOMStringMap (ForeignPtr DOMDOMStringMap) +instance GObject DOMDOMStringMap where +class GObject o => DOMDOMStringMapK o +instance (GObject o, IsDescendantOf DOMDOMStringMap o) => DOMDOMStringMapK o diff --git a/GI/WebKit/Objects/DOMDOMTokenList.hs b/GI/WebKit/Objects/DOMDOMTokenList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMTokenList.hs @@ -0,0 +1,299 @@ + +{- | +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.WebKit.Objects.DOMDOMTokenList + ( + +-- * Exported types + DOMDOMTokenList(..) , + DOMDOMTokenListK , + toDOMDOMTokenList , + noDOMDOMTokenList , + + + -- * Methods +-- ** dOMDOMTokenListAdd + dOMDOMTokenListAdd , + + +-- ** dOMDOMTokenListContains + dOMDOMTokenListContains , + + +-- ** dOMDOMTokenListGetLength + dOMDOMTokenListGetLength , + + +-- ** dOMDOMTokenListItem + dOMDOMTokenListItem , + + +-- ** dOMDOMTokenListRemove + dOMDOMTokenListRemove , + + +-- ** dOMDOMTokenListToggle + dOMDOMTokenListToggle , + + + + + -- * Properties +-- ** Length + DOMDOMTokenListLengthPropertyInfo , + getDOMDOMTokenListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMTokenList = DOMDOMTokenList (ForeignPtr DOMDOMTokenList) +foreign import ccall "webkit_dom_dom_token_list_get_type" + c_webkit_dom_dom_token_list_get_type :: IO GType + +type instance ParentTypes DOMDOMTokenList = DOMDOMTokenListParentTypes +type DOMDOMTokenListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMTokenList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_token_list_get_type + + +class GObject o => DOMDOMTokenListK o +instance (GObject o, IsDescendantOf DOMDOMTokenList o) => DOMDOMTokenListK o + +toDOMDOMTokenList :: DOMDOMTokenListK o => o -> IO DOMDOMTokenList +toDOMDOMTokenList = unsafeCastTo DOMDOMTokenList + +noDOMDOMTokenList :: Maybe DOMDOMTokenList +noDOMDOMTokenList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMTokenListLength :: (MonadIO m, DOMDOMTokenListK o) => o -> m Word64 +getDOMDOMTokenListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMTokenListLengthPropertyInfo +instance AttrInfo DOMDOMTokenListLengthPropertyInfo where + type AttrAllowedOps DOMDOMTokenListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMTokenListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMTokenListLengthPropertyInfo = DOMDOMTokenListK + type AttrGetType DOMDOMTokenListLengthPropertyInfo = Word64 + type AttrLabel DOMDOMTokenListLengthPropertyInfo = "DOMDOMTokenList::length" + attrGet _ = getDOMDOMTokenListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMTokenList = DOMDOMTokenListAttributeList +type DOMDOMTokenListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMTokenList = DOMDOMTokenListSignalList +type DOMDOMTokenListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMTokenList::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_add" webkit_dom_dom_token_list_add :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + CString -> -- tokens : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMTokenListAdd :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + T.Text -> -- tokens + m () +dOMDOMTokenListAdd _obj tokens = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tokens' <- textToCString tokens + onException (do + propagateGError $ webkit_dom_dom_token_list_add _obj' tokens' + touchManagedPtr _obj + freeMem tokens' + return () + ) (do + freeMem tokens' + ) + +-- method DOMDOMTokenList::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_contains" webkit_dom_dom_token_list_contains :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + CString -> -- token : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMDOMTokenListContains :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + T.Text -> -- token + m () +dOMDOMTokenListContains _obj token = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + token' <- textToCString token + onException (do + _ <- propagateGError $ webkit_dom_dom_token_list_contains _obj' token' + touchManagedPtr _obj + freeMem token' + return () + ) (do + freeMem token' + ) + +-- method DOMDOMTokenList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_get_length" webkit_dom_dom_token_list_get_length :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + IO Word64 + + +dOMDOMTokenListGetLength :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + m Word64 +dOMDOMTokenListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_token_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMTokenList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_item" webkit_dom_dom_token_list_item :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + Word64 -> -- index : TBasicType TUInt64 + IO CString + + +dOMDOMTokenListItem :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + Word64 -> -- index + m T.Text +dOMDOMTokenListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_token_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_dom_token_list_item" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMTokenList::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_remove" webkit_dom_dom_token_list_remove :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + CString -> -- tokens : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDOMTokenListRemove :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + T.Text -> -- tokens + m () +dOMDOMTokenListRemove _obj tokens = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tokens' <- textToCString tokens + onException (do + propagateGError $ webkit_dom_dom_token_list_remove _obj' tokens' + touchManagedPtr _obj + freeMem tokens' + return () + ) (do + freeMem tokens' + ) + +-- method DOMDOMTokenList::toggle +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_token_list_toggle" webkit_dom_dom_token_list_toggle :: + Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" + CString -> -- token : TBasicType TUTF8 + CInt -> -- force : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMDOMTokenListToggle :: + (MonadIO m, DOMDOMTokenListK a) => + a -> -- _obj + T.Text -> -- token + Bool -> -- force + m () +dOMDOMTokenListToggle _obj token force = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + token' <- textToCString token + let force' = (fromIntegral . fromEnum) force + onException (do + _ <- propagateGError $ webkit_dom_dom_token_list_toggle _obj' token' force' + touchManagedPtr _obj + freeMem token' + return () + ) (do + freeMem token' + ) + + diff --git a/GI/WebKit/Objects/DOMDOMTokenList.hs-boot b/GI/WebKit/Objects/DOMDOMTokenList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMTokenList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDOMTokenList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMTokenList = DOMDOMTokenList (ForeignPtr DOMDOMTokenList) +instance GObject DOMDOMTokenList where +class GObject o => DOMDOMTokenListK o +instance (GObject o, IsDescendantOf DOMDOMTokenList o) => DOMDOMTokenListK o +data DOMDOMTokenListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMWindow.hs b/GI/WebKit/Objects/DOMDOMWindow.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMWindow.hs @@ -0,0 +1,3585 @@ + +{- | +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.WebKit.Objects.DOMDOMWindow + ( + +-- * Exported types + DOMDOMWindow(..) , + DOMDOMWindowK , + toDOMDOMWindow , + noDOMDOMWindow , + + + -- * Methods +-- ** dOMDOMWindowAlert + dOMDOMWindowAlert , + + +-- ** dOMDOMWindowAtob + dOMDOMWindowAtob , + + +-- ** dOMDOMWindowBlur + dOMDOMWindowBlur , + + +-- ** dOMDOMWindowBtoa + dOMDOMWindowBtoa , + + +-- ** dOMDOMWindowCancelAnimationFrame + dOMDOMWindowCancelAnimationFrame , + + +-- ** dOMDOMWindowCaptureEvents + dOMDOMWindowCaptureEvents , + + +-- ** dOMDOMWindowClearInterval + dOMDOMWindowClearInterval , + + +-- ** dOMDOMWindowClearTimeout + dOMDOMWindowClearTimeout , + + +-- ** dOMDOMWindowClose + dOMDOMWindowClose , + + +-- ** dOMDOMWindowConfirm + dOMDOMWindowConfirm , + + +-- ** dOMDOMWindowDispatchEvent + dOMDOMWindowDispatchEvent , + + +-- ** dOMDOMWindowFind + dOMDOMWindowFind , + + +-- ** dOMDOMWindowFocus + dOMDOMWindowFocus , + + +-- ** dOMDOMWindowGetApplicationCache + dOMDOMWindowGetApplicationCache , + + +-- ** dOMDOMWindowGetClientInformation + dOMDOMWindowGetClientInformation , + + +-- ** dOMDOMWindowGetClosed + dOMDOMWindowGetClosed , + + +-- ** dOMDOMWindowGetComputedStyle + dOMDOMWindowGetComputedStyle , + + +-- ** dOMDOMWindowGetConsole + dOMDOMWindowGetConsole , + + +-- ** dOMDOMWindowGetCss + dOMDOMWindowGetCss , + + +-- ** dOMDOMWindowGetDefaultStatus + dOMDOMWindowGetDefaultStatus , + + +-- ** dOMDOMWindowGetDevicePixelRatio + dOMDOMWindowGetDevicePixelRatio , + + +-- ** dOMDOMWindowGetDocument + dOMDOMWindowGetDocument , + + +-- ** dOMDOMWindowGetFrameElement + dOMDOMWindowGetFrameElement , + + +-- ** dOMDOMWindowGetFrames + dOMDOMWindowGetFrames , + + +-- ** dOMDOMWindowGetHistory + dOMDOMWindowGetHistory , + + +-- ** dOMDOMWindowGetInnerHeight + dOMDOMWindowGetInnerHeight , + + +-- ** dOMDOMWindowGetInnerWidth + dOMDOMWindowGetInnerWidth , + + +-- ** dOMDOMWindowGetLength + dOMDOMWindowGetLength , + + +-- ** dOMDOMWindowGetLocalStorage + dOMDOMWindowGetLocalStorage , + + +-- ** dOMDOMWindowGetLocationbar + dOMDOMWindowGetLocationbar , + + +-- ** dOMDOMWindowGetMenubar + dOMDOMWindowGetMenubar , + + +-- ** dOMDOMWindowGetName + dOMDOMWindowGetName , + + +-- ** dOMDOMWindowGetNavigator + dOMDOMWindowGetNavigator , + + +-- ** dOMDOMWindowGetOffscreenBuffering + dOMDOMWindowGetOffscreenBuffering , + + +-- ** dOMDOMWindowGetOpener + dOMDOMWindowGetOpener , + + +-- ** dOMDOMWindowGetOuterHeight + dOMDOMWindowGetOuterHeight , + + +-- ** dOMDOMWindowGetOuterWidth + dOMDOMWindowGetOuterWidth , + + +-- ** dOMDOMWindowGetPageXOffset + dOMDOMWindowGetPageXOffset , + + +-- ** dOMDOMWindowGetPageYOffset + dOMDOMWindowGetPageYOffset , + + +-- ** dOMDOMWindowGetParent + dOMDOMWindowGetParent , + + +-- ** dOMDOMWindowGetPerformance + dOMDOMWindowGetPerformance , + + +-- ** dOMDOMWindowGetPersonalbar + dOMDOMWindowGetPersonalbar , + + +-- ** dOMDOMWindowGetScreen + dOMDOMWindowGetScreen , + + +-- ** dOMDOMWindowGetScreenLeft + dOMDOMWindowGetScreenLeft , + + +-- ** dOMDOMWindowGetScreenTop + dOMDOMWindowGetScreenTop , + + +-- ** dOMDOMWindowGetScreenX + dOMDOMWindowGetScreenX , + + +-- ** dOMDOMWindowGetScreenY + dOMDOMWindowGetScreenY , + + +-- ** dOMDOMWindowGetScrollX + dOMDOMWindowGetScrollX , + + +-- ** dOMDOMWindowGetScrollY + dOMDOMWindowGetScrollY , + + +-- ** dOMDOMWindowGetScrollbars + dOMDOMWindowGetScrollbars , + + +-- ** dOMDOMWindowGetSelection + dOMDOMWindowGetSelection , + + +-- ** dOMDOMWindowGetSelf + dOMDOMWindowGetSelf , + + +-- ** dOMDOMWindowGetSessionStorage + dOMDOMWindowGetSessionStorage , + + +-- ** dOMDOMWindowGetStatus + dOMDOMWindowGetStatus , + + +-- ** dOMDOMWindowGetStatusbar + dOMDOMWindowGetStatusbar , + + +-- ** dOMDOMWindowGetStyleMedia + dOMDOMWindowGetStyleMedia , + + +-- ** dOMDOMWindowGetToolbar + dOMDOMWindowGetToolbar , + + +-- ** dOMDOMWindowGetTop + dOMDOMWindowGetTop , + + +-- ** dOMDOMWindowGetWebkitStorageInfo + dOMDOMWindowGetWebkitStorageInfo , + + +-- ** dOMDOMWindowGetWindow + dOMDOMWindowGetWindow , + + +-- ** dOMDOMWindowMatchMedia + dOMDOMWindowMatchMedia , + + +-- ** dOMDOMWindowMoveBy + dOMDOMWindowMoveBy , + + +-- ** dOMDOMWindowMoveTo + dOMDOMWindowMoveTo , + + +-- ** dOMDOMWindowPrint + dOMDOMWindowPrint , + + +-- ** dOMDOMWindowPrompt + dOMDOMWindowPrompt , + + +-- ** dOMDOMWindowReleaseEvents + dOMDOMWindowReleaseEvents , + + +-- ** dOMDOMWindowResizeBy + dOMDOMWindowResizeBy , + + +-- ** dOMDOMWindowResizeTo + dOMDOMWindowResizeTo , + + +-- ** dOMDOMWindowScroll + dOMDOMWindowScroll , + + +-- ** dOMDOMWindowScrollBy + dOMDOMWindowScrollBy , + + +-- ** dOMDOMWindowScrollTo + dOMDOMWindowScrollTo , + + +-- ** dOMDOMWindowSetDefaultStatus + dOMDOMWindowSetDefaultStatus , + + +-- ** dOMDOMWindowSetName + dOMDOMWindowSetName , + + +-- ** dOMDOMWindowSetStatus + dOMDOMWindowSetStatus , + + +-- ** dOMDOMWindowStop + dOMDOMWindowStop , + + +-- ** dOMDOMWindowWebkitCancelAnimationFrame + dOMDOMWindowWebkitCancelAnimationFrame , + + +-- ** dOMDOMWindowWebkitCancelRequestAnimationFrame + dOMDOMWindowWebkitCancelRequestAnimationFrame, + + +-- ** dOMDOMWindowWebkitConvertPointFromNodeToPage + dOMDOMWindowWebkitConvertPointFromNodeToPage, + + +-- ** dOMDOMWindowWebkitConvertPointFromPageToNode + dOMDOMWindowWebkitConvertPointFromPageToNode, + + + + + -- * Properties +-- ** ApplicationCache + DOMDOMWindowApplicationCachePropertyInfo, + getDOMDOMWindowApplicationCache , + + +-- ** ClientInformation + DOMDOMWindowClientInformationPropertyInfo, + getDOMDOMWindowClientInformation , + + +-- ** Closed + DOMDOMWindowClosedPropertyInfo , + getDOMDOMWindowClosed , + + +-- ** Console + DOMDOMWindowConsolePropertyInfo , + getDOMDOMWindowConsole , + + +-- ** Css + DOMDOMWindowCssPropertyInfo , + getDOMDOMWindowCss , + + +-- ** DefaultStatus + DOMDOMWindowDefaultStatusPropertyInfo , + constructDOMDOMWindowDefaultStatus , + getDOMDOMWindowDefaultStatus , + setDOMDOMWindowDefaultStatus , + + +-- ** DevicePixelRatio + DOMDOMWindowDevicePixelRatioPropertyInfo, + getDOMDOMWindowDevicePixelRatio , + + +-- ** Document + DOMDOMWindowDocumentPropertyInfo , + getDOMDOMWindowDocument , + + +-- ** FrameElement + DOMDOMWindowFrameElementPropertyInfo , + getDOMDOMWindowFrameElement , + + +-- ** Frames + DOMDOMWindowFramesPropertyInfo , + getDOMDOMWindowFrames , + + +-- ** History + DOMDOMWindowHistoryPropertyInfo , + getDOMDOMWindowHistory , + + +-- ** InnerHeight + DOMDOMWindowInnerHeightPropertyInfo , + getDOMDOMWindowInnerHeight , + + +-- ** InnerWidth + DOMDOMWindowInnerWidthPropertyInfo , + getDOMDOMWindowInnerWidth , + + +-- ** Length + DOMDOMWindowLengthPropertyInfo , + getDOMDOMWindowLength , + + +-- ** LocalStorage + DOMDOMWindowLocalStoragePropertyInfo , + getDOMDOMWindowLocalStorage , + + +-- ** Locationbar + DOMDOMWindowLocationbarPropertyInfo , + getDOMDOMWindowLocationbar , + + +-- ** Menubar + DOMDOMWindowMenubarPropertyInfo , + getDOMDOMWindowMenubar , + + +-- ** Name + DOMDOMWindowNamePropertyInfo , + constructDOMDOMWindowName , + getDOMDOMWindowName , + setDOMDOMWindowName , + + +-- ** Navigator + DOMDOMWindowNavigatorPropertyInfo , + getDOMDOMWindowNavigator , + + +-- ** OffscreenBuffering + DOMDOMWindowOffscreenBufferingPropertyInfo, + getDOMDOMWindowOffscreenBuffering , + + +-- ** Opener + DOMDOMWindowOpenerPropertyInfo , + getDOMDOMWindowOpener , + + +-- ** OuterHeight + DOMDOMWindowOuterHeightPropertyInfo , + getDOMDOMWindowOuterHeight , + + +-- ** OuterWidth + DOMDOMWindowOuterWidthPropertyInfo , + getDOMDOMWindowOuterWidth , + + +-- ** PageXOffset + DOMDOMWindowPageXOffsetPropertyInfo , + getDOMDOMWindowPageXOffset , + + +-- ** PageYOffset + DOMDOMWindowPageYOffsetPropertyInfo , + getDOMDOMWindowPageYOffset , + + +-- ** Parent + DOMDOMWindowParentPropertyInfo , + getDOMDOMWindowParent , + + +-- ** Performance + DOMDOMWindowPerformancePropertyInfo , + getDOMDOMWindowPerformance , + + +-- ** Personalbar + DOMDOMWindowPersonalbarPropertyInfo , + getDOMDOMWindowPersonalbar , + + +-- ** Screen + DOMDOMWindowScreenPropertyInfo , + getDOMDOMWindowScreen , + + +-- ** ScreenLeft + DOMDOMWindowScreenLeftPropertyInfo , + getDOMDOMWindowScreenLeft , + + +-- ** ScreenTop + DOMDOMWindowScreenTopPropertyInfo , + getDOMDOMWindowScreenTop , + + +-- ** ScreenX + DOMDOMWindowScreenXPropertyInfo , + getDOMDOMWindowScreenX , + + +-- ** ScreenY + DOMDOMWindowScreenYPropertyInfo , + getDOMDOMWindowScreenY , + + +-- ** ScrollX + DOMDOMWindowScrollXPropertyInfo , + getDOMDOMWindowScrollX , + + +-- ** ScrollY + DOMDOMWindowScrollYPropertyInfo , + getDOMDOMWindowScrollY , + + +-- ** Scrollbars + DOMDOMWindowScrollbarsPropertyInfo , + getDOMDOMWindowScrollbars , + + +-- ** Self + DOMDOMWindowSelfPropertyInfo , + getDOMDOMWindowSelf , + + +-- ** SessionStorage + DOMDOMWindowSessionStoragePropertyInfo , + getDOMDOMWindowSessionStorage , + + +-- ** Status + DOMDOMWindowStatusPropertyInfo , + constructDOMDOMWindowStatus , + getDOMDOMWindowStatus , + setDOMDOMWindowStatus , + + +-- ** Statusbar + DOMDOMWindowStatusbarPropertyInfo , + getDOMDOMWindowStatusbar , + + +-- ** StyleMedia + DOMDOMWindowStyleMediaPropertyInfo , + getDOMDOMWindowStyleMedia , + + +-- ** Toolbar + DOMDOMWindowToolbarPropertyInfo , + getDOMDOMWindowToolbar , + + +-- ** Top + DOMDOMWindowTopPropertyInfo , + getDOMDOMWindowTop , + + +-- ** WebkitStorageInfo + DOMDOMWindowWebkitStorageInfoPropertyInfo, + getDOMDOMWindowWebkitStorageInfo , + + +-- ** Window + DOMDOMWindowWindowPropertyInfo , + getDOMDOMWindowWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow) +foreign import ccall "webkit_dom_dom_window_get_type" + c_webkit_dom_dom_window_get_type :: IO GType + +type instance ParentTypes DOMDOMWindow = DOMDOMWindowParentTypes +type DOMDOMWindowParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMDOMWindow where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_window_get_type + + +class GObject o => DOMDOMWindowK o +instance (GObject o, IsDescendantOf DOMDOMWindow o) => DOMDOMWindowK o + +toDOMDOMWindow :: DOMDOMWindowK o => o -> IO DOMDOMWindow +toDOMDOMWindow = unsafeCastTo DOMDOMWindow + +noDOMDOMWindow :: Maybe DOMDOMWindow +noDOMDOMWindow = Nothing + +-- VVV Prop "application-cache" + -- Type: TInterface "WebKit" "DOMDOMApplicationCache" + -- Flags: [PropertyReadable] + +getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMApplicationCache +getDOMDOMWindowApplicationCache obj = liftIO $ getObjectPropertyObject obj "application-cache" DOMDOMApplicationCache + +data DOMDOMWindowApplicationCachePropertyInfo +instance AttrInfo DOMDOMWindowApplicationCachePropertyInfo where + type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = DOMDOMApplicationCache + type AttrLabel DOMDOMWindowApplicationCachePropertyInfo = "DOMDOMWindow::application-cache" + attrGet _ = getDOMDOMWindowApplicationCache + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-information" + -- Type: TInterface "WebKit" "DOMNavigator" + -- Flags: [PropertyReadable] + +getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowClientInformation obj = liftIO $ getObjectPropertyObject obj "client-information" DOMNavigator + +data DOMDOMWindowClientInformationPropertyInfo +instance AttrInfo DOMDOMWindowClientInformationPropertyInfo where + type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowClientInformationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowClientInformationPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowClientInformationPropertyInfo = DOMNavigator + type AttrLabel DOMDOMWindowClientInformationPropertyInfo = "DOMDOMWindow::client-information" + attrGet _ = getDOMDOMWindowClientInformation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "closed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool +getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" + +data DOMDOMWindowClosedPropertyInfo +instance AttrInfo DOMDOMWindowClosedPropertyInfo where + type AttrAllowedOps DOMDOMWindowClosedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowClosedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowClosedPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowClosedPropertyInfo = Bool + type AttrLabel DOMDOMWindowClosedPropertyInfo = "DOMDOMWindow::closed" + attrGet _ = getDOMDOMWindowClosed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "console" + -- Type: TInterface "WebKit" "DOMConsole" + -- Flags: [PropertyReadable] + +getDOMDOMWindowConsole :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMConsole +getDOMDOMWindowConsole obj = liftIO $ getObjectPropertyObject obj "console" DOMConsole + +data DOMDOMWindowConsolePropertyInfo +instance AttrInfo DOMDOMWindowConsolePropertyInfo where + type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowConsolePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowConsolePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowConsolePropertyInfo = DOMConsole + type AttrLabel DOMDOMWindowConsolePropertyInfo = "DOMDOMWindow::console" + attrGet _ = getDOMDOMWindowConsole + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "css" + -- Type: TInterface "WebKit" "DOMDOMWindowCSS" + -- Flags: [PropertyReadable] + +getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindowCSS +getDOMDOMWindowCss obj = liftIO $ getObjectPropertyObject obj "css" DOMDOMWindowCSS + +data DOMDOMWindowCssPropertyInfo +instance AttrInfo DOMDOMWindowCssPropertyInfo where + type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowCssPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowCssPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowCssPropertyInfo = DOMDOMWindowCSS + type AttrLabel DOMDOMWindowCssPropertyInfo = "DOMDOMWindow::css" + attrGet _ = getDOMDOMWindowCss + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-status" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status" + +setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val + +constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val + +data DOMDOMWindowDefaultStatusPropertyInfo +instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where + type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text + type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "DOMDOMWindow::default-status" + attrGet _ = getDOMDOMWindowDefaultStatus + attrSet _ = setDOMDOMWindowDefaultStatus + attrConstruct _ = constructDOMDOMWindowDefaultStatus + +-- VVV Prop "device-pixel-ratio" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double +getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" + +data DOMDOMWindowDevicePixelRatioPropertyInfo +instance AttrInfo DOMDOMWindowDevicePixelRatioPropertyInfo where + type AttrAllowedOps DOMDOMWindowDevicePixelRatioPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDevicePixelRatioPropertyInfo = Double + type AttrLabel DOMDOMWindowDevicePixelRatioPropertyInfo = "DOMDOMWindow::device-pixel-ratio" + attrGet _ = getDOMDOMWindowDevicePixelRatio + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument +getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument + +data DOMDOMWindowDocumentPropertyInfo +instance AttrInfo DOMDOMWindowDocumentPropertyInfo where + type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument + type AttrLabel DOMDOMWindowDocumentPropertyInfo = "DOMDOMWindow::document" + attrGet _ = getDOMDOMWindowDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement +getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement + +data DOMDOMWindowFrameElementPropertyInfo +instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where + type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement + type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "DOMDOMWindow::frame-element" + attrGet _ = getDOMDOMWindowFrameElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frames" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow + +data DOMDOMWindowFramesPropertyInfo +instance AttrInfo DOMDOMWindowFramesPropertyInfo where + type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowFramesPropertyInfo = "DOMDOMWindow::frames" + attrGet _ = getDOMDOMWindowFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "history" + -- Type: TInterface "WebKit" "DOMHistory" + -- Flags: [PropertyReadable] + +getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMHistory +getDOMDOMWindowHistory obj = liftIO $ getObjectPropertyObject obj "history" DOMHistory + +data DOMDOMWindowHistoryPropertyInfo +instance AttrInfo DOMDOMWindowHistoryPropertyInfo where + type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowHistoryPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowHistoryPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowHistoryPropertyInfo = DOMHistory + type AttrLabel DOMDOMWindowHistoryPropertyInfo = "DOMDOMWindow::history" + attrGet _ = getDOMDOMWindowHistory + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "inner-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height" + +data DOMDOMWindowInnerHeightPropertyInfo +instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where + type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64 + type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "DOMDOMWindow::inner-height" + attrGet _ = getDOMDOMWindowInnerHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "inner-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width" + +data DOMDOMWindowInnerWidthPropertyInfo +instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where + type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64 + type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "DOMDOMWindow::inner-width" + attrGet _ = getDOMDOMWindowInnerWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64 +getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMWindowLengthPropertyInfo +instance AttrInfo DOMDOMWindowLengthPropertyInfo where + type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64 + type AttrLabel DOMDOMWindowLengthPropertyInfo = "DOMDOMWindow::length" + attrGet _ = getDOMDOMWindowLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "local-storage" + -- Type: TInterface "WebKit" "DOMStorage" + -- Flags: [PropertyReadable] + +getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowLocalStorage obj = liftIO $ getObjectPropertyObject obj "local-storage" DOMStorage + +data DOMDOMWindowLocalStoragePropertyInfo +instance AttrInfo DOMDOMWindowLocalStoragePropertyInfo where + type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = DOMStorage + type AttrLabel DOMDOMWindowLocalStoragePropertyInfo = "DOMDOMWindow::local-storage" + attrGet _ = getDOMDOMWindowLocalStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "locationbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowLocationbar obj = liftIO $ getObjectPropertyObject obj "locationbar" DOMBarProp + +data DOMDOMWindowLocationbarPropertyInfo +instance AttrInfo DOMDOMWindowLocationbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLocationbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLocationbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLocationbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowLocationbarPropertyInfo = "DOMDOMWindow::locationbar" + attrGet _ = getDOMDOMWindowLocationbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "menubar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" DOMBarProp + +data DOMDOMWindowMenubarPropertyInfo +instance AttrInfo DOMDOMWindowMenubarPropertyInfo where + type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowMenubarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowMenubarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowMenubarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowMenubarPropertyInfo = "DOMDOMWindow::menubar" + attrGet _ = getDOMDOMWindowMenubar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowName val = constructObjectPropertyString "name" val + +data DOMDOMWindowNamePropertyInfo +instance AttrInfo DOMDOMWindowNamePropertyInfo where + type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text + type AttrLabel DOMDOMWindowNamePropertyInfo = "DOMDOMWindow::name" + attrGet _ = getDOMDOMWindowName + attrSet _ = setDOMDOMWindowName + attrConstruct _ = constructDOMDOMWindowName + +-- VVV Prop "navigator" + -- Type: TInterface "WebKit" "DOMNavigator" + -- Flags: [PropertyReadable] + +getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowNavigator obj = liftIO $ getObjectPropertyObject obj "navigator" DOMNavigator + +data DOMDOMWindowNavigatorPropertyInfo +instance AttrInfo DOMDOMWindowNavigatorPropertyInfo where + type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowNavigatorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowNavigatorPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowNavigatorPropertyInfo = DOMNavigator + type AttrLabel DOMDOMWindowNavigatorPropertyInfo = "DOMDOMWindow::navigator" + attrGet _ = getDOMDOMWindowNavigator + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offscreen-buffering" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool +getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" + +data DOMDOMWindowOffscreenBufferingPropertyInfo +instance AttrInfo DOMDOMWindowOffscreenBufferingPropertyInfo where + type AttrAllowedOps DOMDOMWindowOffscreenBufferingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOffscreenBufferingPropertyInfo = Bool + type AttrLabel DOMDOMWindowOffscreenBufferingPropertyInfo = "DOMDOMWindow::offscreen-buffering" + attrGet _ = getDOMDOMWindowOffscreenBuffering + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "opener" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow + +data DOMDOMWindowOpenerPropertyInfo +instance AttrInfo DOMDOMWindowOpenerPropertyInfo where + type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowOpenerPropertyInfo = "DOMDOMWindow::opener" + attrGet _ = getDOMDOMWindowOpener + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "outer-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height" + +data DOMDOMWindowOuterHeightPropertyInfo +instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where + type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64 + type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "DOMDOMWindow::outer-height" + attrGet _ = getDOMDOMWindowOuterHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "outer-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width" + +data DOMDOMWindowOuterWidthPropertyInfo +instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where + type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64 + type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "DOMDOMWindow::outer-width" + attrGet _ = getDOMDOMWindowOuterWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset" + +data DOMDOMWindowPageXOffsetPropertyInfo +instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where + type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "DOMDOMWindow::page-x-offset" + attrGet _ = getDOMDOMWindowPageXOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset" + +data DOMDOMWindowPageYOffsetPropertyInfo +instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where + type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "DOMDOMWindow::page-y-offset" + attrGet _ = getDOMDOMWindowPageYOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow + +data DOMDOMWindowParentPropertyInfo +instance AttrInfo DOMDOMWindowParentPropertyInfo where + type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowParentPropertyInfo = "DOMDOMWindow::parent" + attrGet _ = getDOMDOMWindowParent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "performance" + -- Type: TInterface "WebKit" "DOMPerformance" + -- Flags: [PropertyReadable] + +getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMPerformance +getDOMDOMWindowPerformance obj = liftIO $ getObjectPropertyObject obj "performance" DOMPerformance + +data DOMDOMWindowPerformancePropertyInfo +instance AttrInfo DOMDOMWindowPerformancePropertyInfo where + type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPerformancePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPerformancePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPerformancePropertyInfo = DOMPerformance + type AttrLabel DOMDOMWindowPerformancePropertyInfo = "DOMDOMWindow::performance" + attrGet _ = getDOMDOMWindowPerformance + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "personalbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowPersonalbar obj = liftIO $ getObjectPropertyObject obj "personalbar" DOMBarProp + +data DOMDOMWindowPersonalbarPropertyInfo +instance AttrInfo DOMDOMWindowPersonalbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowPersonalbarPropertyInfo = "DOMDOMWindow::personalbar" + attrGet _ = getDOMDOMWindowPersonalbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen" + -- Type: TInterface "WebKit" "DOMScreen" + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMScreen +getDOMDOMWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" DOMScreen + +data DOMDOMWindowScreenPropertyInfo +instance AttrInfo DOMDOMWindowScreenPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenPropertyInfo = DOMScreen + type AttrLabel DOMDOMWindowScreenPropertyInfo = "DOMDOMWindow::screen" + attrGet _ = getDOMDOMWindowScreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left" + +data DOMDOMWindowScreenLeftPropertyInfo +instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "DOMDOMWindow::screen-left" + attrGet _ = getDOMDOMWindowScreenLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top" + +data DOMDOMWindowScreenTopPropertyInfo +instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "DOMDOMWindow::screen-top" + attrGet _ = getDOMDOMWindowScreenTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMDOMWindowScreenXPropertyInfo +instance AttrInfo DOMDOMWindowScreenXPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenXPropertyInfo = "DOMDOMWindow::screen-x" + attrGet _ = getDOMDOMWindowScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMDOMWindowScreenYPropertyInfo +instance AttrInfo DOMDOMWindowScreenYPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenYPropertyInfo = "DOMDOMWindow::screen-y" + attrGet _ = getDOMDOMWindowScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x" + +data DOMDOMWindowScrollXPropertyInfo +instance AttrInfo DOMDOMWindowScrollXPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScrollXPropertyInfo = "DOMDOMWindow::scroll-x" + attrGet _ = getDOMDOMWindowScrollX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y" + +data DOMDOMWindowScrollYPropertyInfo +instance AttrInfo DOMDOMWindowScrollYPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScrollYPropertyInfo = "DOMDOMWindow::scroll-y" + attrGet _ = getDOMDOMWindowScrollY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scrollbars" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowScrollbars obj = liftIO $ getObjectPropertyObject obj "scrollbars" DOMBarProp + +data DOMDOMWindowScrollbarsPropertyInfo +instance AttrInfo DOMDOMWindowScrollbarsPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowScrollbarsPropertyInfo = "DOMDOMWindow::scrollbars" + attrGet _ = getDOMDOMWindowScrollbars + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "self" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow + +data DOMDOMWindowSelfPropertyInfo +instance AttrInfo DOMDOMWindowSelfPropertyInfo where + type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowSelfPropertyInfo = "DOMDOMWindow::self" + attrGet _ = getDOMDOMWindowSelf + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "session-storage" + -- Type: TInterface "WebKit" "DOMStorage" + -- Flags: [PropertyReadable] + +getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowSessionStorage obj = liftIO $ getObjectPropertyObject obj "session-storage" DOMStorage + +data DOMDOMWindowSessionStoragePropertyInfo +instance AttrInfo DOMDOMWindowSessionStoragePropertyInfo where + type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = DOMStorage + type AttrLabel DOMDOMWindowSessionStoragePropertyInfo = "DOMDOMWindow::session-storage" + attrGet _ = getDOMDOMWindowSessionStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "status" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" + +setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val + +constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val + +data DOMDOMWindowStatusPropertyInfo +instance AttrInfo DOMDOMWindowStatusPropertyInfo where + type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text + type AttrLabel DOMDOMWindowStatusPropertyInfo = "DOMDOMWindow::status" + attrGet _ = getDOMDOMWindowStatus + attrSet _ = setDOMDOMWindowStatus + attrConstruct _ = constructDOMDOMWindowStatus + +-- VVV Prop "statusbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowStatusbar obj = liftIO $ getObjectPropertyObject obj "statusbar" DOMBarProp + +data DOMDOMWindowStatusbarPropertyInfo +instance AttrInfo DOMDOMWindowStatusbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStatusbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowStatusbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStatusbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowStatusbarPropertyInfo = "DOMDOMWindow::statusbar" + attrGet _ = getDOMDOMWindowStatusbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "style-media" + -- Type: TInterface "WebKit" "DOMStyleMedia" + -- Flags: [PropertyReadable] + +getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStyleMedia +getDOMDOMWindowStyleMedia obj = liftIO $ getObjectPropertyObject obj "style-media" DOMStyleMedia + +data DOMDOMWindowStyleMediaPropertyInfo +instance AttrInfo DOMDOMWindowStyleMediaPropertyInfo where + type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = DOMStyleMedia + type AttrLabel DOMDOMWindowStyleMediaPropertyInfo = "DOMDOMWindow::style-media" + attrGet _ = getDOMDOMWindowStyleMedia + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "toolbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowToolbar obj = liftIO $ getObjectPropertyObject obj "toolbar" DOMBarProp + +data DOMDOMWindowToolbarPropertyInfo +instance AttrInfo DOMDOMWindowToolbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowToolbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowToolbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowToolbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowToolbarPropertyInfo = "DOMDOMWindow::toolbar" + attrGet _ = getDOMDOMWindowToolbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "top" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow + +data DOMDOMWindowTopPropertyInfo +instance AttrInfo DOMDOMWindowTopPropertyInfo where + type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowTopPropertyInfo = "DOMDOMWindow::top" + attrGet _ = getDOMDOMWindowTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-storage-info" + -- Type: TInterface "WebKit" "DOMStorageInfo" + -- Flags: [PropertyReadable] + +getDOMDOMWindowWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorageInfo +getDOMDOMWindowWebkitStorageInfo obj = liftIO $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo + +data DOMDOMWindowWebkitStorageInfoPropertyInfo +instance AttrInfo DOMDOMWindowWebkitStorageInfoPropertyInfo where + type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMStorageInfo + type AttrLabel DOMDOMWindowWebkitStorageInfoPropertyInfo = "DOMDOMWindow::webkit-storage-info" + attrGet _ = getDOMDOMWindowWebkitStorageInfo + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow + +data DOMDOMWindowWindowPropertyInfo +instance AttrInfo DOMDOMWindowWindowPropertyInfo where + type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowWindowPropertyInfo = "DOMDOMWindow::window" + attrGet _ = getDOMDOMWindowWindow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMWindow = DOMDOMWindowAttributeList +type DOMDOMWindowAttributeList = ('[ '("application-cache", DOMDOMWindowApplicationCachePropertyInfo), '("client-information", DOMDOMWindowClientInformationPropertyInfo), '("closed", DOMDOMWindowClosedPropertyInfo), '("console", DOMDOMWindowConsolePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("css", DOMDOMWindowCssPropertyInfo), '("default-status", DOMDOMWindowDefaultStatusPropertyInfo), '("device-pixel-ratio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frame-element", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("history", DOMDOMWindowHistoryPropertyInfo), '("inner-height", DOMDOMWindowInnerHeightPropertyInfo), '("inner-width", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("local-storage", DOMDOMWindowLocalStoragePropertyInfo), '("locationbar", DOMDOMWindowLocationbarPropertyInfo), '("menubar", DOMDOMWindowMenubarPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("navigator", DOMDOMWindowNavigatorPropertyInfo), '("offscreen-buffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outer-height", DOMDOMWindowOuterHeightPropertyInfo), '("outer-width", DOMDOMWindowOuterWidthPropertyInfo), '("page-x-offset", DOMDOMWindowPageXOffsetPropertyInfo), '("page-y-offset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("performance", DOMDOMWindowPerformancePropertyInfo), '("personalbar", DOMDOMWindowPersonalbarPropertyInfo), '("screen", DOMDOMWindowScreenPropertyInfo), '("screen-left", DOMDOMWindowScreenLeftPropertyInfo), '("screen-top", DOMDOMWindowScreenTopPropertyInfo), '("screen-x", DOMDOMWindowScreenXPropertyInfo), '("screen-y", DOMDOMWindowScreenYPropertyInfo), '("scroll-x", DOMDOMWindowScrollXPropertyInfo), '("scroll-y", DOMDOMWindowScrollYPropertyInfo), '("scrollbars", DOMDOMWindowScrollbarsPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("session-storage", DOMDOMWindowSessionStoragePropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("statusbar", DOMDOMWindowStatusbarPropertyInfo), '("style-media", DOMDOMWindowStyleMediaPropertyInfo), '("toolbar", DOMDOMWindowToolbarPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("webkit-storage-info", DOMDOMWindowWebkitStorageInfoPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList +type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMWindow::alert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_alert" webkit_dom_dom_window_alert :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- message : TBasicType TUTF8 + IO () + + +dOMDOMWindowAlert :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- message + m () +dOMDOMWindowAlert _obj message = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + message' <- textToCString message + webkit_dom_dom_window_alert _obj' message' + touchManagedPtr _obj + freeMem message' + return () + +-- method DOMDOMWindow::atob +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_atob" webkit_dom_dom_window_atob :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMDOMWindowAtob :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- string + m T.Text +dOMDOMWindowAtob _obj string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + onException (do + result <- propagateGError $ webkit_dom_dom_window_atob _obj' string' + checkUnexpectedReturnNULL "webkit_dom_dom_window_atob" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + ) (do + freeMem string' + ) + +-- method DOMDOMWindow::blur +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_blur" webkit_dom_dom_window_blur :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowBlur :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowBlur _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_blur _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::btoa +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_btoa" webkit_dom_dom_window_btoa :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMDOMWindowBtoa :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- string + m T.Text +dOMDOMWindowBtoa _obj string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + onException (do + result <- propagateGError $ webkit_dom_dom_window_btoa _obj' string' + checkUnexpectedReturnNULL "webkit_dom_dom_window_btoa" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + ) (do + freeMem string' + ) + +-- method DOMDOMWindow::cancel_animation_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_cancel_animation_frame" webkit_dom_dom_window_cancel_animation_frame :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- id : TBasicType TInt64 + IO () + + +dOMDOMWindowCancelAnimationFrame :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- id + m () +dOMDOMWindowCancelAnimationFrame _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_cancel_animation_frame _obj' id + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::capture_events +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_capture_events" webkit_dom_dom_window_capture_events :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowCaptureEvents :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowCaptureEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_capture_events _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::clear_interval +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_clear_interval" webkit_dom_dom_window_clear_interval :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- handle : TBasicType TInt64 + IO () + + +dOMDOMWindowClearInterval :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- handle + m () +dOMDOMWindowClearInterval _obj handle = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_clear_interval _obj' handle + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::clear_timeout +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_clear_timeout" webkit_dom_dom_window_clear_timeout :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- handle : TBasicType TInt64 + IO () + + +dOMDOMWindowClearTimeout :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- handle + m () +dOMDOMWindowClearTimeout _obj handle = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_clear_timeout _obj' handle + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_close" webkit_dom_dom_window_close :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowClose :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_close _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::confirm +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_confirm" webkit_dom_dom_window_confirm :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- message : TBasicType TUTF8 + IO CInt + + +dOMDOMWindowConfirm :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- message + m Bool +dOMDOMWindowConfirm _obj message = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + message' <- textToCString message + result <- webkit_dom_dom_window_confirm _obj' message' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem message' + return result' + +-- method DOMDOMWindow::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_dispatch_event" webkit_dom_dom_window_dispatch_event :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMDOMWindowDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMDOMWindowDispatchEvent :: + (MonadIO m, DOMDOMWindowK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMDOMWindowDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_dom_window_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMDOMWindow::find +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caseSensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wholeWord", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "searchInFrames", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "showDialog", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caseSensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wholeWord", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "searchInFrames", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "showDialog", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_find" webkit_dom_dom_window_find :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- string : TBasicType TUTF8 + CInt -> -- caseSensitive : TBasicType TBoolean + CInt -> -- backwards : TBasicType TBoolean + CInt -> -- wrap : TBasicType TBoolean + CInt -> -- wholeWord : TBasicType TBoolean + CInt -> -- searchInFrames : TBasicType TBoolean + CInt -> -- showDialog : TBasicType TBoolean + IO CInt + + +dOMDOMWindowFind :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- string + Bool -> -- caseSensitive + Bool -> -- backwards + Bool -> -- wrap + Bool -> -- wholeWord + Bool -> -- searchInFrames + Bool -> -- showDialog + m Bool +dOMDOMWindowFind _obj string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + let caseSensitive' = (fromIntegral . fromEnum) caseSensitive + let backwards' = (fromIntegral . fromEnum) backwards + let wrap' = (fromIntegral . fromEnum) wrap + let wholeWord' = (fromIntegral . fromEnum) wholeWord + let searchInFrames' = (fromIntegral . fromEnum) searchInFrames + let showDialog' = (fromIntegral . fromEnum) showDialog + result <- webkit_dom_dom_window_find _obj' string' caseSensitive' backwards' wrap' wholeWord' searchInFrames' showDialog' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem string' + return result' + +-- method DOMDOMWindow::focus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_focus" webkit_dom_dom_window_focus :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowFocus :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_focus _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::get_application_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMApplicationCache" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_application_cache" webkit_dom_dom_window_get_application_cache :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMApplicationCache) + + +dOMDOMWindowGetApplicationCache :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMApplicationCache +dOMDOMWindowGetApplicationCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_application_cache _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_application_cache" result + result' <- (wrapObject DOMDOMApplicationCache) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_client_information +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNavigator" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_client_information" webkit_dom_dom_window_get_client_information :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMNavigator) + + +dOMDOMWindowGetClientInformation :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMNavigator +dOMDOMWindowGetClientInformation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_client_information _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_client_information" result + result' <- (wrapObject DOMNavigator) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_closed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_closed" webkit_dom_dom_window_get_closed :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CInt + + +dOMDOMWindowGetClosed :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Bool +dOMDOMWindowGetClosed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_closed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_computed_style +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_computed_style" webkit_dom_dom_window_get_computed_style :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement" + CString -> -- pseudoElement : TBasicType TUTF8 + IO (Ptr DOMCSSStyleDeclaration) + + +dOMDOMWindowGetComputedStyle :: + (MonadIO m, DOMDOMWindowK a, DOMElementK b) => + a -> -- _obj + b -> -- element + Maybe (T.Text) -> -- pseudoElement + m DOMCSSStyleDeclaration +dOMDOMWindowGetComputedStyle _obj element pseudoElement = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let element' = unsafeManagedPtrCastPtr element + maybePseudoElement <- case pseudoElement of + Nothing -> return nullPtr + Just jPseudoElement -> do + jPseudoElement' <- textToCString jPseudoElement + return jPseudoElement' + result <- webkit_dom_dom_window_get_computed_style _obj' element' maybePseudoElement + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_computed_style" result + result' <- (wrapObject DOMCSSStyleDeclaration) result + touchManagedPtr _obj + touchManagedPtr element + freeMem maybePseudoElement + return result' + +-- method DOMDOMWindow::get_console +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMConsole" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_console" webkit_dom_dom_window_get_console :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMConsole) + + +dOMDOMWindowGetConsole :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMConsole +dOMDOMWindowGetConsole _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_console _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_console" result + result' <- (newObject DOMConsole) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_css +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindowCSS" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_css" webkit_dom_dom_window_get_css :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindowCSS) + + +dOMDOMWindowGetCss :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindowCSS +dOMDOMWindowGetCss _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_css _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_css" result + result' <- (wrapObject DOMDOMWindowCSS) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_default_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_default_status" webkit_dom_dom_window_get_default_status :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CString + + +dOMDOMWindowGetDefaultStatus :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m T.Text +dOMDOMWindowGetDefaultStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_default_status _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_default_status" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_device_pixel_ratio +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_device_pixel_ratio" webkit_dom_dom_window_get_device_pixel_ratio :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CDouble + + +dOMDOMWindowGetDevicePixelRatio :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Double +dOMDOMWindowGetDevicePixelRatio _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_device_pixel_ratio _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_document" webkit_dom_dom_window_get_document :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDocument) + + +dOMDOMWindowGetDocument :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDocument +dOMDOMWindowGetDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_document _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_frame_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_frame_element" webkit_dom_dom_window_get_frame_element :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMElement) + + +dOMDOMWindowGetFrameElement :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMElement +dOMDOMWindowGetFrameElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_frame_element _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_frame_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_frames +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_frames" webkit_dom_dom_window_get_frames :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetFrames :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetFrames _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_frames _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_frames" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_history +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHistory" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_history" webkit_dom_dom_window_get_history :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMHistory) + + +dOMDOMWindowGetHistory :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMHistory +dOMDOMWindowGetHistory _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_history _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_history" result + result' <- (wrapObject DOMHistory) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_inner_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_inner_height" webkit_dom_dom_window_get_inner_height :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetInnerHeight :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetInnerHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_inner_height _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_inner_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_inner_width" webkit_dom_dom_window_get_inner_width :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetInnerWidth :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetInnerWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_inner_width _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_length" webkit_dom_dom_window_get_length :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Word64 + + +dOMDOMWindowGetLength :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Word64 +dOMDOMWindowGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_local_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStorage" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_local_storage" webkit_dom_dom_window_get_local_storage :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMStorage) + + +dOMDOMWindowGetLocalStorage :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMStorage +dOMDOMWindowGetLocalStorage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_dom_window_get_local_storage _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_local_storage" result + result' <- (wrapObject DOMStorage) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMDOMWindow::get_locationbar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_locationbar" webkit_dom_dom_window_get_locationbar :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetLocationbar :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetLocationbar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_locationbar _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_locationbar" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_menubar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_menubar" webkit_dom_dom_window_get_menubar :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetMenubar :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetMenubar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_menubar _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_menubar" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_name" webkit_dom_dom_window_get_name :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CString + + +dOMDOMWindowGetName :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m T.Text +dOMDOMWindowGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_navigator +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNavigator" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_navigator" webkit_dom_dom_window_get_navigator :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMNavigator) + + +dOMDOMWindowGetNavigator :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMNavigator +dOMDOMWindowGetNavigator _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_navigator _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_navigator" result + result' <- (wrapObject DOMNavigator) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_offscreen_buffering +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_offscreen_buffering" webkit_dom_dom_window_get_offscreen_buffering :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CInt + + +dOMDOMWindowGetOffscreenBuffering :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Bool +dOMDOMWindowGetOffscreenBuffering _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_offscreen_buffering _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_opener +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_opener" webkit_dom_dom_window_get_opener :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetOpener :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetOpener _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_opener _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_opener" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_outer_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_outer_height" webkit_dom_dom_window_get_outer_height :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetOuterHeight :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetOuterHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_outer_height _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_outer_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_outer_width" webkit_dom_dom_window_get_outer_width :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetOuterWidth :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetOuterWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_outer_width _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_page_x_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_page_x_offset" webkit_dom_dom_window_get_page_x_offset :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetPageXOffset :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetPageXOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_page_x_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_page_y_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_page_y_offset" webkit_dom_dom_window_get_page_y_offset :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetPageYOffset :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetPageYOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_page_y_offset _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_parent" webkit_dom_dom_window_get_parent :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetParent :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_parent _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_parent" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_performance +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMPerformance" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_performance" webkit_dom_dom_window_get_performance :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMPerformance) + + +dOMDOMWindowGetPerformance :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMPerformance +dOMDOMWindowGetPerformance _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_performance _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_performance" result + result' <- (wrapObject DOMPerformance) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_personalbar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_personalbar" webkit_dom_dom_window_get_personalbar :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetPersonalbar :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetPersonalbar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_personalbar _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_personalbar" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMScreen" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_screen" webkit_dom_dom_window_get_screen :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMScreen) + + +dOMDOMWindowGetScreen :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMScreen +dOMDOMWindowGetScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_screen _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_screen" result + result' <- (wrapObject DOMScreen) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_screen_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_screen_left" webkit_dom_dom_window_get_screen_left :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScreenLeft :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScreenLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_screen_left _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_screen_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_screen_top" webkit_dom_dom_window_get_screen_top :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScreenTop :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScreenTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_screen_top _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_screen_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_screen_x" webkit_dom_dom_window_get_screen_x :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScreenX :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScreenX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_screen_x _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_screen_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_screen_y" webkit_dom_dom_window_get_screen_y :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScreenY :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScreenY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_screen_y _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_scroll_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_scroll_x" webkit_dom_dom_window_get_scroll_x :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScrollX :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScrollX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_scroll_x _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_scroll_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_scroll_y" webkit_dom_dom_window_get_scroll_y :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO Int64 + + +dOMDOMWindowGetScrollY :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m Int64 +dOMDOMWindowGetScrollY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_scroll_y _obj' + touchManagedPtr _obj + return result + +-- method DOMDOMWindow::get_scrollbars +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_scrollbars" webkit_dom_dom_window_get_scrollbars :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetScrollbars :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetScrollbars _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_scrollbars _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_scrollbars" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMSelection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_selection" webkit_dom_dom_window_get_selection :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMSelection) + + +dOMDOMWindowGetSelection :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMSelection +dOMDOMWindowGetSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_selection _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_selection" result + result' <- (wrapObject DOMDOMSelection) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_self +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_self" webkit_dom_dom_window_get_self :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetSelf :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetSelf _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_self _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_self" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_session_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStorage" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_session_storage" webkit_dom_dom_window_get_session_storage :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMStorage) + + +dOMDOMWindowGetSessionStorage :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMStorage +dOMDOMWindowGetSessionStorage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_dom_window_get_session_storage _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_session_storage" result + result' <- (wrapObject DOMStorage) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMDOMWindow::get_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_status" webkit_dom_dom_window_get_status :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO CString + + +dOMDOMWindowGetStatus :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m T.Text +dOMDOMWindowGetStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_status _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_status" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_statusbar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_statusbar" webkit_dom_dom_window_get_statusbar :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetStatusbar :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetStatusbar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_statusbar _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_statusbar" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_style_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleMedia" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_style_media" webkit_dom_dom_window_get_style_media :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMStyleMedia) + + +dOMDOMWindowGetStyleMedia :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMStyleMedia +dOMDOMWindowGetStyleMedia _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_style_media _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_style_media" result + result' <- (wrapObject DOMStyleMedia) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_toolbar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBarProp" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_toolbar" webkit_dom_dom_window_get_toolbar :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMBarProp) + + +dOMDOMWindowGetToolbar :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMBarProp +dOMDOMWindowGetToolbar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_toolbar _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_toolbar" result + result' <- (wrapObject DOMBarProp) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_top" webkit_dom_dom_window_get_top :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetTop :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_top _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_top" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_webkit_storage_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStorageInfo" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_webkit_storage_info" webkit_dom_dom_window_get_webkit_storage_info :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMStorageInfo) + + +dOMDOMWindowGetWebkitStorageInfo :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMStorageInfo +dOMDOMWindowGetWebkitStorageInfo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_webkit_storage_info _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_webkit_storage_info" result + result' <- (newObject DOMStorageInfo) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::get_window +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_get_window" webkit_dom_dom_window_get_window :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO (Ptr DOMDOMWindow) + + +dOMDOMWindowGetWindow :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m DOMDOMWindow +dOMDOMWindowGetWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_dom_window_get_window _obj' + checkUnexpectedReturnNULL "webkit_dom_dom_window_get_window" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDOMWindow::match_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMMediaQueryList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_match_media" webkit_dom_dom_window_match_media :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- query : TBasicType TUTF8 + IO (Ptr DOMMediaQueryList) + + +dOMDOMWindowMatchMedia :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- query + m DOMMediaQueryList +dOMDOMWindowMatchMedia _obj query = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + query' <- textToCString query + result <- webkit_dom_dom_window_match_media _obj' query' + checkUnexpectedReturnNULL "webkit_dom_dom_window_match_media" result + result' <- (wrapObject DOMMediaQueryList) result + touchManagedPtr _obj + freeMem query' + return result' + +-- method DOMDOMWindow::move_by +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_move_by" webkit_dom_dom_window_move_by :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CFloat -> -- x : TBasicType TFloat + CFloat -> -- y : TBasicType TFloat + IO () + + +dOMDOMWindowMoveBy :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Float -> -- x + Float -> -- y + m () +dOMDOMWindowMoveBy _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let x' = realToFrac x + let y' = realToFrac y + webkit_dom_dom_window_move_by _obj' x' y' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::move_to +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_move_to" webkit_dom_dom_window_move_to :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CFloat -> -- x : TBasicType TFloat + CFloat -> -- y : TBasicType TFloat + IO () + + +dOMDOMWindowMoveTo :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Float -> -- x + Float -> -- y + m () +dOMDOMWindowMoveTo _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let x' = realToFrac x + let y' = realToFrac y + webkit_dom_dom_window_move_to _obj' x' y' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::print +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_print" webkit_dom_dom_window_print :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowPrint :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowPrint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_print _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::prompt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "defaultValue", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "defaultValue", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_prompt" webkit_dom_dom_window_prompt :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- message : TBasicType TUTF8 + CString -> -- defaultValue : TBasicType TUTF8 + IO CString + + +dOMDOMWindowPrompt :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- message + T.Text -> -- defaultValue + m T.Text +dOMDOMWindowPrompt _obj message defaultValue = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + message' <- textToCString message + defaultValue' <- textToCString defaultValue + result <- webkit_dom_dom_window_prompt _obj' message' defaultValue' + checkUnexpectedReturnNULL "webkit_dom_dom_window_prompt" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem message' + freeMem defaultValue' + return result' + +-- method DOMDOMWindow::release_events +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_release_events" webkit_dom_dom_window_release_events :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowReleaseEvents :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowReleaseEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_release_events _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::resize_by +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_resize_by" webkit_dom_dom_window_resize_by :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CFloat -> -- x : TBasicType TFloat + CFloat -> -- y : TBasicType TFloat + IO () + + +dOMDOMWindowResizeBy :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Float -> -- x + Float -> -- y + m () +dOMDOMWindowResizeBy _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let x' = realToFrac x + let y' = realToFrac y + webkit_dom_dom_window_resize_by _obj' x' y' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::resize_to +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_resize_to" webkit_dom_dom_window_resize_to :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CFloat -> -- width : TBasicType TFloat + CFloat -> -- height : TBasicType TFloat + IO () + + +dOMDOMWindowResizeTo :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Float -> -- width + Float -> -- height + m () +dOMDOMWindowResizeTo _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let width' = realToFrac width + let height' = realToFrac height + webkit_dom_dom_window_resize_to _obj' width' height' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::scroll +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_scroll" webkit_dom_dom_window_scroll :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO () + + +dOMDOMWindowScroll :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m () +dOMDOMWindowScroll _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_scroll _obj' x y + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::scroll_by +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_scroll_by" webkit_dom_dom_window_scroll_by :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO () + + +dOMDOMWindowScrollBy :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m () +dOMDOMWindowScrollBy _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_scroll_by _obj' x y + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::scroll_to +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_scroll_to" webkit_dom_dom_window_scroll_to :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO () + + +dOMDOMWindowScrollTo :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m () +dOMDOMWindowScrollTo _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_scroll_to _obj' x y + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::set_default_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_set_default_status" webkit_dom_dom_window_set_default_status :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDOMWindowSetDefaultStatus :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDOMWindowSetDefaultStatus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_dom_window_set_default_status _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDOMWindow::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_set_name" webkit_dom_dom_window_set_name :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDOMWindowSetName :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDOMWindowSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_dom_window_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDOMWindow::set_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_set_status" webkit_dom_dom_window_set_status :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDOMWindowSetStatus :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDOMWindowSetStatus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_dom_window_set_status _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDOMWindow::stop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_stop" webkit_dom_dom_window_stop :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + IO () + + +dOMDOMWindowStop :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + m () +dOMDOMWindowStop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_stop _obj' + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::webkit_cancel_animation_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_webkit_cancel_animation_frame" webkit_dom_dom_window_webkit_cancel_animation_frame :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- id : TBasicType TInt64 + IO () + + +dOMDOMWindowWebkitCancelAnimationFrame :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- id + m () +dOMDOMWindowWebkitCancelAnimationFrame _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_webkit_cancel_animation_frame _obj' id + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::webkit_cancel_request_animation_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_webkit_cancel_request_animation_frame" webkit_dom_dom_window_webkit_cancel_request_animation_frame :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- id : TBasicType TInt64 + IO () + + +dOMDOMWindowWebkitCancelRequestAnimationFrame :: + (MonadIO m, DOMDOMWindowK a) => + a -> -- _obj + Int64 -> -- id + m () +dOMDOMWindowWebkitCancelRequestAnimationFrame _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_dom_window_webkit_cancel_request_animation_frame _obj' id + touchManagedPtr _obj + return () + +-- method DOMDOMWindow::webkit_convert_point_from_node_to_page +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMWebKitPoint" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_webkit_convert_point_from_node_to_page" webkit_dom_dom_window_webkit_convert_point_from_node_to_page :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Ptr DOMWebKitPoint -> -- p : TInterface "WebKit" "DOMWebKitPoint" + IO (Ptr DOMWebKitPoint) + + +dOMDOMWindowWebkitConvertPointFromNodeToPage :: + (MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) => + a -> -- _obj + b -> -- node + c -> -- p + m DOMWebKitPoint +dOMDOMWindowWebkitConvertPointFromNodeToPage _obj node p = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + let p' = unsafeManagedPtrCastPtr p + result <- webkit_dom_dom_window_webkit_convert_point_from_node_to_page _obj' node' p' + checkUnexpectedReturnNULL "webkit_dom_dom_window_webkit_convert_point_from_node_to_page" result + result' <- (wrapObject DOMWebKitPoint) result + touchManagedPtr _obj + touchManagedPtr node + touchManagedPtr p + return result' + +-- method DOMDOMWindow::webkit_convert_point_from_page_to_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMWebKitPoint" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_webkit_convert_point_from_page_to_node" webkit_dom_dom_window_webkit_convert_point_from_page_to_node :: + Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Ptr DOMWebKitPoint -> -- p : TInterface "WebKit" "DOMWebKitPoint" + IO (Ptr DOMWebKitPoint) + + +dOMDOMWindowWebkitConvertPointFromPageToNode :: + (MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) => + a -> -- _obj + b -> -- node + c -> -- p + m DOMWebKitPoint +dOMDOMWindowWebkitConvertPointFromPageToNode _obj node p = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + let p' = unsafeManagedPtrCastPtr p + result <- webkit_dom_dom_window_webkit_convert_point_from_page_to_node _obj' node' p' + checkUnexpectedReturnNULL "webkit_dom_dom_window_webkit_convert_point_from_page_to_node" result + result' <- (wrapObject DOMWebKitPoint) result + touchManagedPtr _obj + touchManagedPtr node + touchManagedPtr p + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMWindow.hs-boot b/GI/WebKit/Objects/DOMDOMWindow.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMWindow.hs-boot @@ -0,0 +1,58 @@ +module GI.WebKit.Objects.DOMDOMWindow where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow) +instance GObject DOMDOMWindow where +class GObject o => DOMDOMWindowK o +instance (GObject o, IsDescendantOf DOMDOMWindow o) => DOMDOMWindowK o +data DOMDOMWindowApplicationCachePropertyInfo +data DOMDOMWindowClientInformationPropertyInfo +data DOMDOMWindowClosedPropertyInfo +data DOMDOMWindowConsolePropertyInfo +data DOMDOMWindowCssPropertyInfo +data DOMDOMWindowDefaultStatusPropertyInfo +data DOMDOMWindowDevicePixelRatioPropertyInfo +data DOMDOMWindowDocumentPropertyInfo +data DOMDOMWindowFrameElementPropertyInfo +data DOMDOMWindowFramesPropertyInfo +data DOMDOMWindowHistoryPropertyInfo +data DOMDOMWindowInnerHeightPropertyInfo +data DOMDOMWindowInnerWidthPropertyInfo +data DOMDOMWindowLengthPropertyInfo +data DOMDOMWindowLocalStoragePropertyInfo +data DOMDOMWindowLocationbarPropertyInfo +data DOMDOMWindowMenubarPropertyInfo +data DOMDOMWindowNamePropertyInfo +data DOMDOMWindowNavigatorPropertyInfo +data DOMDOMWindowOffscreenBufferingPropertyInfo +data DOMDOMWindowOpenerPropertyInfo +data DOMDOMWindowOuterHeightPropertyInfo +data DOMDOMWindowOuterWidthPropertyInfo +data DOMDOMWindowPageXOffsetPropertyInfo +data DOMDOMWindowPageYOffsetPropertyInfo +data DOMDOMWindowParentPropertyInfo +data DOMDOMWindowPerformancePropertyInfo +data DOMDOMWindowPersonalbarPropertyInfo +data DOMDOMWindowScreenPropertyInfo +data DOMDOMWindowScreenLeftPropertyInfo +data DOMDOMWindowScreenTopPropertyInfo +data DOMDOMWindowScreenXPropertyInfo +data DOMDOMWindowScreenYPropertyInfo +data DOMDOMWindowScrollXPropertyInfo +data DOMDOMWindowScrollYPropertyInfo +data DOMDOMWindowScrollbarsPropertyInfo +data DOMDOMWindowSelfPropertyInfo +data DOMDOMWindowSessionStoragePropertyInfo +data DOMDOMWindowStatusPropertyInfo +data DOMDOMWindowStatusbarPropertyInfo +data DOMDOMWindowStyleMediaPropertyInfo +data DOMDOMWindowToolbarPropertyInfo +data DOMDOMWindowTopPropertyInfo +data DOMDOMWindowWebkitStorageInfoPropertyInfo +data DOMDOMWindowWindowPropertyInfo diff --git a/GI/WebKit/Objects/DOMDOMWindowCSS.hs b/GI/WebKit/Objects/DOMDOMWindowCSS.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMWindowCSS.hs @@ -0,0 +1,98 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDOMWindowCSS + ( + +-- * Exported types + DOMDOMWindowCSS(..) , + DOMDOMWindowCSSK , + toDOMDOMWindowCSS , + noDOMDOMWindowCSS , + + + -- * Methods +-- ** dOMDOMWindowCSSSupports + dOMDOMWindowCSSSupports , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDOMWindowCSS = DOMDOMWindowCSS (ForeignPtr DOMDOMWindowCSS) +foreign import ccall "webkit_dom_dom_window_css_get_type" + c_webkit_dom_dom_window_css_get_type :: IO GType + +type instance ParentTypes DOMDOMWindowCSS = DOMDOMWindowCSSParentTypes +type DOMDOMWindowCSSParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDOMWindowCSS where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_dom_window_css_get_type + + +class GObject o => DOMDOMWindowCSSK o +instance (GObject o, IsDescendantOf DOMDOMWindowCSS o) => DOMDOMWindowCSSK o + +toDOMDOMWindowCSS :: DOMDOMWindowCSSK o => o -> IO DOMDOMWindowCSS +toDOMDOMWindowCSS = unsafeCastTo DOMDOMWindowCSS + +noDOMDOMWindowCSS :: Maybe DOMDOMWindowCSS +noDOMDOMWindowCSS = Nothing + +type instance AttributeList DOMDOMWindowCSS = DOMDOMWindowCSSAttributeList +type DOMDOMWindowCSSAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDOMWindowCSS = DOMDOMWindowCSSSignalList +type DOMDOMWindowCSSSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDOMWindowCSS::supports +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindowCSS", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindowCSS", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_dom_window_css_supports" webkit_dom_dom_window_css_supports :: + Ptr DOMDOMWindowCSS -> -- _obj : TInterface "WebKit" "DOMDOMWindowCSS" + CString -> -- property : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + IO CInt + + +dOMDOMWindowCSSSupports :: + (MonadIO m, DOMDOMWindowCSSK a) => + a -> -- _obj + T.Text -> -- property + T.Text -> -- value + m Bool +dOMDOMWindowCSSSupports _obj property value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + property' <- textToCString property + value' <- textToCString value + result <- webkit_dom_dom_window_css_supports _obj' property' value' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem property' + freeMem value' + return result' + + diff --git a/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot b/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMDOMWindowCSS where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDOMWindowCSS = DOMDOMWindowCSS (ForeignPtr DOMDOMWindowCSS) +instance GObject DOMDOMWindowCSS where +class GObject o => DOMDOMWindowCSSK o +instance (GObject o, IsDescendantOf DOMDOMWindowCSS o) => DOMDOMWindowCSSK o diff --git a/GI/WebKit/Objects/DOMDatabase.hs b/GI/WebKit/Objects/DOMDatabase.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDatabase.hs @@ -0,0 +1,118 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMDatabase + ( + +-- * Exported types + DOMDatabase(..) , + DOMDatabaseK , + toDOMDatabase , + noDOMDatabase , + + + -- * Methods +-- ** dOMDatabaseGetVersion + dOMDatabaseGetVersion , + + + + + -- * Properties +-- ** Version + DOMDatabaseVersionPropertyInfo , + getDOMDatabaseVersion , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDatabase = DOMDatabase (ForeignPtr DOMDatabase) +foreign import ccall "webkit_dom_database_get_type" + c_webkit_dom_database_get_type :: IO GType + +type instance ParentTypes DOMDatabase = DOMDatabaseParentTypes +type DOMDatabaseParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMDatabase where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_database_get_type + + +class GObject o => DOMDatabaseK o +instance (GObject o, IsDescendantOf DOMDatabase o) => DOMDatabaseK o + +toDOMDatabase :: DOMDatabaseK o => o -> IO DOMDatabase +toDOMDatabase = unsafeCastTo DOMDatabase + +noDOMDatabase :: Maybe DOMDatabase +noDOMDatabase = Nothing + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDatabaseVersion :: (MonadIO m, DOMDatabaseK o) => o -> m T.Text +getDOMDatabaseVersion obj = liftIO $ getObjectPropertyString obj "version" + +data DOMDatabaseVersionPropertyInfo +instance AttrInfo DOMDatabaseVersionPropertyInfo where + type AttrAllowedOps DOMDatabaseVersionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDatabaseVersionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDatabaseVersionPropertyInfo = DOMDatabaseK + type AttrGetType DOMDatabaseVersionPropertyInfo = T.Text + type AttrLabel DOMDatabaseVersionPropertyInfo = "DOMDatabase::version" + attrGet _ = getDOMDatabaseVersion + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDatabase = DOMDatabaseAttributeList +type DOMDatabaseAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("version", DOMDatabaseVersionPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDatabase = DOMDatabaseSignalList +type DOMDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDatabase::get_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_database_get_version" webkit_dom_database_get_version :: + Ptr DOMDatabase -> -- _obj : TInterface "WebKit" "DOMDatabase" + IO CString + + +dOMDatabaseGetVersion :: + (MonadIO m, DOMDatabaseK a) => + a -> -- _obj + m T.Text +dOMDatabaseGetVersion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_database_get_version _obj' + checkUnexpectedReturnNULL "webkit_dom_database_get_version" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMDatabase.hs-boot b/GI/WebKit/Objects/DOMDatabase.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDatabase.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMDatabase where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDatabase = DOMDatabase (ForeignPtr DOMDatabase) +instance GObject DOMDatabase where +class GObject o => DOMDatabaseK o +instance (GObject o, IsDescendantOf DOMDatabase o) => DOMDatabaseK o +data DOMDatabaseVersionPropertyInfo diff --git a/GI/WebKit/Objects/DOMDocument.hs b/GI/WebKit/Objects/DOMDocument.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocument.hs @@ -0,0 +1,4151 @@ + +{- | +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.WebKit.Objects.DOMDocument + ( + +-- * Exported types + DOMDocument(..) , + DOMDocumentK , + toDOMDocument , + noDOMDocument , + + + -- * Methods +-- ** dOMDocumentAdoptNode + dOMDocumentAdoptNode , + + +-- ** dOMDocumentCaretRangeFromPoint + dOMDocumentCaretRangeFromPoint , + + +-- ** dOMDocumentCreateAttribute + dOMDocumentCreateAttribute , + + +-- ** dOMDocumentCreateAttributeNs + dOMDocumentCreateAttributeNs , + + +-- ** dOMDocumentCreateCdataSection + dOMDocumentCreateCdataSection , + + +-- ** dOMDocumentCreateComment + dOMDocumentCreateComment , + + +-- ** dOMDocumentCreateCssStyleDeclaration + dOMDocumentCreateCssStyleDeclaration , + + +-- ** dOMDocumentCreateDocumentFragment + dOMDocumentCreateDocumentFragment , + + +-- ** dOMDocumentCreateElement + dOMDocumentCreateElement , + + +-- ** dOMDocumentCreateElementNs + dOMDocumentCreateElementNs , + + +-- ** dOMDocumentCreateEntityReference + dOMDocumentCreateEntityReference , + + +-- ** dOMDocumentCreateEvent + dOMDocumentCreateEvent , + + +-- ** dOMDocumentCreateExpression + dOMDocumentCreateExpression , + + +-- ** dOMDocumentCreateNodeIterator + dOMDocumentCreateNodeIterator , + + +-- ** dOMDocumentCreateNsResolver + dOMDocumentCreateNsResolver , + + +-- ** dOMDocumentCreateProcessingInstruction + dOMDocumentCreateProcessingInstruction , + + +-- ** dOMDocumentCreateRange + dOMDocumentCreateRange , + + +-- ** dOMDocumentCreateTextNode + dOMDocumentCreateTextNode , + + +-- ** dOMDocumentCreateTouch + dOMDocumentCreateTouch , + + +-- ** dOMDocumentCreateTreeWalker + dOMDocumentCreateTreeWalker , + + +-- ** dOMDocumentElementFromPoint + dOMDocumentElementFromPoint , + + +-- ** dOMDocumentEvaluate + dOMDocumentEvaluate , + + +-- ** dOMDocumentExecCommand + dOMDocumentExecCommand , + + +-- ** dOMDocumentGetAnchors + dOMDocumentGetAnchors , + + +-- ** dOMDocumentGetApplets + dOMDocumentGetApplets , + + +-- ** dOMDocumentGetBody + dOMDocumentGetBody , + + +-- ** dOMDocumentGetCharacterSet + dOMDocumentGetCharacterSet , + + +-- ** dOMDocumentGetCharset + dOMDocumentGetCharset , + + +-- ** dOMDocumentGetCompatMode + dOMDocumentGetCompatMode , + + +-- ** dOMDocumentGetCookie + dOMDocumentGetCookie , + + +-- ** dOMDocumentGetCurrentScript + dOMDocumentGetCurrentScript , + + +-- ** dOMDocumentGetDefaultCharset + dOMDocumentGetDefaultCharset , + + +-- ** dOMDocumentGetDefaultView + dOMDocumentGetDefaultView , + + +-- ** dOMDocumentGetDoctype + dOMDocumentGetDoctype , + + +-- ** dOMDocumentGetDocumentElement + dOMDocumentGetDocumentElement , + + +-- ** dOMDocumentGetDocumentUri + dOMDocumentGetDocumentUri , + + +-- ** dOMDocumentGetDomain + dOMDocumentGetDomain , + + +-- ** dOMDocumentGetElementById + dOMDocumentGetElementById , + + +-- ** dOMDocumentGetElementsByClassName + dOMDocumentGetElementsByClassName , + + +-- ** dOMDocumentGetElementsByName + dOMDocumentGetElementsByName , + + +-- ** dOMDocumentGetElementsByTagName + dOMDocumentGetElementsByTagName , + + +-- ** dOMDocumentGetElementsByTagNameNs + dOMDocumentGetElementsByTagNameNs , + + +-- ** dOMDocumentGetForms + dOMDocumentGetForms , + + +-- ** dOMDocumentGetHead + dOMDocumentGetHead , + + +-- ** dOMDocumentGetHidden + dOMDocumentGetHidden , + + +-- ** dOMDocumentGetImages + dOMDocumentGetImages , + + +-- ** dOMDocumentGetImplementation + dOMDocumentGetImplementation , + + +-- ** dOMDocumentGetInputEncoding + dOMDocumentGetInputEncoding , + + +-- ** dOMDocumentGetLastModified + dOMDocumentGetLastModified , + + +-- ** dOMDocumentGetLinks + dOMDocumentGetLinks , + + +-- ** dOMDocumentGetOverrideStyle + dOMDocumentGetOverrideStyle , + + +-- ** dOMDocumentGetPreferredStylesheetSet + dOMDocumentGetPreferredStylesheetSet , + + +-- ** dOMDocumentGetReadyState + dOMDocumentGetReadyState , + + +-- ** dOMDocumentGetReferrer + dOMDocumentGetReferrer , + + +-- ** dOMDocumentGetSecurityPolicy + dOMDocumentGetSecurityPolicy , + + +-- ** dOMDocumentGetSelectedStylesheetSet + dOMDocumentGetSelectedStylesheetSet , + + +-- ** dOMDocumentGetStyleSheets + dOMDocumentGetStyleSheets , + + +-- ** dOMDocumentGetTitle + dOMDocumentGetTitle , + + +-- ** dOMDocumentGetUrl + dOMDocumentGetUrl , + + +-- ** dOMDocumentGetVisibilityState + dOMDocumentGetVisibilityState , + + +-- ** dOMDocumentGetWebkitCurrentFullScreenElement + dOMDocumentGetWebkitCurrentFullScreenElement, + + +-- ** dOMDocumentGetWebkitFullScreenKeyboardInputAllowed + dOMDocumentGetWebkitFullScreenKeyboardInputAllowed, + + +-- ** dOMDocumentGetWebkitFullscreenElement + dOMDocumentGetWebkitFullscreenElement , + + +-- ** dOMDocumentGetWebkitFullscreenEnabled + dOMDocumentGetWebkitFullscreenEnabled , + + +-- ** dOMDocumentGetWebkitHidden + dOMDocumentGetWebkitHidden , + + +-- ** dOMDocumentGetWebkitIsFullScreen + dOMDocumentGetWebkitIsFullScreen , + + +-- ** dOMDocumentGetWebkitPointerLockElement + dOMDocumentGetWebkitPointerLockElement , + + +-- ** dOMDocumentGetWebkitVisibilityState + dOMDocumentGetWebkitVisibilityState , + + +-- ** dOMDocumentGetXmlEncoding + dOMDocumentGetXmlEncoding , + + +-- ** dOMDocumentGetXmlStandalone + dOMDocumentGetXmlStandalone , + + +-- ** dOMDocumentGetXmlVersion + dOMDocumentGetXmlVersion , + + +-- ** dOMDocumentImportNode + dOMDocumentImportNode , + + +-- ** dOMDocumentQueryCommandEnabled + dOMDocumentQueryCommandEnabled , + + +-- ** dOMDocumentQueryCommandIndeterm + dOMDocumentQueryCommandIndeterm , + + +-- ** dOMDocumentQueryCommandState + dOMDocumentQueryCommandState , + + +-- ** dOMDocumentQueryCommandSupported + dOMDocumentQueryCommandSupported , + + +-- ** dOMDocumentQueryCommandValue + dOMDocumentQueryCommandValue , + + +-- ** dOMDocumentQuerySelector + dOMDocumentQuerySelector , + + +-- ** dOMDocumentQuerySelectorAll + dOMDocumentQuerySelectorAll , + + +-- ** dOMDocumentSetBody + dOMDocumentSetBody , + + +-- ** dOMDocumentSetCharset + dOMDocumentSetCharset , + + +-- ** dOMDocumentSetCookie + dOMDocumentSetCookie , + + +-- ** dOMDocumentSetDocumentUri + dOMDocumentSetDocumentUri , + + +-- ** dOMDocumentSetSelectedStylesheetSet + dOMDocumentSetSelectedStylesheetSet , + + +-- ** dOMDocumentSetTitle + dOMDocumentSetTitle , + + +-- ** dOMDocumentSetXmlStandalone + dOMDocumentSetXmlStandalone , + + +-- ** dOMDocumentSetXmlVersion + dOMDocumentSetXmlVersion , + + +-- ** dOMDocumentWebkitCancelFullScreen + dOMDocumentWebkitCancelFullScreen , + + +-- ** dOMDocumentWebkitExitFullscreen + dOMDocumentWebkitExitFullscreen , + + +-- ** dOMDocumentWebkitExitPointerLock + dOMDocumentWebkitExitPointerLock , + + +-- ** dOMDocumentWebkitGetNamedFlows + dOMDocumentWebkitGetNamedFlows , + + + + + -- * Properties +-- ** Anchors + DOMDocumentAnchorsPropertyInfo , + getDOMDocumentAnchors , + + +-- ** Applets + DOMDocumentAppletsPropertyInfo , + getDOMDocumentApplets , + + +-- ** Body + DOMDocumentBodyPropertyInfo , + getDOMDocumentBody , + + +-- ** CharacterSet + DOMDocumentCharacterSetPropertyInfo , + getDOMDocumentCharacterSet , + + +-- ** Charset + DOMDocumentCharsetPropertyInfo , + constructDOMDocumentCharset , + getDOMDocumentCharset , + setDOMDocumentCharset , + + +-- ** CompatMode + DOMDocumentCompatModePropertyInfo , + getDOMDocumentCompatMode , + + +-- ** Cookie + DOMDocumentCookiePropertyInfo , + constructDOMDocumentCookie , + getDOMDocumentCookie , + setDOMDocumentCookie , + + +-- ** CurrentScript + DOMDocumentCurrentScriptPropertyInfo , + getDOMDocumentCurrentScript , + + +-- ** DefaultCharset + DOMDocumentDefaultCharsetPropertyInfo , + getDOMDocumentDefaultCharset , + + +-- ** DefaultView + DOMDocumentDefaultViewPropertyInfo , + getDOMDocumentDefaultView , + + +-- ** Doctype + DOMDocumentDoctypePropertyInfo , + getDOMDocumentDoctype , + + +-- ** DocumentElement + DOMDocumentDocumentElementPropertyInfo , + getDOMDocumentDocumentElement , + + +-- ** DocumentUri + DOMDocumentDocumentUriPropertyInfo , + constructDOMDocumentDocumentUri , + getDOMDocumentDocumentUri , + setDOMDocumentDocumentUri , + + +-- ** Domain + DOMDocumentDomainPropertyInfo , + getDOMDocumentDomain , + + +-- ** Forms + DOMDocumentFormsPropertyInfo , + getDOMDocumentForms , + + +-- ** Head + DOMDocumentHeadPropertyInfo , + getDOMDocumentHead , + + +-- ** Hidden + DOMDocumentHiddenPropertyInfo , + getDOMDocumentHidden , + + +-- ** Images + DOMDocumentImagesPropertyInfo , + getDOMDocumentImages , + + +-- ** Implementation + DOMDocumentImplementationPropertyInfo , + getDOMDocumentImplementation , + + +-- ** InputEncoding + DOMDocumentInputEncodingPropertyInfo , + getDOMDocumentInputEncoding , + + +-- ** LastModified + DOMDocumentLastModifiedPropertyInfo , + getDOMDocumentLastModified , + + +-- ** Links + DOMDocumentLinksPropertyInfo , + getDOMDocumentLinks , + + +-- ** PreferredStylesheetSet + DOMDocumentPreferredStylesheetSetPropertyInfo, + getDOMDocumentPreferredStylesheetSet , + + +-- ** ReadyState + DOMDocumentReadyStatePropertyInfo , + getDOMDocumentReadyState , + + +-- ** Referrer + DOMDocumentReferrerPropertyInfo , + getDOMDocumentReferrer , + + +-- ** SecurityPolicy + DOMDocumentSecurityPolicyPropertyInfo , + getDOMDocumentSecurityPolicy , + + +-- ** SelectedStylesheetSet + DOMDocumentSelectedStylesheetSetPropertyInfo, + constructDOMDocumentSelectedStylesheetSet, + getDOMDocumentSelectedStylesheetSet , + setDOMDocumentSelectedStylesheetSet , + + +-- ** StyleSheets + DOMDocumentStyleSheetsPropertyInfo , + getDOMDocumentStyleSheets , + + +-- ** Title + DOMDocumentTitlePropertyInfo , + constructDOMDocumentTitle , + getDOMDocumentTitle , + setDOMDocumentTitle , + + +-- ** Url + DOMDocumentUrlPropertyInfo , + getDOMDocumentUrl , + + +-- ** VisibilityState + DOMDocumentVisibilityStatePropertyInfo , + getDOMDocumentVisibilityState , + + +-- ** WebkitCurrentFullScreenElement + DOMDocumentWebkitCurrentFullScreenElementPropertyInfo, + getDOMDocumentWebkitCurrentFullScreenElement, + + +-- ** WebkitFullScreenKeyboardInputAllowed + DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo, + getDOMDocumentWebkitFullScreenKeyboardInputAllowed, + + +-- ** WebkitFullscreenElement + DOMDocumentWebkitFullscreenElementPropertyInfo, + getDOMDocumentWebkitFullscreenElement , + + +-- ** WebkitFullscreenEnabled + DOMDocumentWebkitFullscreenEnabledPropertyInfo, + getDOMDocumentWebkitFullscreenEnabled , + + +-- ** WebkitIsFullScreen + DOMDocumentWebkitIsFullScreenPropertyInfo, + getDOMDocumentWebkitIsFullScreen , + + +-- ** WebkitPointerLockElement + DOMDocumentWebkitPointerLockElementPropertyInfo, + getDOMDocumentWebkitPointerLockElement , + + +-- ** XmlEncoding + DOMDocumentXmlEncodingPropertyInfo , + getDOMDocumentXmlEncoding , + + +-- ** XmlStandalone + DOMDocumentXmlStandalonePropertyInfo , + constructDOMDocumentXmlStandalone , + getDOMDocumentXmlStandalone , + setDOMDocumentXmlStandalone , + + +-- ** XmlVersion + DOMDocumentXmlVersionPropertyInfo , + constructDOMDocumentXmlVersion , + getDOMDocumentXmlVersion , + setDOMDocumentXmlVersion , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDocument = DOMDocument (ForeignPtr DOMDocument) +foreign import ccall "webkit_dom_document_get_type" + c_webkit_dom_document_get_type :: IO GType + +type instance ParentTypes DOMDocument = DOMDocumentParentTypes +type DOMDocumentParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMDocument where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_document_get_type + + +class GObject o => DOMDocumentK o +instance (GObject o, IsDescendantOf DOMDocument o) => DOMDocumentK o + +toDOMDocument :: DOMDocumentK o => o -> IO DOMDocument +toDOMDocument = unsafeCastTo DOMDocument + +noDOMDocument :: Maybe DOMDocument +noDOMDocument = Nothing + +-- VVV Prop "anchors" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection + +data DOMDocumentAnchorsPropertyInfo +instance AttrInfo DOMDocumentAnchorsPropertyInfo where + type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentAnchorsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentAnchorsPropertyInfo = "DOMDocument::anchors" + attrGet _ = getDOMDocumentAnchors + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "applets" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection + +data DOMDocumentAppletsPropertyInfo +instance AttrInfo DOMDocumentAppletsPropertyInfo where + type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentAppletsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentAppletsPropertyInfo = "DOMDocument::applets" + attrGet _ = getDOMDocumentApplets + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "body" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement +getDOMDocumentBody obj = liftIO $ getObjectPropertyObject obj "body" DOMHTMLElement + +data DOMDocumentBodyPropertyInfo +instance AttrInfo DOMDocumentBodyPropertyInfo where + type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement + type AttrLabel DOMDocumentBodyPropertyInfo = "DOMDocument::body" + attrGet _ = getDOMDocumentBody + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "character-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set" + +data DOMDocumentCharacterSetPropertyInfo +instance AttrInfo DOMDocumentCharacterSetPropertyInfo where + type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCharacterSetPropertyInfo = T.Text + type AttrLabel DOMDocumentCharacterSetPropertyInfo = "DOMDocument::character-set" + attrGet _ = getDOMDocumentCharacterSet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue) +constructDOMDocumentCharset val = constructObjectPropertyString "charset" val + +data DOMDocumentCharsetPropertyInfo +instance AttrInfo DOMDocumentCharsetPropertyInfo where + type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCharsetPropertyInfo = T.Text + type AttrLabel DOMDocumentCharsetPropertyInfo = "DOMDocument::charset" + attrGet _ = getDOMDocumentCharset + attrSet _ = setDOMDocumentCharset + attrConstruct _ = constructDOMDocumentCharset + +-- VVV Prop "compat-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" + +data DOMDocumentCompatModePropertyInfo +instance AttrInfo DOMDocumentCompatModePropertyInfo where + type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCompatModePropertyInfo = T.Text + type AttrLabel DOMDocumentCompatModePropertyInfo = "DOMDocument::compat-mode" + attrGet _ = getDOMDocumentCompatMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cookie" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie" + +setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" val + +constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue) +constructDOMDocumentCookie val = constructObjectPropertyString "cookie" val + +data DOMDocumentCookiePropertyInfo +instance AttrInfo DOMDocumentCookiePropertyInfo where + type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCookiePropertyInfo = T.Text + type AttrLabel DOMDocumentCookiePropertyInfo = "DOMDocument::cookie" + attrGet _ = getDOMDocumentCookie + attrSet _ = setDOMDocumentCookie + attrConstruct _ = constructDOMDocumentCookie + +-- VVV Prop "current-script" + -- Type: TInterface "WebKit" "DOMHTMLScriptElement" + -- Flags: [PropertyReadable] + +getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement +getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement + +data DOMDocumentCurrentScriptPropertyInfo +instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where + type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCurrentScriptPropertyInfo = DOMHTMLScriptElement + type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "DOMDocument::current-script" + attrGet _ = getDOMDocumentCurrentScript + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" + +data DOMDocumentDefaultCharsetPropertyInfo +instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where + type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = T.Text + type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "DOMDocument::default-charset" + attrGet _ = getDOMDocumentDefaultCharset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-view" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMWindow +getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow + +data DOMDocumentDefaultViewPropertyInfo +instance AttrInfo DOMDocumentDefaultViewPropertyInfo where + type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDefaultViewPropertyInfo = DOMDOMWindow + type AttrLabel DOMDocumentDefaultViewPropertyInfo = "DOMDocument::default-view" + attrGet _ = getDOMDocumentDefaultView + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "doctype" + -- Type: TInterface "WebKit" "DOMDocumentType" + -- Flags: [PropertyReadable] + +getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType +getDOMDocumentDoctype obj = liftIO $ getObjectPropertyObject obj "doctype" DOMDocumentType + +data DOMDocumentDoctypePropertyInfo +instance AttrInfo DOMDocumentDoctypePropertyInfo where + type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType + type AttrLabel DOMDocumentDoctypePropertyInfo = "DOMDocument::doctype" + attrGet _ = getDOMDocumentDoctype + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentDocumentElement obj = liftIO $ getObjectPropertyObject obj "document-element" DOMElement + +data DOMDocumentDocumentElementPropertyInfo +instance AttrInfo DOMDocumentDocumentElementPropertyInfo where + type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentDocumentElementPropertyInfo = "DOMDocument::document-element" + attrGet _ = getDOMDocumentDocumentElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDocumentUri obj = liftIO $ getObjectPropertyString obj "document-uri" + +setDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" val + +constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue) +constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" val + +data DOMDocumentDocumentUriPropertyInfo +instance AttrInfo DOMDocumentDocumentUriPropertyInfo where + type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDocumentUriPropertyInfo = T.Text + type AttrLabel DOMDocumentDocumentUriPropertyInfo = "DOMDocument::document-uri" + attrGet _ = getDOMDocumentDocumentUri + attrSet _ = setDOMDocumentDocumentUri + attrConstruct _ = constructDOMDocumentDocumentUri + +-- VVV Prop "domain" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain" + +data DOMDocumentDomainPropertyInfo +instance AttrInfo DOMDocumentDomainPropertyInfo where + type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDomainPropertyInfo = T.Text + type AttrLabel DOMDocumentDomainPropertyInfo = "DOMDocument::domain" + attrGet _ = getDOMDocumentDomain + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "forms" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection + +data DOMDocumentFormsPropertyInfo +instance AttrInfo DOMDocumentFormsPropertyInfo where + type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentFormsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentFormsPropertyInfo = "DOMDocument::forms" + attrGet _ = getDOMDocumentForms + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "head" + -- Type: TInterface "WebKit" "DOMHTMLHeadElement" + -- Flags: [PropertyReadable] + +getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement +getDOMDocumentHead obj = liftIO $ getObjectPropertyObject obj "head" DOMHTMLHeadElement + +data DOMDocumentHeadPropertyInfo +instance AttrInfo DOMDocumentHeadPropertyInfo where + type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement + type AttrLabel DOMDocumentHeadPropertyInfo = "DOMDocument::head" + attrGet _ = getDOMDocumentHead + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden" + +data DOMDocumentHiddenPropertyInfo +instance AttrInfo DOMDocumentHiddenPropertyInfo where + type AttrAllowedOps DOMDocumentHiddenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentHiddenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentHiddenPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentHiddenPropertyInfo = Bool + type AttrLabel DOMDocumentHiddenPropertyInfo = "DOMDocument::hidden" + attrGet _ = getDOMDocumentHidden + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "images" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection + +data DOMDocumentImagesPropertyInfo +instance AttrInfo DOMDocumentImagesPropertyInfo where + type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentImagesPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentImagesPropertyInfo = "DOMDocument::images" + attrGet _ = getDOMDocumentImages + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "implementation" + -- Type: TInterface "WebKit" "DOMDOMImplementation" + -- Flags: [PropertyReadable] + +getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMImplementation +getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation + +data DOMDocumentImplementationPropertyInfo +instance AttrInfo DOMDocumentImplementationPropertyInfo where + type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentImplementationPropertyInfo = DOMDOMImplementation + type AttrLabel DOMDocumentImplementationPropertyInfo = "DOMDocument::implementation" + attrGet _ = getDOMDocumentImplementation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "input-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding" + +data DOMDocumentInputEncodingPropertyInfo +instance AttrInfo DOMDocumentInputEncodingPropertyInfo where + type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentInputEncodingPropertyInfo = T.Text + type AttrLabel DOMDocumentInputEncodingPropertyInfo = "DOMDocument::input-encoding" + attrGet _ = getDOMDocumentInputEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "last-modified" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified" + +data DOMDocumentLastModifiedPropertyInfo +instance AttrInfo DOMDocumentLastModifiedPropertyInfo where + type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentLastModifiedPropertyInfo = T.Text + type AttrLabel DOMDocumentLastModifiedPropertyInfo = "DOMDocument::last-modified" + attrGet _ = getDOMDocumentLastModified + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "links" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection + +data DOMDocumentLinksPropertyInfo +instance AttrInfo DOMDocumentLinksPropertyInfo where + type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentLinksPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentLinksPropertyInfo = "DOMDocument::links" + attrGet _ = getDOMDocumentLinks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "preferred-stylesheet-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set" + +data DOMDocumentPreferredStylesheetSetPropertyInfo +instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where + type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = T.Text + type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "DOMDocument::preferred-stylesheet-set" + attrGet _ = getDOMDocumentPreferredStylesheetSet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ready-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state" + +data DOMDocumentReadyStatePropertyInfo +instance AttrInfo DOMDocumentReadyStatePropertyInfo where + type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentReadyStatePropertyInfo = T.Text + type AttrLabel DOMDocumentReadyStatePropertyInfo = "DOMDocument::ready-state" + attrGet _ = getDOMDocumentReadyState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "referrer" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer" + +data DOMDocumentReferrerPropertyInfo +instance AttrInfo DOMDocumentReferrerPropertyInfo where + type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentReferrerPropertyInfo = T.Text + type AttrLabel DOMDocumentReferrerPropertyInfo = "DOMDocument::referrer" + attrGet _ = getDOMDocumentReferrer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "security-policy" + -- Type: TInterface "WebKit" "DOMDOMSecurityPolicy" + -- Flags: [PropertyReadable] + +getDOMDocumentSecurityPolicy :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMSecurityPolicy +getDOMDocumentSecurityPolicy obj = liftIO $ getObjectPropertyObject obj "security-policy" DOMDOMSecurityPolicy + +data DOMDocumentSecurityPolicyPropertyInfo +instance AttrInfo DOMDocumentSecurityPolicyPropertyInfo where + type AttrAllowedOps DOMDocumentSecurityPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentSecurityPolicyPropertyInfo = DOMDOMSecurityPolicy + type AttrLabel DOMDocumentSecurityPolicyPropertyInfo = "DOMDocument::security-policy" + attrGet _ = getDOMDocumentSecurityPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-stylesheet-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentSelectedStylesheetSet obj = liftIO $ getObjectPropertyString obj "selected-stylesheet-set" + +setDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" val + +constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue) +constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" val + +data DOMDocumentSelectedStylesheetSetPropertyInfo +instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where + type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text + type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "DOMDocument::selected-stylesheet-set" + attrGet _ = getDOMDocumentSelectedStylesheetSet + attrSet _ = setDOMDocumentSelectedStylesheetSet + attrConstruct _ = constructDOMDocumentSelectedStylesheetSet + +-- VVV Prop "style-sheets" + -- Type: TInterface "WebKit" "DOMStyleSheetList" + -- Flags: [PropertyReadable] + +getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList +getDOMDocumentStyleSheets obj = liftIO $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList + +data DOMDocumentStyleSheetsPropertyInfo +instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where + type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList + type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "DOMDocument::style-sheets" + attrGet _ = getDOMDocumentStyleSheets + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" + +setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue) +constructDOMDocumentTitle val = constructObjectPropertyString "title" val + +data DOMDocumentTitlePropertyInfo +instance AttrInfo DOMDocumentTitlePropertyInfo where + type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentTitlePropertyInfo = T.Text + type AttrLabel DOMDocumentTitlePropertyInfo = "DOMDocument::title" + attrGet _ = getDOMDocumentTitle + attrSet _ = setDOMDocumentTitle + attrConstruct _ = constructDOMDocumentTitle + +-- VVV Prop "url" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url" + +data DOMDocumentUrlPropertyInfo +instance AttrInfo DOMDocumentUrlPropertyInfo where + type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentUrlPropertyInfo = T.Text + type AttrLabel DOMDocumentUrlPropertyInfo = "DOMDocument::url" + attrGet _ = getDOMDocumentUrl + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "visibility-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state" + +data DOMDocumentVisibilityStatePropertyInfo +instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where + type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentVisibilityStatePropertyInfo = T.Text + type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "DOMDocument::visibility-state" + attrGet _ = getDOMDocumentVisibilityState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-current-full-screen-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement + +data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo +instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "DOMDocument::webkit-current-full-screen-element" + attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-full-screen-keyboard-input-allowed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed" + +data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo +instance AttrInfo DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = "DOMDocument::webkit-full-screen-keyboard-input-allowed" + attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-fullscreen-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement + +data DOMDocumentWebkitFullscreenElementPropertyInfo +instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "DOMDocument::webkit-fullscreen-element" + attrGet _ = getDOMDocumentWebkitFullscreenElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-fullscreen-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled" + +data DOMDocumentWebkitFullscreenEnabledPropertyInfo +instance AttrInfo DOMDocumentWebkitFullscreenEnabledPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullscreenEnabledPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullscreenEnabledPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitFullscreenEnabledPropertyInfo = "DOMDocument::webkit-fullscreen-enabled" + attrGet _ = getDOMDocumentWebkitFullscreenEnabled + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-is-full-screen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen" + +data DOMDocumentWebkitIsFullScreenPropertyInfo +instance AttrInfo DOMDocumentWebkitIsFullScreenPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitIsFullScreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitIsFullScreenPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitIsFullScreenPropertyInfo = "DOMDocument::webkit-is-full-screen" + attrGet _ = getDOMDocumentWebkitIsFullScreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-pointer-lock-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitPointerLockElement obj = liftIO $ getObjectPropertyObject obj "webkit-pointer-lock-element" DOMElement + +data DOMDocumentWebkitPointerLockElementPropertyInfo +instance AttrInfo DOMDocumentWebkitPointerLockElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitPointerLockElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitPointerLockElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitPointerLockElementPropertyInfo = "DOMDocument::webkit-pointer-lock-element" + attrGet _ = getDOMDocumentWebkitPointerLockElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "xml-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding" + +data DOMDocumentXmlEncodingPropertyInfo +instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where + type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlEncodingPropertyInfo = T.Text + type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "DOMDocument::xml-encoding" + attrGet _ = getDOMDocumentXmlEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "xml-standalone" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentXmlStandalone obj = liftIO $ getObjectPropertyBool obj "xml-standalone" + +setDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> Bool -> m () +setDOMDocumentXmlStandalone obj val = liftIO $ setObjectPropertyBool obj "xml-standalone" val + +constructDOMDocumentXmlStandalone :: Bool -> IO ([Char], GValue) +constructDOMDocumentXmlStandalone val = constructObjectPropertyBool "xml-standalone" val + +data DOMDocumentXmlStandalonePropertyInfo +instance AttrInfo DOMDocumentXmlStandalonePropertyInfo where + type AttrAllowedOps DOMDocumentXmlStandalonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMDocumentXmlStandalonePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlStandalonePropertyInfo = Bool + type AttrLabel DOMDocumentXmlStandalonePropertyInfo = "DOMDocument::xml-standalone" + attrGet _ = getDOMDocumentXmlStandalone + attrSet _ = setDOMDocumentXmlStandalone + attrConstruct _ = constructDOMDocumentXmlStandalone + +-- VVV Prop "xml-version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlVersion obj = liftIO $ getObjectPropertyString obj "xml-version" + +setDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" val + +constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue) +constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" val + +data DOMDocumentXmlVersionPropertyInfo +instance AttrInfo DOMDocumentXmlVersionPropertyInfo where + type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlVersionPropertyInfo = T.Text + type AttrLabel DOMDocumentXmlVersionPropertyInfo = "DOMDocument::xml-version" + attrGet _ = getDOMDocumentXmlVersion + attrSet _ = setDOMDocumentXmlVersion + attrConstruct _ = constructDOMDocumentXmlVersion + +type instance AttributeList DOMDocument = DOMDocumentAttributeList +type DOMDocumentAttributeList = ('[ '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDocument = DOMDocumentSignalList +type DOMDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDocument::adopt_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_adopt_node" webkit_dom_document_adopt_node :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMNode -> -- source : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMDocumentAdoptNode :: + (MonadIO m, DOMDocumentK a, DOMNodeK b) => + a -> -- _obj + b -> -- source + m DOMNode +dOMDocumentAdoptNode _obj source = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let source' = unsafeManagedPtrCastPtr source + onException (do + result <- propagateGError $ webkit_dom_document_adopt_node _obj' source' + checkUnexpectedReturnNULL "webkit_dom_document_adopt_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr source + return result' + ) (do + return () + ) + +-- method DOMDocument::caret_range_from_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMRange" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_caret_range_from_point" webkit_dom_document_caret_range_from_point :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO (Ptr DOMRange) + + +dOMDocumentCaretRangeFromPoint :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m DOMRange +dOMDocumentCaretRangeFromPoint _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_caret_range_from_point _obj' x y + checkUnexpectedReturnNULL "webkit_dom_document_caret_range_from_point" result + result' <- (wrapObject DOMRange) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::create_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_attribute" webkit_dom_document_create_attribute :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMAttr) + + +dOMDocumentCreateAttribute :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- name + m DOMAttr +dOMDocumentCreateAttribute _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + onException (do + result <- propagateGError $ webkit_dom_document_create_attribute _obj' name' + checkUnexpectedReturnNULL "webkit_dom_document_create_attribute" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + freeMem name' + return result' + ) (do + freeMem name' + ) + +-- method DOMDocument::create_attribute_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_attribute_ns" webkit_dom_document_create_attribute_ns :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- qualifiedName : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMAttr) + + +dOMDocumentCreateAttributeNs :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Maybe (T.Text) -> -- namespaceURI + T.Text -> -- qualifiedName + m DOMAttr +dOMDocumentCreateAttributeNs _obj namespaceURI qualifiedName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeNamespaceURI <- case namespaceURI of + Nothing -> return nullPtr + Just jNamespaceURI -> do + jNamespaceURI' <- textToCString jNamespaceURI + return jNamespaceURI' + qualifiedName' <- textToCString qualifiedName + onException (do + result <- propagateGError $ webkit_dom_document_create_attribute_ns _obj' maybeNamespaceURI qualifiedName' + checkUnexpectedReturnNULL "webkit_dom_document_create_attribute_ns" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + freeMem maybeNamespaceURI + freeMem qualifiedName' + return result' + ) (do + freeMem maybeNamespaceURI + freeMem qualifiedName' + ) + +-- method DOMDocument::create_cdata_section +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCDATASection" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_cdata_section" webkit_dom_document_create_cdata_section :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMCDATASection) + + +dOMDocumentCreateCdataSection :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- data + m DOMCDATASection +dOMDocumentCreateCdataSection _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + onException (do + result <- propagateGError $ webkit_dom_document_create_cdata_section _obj' data_' + checkUnexpectedReturnNULL "webkit_dom_document_create_cdata_section" result + result' <- (newObject DOMCDATASection) result + touchManagedPtr _obj + freeMem data_' + return result' + ) (do + freeMem data_' + ) + +-- method DOMDocument::create_comment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMComment" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_comment" webkit_dom_document_create_comment :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- data : TBasicType TUTF8 + IO (Ptr DOMComment) + + +dOMDocumentCreateComment :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- data + m DOMComment +dOMDocumentCreateComment _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + result <- webkit_dom_document_create_comment _obj' data_' + checkUnexpectedReturnNULL "webkit_dom_document_create_comment" result + result' <- (newObject DOMComment) result + touchManagedPtr _obj + freeMem data_' + return result' + +-- method DOMDocument::create_css_style_declaration +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_css_style_declaration" webkit_dom_document_create_css_style_declaration :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMCSSStyleDeclaration) + + +dOMDocumentCreateCssStyleDeclaration :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMCSSStyleDeclaration +dOMDocumentCreateCssStyleDeclaration _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_create_css_style_declaration _obj' + checkUnexpectedReturnNULL "webkit_dom_document_create_css_style_declaration" result + result' <- (wrapObject DOMCSSStyleDeclaration) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::create_document_fragment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_document_fragment" webkit_dom_document_create_document_fragment :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDocumentFragment) + + +dOMDocumentCreateDocumentFragment :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDocumentFragment +dOMDocumentCreateDocumentFragment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_create_document_fragment _obj' + checkUnexpectedReturnNULL "webkit_dom_document_create_document_fragment" result + result' <- (newObject DOMDocumentFragment) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::create_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_element" webkit_dom_document_create_element :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- tagName : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMDocumentCreateElement :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- tagName + m DOMElement +dOMDocumentCreateElement _obj tagName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagName' <- textToCString tagName + onException (do + result <- propagateGError $ webkit_dom_document_create_element _obj' tagName' + checkUnexpectedReturnNULL "webkit_dom_document_create_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem tagName' + return result' + ) (do + freeMem tagName' + ) + +-- method DOMDocument::create_element_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_element_ns" webkit_dom_document_create_element_ns :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- qualifiedName : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMDocumentCreateElementNs :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Maybe (T.Text) -> -- namespaceURI + T.Text -> -- qualifiedName + m DOMElement +dOMDocumentCreateElementNs _obj namespaceURI qualifiedName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeNamespaceURI <- case namespaceURI of + Nothing -> return nullPtr + Just jNamespaceURI -> do + jNamespaceURI' <- textToCString jNamespaceURI + return jNamespaceURI' + qualifiedName' <- textToCString qualifiedName + onException (do + result <- propagateGError $ webkit_dom_document_create_element_ns _obj' maybeNamespaceURI qualifiedName' + checkUnexpectedReturnNULL "webkit_dom_document_create_element_ns" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem maybeNamespaceURI + freeMem qualifiedName' + return result' + ) (do + freeMem maybeNamespaceURI + freeMem qualifiedName' + ) + +-- method DOMDocument::create_entity_reference +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEntityReference" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_entity_reference" webkit_dom_document_create_entity_reference :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMEntityReference) + + +dOMDocumentCreateEntityReference :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Maybe (T.Text) -> -- name + m DOMEntityReference +dOMDocumentCreateEntityReference _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeName <- case name of + Nothing -> return nullPtr + Just jName -> do + jName' <- textToCString jName + return jName' + onException (do + result <- propagateGError $ webkit_dom_document_create_entity_reference _obj' maybeName + checkUnexpectedReturnNULL "webkit_dom_document_create_entity_reference" result + result' <- (newObject DOMEntityReference) result + touchManagedPtr _obj + freeMem maybeName + return result' + ) (do + freeMem maybeName + ) + +-- method DOMDocument::create_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEvent" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_event" webkit_dom_document_create_event :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- eventType : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMEvent) + + +dOMDocumentCreateEvent :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- eventType + m DOMEvent +dOMDocumentCreateEvent _obj eventType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + eventType' <- textToCString eventType + onException (do + result <- propagateGError $ webkit_dom_document_create_event _obj' eventType' + checkUnexpectedReturnNULL "webkit_dom_document_create_event" result + result' <- (wrapObject DOMEvent) result + touchManagedPtr _obj + freeMem eventType' + return result' + ) (do + freeMem eventType' + ) + +-- method DOMDocument::create_expression +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMXPathExpression" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_expression" webkit_dom_document_create_expression :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- expression : TBasicType TUTF8 + Ptr DOMXPathNSResolver -> -- resolver : TInterface "WebKit" "DOMXPathNSResolver" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMXPathExpression) + + +dOMDocumentCreateExpression :: + (MonadIO m, DOMDocumentK a, DOMXPathNSResolverK b) => + a -> -- _obj + T.Text -> -- expression + b -> -- resolver + m DOMXPathExpression +dOMDocumentCreateExpression _obj expression resolver = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + expression' <- textToCString expression + let resolver' = unsafeManagedPtrCastPtr resolver + onException (do + result <- propagateGError $ webkit_dom_document_create_expression _obj' expression' resolver' + checkUnexpectedReturnNULL "webkit_dom_document_create_expression" result + result' <- (wrapObject DOMXPathExpression) result + touchManagedPtr _obj + touchManagedPtr resolver + freeMem expression' + return result' + ) (do + freeMem expression' + ) + +-- method DOMDocument::create_node_iterator +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeIterator" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_node_iterator" webkit_dom_document_create_node_iterator :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode" + Word64 -> -- whatToShow : TBasicType TUInt64 + Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter" + CInt -> -- expandEntityReferences : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNodeIterator) + + +dOMDocumentCreateNodeIterator :: + (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => + a -> -- _obj + b -> -- root + Word64 -> -- whatToShow + c -> -- filter + Bool -> -- expandEntityReferences + m DOMNodeIterator +dOMDocumentCreateNodeIterator _obj root whatToShow filter expandEntityReferences = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let root' = unsafeManagedPtrCastPtr root + let filter' = unsafeManagedPtrCastPtr filter + let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences + onException (do + result <- propagateGError $ webkit_dom_document_create_node_iterator _obj' root' whatToShow filter' expandEntityReferences' + checkUnexpectedReturnNULL "webkit_dom_document_create_node_iterator" result + result' <- (wrapObject DOMNodeIterator) result + touchManagedPtr _obj + touchManagedPtr root + touchManagedPtr filter + return result' + ) (do + return () + ) + +-- method DOMDocument::create_ns_resolver +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMXPathNSResolver" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_ns_resolver" webkit_dom_document_create_ns_resolver :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMNode -> -- nodeResolver : TInterface "WebKit" "DOMNode" + IO (Ptr DOMXPathNSResolver) + + +dOMDocumentCreateNsResolver :: + (MonadIO m, DOMDocumentK a, DOMNodeK b) => + a -> -- _obj + b -> -- nodeResolver + m DOMXPathNSResolver +dOMDocumentCreateNsResolver _obj nodeResolver = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let nodeResolver' = unsafeManagedPtrCastPtr nodeResolver + result <- webkit_dom_document_create_ns_resolver _obj' nodeResolver' + checkUnexpectedReturnNULL "webkit_dom_document_create_ns_resolver" result + result' <- (wrapObject DOMXPathNSResolver) result + touchManagedPtr _obj + touchManagedPtr nodeResolver + return result' + +-- method DOMDocument::create_processing_instruction +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMProcessingInstruction" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_processing_instruction" webkit_dom_document_create_processing_instruction :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- target : TBasicType TUTF8 + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMProcessingInstruction) + + +dOMDocumentCreateProcessingInstruction :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- target + T.Text -> -- data + m DOMProcessingInstruction +dOMDocumentCreateProcessingInstruction _obj target data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + target' <- textToCString target + data_' <- textToCString data_ + onException (do + result <- propagateGError $ webkit_dom_document_create_processing_instruction _obj' target' data_' + checkUnexpectedReturnNULL "webkit_dom_document_create_processing_instruction" result + result' <- (newObject DOMProcessingInstruction) result + touchManagedPtr _obj + freeMem target' + freeMem data_' + return result' + ) (do + freeMem target' + freeMem data_' + ) + +-- method DOMDocument::create_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMRange" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_range" webkit_dom_document_create_range :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMRange) + + +dOMDocumentCreateRange :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMRange +dOMDocumentCreateRange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_create_range _obj' + checkUnexpectedReturnNULL "webkit_dom_document_create_range" result + result' <- (wrapObject DOMRange) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::create_text_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMText" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_text_node" webkit_dom_document_create_text_node :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- data : TBasicType TUTF8 + IO (Ptr DOMText) + + +dOMDocumentCreateTextNode :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- data + m DOMText +dOMDocumentCreateTextNode _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- textToCString data_ + result <- webkit_dom_document_create_text_node _obj' data_' + checkUnexpectedReturnNULL "webkit_dom_document_create_text_node" result + result' <- (newObject DOMText) result + touchManagedPtr _obj + freeMem data_' + return result' + +-- method DOMDocument::create_touch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTouch" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_touch" webkit_dom_document_create_touch :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMDOMWindow -> -- window : TInterface "WebKit" "DOMDOMWindow" + Ptr DOMEventTarget -> -- target : TInterface "WebKit" "DOMEventTarget" + Int64 -> -- identifier : TBasicType TInt64 + Int64 -> -- pageX : TBasicType TInt64 + Int64 -> -- pageY : TBasicType TInt64 + Int64 -> -- screenX : TBasicType TInt64 + Int64 -> -- screenY : TBasicType TInt64 + Int64 -> -- webkitRadiusX : TBasicType TInt64 + Int64 -> -- webkitRadiusY : TBasicType TInt64 + CFloat -> -- webkitRotationAngle : TBasicType TFloat + CFloat -> -- webkitForce : TBasicType TFloat + Ptr (Ptr GError) -> -- error + IO (Ptr DOMTouch) + + +dOMDocumentCreateTouch :: + (MonadIO m, DOMDocumentK a, DOMDOMWindowK b, DOMEventTargetK c) => + a -> -- _obj + b -> -- window + c -> -- target + Int64 -> -- identifier + Int64 -> -- pageX + Int64 -> -- pageY + Int64 -> -- screenX + Int64 -> -- screenY + Int64 -> -- webkitRadiusX + Int64 -> -- webkitRadiusY + Float -> -- webkitRotationAngle + Float -> -- webkitForce + m DOMTouch +dOMDocumentCreateTouch _obj window target identifier pageX pageY screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + let target' = unsafeManagedPtrCastPtr target + let webkitRotationAngle' = realToFrac webkitRotationAngle + let webkitForce' = realToFrac webkitForce + onException (do + result <- propagateGError $ webkit_dom_document_create_touch _obj' window' target' identifier pageX pageY screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle' webkitForce' + checkUnexpectedReturnNULL "webkit_dom_document_create_touch" result + result' <- (wrapObject DOMTouch) result + touchManagedPtr _obj + touchManagedPtr window + touchManagedPtr target + return result' + ) (do + return () + ) + +-- method DOMDocument::create_tree_walker +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTreeWalker" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_create_tree_walker" webkit_dom_document_create_tree_walker :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode" + Word64 -> -- whatToShow : TBasicType TUInt64 + Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter" + CInt -> -- expandEntityReferences : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr DOMTreeWalker) + + +dOMDocumentCreateTreeWalker :: + (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => + a -> -- _obj + b -> -- root + Word64 -> -- whatToShow + c -> -- filter + Bool -> -- expandEntityReferences + m DOMTreeWalker +dOMDocumentCreateTreeWalker _obj root whatToShow filter expandEntityReferences = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let root' = unsafeManagedPtrCastPtr root + let filter' = unsafeManagedPtrCastPtr filter + let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences + onException (do + result <- propagateGError $ webkit_dom_document_create_tree_walker _obj' root' whatToShow filter' expandEntityReferences' + checkUnexpectedReturnNULL "webkit_dom_document_create_tree_walker" result + result' <- (wrapObject DOMTreeWalker) result + touchManagedPtr _obj + touchManagedPtr root + touchManagedPtr filter + return result' + ) (do + return () + ) + +-- method DOMDocument::element_from_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_element_from_point" webkit_dom_document_element_from_point :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO (Ptr DOMElement) + + +dOMDocumentElementFromPoint :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m DOMElement +dOMDocumentElementFromPoint _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_element_from_point _obj' x y + checkUnexpectedReturnNULL "webkit_dom_document_element_from_point" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::evaluate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMXPathResult" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_evaluate" webkit_dom_document_evaluate :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- expression : TBasicType TUTF8 + Ptr DOMNode -> -- contextNode : TInterface "WebKit" "DOMNode" + Ptr DOMXPathNSResolver -> -- resolver : TInterface "WebKit" "DOMXPathNSResolver" + Word16 -> -- type : TBasicType TUInt16 + Ptr DOMXPathResult -> -- inResult : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMXPathResult) + + +dOMDocumentEvaluate :: + (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMXPathNSResolverK c, DOMXPathResultK d) => + a -> -- _obj + T.Text -> -- expression + b -> -- contextNode + Maybe (c) -> -- resolver + Word16 -> -- type + Maybe (d) -> -- inResult + m DOMXPathResult +dOMDocumentEvaluate _obj expression contextNode resolver type_ inResult = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + expression' <- textToCString expression + let contextNode' = unsafeManagedPtrCastPtr contextNode + maybeResolver <- case resolver of + Nothing -> return nullPtr + Just jResolver -> do + let jResolver' = unsafeManagedPtrCastPtr jResolver + return jResolver' + maybeInResult <- case inResult of + Nothing -> return nullPtr + Just jInResult -> do + let jInResult' = unsafeManagedPtrCastPtr jInResult + return jInResult' + onException (do + result <- propagateGError $ webkit_dom_document_evaluate _obj' expression' contextNode' maybeResolver type_ maybeInResult + checkUnexpectedReturnNULL "webkit_dom_document_evaluate" result + result' <- (wrapObject DOMXPathResult) result + touchManagedPtr _obj + touchManagedPtr contextNode + whenJust resolver touchManagedPtr + whenJust inResult touchManagedPtr + freeMem expression' + return result' + ) (do + freeMem expression' + ) + +-- method DOMDocument::exec_command +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "userInterface", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "userInterface", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_exec_command" webkit_dom_document_exec_command :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + CInt -> -- userInterface : TBasicType TBoolean + CString -> -- value : TBasicType TUTF8 + IO CInt + + +dOMDocumentExecCommand :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + Bool -> -- userInterface + T.Text -> -- value + m Bool +dOMDocumentExecCommand _obj command userInterface value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + let userInterface' = (fromIntegral . fromEnum) userInterface + value' <- textToCString value + result <- webkit_dom_document_exec_command _obj' command' userInterface' value' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem command' + freeMem value' + return result' + +-- method DOMDocument::get_anchors +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_anchors" webkit_dom_document_get_anchors :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetAnchors :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMDocumentGetAnchors _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_anchors _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_anchors" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_applets +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_applets" webkit_dom_document_get_applets :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetApplets :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMDocumentGetApplets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_applets _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_applets" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_body +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_body" webkit_dom_document_get_body :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLElement) + + +dOMDocumentGetBody :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLElement +dOMDocumentGetBody _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_body _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_body" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_character_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_character_set" webkit_dom_document_get_character_set :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetCharacterSet :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetCharacterSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_character_set _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_character_set" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_charset" webkit_dom_document_get_charset :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetCharset :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_compat_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_compat_mode" webkit_dom_document_get_compat_mode :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetCompatMode :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetCompatMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_compat_mode _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_compat_mode" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_cookie +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_cookie" webkit_dom_document_get_cookie :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr (Ptr GError) -> -- error + IO CString + + +dOMDocumentGetCookie :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetCookie _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_document_get_cookie _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_cookie" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMDocument::get_current_script +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLScriptElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_current_script" webkit_dom_document_get_current_script :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLScriptElement) + + +dOMDocumentGetCurrentScript :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLScriptElement +dOMDocumentGetCurrentScript _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_current_script _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_current_script" result + result' <- (newObject DOMHTMLScriptElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_default_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_default_charset" webkit_dom_document_get_default_charset :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetDefaultCharset :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetDefaultCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_default_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_default_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_default_view +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_default_view" webkit_dom_document_get_default_view :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDOMWindow) + + +dOMDocumentGetDefaultView :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDOMWindow +dOMDocumentGetDefaultView _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_default_view _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_default_view" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_doctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_doctype" webkit_dom_document_get_doctype :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDocumentType) + + +dOMDocumentGetDoctype :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDocumentType +dOMDocumentGetDoctype _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_doctype _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_doctype" result + result' <- (newObject DOMDocumentType) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_document_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_document_element" webkit_dom_document_get_document_element :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMElement) + + +dOMDocumentGetDocumentElement :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMElement +dOMDocumentGetDocumentElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_document_element _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_document_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_document_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_document_uri" webkit_dom_document_get_document_uri :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetDocumentUri :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetDocumentUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_document_uri _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_document_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_domain" webkit_dom_document_get_domain :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetDomain :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetDomain _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_domain _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_domain" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_element_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_element_by_id" webkit_dom_document_get_element_by_id :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- elementId : TBasicType TUTF8 + IO (Ptr DOMElement) + + +dOMDocumentGetElementById :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- elementId + m DOMElement +dOMDocumentGetElementById _obj elementId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + elementId' <- textToCString elementId + result <- webkit_dom_document_get_element_by_id _obj' elementId' + checkUnexpectedReturnNULL "webkit_dom_document_get_element_by_id" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem elementId' + return result' + +-- method DOMDocument::get_elements_by_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_class_name" webkit_dom_document_get_elements_by_class_name :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- tagname : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMDocumentGetElementsByClassName :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- tagname + m DOMNodeList +dOMDocumentGetElementsByClassName _obj tagname = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagname' <- textToCString tagname + result <- webkit_dom_document_get_elements_by_class_name _obj' tagname' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem tagname' + return result' + +-- method DOMDocument::get_elements_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_name" webkit_dom_document_get_elements_by_name :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- elementName : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMDocumentGetElementsByName :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- elementName + m DOMNodeList +dOMDocumentGetElementsByName _obj elementName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + elementName' <- textToCString elementName + result <- webkit_dom_document_get_elements_by_name _obj' elementName' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem elementName' + return result' + +-- method DOMDocument::get_elements_by_tag_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_tag_name" webkit_dom_document_get_elements_by_tag_name :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- tagname : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMDocumentGetElementsByTagName :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- tagname + m DOMNodeList +dOMDocumentGetElementsByTagName _obj tagname = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagname' <- textToCString tagname + result <- webkit_dom_document_get_elements_by_tag_name _obj' tagname' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem tagname' + return result' + +-- method DOMDocument::get_elements_by_tag_name_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns" webkit_dom_document_get_elements_by_tag_name_ns :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMDocumentGetElementsByTagNameNs :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMNodeList +dOMDocumentGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_document_get_elements_by_tag_name_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMDocument::get_forms +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_forms" webkit_dom_document_get_forms :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetForms :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMDocumentGetForms _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_forms _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_forms" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLHeadElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_head" webkit_dom_document_get_head :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLHeadElement) + + +dOMDocumentGetHead :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLHeadElement +dOMDocumentGetHead _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_head _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_head" result + result' <- (newObject DOMHTMLHeadElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_hidden" webkit_dom_document_get_hidden :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + + +dOMDocumentGetHidden :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetHidden _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_hidden _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_images +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_images" webkit_dom_document_get_images :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetImages :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMDocumentGetImages _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_images _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_images" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_implementation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMImplementation" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_implementation" webkit_dom_document_get_implementation :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDOMImplementation) + + +dOMDocumentGetImplementation :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDOMImplementation +dOMDocumentGetImplementation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_implementation _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_implementation" result + result' <- (wrapObject DOMDOMImplementation) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_input_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_input_encoding" webkit_dom_document_get_input_encoding :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetInputEncoding :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetInputEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_input_encoding _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_input_encoding" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_last_modified +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_last_modified" webkit_dom_document_get_last_modified :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetLastModified :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetLastModified _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_last_modified _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_last_modified" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_links +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_links" webkit_dom_document_get_links :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetLinks :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMDocumentGetLinks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_links _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_links" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_override_style +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_override_style" webkit_dom_document_get_override_style :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement" + CString -> -- pseudoElement : TBasicType TUTF8 + IO (Ptr DOMCSSStyleDeclaration) + + +dOMDocumentGetOverrideStyle :: + (MonadIO m, DOMDocumentK a, DOMElementK b) => + a -> -- _obj + b -> -- element + Maybe (T.Text) -> -- pseudoElement + m DOMCSSStyleDeclaration +dOMDocumentGetOverrideStyle _obj element pseudoElement = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let element' = unsafeManagedPtrCastPtr element + maybePseudoElement <- case pseudoElement of + Nothing -> return nullPtr + Just jPseudoElement -> do + jPseudoElement' <- textToCString jPseudoElement + return jPseudoElement' + result <- webkit_dom_document_get_override_style _obj' element' maybePseudoElement + checkUnexpectedReturnNULL "webkit_dom_document_get_override_style" result + result' <- (wrapObject DOMCSSStyleDeclaration) result + touchManagedPtr _obj + touchManagedPtr element + freeMem maybePseudoElement + return result' + +-- method DOMDocument::get_preferred_stylesheet_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_preferred_stylesheet_set" webkit_dom_document_get_preferred_stylesheet_set :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetPreferredStylesheetSet :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetPreferredStylesheetSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_preferred_stylesheet_set _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_preferred_stylesheet_set" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_ready_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_ready_state" webkit_dom_document_get_ready_state :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetReadyState :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetReadyState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_ready_state _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_ready_state" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_referrer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_referrer" webkit_dom_document_get_referrer :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetReferrer :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetReferrer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_referrer _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_referrer" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_security_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMSecurityPolicy" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_security_policy" webkit_dom_document_get_security_policy :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDOMSecurityPolicy) + + +dOMDocumentGetSecurityPolicy :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDOMSecurityPolicy +dOMDocumentGetSecurityPolicy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_security_policy _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_security_policy" result + result' <- (wrapObject DOMDOMSecurityPolicy) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_selected_stylesheet_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_selected_stylesheet_set" webkit_dom_document_get_selected_stylesheet_set :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetSelectedStylesheetSet :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetSelectedStylesheetSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_selected_stylesheet_set _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_selected_stylesheet_set" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_style_sheets +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheetList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_style_sheets" webkit_dom_document_get_style_sheets :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMStyleSheetList) + + +dOMDocumentGetStyleSheets :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMStyleSheetList +dOMDocumentGetStyleSheets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_style_sheets _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_style_sheets" result + result' <- (newObject DOMStyleSheetList) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_title" webkit_dom_document_get_title :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetTitle :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_title _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_title" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_url +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_url" webkit_dom_document_get_url :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetUrl :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetUrl _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_url _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_url" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_visibility_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_visibility_state" webkit_dom_document_get_visibility_state :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetVisibilityState :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetVisibilityState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_visibility_state _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_visibility_state" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_current_full_screen_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_current_full_screen_element" webkit_dom_document_get_webkit_current_full_screen_element :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMElement) + + +dOMDocumentGetWebkitCurrentFullScreenElement :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMElement +dOMDocumentGetWebkitCurrentFullScreenElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_current_full_screen_element _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_webkit_current_full_screen_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_full_screen_keyboard_input_allowed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_full_screen_keyboard_input_allowed" webkit_dom_document_get_webkit_full_screen_keyboard_input_allowed :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + + +dOMDocumentGetWebkitFullScreenKeyboardInputAllowed :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetWebkitFullScreenKeyboardInputAllowed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_full_screen_keyboard_input_allowed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_fullscreen_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_fullscreen_element" webkit_dom_document_get_webkit_fullscreen_element :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMElement) + + +dOMDocumentGetWebkitFullscreenElement :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMElement +dOMDocumentGetWebkitFullscreenElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_fullscreen_element _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_webkit_fullscreen_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_fullscreen_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_fullscreen_enabled" webkit_dom_document_get_webkit_fullscreen_enabled :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + + +dOMDocumentGetWebkitFullscreenEnabled :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetWebkitFullscreenEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_fullscreen_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_hidden" webkit_dom_document_get_webkit_hidden :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + +{-# DEPRECATED dOMDocumentGetWebkitHidden ["(Since version 2.2)"]#-} +dOMDocumentGetWebkitHidden :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetWebkitHidden _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_hidden _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_is_full_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_is_full_screen" webkit_dom_document_get_webkit_is_full_screen :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + + +dOMDocumentGetWebkitIsFullScreen :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetWebkitIsFullScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_is_full_screen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_pointer_lock_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_pointer_lock_element" webkit_dom_document_get_webkit_pointer_lock_element :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMElement) + + +dOMDocumentGetWebkitPointerLockElement :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMElement +dOMDocumentGetWebkitPointerLockElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_pointer_lock_element _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_webkit_pointer_lock_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_webkit_visibility_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_webkit_visibility_state" webkit_dom_document_get_webkit_visibility_state :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + +{-# DEPRECATED dOMDocumentGetWebkitVisibilityState ["(Since version 2.2)"]#-} +dOMDocumentGetWebkitVisibilityState :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetWebkitVisibilityState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_webkit_visibility_state _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_webkit_visibility_state" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_xml_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_xml_encoding" webkit_dom_document_get_xml_encoding :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetXmlEncoding :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetXmlEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_xml_encoding _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_xml_encoding" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_xml_standalone +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_xml_standalone" webkit_dom_document_get_xml_standalone :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CInt + + +dOMDocumentGetXmlStandalone :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m Bool +dOMDocumentGetXmlStandalone _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_xml_standalone _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMDocument::get_xml_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_xml_version" webkit_dom_document_get_xml_version :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO CString + + +dOMDocumentGetXmlVersion :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m T.Text +dOMDocumentGetXmlVersion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_get_xml_version _obj' + checkUnexpectedReturnNULL "webkit_dom_document_get_xml_version" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocument::import_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_import_node" webkit_dom_document_import_node :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMNode -> -- importedNode : TInterface "WebKit" "DOMNode" + CInt -> -- deep : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMDocumentImportNode :: + (MonadIO m, DOMDocumentK a, DOMNodeK b) => + a -> -- _obj + b -> -- importedNode + Bool -> -- deep + m DOMNode +dOMDocumentImportNode _obj importedNode deep = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let importedNode' = unsafeManagedPtrCastPtr importedNode + let deep' = (fromIntegral . fromEnum) deep + onException (do + result <- propagateGError $ webkit_dom_document_import_node _obj' importedNode' deep' + checkUnexpectedReturnNULL "webkit_dom_document_import_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr importedNode + return result' + ) (do + return () + ) + +-- method DOMDocument::query_command_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_command_enabled" webkit_dom_document_query_command_enabled :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + IO CInt + + +dOMDocumentQueryCommandEnabled :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + m Bool +dOMDocumentQueryCommandEnabled _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + result <- webkit_dom_document_query_command_enabled _obj' command' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem command' + return result' + +-- method DOMDocument::query_command_indeterm +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_command_indeterm" webkit_dom_document_query_command_indeterm :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + IO CInt + + +dOMDocumentQueryCommandIndeterm :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + m Bool +dOMDocumentQueryCommandIndeterm _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + result <- webkit_dom_document_query_command_indeterm _obj' command' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem command' + return result' + +-- method DOMDocument::query_command_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_command_state" webkit_dom_document_query_command_state :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + IO CInt + + +dOMDocumentQueryCommandState :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + m Bool +dOMDocumentQueryCommandState _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + result <- webkit_dom_document_query_command_state _obj' command' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem command' + return result' + +-- method DOMDocument::query_command_supported +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_command_supported" webkit_dom_document_query_command_supported :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + IO CInt + + +dOMDocumentQueryCommandSupported :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + m Bool +dOMDocumentQueryCommandSupported _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + result <- webkit_dom_document_query_command_supported _obj' command' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem command' + return result' + +-- method DOMDocument::query_command_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_command_value" webkit_dom_document_query_command_value :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- command : TBasicType TUTF8 + IO CString + + +dOMDocumentQueryCommandValue :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- command + m T.Text +dOMDocumentQueryCommandValue _obj command = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + command' <- textToCString command + result <- webkit_dom_document_query_command_value _obj' command' + checkUnexpectedReturnNULL "webkit_dom_document_query_command_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem command' + return result' + +-- method DOMDocument::query_selector +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_selector" webkit_dom_document_query_selector :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMDocumentQuerySelector :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMElement +dOMDocumentQuerySelector _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_document_query_selector _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_document_query_selector" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + +-- method DOMDocument::query_selector_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_query_selector_all" webkit_dom_document_query_selector_all :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNodeList) + + +dOMDocumentQuerySelectorAll :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMNodeList +dOMDocumentQuerySelectorAll _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_document_query_selector_all _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_document_query_selector_all" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + +-- method DOMDocument::set_body +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_body" webkit_dom_document_set_body :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + Ptr DOMHTMLElement -> -- value : TInterface "WebKit" "DOMHTMLElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDocumentSetBody :: + (MonadIO m, DOMDocumentK a, DOMHTMLElementK b) => + a -> -- _obj + b -> -- value + m () +dOMDocumentSetBody _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + onException (do + propagateGError $ webkit_dom_document_set_body _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + ) (do + return () + ) + +-- method DOMDocument::set_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_charset" webkit_dom_document_set_charset :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDocumentSetCharset :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetCharset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_document_set_charset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDocument::set_cookie +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_cookie" webkit_dom_document_set_cookie :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDocumentSetCookie :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetCookie _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_document_set_cookie _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMDocument::set_document_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_document_uri" webkit_dom_document_set_document_uri :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDocumentSetDocumentUri :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetDocumentUri _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_document_set_document_uri _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDocument::set_selected_stylesheet_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_selected_stylesheet_set" webkit_dom_document_set_selected_stylesheet_set :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDocumentSetSelectedStylesheetSet :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetSelectedStylesheetSet _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_document_set_selected_stylesheet_set _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDocument::set_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_title" webkit_dom_document_set_title :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMDocumentSetTitle :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetTitle _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_document_set_title _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMDocument::set_xml_standalone +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_xml_standalone" webkit_dom_document_set_xml_standalone :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CInt -> -- value : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO () + + +dOMDocumentSetXmlStandalone :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + Bool -> -- value + m () +dOMDocumentSetXmlStandalone _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + onException (do + propagateGError $ webkit_dom_document_set_xml_standalone _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMDocument::set_xml_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_set_xml_version" webkit_dom_document_set_xml_version :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMDocumentSetXmlVersion :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMDocumentSetXmlVersion _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_document_set_xml_version _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMDocument::webkit_cancel_full_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_webkit_cancel_full_screen" webkit_dom_document_webkit_cancel_full_screen :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO () + + +dOMDocumentWebkitCancelFullScreen :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m () +dOMDocumentWebkitCancelFullScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_document_webkit_cancel_full_screen _obj' + touchManagedPtr _obj + return () + +-- method DOMDocument::webkit_exit_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_webkit_exit_fullscreen" webkit_dom_document_webkit_exit_fullscreen :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO () + + +dOMDocumentWebkitExitFullscreen :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m () +dOMDocumentWebkitExitFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_document_webkit_exit_fullscreen _obj' + touchManagedPtr _obj + return () + +-- method DOMDocument::webkit_exit_pointer_lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_webkit_exit_pointer_lock" webkit_dom_document_webkit_exit_pointer_lock :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO () + + +dOMDocumentWebkitExitPointerLock :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m () +dOMDocumentWebkitExitPointerLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_document_webkit_exit_pointer_lock _obj' + touchManagedPtr _obj + return () + +-- method DOMDocument::webkit_get_named_flows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMNamedFlowCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_webkit_get_named_flows" webkit_dom_document_webkit_get_named_flows :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" + IO (Ptr DOMDOMNamedFlowCollection) + + +dOMDocumentWebkitGetNamedFlows :: + (MonadIO m, DOMDocumentK a) => + a -> -- _obj + m DOMDOMNamedFlowCollection +dOMDocumentWebkitGetNamedFlows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_webkit_get_named_flows _obj' + checkUnexpectedReturnNULL "webkit_dom_document_webkit_get_named_flows" result + result' <- (wrapObject DOMDOMNamedFlowCollection) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMDocument.hs-boot b/GI/WebKit/Objects/DOMDocument.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocument.hs-boot @@ -0,0 +1,53 @@ +module GI.WebKit.Objects.DOMDocument where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDocument = DOMDocument (ForeignPtr DOMDocument) +instance GObject DOMDocument where +class GObject o => DOMDocumentK o +instance (GObject o, IsDescendantOf DOMDocument o) => DOMDocumentK o +data DOMDocumentAnchorsPropertyInfo +data DOMDocumentAppletsPropertyInfo +data DOMDocumentBodyPropertyInfo +data DOMDocumentCharacterSetPropertyInfo +data DOMDocumentCharsetPropertyInfo +data DOMDocumentCompatModePropertyInfo +data DOMDocumentCookiePropertyInfo +data DOMDocumentCurrentScriptPropertyInfo +data DOMDocumentDefaultCharsetPropertyInfo +data DOMDocumentDefaultViewPropertyInfo +data DOMDocumentDoctypePropertyInfo +data DOMDocumentDocumentElementPropertyInfo +data DOMDocumentDocumentUriPropertyInfo +data DOMDocumentDomainPropertyInfo +data DOMDocumentFormsPropertyInfo +data DOMDocumentHeadPropertyInfo +data DOMDocumentHiddenPropertyInfo +data DOMDocumentImagesPropertyInfo +data DOMDocumentImplementationPropertyInfo +data DOMDocumentInputEncodingPropertyInfo +data DOMDocumentLastModifiedPropertyInfo +data DOMDocumentLinksPropertyInfo +data DOMDocumentPreferredStylesheetSetPropertyInfo +data DOMDocumentReadyStatePropertyInfo +data DOMDocumentReferrerPropertyInfo +data DOMDocumentSecurityPolicyPropertyInfo +data DOMDocumentSelectedStylesheetSetPropertyInfo +data DOMDocumentStyleSheetsPropertyInfo +data DOMDocumentTitlePropertyInfo +data DOMDocumentUrlPropertyInfo +data DOMDocumentVisibilityStatePropertyInfo +data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo +data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo +data DOMDocumentWebkitFullscreenElementPropertyInfo +data DOMDocumentWebkitFullscreenEnabledPropertyInfo +data DOMDocumentWebkitIsFullScreenPropertyInfo +data DOMDocumentWebkitPointerLockElementPropertyInfo +data DOMDocumentXmlEncodingPropertyInfo +data DOMDocumentXmlStandalonePropertyInfo +data DOMDocumentXmlVersionPropertyInfo diff --git a/GI/WebKit/Objects/DOMDocumentFragment.hs b/GI/WebKit/Objects/DOMDocumentFragment.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocumentFragment.hs @@ -0,0 +1,139 @@ + +{- | +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.WebKit.Objects.DOMDocumentFragment + ( + +-- * Exported types + DOMDocumentFragment(..) , + DOMDocumentFragmentK , + toDOMDocumentFragment , + noDOMDocumentFragment , + + + -- * Methods +-- ** dOMDocumentFragmentQuerySelector + dOMDocumentFragmentQuerySelector , + + +-- ** dOMDocumentFragmentQuerySelectorAll + dOMDocumentFragmentQuerySelectorAll , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDocumentFragment = DOMDocumentFragment (ForeignPtr DOMDocumentFragment) +foreign import ccall "webkit_dom_document_fragment_get_type" + c_webkit_dom_document_fragment_get_type :: IO GType + +type instance ParentTypes DOMDocumentFragment = DOMDocumentFragmentParentTypes +type DOMDocumentFragmentParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMDocumentFragment where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_document_fragment_get_type + + +class GObject o => DOMDocumentFragmentK o +instance (GObject o, IsDescendantOf DOMDocumentFragment o) => DOMDocumentFragmentK o + +toDOMDocumentFragment :: DOMDocumentFragmentK o => o -> IO DOMDocumentFragment +toDOMDocumentFragment = unsafeCastTo DOMDocumentFragment + +noDOMDocumentFragment :: Maybe DOMDocumentFragment +noDOMDocumentFragment = Nothing + +type instance AttributeList DOMDocumentFragment = DOMDocumentFragmentAttributeList +type DOMDocumentFragmentAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDocumentFragment = DOMDocumentFragmentSignalList +type DOMDocumentFragmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDocumentFragment::query_selector +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_fragment_query_selector" webkit_dom_document_fragment_query_selector :: + Ptr DOMDocumentFragment -> -- _obj : TInterface "WebKit" "DOMDocumentFragment" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMDocumentFragmentQuerySelector :: + (MonadIO m, DOMDocumentFragmentK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMElement +dOMDocumentFragmentQuerySelector _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_document_fragment_query_selector _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_document_fragment_query_selector" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + +-- method DOMDocumentFragment::query_selector_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_fragment_query_selector_all" webkit_dom_document_fragment_query_selector_all :: + Ptr DOMDocumentFragment -> -- _obj : TInterface "WebKit" "DOMDocumentFragment" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNodeList) + + +dOMDocumentFragmentQuerySelectorAll :: + (MonadIO m, DOMDocumentFragmentK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMNodeList +dOMDocumentFragmentQuerySelectorAll _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_document_fragment_query_selector_all _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_document_fragment_query_selector_all" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + + diff --git a/GI/WebKit/Objects/DOMDocumentFragment.hs-boot b/GI/WebKit/Objects/DOMDocumentFragment.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocumentFragment.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMDocumentFragment where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDocumentFragment = DOMDocumentFragment (ForeignPtr DOMDocumentFragment) +instance GObject DOMDocumentFragment where +class GObject o => DOMDocumentFragmentK o +instance (GObject o, IsDescendantOf DOMDocumentFragment o) => DOMDocumentFragmentK o diff --git a/GI/WebKit/Objects/DOMDocumentType.hs b/GI/WebKit/Objects/DOMDocumentType.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocumentType.hs @@ -0,0 +1,419 @@ + +{- | +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.WebKit.Objects.DOMDocumentType + ( + +-- * Exported types + DOMDocumentType(..) , + DOMDocumentTypeK , + toDOMDocumentType , + noDOMDocumentType , + + + -- * Methods +-- ** dOMDocumentTypeGetEntities + dOMDocumentTypeGetEntities , + + +-- ** dOMDocumentTypeGetInternalSubset + dOMDocumentTypeGetInternalSubset , + + +-- ** dOMDocumentTypeGetName + dOMDocumentTypeGetName , + + +-- ** dOMDocumentTypeGetNotations + dOMDocumentTypeGetNotations , + + +-- ** dOMDocumentTypeGetPublicId + dOMDocumentTypeGetPublicId , + + +-- ** dOMDocumentTypeGetSystemId + dOMDocumentTypeGetSystemId , + + +-- ** dOMDocumentTypeRemove + dOMDocumentTypeRemove , + + + + + -- * Properties +-- ** Entities + DOMDocumentTypeEntitiesPropertyInfo , + getDOMDocumentTypeEntities , + + +-- ** InternalSubset + DOMDocumentTypeInternalSubsetPropertyInfo, + getDOMDocumentTypeInternalSubset , + + +-- ** Name + DOMDocumentTypeNamePropertyInfo , + getDOMDocumentTypeName , + + +-- ** Notations + DOMDocumentTypeNotationsPropertyInfo , + getDOMDocumentTypeNotations , + + +-- ** PublicId + DOMDocumentTypePublicIdPropertyInfo , + getDOMDocumentTypePublicId , + + +-- ** SystemId + DOMDocumentTypeSystemIdPropertyInfo , + getDOMDocumentTypeSystemId , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType) +foreign import ccall "webkit_dom_document_type_get_type" + c_webkit_dom_document_type_get_type :: IO GType + +type instance ParentTypes DOMDocumentType = DOMDocumentTypeParentTypes +type DOMDocumentTypeParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMDocumentType where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_document_type_get_type + + +class GObject o => DOMDocumentTypeK o +instance (GObject o, IsDescendantOf DOMDocumentType o) => DOMDocumentTypeK o + +toDOMDocumentType :: DOMDocumentTypeK o => o -> IO DOMDocumentType +toDOMDocumentType = unsafeCastTo DOMDocumentType + +noDOMDocumentType :: Maybe DOMDocumentType +noDOMDocumentType = Nothing + +-- VVV Prop "entities" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap + +data DOMDocumentTypeEntitiesPropertyInfo +instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where + type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "DOMDocumentType::entities" + attrGet _ = getDOMDocumentTypeEntities + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "internal-subset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset" + +data DOMDocumentTypeInternalSubsetPropertyInfo +instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where + type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text + type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "DOMDocumentType::internal-subset" + attrGet _ = getDOMDocumentTypeInternalSubset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMDocumentTypeNamePropertyInfo +instance AttrInfo DOMDocumentTypeNamePropertyInfo where + type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text + type AttrLabel DOMDocumentTypeNamePropertyInfo = "DOMDocumentType::name" + attrGet _ = getDOMDocumentTypeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "notations" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap + +data DOMDocumentTypeNotationsPropertyInfo +instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where + type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "DOMDocumentType::notations" + attrGet _ = getDOMDocumentTypeNotations + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "public-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id" + +data DOMDocumentTypePublicIdPropertyInfo +instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where + type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text + type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "DOMDocumentType::public-id" + attrGet _ = getDOMDocumentTypePublicId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "system-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id" + +data DOMDocumentTypeSystemIdPropertyInfo +instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where + type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text + type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "DOMDocumentType::system-id" + attrGet _ = getDOMDocumentTypeSystemId + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDocumentType = DOMDocumentTypeAttributeList +type DOMDocumentTypeAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("internal-subset", DOMDocumentTypeInternalSubsetPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("public-id", DOMDocumentTypePublicIdPropertyInfo), '("system-id", DOMDocumentTypeSystemIdPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMDocumentType = DOMDocumentTypeSignalList +type DOMDocumentTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMDocumentType::get_entities +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_entities" webkit_dom_document_type_get_entities :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO (Ptr DOMNamedNodeMap) + + +dOMDocumentTypeGetEntities :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m DOMNamedNodeMap +dOMDocumentTypeGetEntities _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_entities _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_entities" result + result' <- (wrapObject DOMNamedNodeMap) result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::get_internal_subset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_internal_subset" webkit_dom_document_type_get_internal_subset :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO CString + + +dOMDocumentTypeGetInternalSubset :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m T.Text +dOMDocumentTypeGetInternalSubset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_internal_subset _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_internal_subset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_name" webkit_dom_document_type_get_name :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO CString + + +dOMDocumentTypeGetName :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m T.Text +dOMDocumentTypeGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::get_notations +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_notations" webkit_dom_document_type_get_notations :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO (Ptr DOMNamedNodeMap) + + +dOMDocumentTypeGetNotations :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m DOMNamedNodeMap +dOMDocumentTypeGetNotations _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_notations _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_notations" result + result' <- (wrapObject DOMNamedNodeMap) result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::get_public_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_public_id" webkit_dom_document_type_get_public_id :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO CString + + +dOMDocumentTypeGetPublicId :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m T.Text +dOMDocumentTypeGetPublicId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_public_id _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_public_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::get_system_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_get_system_id" webkit_dom_document_type_get_system_id :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + IO CString + + +dOMDocumentTypeGetSystemId :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m T.Text +dOMDocumentTypeGetSystemId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_document_type_get_system_id _obj' + checkUnexpectedReturnNULL "webkit_dom_document_type_get_system_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMDocumentType::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_document_type_remove" webkit_dom_document_type_remove :: + Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType" + Ptr (Ptr GError) -> -- error + IO () + + +dOMDocumentTypeRemove :: + (MonadIO m, DOMDocumentTypeK a) => + a -> -- _obj + m () +dOMDocumentTypeRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_document_type_remove _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMDocumentType.hs-boot b/GI/WebKit/Objects/DOMDocumentType.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMDocumentType.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.DOMDocumentType where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType) +instance GObject DOMDocumentType where +class GObject o => DOMDocumentTypeK o +instance (GObject o, IsDescendantOf DOMDocumentType o) => DOMDocumentTypeK o +data DOMDocumentTypeEntitiesPropertyInfo +data DOMDocumentTypeInternalSubsetPropertyInfo +data DOMDocumentTypeNamePropertyInfo +data DOMDocumentTypeNotationsPropertyInfo +data DOMDocumentTypePublicIdPropertyInfo +data DOMDocumentTypeSystemIdPropertyInfo diff --git a/GI/WebKit/Objects/DOMElement.hs b/GI/WebKit/Objects/DOMElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMElement.hs @@ -0,0 +1,2595 @@ + +{- | +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.WebKit.Objects.DOMElement + ( + +-- * Exported types + DOMElement(..) , + DOMElementK , + toDOMElement , + noDOMElement , + + + -- * Methods +-- ** dOMElementBlur + dOMElementBlur , + + +-- ** dOMElementFocus + dOMElementFocus , + + +-- ** dOMElementGetAttribute + dOMElementGetAttribute , + + +-- ** dOMElementGetAttributeNode + dOMElementGetAttributeNode , + + +-- ** dOMElementGetAttributeNodeNs + dOMElementGetAttributeNodeNs , + + +-- ** dOMElementGetAttributeNs + dOMElementGetAttributeNs , + + +-- ** dOMElementGetAttributes + dOMElementGetAttributes , + + +-- ** dOMElementGetChildElementCount + dOMElementGetChildElementCount , + + +-- ** dOMElementGetClassList + dOMElementGetClassList , + + +-- ** dOMElementGetClassName + dOMElementGetClassName , + + +-- ** dOMElementGetClientHeight + dOMElementGetClientHeight , + + +-- ** dOMElementGetClientLeft + dOMElementGetClientLeft , + + +-- ** dOMElementGetClientTop + dOMElementGetClientTop , + + +-- ** dOMElementGetClientWidth + dOMElementGetClientWidth , + + +-- ** dOMElementGetElementsByClassName + dOMElementGetElementsByClassName , + + +-- ** dOMElementGetElementsByTagName + dOMElementGetElementsByTagName , + + +-- ** dOMElementGetElementsByTagNameNs + dOMElementGetElementsByTagNameNs , + + +-- ** dOMElementGetFirstElementChild + dOMElementGetFirstElementChild , + + +-- ** dOMElementGetId + dOMElementGetId , + + +-- ** dOMElementGetLastElementChild + dOMElementGetLastElementChild , + + +-- ** dOMElementGetNextElementSibling + dOMElementGetNextElementSibling , + + +-- ** dOMElementGetOffsetHeight + dOMElementGetOffsetHeight , + + +-- ** dOMElementGetOffsetLeft + dOMElementGetOffsetLeft , + + +-- ** dOMElementGetOffsetParent + dOMElementGetOffsetParent , + + +-- ** dOMElementGetOffsetTop + dOMElementGetOffsetTop , + + +-- ** dOMElementGetOffsetWidth + dOMElementGetOffsetWidth , + + +-- ** dOMElementGetPreviousElementSibling + dOMElementGetPreviousElementSibling , + + +-- ** dOMElementGetScrollHeight + dOMElementGetScrollHeight , + + +-- ** dOMElementGetScrollLeft + dOMElementGetScrollLeft , + + +-- ** dOMElementGetScrollTop + dOMElementGetScrollTop , + + +-- ** dOMElementGetScrollWidth + dOMElementGetScrollWidth , + + +-- ** dOMElementGetStyle + dOMElementGetStyle , + + +-- ** dOMElementGetTagName + dOMElementGetTagName , + + +-- ** dOMElementGetWebkitRegionOverflow + dOMElementGetWebkitRegionOverflow , + + +-- ** dOMElementGetWebkitRegionOverset + dOMElementGetWebkitRegionOverset , + + +-- ** dOMElementHasAttribute + dOMElementHasAttribute , + + +-- ** dOMElementHasAttributeNs + dOMElementHasAttributeNs , + + +-- ** dOMElementHasAttributes + dOMElementHasAttributes , + + +-- ** dOMElementQuerySelector + dOMElementQuerySelector , + + +-- ** dOMElementQuerySelectorAll + dOMElementQuerySelectorAll , + + +-- ** dOMElementRemove + dOMElementRemove , + + +-- ** dOMElementRemoveAttribute + dOMElementRemoveAttribute , + + +-- ** dOMElementRemoveAttributeNode + dOMElementRemoveAttributeNode , + + +-- ** dOMElementRemoveAttributeNs + dOMElementRemoveAttributeNs , + + +-- ** dOMElementScrollByLines + dOMElementScrollByLines , + + +-- ** dOMElementScrollByPages + dOMElementScrollByPages , + + +-- ** dOMElementScrollIntoView + dOMElementScrollIntoView , + + +-- ** dOMElementScrollIntoViewIfNeeded + dOMElementScrollIntoViewIfNeeded , + + +-- ** dOMElementSetAttribute + dOMElementSetAttribute , + + +-- ** dOMElementSetAttributeNode + dOMElementSetAttributeNode , + + +-- ** dOMElementSetAttributeNodeNs + dOMElementSetAttributeNodeNs , + + +-- ** dOMElementSetAttributeNs + dOMElementSetAttributeNs , + + +-- ** dOMElementSetClassName + dOMElementSetClassName , + + +-- ** dOMElementSetId + dOMElementSetId , + + +-- ** dOMElementSetScrollLeft + dOMElementSetScrollLeft , + + +-- ** dOMElementSetScrollTop + dOMElementSetScrollTop , + + +-- ** dOMElementWebkitMatchesSelector + dOMElementWebkitMatchesSelector , + + +-- ** dOMElementWebkitRequestFullScreen + dOMElementWebkitRequestFullScreen , + + +-- ** dOMElementWebkitRequestFullscreen + dOMElementWebkitRequestFullscreen , + + +-- ** dOMElementWebkitRequestPointerLock + dOMElementWebkitRequestPointerLock , + + + + + -- * Properties +-- ** Attributes + DOMElementAttributesPropertyInfo , + getDOMElementAttributes , + + +-- ** ChildElementCount + DOMElementChildElementCountPropertyInfo , + getDOMElementChildElementCount , + + +-- ** ClassList + DOMElementClassListPropertyInfo , + getDOMElementClassList , + + +-- ** ClassName + DOMElementClassNamePropertyInfo , + constructDOMElementClassName , + getDOMElementClassName , + setDOMElementClassName , + + +-- ** ClientHeight + DOMElementClientHeightPropertyInfo , + getDOMElementClientHeight , + + +-- ** ClientLeft + DOMElementClientLeftPropertyInfo , + getDOMElementClientLeft , + + +-- ** ClientTop + DOMElementClientTopPropertyInfo , + getDOMElementClientTop , + + +-- ** ClientWidth + DOMElementClientWidthPropertyInfo , + getDOMElementClientWidth , + + +-- ** FirstElementChild + DOMElementFirstElementChildPropertyInfo , + getDOMElementFirstElementChild , + + +-- ** Id + DOMElementIdPropertyInfo , + constructDOMElementId , + getDOMElementId , + setDOMElementId , + + +-- ** LastElementChild + DOMElementLastElementChildPropertyInfo , + getDOMElementLastElementChild , + + +-- ** NextElementSibling + DOMElementNextElementSiblingPropertyInfo, + getDOMElementNextElementSibling , + + +-- ** OffsetHeight + DOMElementOffsetHeightPropertyInfo , + getDOMElementOffsetHeight , + + +-- ** OffsetLeft + DOMElementOffsetLeftPropertyInfo , + getDOMElementOffsetLeft , + + +-- ** OffsetParent + DOMElementOffsetParentPropertyInfo , + getDOMElementOffsetParent , + + +-- ** OffsetTop + DOMElementOffsetTopPropertyInfo , + getDOMElementOffsetTop , + + +-- ** OffsetWidth + DOMElementOffsetWidthPropertyInfo , + getDOMElementOffsetWidth , + + +-- ** PreviousElementSibling + DOMElementPreviousElementSiblingPropertyInfo, + getDOMElementPreviousElementSibling , + + +-- ** ScrollHeight + DOMElementScrollHeightPropertyInfo , + getDOMElementScrollHeight , + + +-- ** ScrollLeft + DOMElementScrollLeftPropertyInfo , + constructDOMElementScrollLeft , + getDOMElementScrollLeft , + setDOMElementScrollLeft , + + +-- ** ScrollTop + DOMElementScrollTopPropertyInfo , + constructDOMElementScrollTop , + getDOMElementScrollTop , + setDOMElementScrollTop , + + +-- ** ScrollWidth + DOMElementScrollWidthPropertyInfo , + getDOMElementScrollWidth , + + +-- ** Style + DOMElementStylePropertyInfo , + getDOMElementStyle , + + +-- ** TagName + DOMElementTagNamePropertyInfo , + getDOMElementTagName , + + +-- ** WebkitRegionOverset + DOMElementWebkitRegionOversetPropertyInfo, + getDOMElementWebkitRegionOverset , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMElement = DOMElement (ForeignPtr DOMElement) +foreign import ccall "webkit_dom_element_get_type" + c_webkit_dom_element_get_type :: IO GType + +type instance ParentTypes DOMElement = DOMElementParentTypes +type DOMElementParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_element_get_type + + +class GObject o => DOMElementK o +instance (GObject o, IsDescendantOf DOMElement o) => DOMElementK o + +toDOMElement :: DOMElementK o => o -> IO DOMElement +toDOMElement = unsafeCastTo DOMElement + +noDOMElement :: Maybe DOMElement +noDOMElement = Nothing + +-- VVV Prop "attributes" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m DOMNamedNodeMap +getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap + +data DOMElementAttributesPropertyInfo +instance AttrInfo DOMElementAttributesPropertyInfo where + type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK + type AttrGetType DOMElementAttributesPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMElementAttributesPropertyInfo = "DOMElement::attributes" + attrGet _ = getDOMElementAttributes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "child-element-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m Word64 +getDOMElementChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" + +data DOMElementChildElementCountPropertyInfo +instance AttrInfo DOMElementChildElementCountPropertyInfo where + type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK + type AttrGetType DOMElementChildElementCountPropertyInfo = Word64 + type AttrLabel DOMElementChildElementCountPropertyInfo = "DOMElement::child-element-count" + attrGet _ = getDOMElementChildElementCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "class-list" + -- Type: TInterface "WebKit" "DOMDOMTokenList" + -- Flags: [PropertyReadable] + +getDOMElementClassList :: (MonadIO m, DOMElementK o) => o -> m DOMDOMTokenList +getDOMElementClassList obj = liftIO $ getObjectPropertyObject obj "class-list" DOMDOMTokenList + +data DOMElementClassListPropertyInfo +instance AttrInfo DOMElementClassListPropertyInfo where + type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClassListPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClassListPropertyInfo = DOMElementK + type AttrGetType DOMElementClassListPropertyInfo = DOMDOMTokenList + type AttrLabel DOMElementClassListPropertyInfo = "DOMElement::class-list" + attrGet _ = getDOMElementClassList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "class-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementClassName obj = liftIO $ getObjectPropertyString obj "class-name" + +setDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () +setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" val + +constructDOMElementClassName :: T.Text -> IO ([Char], GValue) +constructDOMElementClassName val = constructObjectPropertyString "class-name" val + +data DOMElementClassNamePropertyInfo +instance AttrInfo DOMElementClassNamePropertyInfo where + type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = DOMElementK + type AttrGetType DOMElementClassNamePropertyInfo = T.Text + type AttrLabel DOMElementClassNamePropertyInfo = "DOMElement::class-name" + attrGet _ = getDOMElementClassName + attrSet _ = setDOMElementClassName + attrConstruct _ = constructDOMElementClassName + +-- VVV Prop "client-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientHeight obj = liftIO $ getObjectPropertyInt64 obj "client-height" + +data DOMElementClientHeightPropertyInfo +instance AttrInfo DOMElementClientHeightPropertyInfo where + type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementClientHeightPropertyInfo = Int64 + type AttrLabel DOMElementClientHeightPropertyInfo = "DOMElement::client-height" + attrGet _ = getDOMElementClientHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientLeft obj = liftIO $ getObjectPropertyInt64 obj "client-left" + +data DOMElementClientLeftPropertyInfo +instance AttrInfo DOMElementClientLeftPropertyInfo where + type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementClientLeftPropertyInfo = Int64 + type AttrLabel DOMElementClientLeftPropertyInfo = "DOMElement::client-left" + attrGet _ = getDOMElementClientLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientTop obj = liftIO $ getObjectPropertyInt64 obj "client-top" + +data DOMElementClientTopPropertyInfo +instance AttrInfo DOMElementClientTopPropertyInfo where + type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = DOMElementK + type AttrGetType DOMElementClientTopPropertyInfo = Int64 + type AttrLabel DOMElementClientTopPropertyInfo = "DOMElement::client-top" + attrGet _ = getDOMElementClientTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientWidth obj = liftIO $ getObjectPropertyInt64 obj "client-width" + +data DOMElementClientWidthPropertyInfo +instance AttrInfo DOMElementClientWidthPropertyInfo where + type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementClientWidthPropertyInfo = Int64 + type AttrLabel DOMElementClientWidthPropertyInfo = "DOMElement::client-width" + attrGet _ = getDOMElementClientWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "first-element-child" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement + +data DOMElementFirstElementChildPropertyInfo +instance AttrInfo DOMElementFirstElementChildPropertyInfo where + type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK + type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement + type AttrLabel DOMElementFirstElementChildPropertyInfo = "DOMElement::first-element-child" + attrGet _ = getDOMElementFirstElementChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementId obj = liftIO $ getObjectPropertyString obj "id" + +setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () +setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" val + +constructDOMElementId :: T.Text -> IO ([Char], GValue) +constructDOMElementId val = constructObjectPropertyString "id" val + +data DOMElementIdPropertyInfo +instance AttrInfo DOMElementIdPropertyInfo where + type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMElementIdPropertyInfo = DOMElementK + type AttrGetType DOMElementIdPropertyInfo = T.Text + type AttrLabel DOMElementIdPropertyInfo = "DOMElement::id" + attrGet _ = getDOMElementId + attrSet _ = setDOMElementId + attrConstruct _ = constructDOMElementId + +-- VVV Prop "last-element-child" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement + +data DOMElementLastElementChildPropertyInfo +instance AttrInfo DOMElementLastElementChildPropertyInfo where + type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK + type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement + type AttrLabel DOMElementLastElementChildPropertyInfo = "DOMElement::last-element-child" + attrGet _ = getDOMElementLastElementChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "next-element-sibling" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement + +data DOMElementNextElementSiblingPropertyInfo +instance AttrInfo DOMElementNextElementSiblingPropertyInfo where + type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK + type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement + type AttrLabel DOMElementNextElementSiblingPropertyInfo = "DOMElement::next-element-sibling" + attrGet _ = getDOMElementNextElementSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyInt64 obj "offset-height" + +data DOMElementOffsetHeightPropertyInfo +instance AttrInfo DOMElementOffsetHeightPropertyInfo where + type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetHeightPropertyInfo = Int64 + type AttrLabel DOMElementOffsetHeightPropertyInfo = "DOMElement::offset-height" + attrGet _ = getDOMElementOffsetHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyInt64 obj "offset-left" + +data DOMElementOffsetLeftPropertyInfo +instance AttrInfo DOMElementOffsetLeftPropertyInfo where + type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetLeftPropertyInfo = Int64 + type AttrLabel DOMElementOffsetLeftPropertyInfo = "DOMElement::offset-left" + attrGet _ = getDOMElementOffsetLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-parent" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementOffsetParent obj = liftIO $ getObjectPropertyObject obj "offset-parent" DOMElement + +data DOMElementOffsetParentPropertyInfo +instance AttrInfo DOMElementOffsetParentPropertyInfo where + type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement + type AttrLabel DOMElementOffsetParentPropertyInfo = "DOMElement::offset-parent" + attrGet _ = getDOMElementOffsetParent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetTop obj = liftIO $ getObjectPropertyInt64 obj "offset-top" + +data DOMElementOffsetTopPropertyInfo +instance AttrInfo DOMElementOffsetTopPropertyInfo where + type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetTopPropertyInfo = Int64 + type AttrLabel DOMElementOffsetTopPropertyInfo = "DOMElement::offset-top" + attrGet _ = getDOMElementOffsetTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyInt64 obj "offset-width" + +data DOMElementOffsetWidthPropertyInfo +instance AttrInfo DOMElementOffsetWidthPropertyInfo where + type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetWidthPropertyInfo = Int64 + type AttrLabel DOMElementOffsetWidthPropertyInfo = "DOMElement::offset-width" + attrGet _ = getDOMElementOffsetWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "previous-element-sibling" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement + +data DOMElementPreviousElementSiblingPropertyInfo +instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where + type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK + type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement + type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "DOMElement::previous-element-sibling" + attrGet _ = getDOMElementPreviousElementSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollHeight obj = liftIO $ getObjectPropertyInt64 obj "scroll-height" + +data DOMElementScrollHeightPropertyInfo +instance AttrInfo DOMElementScrollHeightPropertyInfo where + type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollHeightPropertyInfo = Int64 + type AttrLabel DOMElementScrollHeightPropertyInfo = "DOMElement::scroll-height" + attrGet _ = getDOMElementScrollHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollLeft obj = liftIO $ getObjectPropertyInt64 obj "scroll-left" + +setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () +setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyInt64 obj "scroll-left" val + +constructDOMElementScrollLeft :: Int64 -> IO ([Char], GValue) +constructDOMElementScrollLeft val = constructObjectPropertyInt64 "scroll-left" val + +data DOMElementScrollLeftPropertyInfo +instance AttrInfo DOMElementScrollLeftPropertyInfo where + type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollLeftPropertyInfo = Int64 + type AttrLabel DOMElementScrollLeftPropertyInfo = "DOMElement::scroll-left" + attrGet _ = getDOMElementScrollLeft + attrSet _ = setDOMElementScrollLeft + attrConstruct _ = constructDOMElementScrollLeft + +-- VVV Prop "scroll-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollTop obj = liftIO $ getObjectPropertyInt64 obj "scroll-top" + +setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () +setDOMElementScrollTop obj val = liftIO $ setObjectPropertyInt64 obj "scroll-top" val + +constructDOMElementScrollTop :: Int64 -> IO ([Char], GValue) +constructDOMElementScrollTop val = constructObjectPropertyInt64 "scroll-top" val + +data DOMElementScrollTopPropertyInfo +instance AttrInfo DOMElementScrollTopPropertyInfo where + type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollTopPropertyInfo = Int64 + type AttrLabel DOMElementScrollTopPropertyInfo = "DOMElement::scroll-top" + attrGet _ = getDOMElementScrollTop + attrSet _ = setDOMElementScrollTop + attrConstruct _ = constructDOMElementScrollTop + +-- VVV Prop "scroll-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollWidth obj = liftIO $ getObjectPropertyInt64 obj "scroll-width" + +data DOMElementScrollWidthPropertyInfo +instance AttrInfo DOMElementScrollWidthPropertyInfo where + type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollWidthPropertyInfo = Int64 + type AttrLabel DOMElementScrollWidthPropertyInfo = "DOMElement::scroll-width" + attrGet _ = getDOMElementScrollWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "style" + -- Type: TInterface "WebKit" "DOMCSSStyleDeclaration" + -- Flags: [PropertyReadable] + +getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m DOMCSSStyleDeclaration +getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration + +data DOMElementStylePropertyInfo +instance AttrInfo DOMElementStylePropertyInfo where + type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK + type AttrGetType DOMElementStylePropertyInfo = DOMCSSStyleDeclaration + type AttrLabel DOMElementStylePropertyInfo = "DOMElement::style" + attrGet _ = getDOMElementStyle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "tag-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name" + +data DOMElementTagNamePropertyInfo +instance AttrInfo DOMElementTagNamePropertyInfo where + type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK + type AttrGetType DOMElementTagNamePropertyInfo = T.Text + type AttrLabel DOMElementTagNamePropertyInfo = "DOMElement::tag-name" + attrGet _ = getDOMElementTagName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-region-overset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset" + +data DOMElementWebkitRegionOversetPropertyInfo +instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where + type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK + type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = T.Text + type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "DOMElement::webkit-region-overset" + attrGet _ = getDOMElementWebkitRegionOverset + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMElement = DOMElementAttributeList +type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMElement = DOMElementSignalList +type DOMElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMElement::blur +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_blur" webkit_dom_element_blur :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO () + + +dOMElementBlur :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m () +dOMElementBlur _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_blur _obj' + touchManagedPtr _obj + return () + +-- method DOMElement::focus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_focus" webkit_dom_element_focus :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO () + + +dOMElementFocus :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m () +dOMElementFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_focus _obj' + touchManagedPtr _obj + return () + +-- method DOMElement::get_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_attribute" webkit_dom_element_get_attribute :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO CString + + +dOMElementGetAttribute :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m T.Text +dOMElementGetAttribute _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_get_attribute _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_attribute" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMElement::get_attribute_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_attribute_node" webkit_dom_element_get_attribute_node :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMAttr) + + +dOMElementGetAttributeNode :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m DOMAttr +dOMElementGetAttributeNode _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_get_attribute_node _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_node" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMElement::get_attribute_node_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_attribute_node_ns" webkit_dom_element_get_attribute_node_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO (Ptr DOMAttr) + + +dOMElementGetAttributeNodeNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMAttr +dOMElementGetAttributeNodeNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_element_get_attribute_node_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_node_ns" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMElement::get_attribute_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_attribute_ns" webkit_dom_element_get_attribute_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO CString + + +dOMElementGetAttributeNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m T.Text +dOMElementGetAttributeNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_element_get_attribute_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_ns" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMElement::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_attributes" webkit_dom_element_get_attributes :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMNamedNodeMap) + + +dOMElementGetAttributes :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMNamedNodeMap +dOMElementGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_attributes _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_attributes" result + result' <- (wrapObject DOMNamedNodeMap) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_child_element_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_child_element_count" webkit_dom_element_get_child_element_count :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Word64 + + +dOMElementGetChildElementCount :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Word64 +dOMElementGetChildElementCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_child_element_count _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_class_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMTokenList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_class_list" webkit_dom_element_get_class_list :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMDOMTokenList) + + +dOMElementGetClassList :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMDOMTokenList +dOMElementGetClassList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_class_list _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_class_list" result + result' <- (wrapObject DOMDOMTokenList) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_class_name" webkit_dom_element_get_class_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CString + + +dOMElementGetClassName :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m T.Text +dOMElementGetClassName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_class_name _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_class_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_client_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_client_height" webkit_dom_element_get_client_height :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetClientHeight :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetClientHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_client_height _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_client_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_client_left" webkit_dom_element_get_client_left :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetClientLeft :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetClientLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_client_left _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_client_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_client_top" webkit_dom_element_get_client_top :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetClientTop :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetClientTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_client_top _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_client_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_client_width" webkit_dom_element_get_client_width :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetClientWidth :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetClientWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_client_width _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_elements_by_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_class_name" webkit_dom_element_get_elements_by_class_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMElementGetElementsByClassName :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m DOMNodeList +dOMElementGetElementsByClassName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_get_elements_by_class_name _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMElement::get_elements_by_tag_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_tag_name" webkit_dom_element_get_elements_by_tag_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMElementGetElementsByTagName :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m DOMNodeList +dOMElementGetElementsByTagName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_get_elements_by_tag_name _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMElement::get_elements_by_tag_name_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns" webkit_dom_element_get_elements_by_tag_name_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMElementGetElementsByTagNameNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMNodeList +dOMElementGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_element_get_elements_by_tag_name_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMElement::get_first_element_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_first_element_child" webkit_dom_element_get_first_element_child :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMElement) + + +dOMElementGetFirstElementChild :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMElement +dOMElementGetFirstElementChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_first_element_child _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_first_element_child" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_id" webkit_dom_element_get_id :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CString + + +dOMElementGetId :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m T.Text +dOMElementGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_last_element_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_last_element_child" webkit_dom_element_get_last_element_child :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMElement) + + +dOMElementGetLastElementChild :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMElement +dOMElementGetLastElementChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_last_element_child _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_last_element_child" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_next_element_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_next_element_sibling" webkit_dom_element_get_next_element_sibling :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMElement) + + +dOMElementGetNextElementSibling :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMElement +dOMElementGetNextElementSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_next_element_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_next_element_sibling" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_offset_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_offset_height" webkit_dom_element_get_offset_height :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetOffsetHeight :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetOffsetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_offset_height _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_offset_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_offset_left" webkit_dom_element_get_offset_left :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetOffsetLeft :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetOffsetLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_offset_left _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_offset_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_offset_parent" webkit_dom_element_get_offset_parent :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMElement) + + +dOMElementGetOffsetParent :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMElement +dOMElementGetOffsetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_offset_parent _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_offset_parent" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_offset_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_offset_top" webkit_dom_element_get_offset_top :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetOffsetTop :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetOffsetTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_offset_top _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_offset_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_offset_width" webkit_dom_element_get_offset_width :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetOffsetWidth :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetOffsetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_offset_width _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_previous_element_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_previous_element_sibling" webkit_dom_element_get_previous_element_sibling :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMElement) + + +dOMElementGetPreviousElementSibling :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMElement +dOMElementGetPreviousElementSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_previous_element_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_previous_element_sibling" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_scroll_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_scroll_height" webkit_dom_element_get_scroll_height :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetScrollHeight :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetScrollHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_scroll_height _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_scroll_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_scroll_left" webkit_dom_element_get_scroll_left :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetScrollLeft :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetScrollLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_scroll_left _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_scroll_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_scroll_top" webkit_dom_element_get_scroll_top :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetScrollTop :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetScrollTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_scroll_top _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_scroll_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_scroll_width" webkit_dom_element_get_scroll_width :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO Int64 + + +dOMElementGetScrollWidth :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Int64 +dOMElementGetScrollWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_scroll_width _obj' + touchManagedPtr _obj + return result + +-- method DOMElement::get_style +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_style" webkit_dom_element_get_style :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO (Ptr DOMCSSStyleDeclaration) + + +dOMElementGetStyle :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m DOMCSSStyleDeclaration +dOMElementGetStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_style _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_style" result + result' <- (wrapObject DOMCSSStyleDeclaration) result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_tag_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_tag_name" webkit_dom_element_get_tag_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CString + + +dOMElementGetTagName :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m T.Text +dOMElementGetTagName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_tag_name _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_tag_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_webkit_region_overflow +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_webkit_region_overflow" webkit_dom_element_get_webkit_region_overflow :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CString + +{-# DEPRECATED dOMElementGetWebkitRegionOverflow ["(Since version 1.10)","Use webkit_dom_element_get_webkit_region_overset() instead."]#-} +dOMElementGetWebkitRegionOverflow :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m T.Text +dOMElementGetWebkitRegionOverflow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_webkit_region_overflow _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_webkit_region_overflow" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMElement::get_webkit_region_overset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_webkit_region_overset" webkit_dom_element_get_webkit_region_overset :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CString + + +dOMElementGetWebkitRegionOverset :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m T.Text +dOMElementGetWebkitRegionOverset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_get_webkit_region_overset _obj' + checkUnexpectedReturnNULL "webkit_dom_element_get_webkit_region_overset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMElement::has_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_has_attribute" webkit_dom_element_has_attribute :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO CInt + + +dOMElementHasAttribute :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m Bool +dOMElementHasAttribute _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_has_attribute _obj' name' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMElement::has_attribute_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_has_attribute_ns" webkit_dom_element_has_attribute_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO CInt + + +dOMElementHasAttributeNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m Bool +dOMElementHasAttributeNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_element_has_attribute_ns _obj' namespaceURI' localName' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMElement::has_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_has_attributes" webkit_dom_element_has_attributes :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO CInt + + +dOMElementHasAttributes :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m Bool +dOMElementHasAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_element_has_attributes _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMElement::query_selector +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_query_selector" webkit_dom_element_query_selector :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMElementQuerySelector :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMElement +dOMElementQuerySelector _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_element_query_selector _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_element_query_selector" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + +-- method DOMElement::query_selector_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_query_selector_all" webkit_dom_element_query_selector_all :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNodeList) + + +dOMElementQuerySelectorAll :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- selectors + m DOMNodeList +dOMElementQuerySelectorAll _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + result <- propagateGError $ webkit_dom_element_query_selector_all _obj' selectors' + checkUnexpectedReturnNULL "webkit_dom_element_query_selector_all" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem selectors' + return result' + ) (do + freeMem selectors' + ) + +-- method DOMElement::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_remove" webkit_dom_element_remove :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMElementRemove :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m () +dOMElementRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_element_remove _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMElement::remove_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_remove_attribute" webkit_dom_element_remove_attribute :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO () + + +dOMElementRemoveAttribute :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + m () +dOMElementRemoveAttribute _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + webkit_dom_element_remove_attribute _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +-- method DOMElement::remove_attribute_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_remove_attribute_node" webkit_dom_element_remove_attribute_node :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Ptr DOMAttr -> -- oldAttr : TInterface "WebKit" "DOMAttr" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMAttr) + + +dOMElementRemoveAttributeNode :: + (MonadIO m, DOMElementK a, DOMAttrK b) => + a -> -- _obj + b -> -- oldAttr + m DOMAttr +dOMElementRemoveAttributeNode _obj oldAttr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let oldAttr' = unsafeManagedPtrCastPtr oldAttr + onException (do + result <- propagateGError $ webkit_dom_element_remove_attribute_node _obj' oldAttr' + checkUnexpectedReturnNULL "webkit_dom_element_remove_attribute_node" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + touchManagedPtr oldAttr + return result' + ) (do + return () + ) + +-- method DOMElement::remove_attribute_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_remove_attribute_ns" webkit_dom_element_remove_attribute_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO () + + +dOMElementRemoveAttributeNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m () +dOMElementRemoveAttributeNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + webkit_dom_element_remove_attribute_ns _obj' namespaceURI' localName' + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return () + +-- method DOMElement::scroll_by_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_scroll_by_lines" webkit_dom_element_scroll_by_lines :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Int64 -> -- lines : TBasicType TInt64 + IO () + + +dOMElementScrollByLines :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Int64 -> -- lines + m () +dOMElementScrollByLines _obj lines = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_scroll_by_lines _obj' lines + touchManagedPtr _obj + return () + +-- method DOMElement::scroll_by_pages +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_scroll_by_pages" webkit_dom_element_scroll_by_pages :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Int64 -> -- pages : TBasicType TInt64 + IO () + + +dOMElementScrollByPages :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Int64 -> -- pages + m () +dOMElementScrollByPages _obj pages = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_scroll_by_pages _obj' pages + touchManagedPtr _obj + return () + +-- method DOMElement::scroll_into_view +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_scroll_into_view" webkit_dom_element_scroll_into_view :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CInt -> -- alignWithTop : TBasicType TBoolean + IO () + + +dOMElementScrollIntoView :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Bool -> -- alignWithTop + m () +dOMElementScrollIntoView _obj alignWithTop = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let alignWithTop' = (fromIntegral . fromEnum) alignWithTop + webkit_dom_element_scroll_into_view _obj' alignWithTop' + touchManagedPtr _obj + return () + +-- method DOMElement::scroll_into_view_if_needed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_scroll_into_view_if_needed" webkit_dom_element_scroll_into_view_if_needed :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CInt -> -- centerIfNeeded : TBasicType TBoolean + IO () + + +dOMElementScrollIntoViewIfNeeded :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Bool -> -- centerIfNeeded + m () +dOMElementScrollIntoViewIfNeeded _obj centerIfNeeded = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let centerIfNeeded' = (fromIntegral . fromEnum) centerIfNeeded + webkit_dom_element_scroll_into_view_if_needed _obj' centerIfNeeded' + touchManagedPtr _obj + return () + +-- method DOMElement::set_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_attribute" webkit_dom_element_set_attribute :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- name : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMElementSetAttribute :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- name + T.Text -> -- value + m () +dOMElementSetAttribute _obj name value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_element_set_attribute _obj' name' value' + touchManagedPtr _obj + freeMem name' + freeMem value' + return () + ) (do + freeMem name' + freeMem value' + ) + +-- method DOMElement::set_attribute_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_attribute_node" webkit_dom_element_set_attribute_node :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Ptr DOMAttr -> -- newAttr : TInterface "WebKit" "DOMAttr" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMAttr) + + +dOMElementSetAttributeNode :: + (MonadIO m, DOMElementK a, DOMAttrK b) => + a -> -- _obj + b -> -- newAttr + m DOMAttr +dOMElementSetAttributeNode _obj newAttr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newAttr' = unsafeManagedPtrCastPtr newAttr + onException (do + result <- propagateGError $ webkit_dom_element_set_attribute_node _obj' newAttr' + checkUnexpectedReturnNULL "webkit_dom_element_set_attribute_node" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + touchManagedPtr newAttr + return result' + ) (do + return () + ) + +-- method DOMElement::set_attribute_node_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAttr" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_attribute_node_ns" webkit_dom_element_set_attribute_node_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Ptr DOMAttr -> -- newAttr : TInterface "WebKit" "DOMAttr" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMAttr) + + +dOMElementSetAttributeNodeNs :: + (MonadIO m, DOMElementK a, DOMAttrK b) => + a -> -- _obj + b -> -- newAttr + m DOMAttr +dOMElementSetAttributeNodeNs _obj newAttr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newAttr' = unsafeManagedPtrCastPtr newAttr + onException (do + result <- propagateGError $ webkit_dom_element_set_attribute_node_ns _obj' newAttr' + checkUnexpectedReturnNULL "webkit_dom_element_set_attribute_node_ns" result + result' <- (newObject DOMAttr) result + touchManagedPtr _obj + touchManagedPtr newAttr + return result' + ) (do + return () + ) + +-- method DOMElement::set_attribute_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_attribute_ns" webkit_dom_element_set_attribute_ns :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- qualifiedName : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMElementSetAttributeNs :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Maybe (T.Text) -> -- namespaceURI + T.Text -> -- qualifiedName + T.Text -> -- value + m () +dOMElementSetAttributeNs _obj namespaceURI qualifiedName value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeNamespaceURI <- case namespaceURI of + Nothing -> return nullPtr + Just jNamespaceURI -> do + jNamespaceURI' <- textToCString jNamespaceURI + return jNamespaceURI' + qualifiedName' <- textToCString qualifiedName + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_element_set_attribute_ns _obj' maybeNamespaceURI qualifiedName' value' + touchManagedPtr _obj + freeMem maybeNamespaceURI + freeMem qualifiedName' + freeMem value' + return () + ) (do + freeMem maybeNamespaceURI + freeMem qualifiedName' + freeMem value' + ) + +-- method DOMElement::set_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_class_name" webkit_dom_element_set_class_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMElementSetClassName :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMElementSetClassName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_element_set_class_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMElement::set_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_id" webkit_dom_element_set_id :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMElementSetId :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMElementSetId _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_element_set_id _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMElement::set_scroll_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_scroll_left" webkit_dom_element_set_scroll_left :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMElementSetScrollLeft :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMElementSetScrollLeft _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_set_scroll_left _obj' value + touchManagedPtr _obj + return () + +-- method DOMElement::set_scroll_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_set_scroll_top" webkit_dom_element_set_scroll_top :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMElementSetScrollTop :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMElementSetScrollTop _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_set_scroll_top _obj' value + touchManagedPtr _obj + return () + +-- method DOMElement::webkit_matches_selector +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_element_webkit_matches_selector" webkit_dom_element_webkit_matches_selector :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + CString -> -- selectors : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMElementWebkitMatchesSelector :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + T.Text -> -- selectors + m () +dOMElementWebkitMatchesSelector _obj selectors = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + selectors' <- textToCString selectors + onException (do + _ <- propagateGError $ webkit_dom_element_webkit_matches_selector _obj' selectors' + touchManagedPtr _obj + freeMem selectors' + return () + ) (do + freeMem selectors' + ) + +-- method DOMElement::webkit_request_full_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_webkit_request_full_screen" webkit_dom_element_webkit_request_full_screen :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + Word16 -> -- flags : TBasicType TUInt16 + IO () + + +dOMElementWebkitRequestFullScreen :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + Word16 -> -- flags + m () +dOMElementWebkitRequestFullScreen _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_webkit_request_full_screen _obj' flags + touchManagedPtr _obj + return () + +-- method DOMElement::webkit_request_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_webkit_request_fullscreen" webkit_dom_element_webkit_request_fullscreen :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO () + + +dOMElementWebkitRequestFullscreen :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m () +dOMElementWebkitRequestFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_webkit_request_fullscreen _obj' + touchManagedPtr _obj + return () + +-- method DOMElement::webkit_request_pointer_lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_webkit_request_pointer_lock" webkit_dom_element_webkit_request_pointer_lock :: + Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" + IO () + + +dOMElementWebkitRequestPointerLock :: + (MonadIO m, DOMElementK a) => + a -> -- _obj + m () +dOMElementWebkitRequestPointerLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_element_webkit_request_pointer_lock _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMElement.hs-boot b/GI/WebKit/Objects/DOMElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMElement.hs-boot @@ -0,0 +1,38 @@ +module GI.WebKit.Objects.DOMElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMElement = DOMElement (ForeignPtr DOMElement) +instance GObject DOMElement where +class GObject o => DOMElementK o +instance (GObject o, IsDescendantOf DOMElement o) => DOMElementK o +data DOMElementAttributesPropertyInfo +data DOMElementChildElementCountPropertyInfo +data DOMElementClassListPropertyInfo +data DOMElementClassNamePropertyInfo +data DOMElementClientHeightPropertyInfo +data DOMElementClientLeftPropertyInfo +data DOMElementClientTopPropertyInfo +data DOMElementClientWidthPropertyInfo +data DOMElementFirstElementChildPropertyInfo +data DOMElementIdPropertyInfo +data DOMElementLastElementChildPropertyInfo +data DOMElementNextElementSiblingPropertyInfo +data DOMElementOffsetHeightPropertyInfo +data DOMElementOffsetLeftPropertyInfo +data DOMElementOffsetParentPropertyInfo +data DOMElementOffsetTopPropertyInfo +data DOMElementOffsetWidthPropertyInfo +data DOMElementPreviousElementSiblingPropertyInfo +data DOMElementScrollHeightPropertyInfo +data DOMElementScrollLeftPropertyInfo +data DOMElementScrollTopPropertyInfo +data DOMElementScrollWidthPropertyInfo +data DOMElementStylePropertyInfo +data DOMElementTagNamePropertyInfo +data DOMElementWebkitRegionOversetPropertyInfo diff --git a/GI/WebKit/Objects/DOMEntityReference.hs b/GI/WebKit/Objects/DOMEntityReference.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMEntityReference.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMEntityReference + ( + +-- * Exported types + DOMEntityReference(..) , + DOMEntityReferenceK , + toDOMEntityReference , + noDOMEntityReference , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMEntityReference = DOMEntityReference (ForeignPtr DOMEntityReference) +foreign import ccall "webkit_dom_entity_reference_get_type" + c_webkit_dom_entity_reference_get_type :: IO GType + +type instance ParentTypes DOMEntityReference = DOMEntityReferenceParentTypes +type DOMEntityReferenceParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMEntityReference where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_entity_reference_get_type + + +class GObject o => DOMEntityReferenceK o +instance (GObject o, IsDescendantOf DOMEntityReference o) => DOMEntityReferenceK o + +toDOMEntityReference :: DOMEntityReferenceK o => o -> IO DOMEntityReference +toDOMEntityReference = unsafeCastTo DOMEntityReference + +noDOMEntityReference :: Maybe DOMEntityReference +noDOMEntityReference = Nothing + +type instance AttributeList DOMEntityReference = DOMEntityReferenceAttributeList +type DOMEntityReferenceAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMEntityReference = DOMEntityReferenceSignalList +type DOMEntityReferenceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMEntityReference.hs-boot b/GI/WebKit/Objects/DOMEntityReference.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMEntityReference.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMEntityReference where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMEntityReference = DOMEntityReference (ForeignPtr DOMEntityReference) +instance GObject DOMEntityReference where +class GObject o => DOMEntityReferenceK o +instance (GObject o, IsDescendantOf DOMEntityReference o) => DOMEntityReferenceK o diff --git a/GI/WebKit/Objects/DOMEvent.hs b/GI/WebKit/Objects/DOMEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMEvent.hs @@ -0,0 +1,808 @@ + +{- | +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.WebKit.Objects.DOMEvent + ( + +-- * Exported types + DOMEvent(..) , + DOMEventK , + toDOMEvent , + noDOMEvent , + + + -- * Methods +-- ** dOMEventGetBubbles + dOMEventGetBubbles , + + +-- ** dOMEventGetCancelBubble + dOMEventGetCancelBubble , + + +-- ** dOMEventGetCancelable + dOMEventGetCancelable , + + +-- ** dOMEventGetCurrentTarget + dOMEventGetCurrentTarget , + + +-- ** dOMEventGetDefaultPrevented + dOMEventGetDefaultPrevented , + + +-- ** dOMEventGetEventPhase + dOMEventGetEventPhase , + + +-- ** dOMEventGetReturnValue + dOMEventGetReturnValue , + + +-- ** dOMEventGetSrcElement + dOMEventGetSrcElement , + + +-- ** dOMEventGetTarget + dOMEventGetTarget , + + +-- ** dOMEventGetTimeStamp + dOMEventGetTimeStamp , + + +-- ** dOMEventInitEvent + dOMEventInitEvent , + + +-- ** dOMEventPreventDefault + dOMEventPreventDefault , + + +-- ** dOMEventSetCancelBubble + dOMEventSetCancelBubble , + + +-- ** dOMEventSetReturnValue + dOMEventSetReturnValue , + + +-- ** dOMEventStopImmediatePropagation + dOMEventStopImmediatePropagation , + + +-- ** dOMEventStopPropagation + dOMEventStopPropagation , + + + + + -- * Properties +-- ** Bubbles + DOMEventBubblesPropertyInfo , + getDOMEventBubbles , + + +-- ** CancelBubble + DOMEventCancelBubblePropertyInfo , + constructDOMEventCancelBubble , + getDOMEventCancelBubble , + setDOMEventCancelBubble , + + +-- ** Cancelable + DOMEventCancelablePropertyInfo , + getDOMEventCancelable , + + +-- ** CurrentTarget + DOMEventCurrentTargetPropertyInfo , + getDOMEventCurrentTarget , + + +-- ** DefaultPrevented + DOMEventDefaultPreventedPropertyInfo , + getDOMEventDefaultPrevented , + + +-- ** EventPhase + DOMEventEventPhasePropertyInfo , + getDOMEventEventPhase , + + +-- ** ReturnValue + DOMEventReturnValuePropertyInfo , + constructDOMEventReturnValue , + getDOMEventReturnValue , + setDOMEventReturnValue , + + +-- ** SrcElement + DOMEventSrcElementPropertyInfo , + getDOMEventSrcElement , + + +-- ** Target + DOMEventTargetPropertyInfo , + getDOMEventTarget , + + +-- ** TimeStamp + DOMEventTimeStampPropertyInfo , + getDOMEventTimeStamp , + + +-- ** Type + DOMEventTypePropertyInfo , + getDOMEventType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent) +foreign import ccall "webkit_dom_event_get_type" + c_webkit_dom_event_get_type :: IO GType + +type instance ParentTypes DOMEvent = DOMEventParentTypes +type DOMEventParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_event_get_type + + +class GObject o => DOMEventK o +instance (GObject o, IsDescendantOf DOMEvent o) => DOMEventK o + +toDOMEvent :: DOMEventK o => o -> IO DOMEvent +toDOMEvent = unsafeCastTo DOMEvent + +noDOMEvent :: Maybe DOMEvent +noDOMEvent = Nothing + +-- VVV Prop "bubbles" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles" + +data DOMEventBubblesPropertyInfo +instance AttrInfo DOMEventBubblesPropertyInfo where + type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = DOMEventK + type AttrGetType DOMEventBubblesPropertyInfo = Bool + type AttrLabel DOMEventBubblesPropertyInfo = "DOMEvent::bubbles" + attrGet _ = getDOMEventBubbles + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cancel-bubble" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble" + +setDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> Bool -> m () +setDOMEventCancelBubble obj val = liftIO $ setObjectPropertyBool obj "cancel-bubble" val + +constructDOMEventCancelBubble :: Bool -> IO ([Char], GValue) +constructDOMEventCancelBubble val = constructObjectPropertyBool "cancel-bubble" val + +data DOMEventCancelBubblePropertyInfo +instance AttrInfo DOMEventCancelBubblePropertyInfo where + type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = DOMEventK + type AttrGetType DOMEventCancelBubblePropertyInfo = Bool + type AttrLabel DOMEventCancelBubblePropertyInfo = "DOMEvent::cancel-bubble" + attrGet _ = getDOMEventCancelBubble + attrSet _ = setDOMEventCancelBubble + attrConstruct _ = constructDOMEventCancelBubble + +-- VVV Prop "cancelable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable" + +data DOMEventCancelablePropertyInfo +instance AttrInfo DOMEventCancelablePropertyInfo where + type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = DOMEventK + type AttrGetType DOMEventCancelablePropertyInfo = Bool + type AttrLabel DOMEventCancelablePropertyInfo = "DOMEvent::cancelable" + attrGet _ = getDOMEventCancelable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget + +data DOMEventCurrentTargetPropertyInfo +instance AttrInfo DOMEventCurrentTargetPropertyInfo where + type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK + type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMEventCurrentTargetPropertyInfo = "DOMEvent::current-target" + attrGet _ = getDOMEventCurrentTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-prevented" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" + +data DOMEventDefaultPreventedPropertyInfo +instance AttrInfo DOMEventDefaultPreventedPropertyInfo where + type AttrAllowedOps DOMEventDefaultPreventedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventDefaultPreventedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventDefaultPreventedPropertyInfo = DOMEventK + type AttrGetType DOMEventDefaultPreventedPropertyInfo = Bool + type AttrLabel DOMEventDefaultPreventedPropertyInfo = "DOMEvent::default-prevented" + attrGet _ = getDOMEventDefaultPrevented + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "event-phase" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 +getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase" + +data DOMEventEventPhasePropertyInfo +instance AttrInfo DOMEventEventPhasePropertyInfo where + type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = DOMEventK + type AttrGetType DOMEventEventPhasePropertyInfo = Word32 + type AttrLabel DOMEventEventPhasePropertyInfo = "DOMEvent::event-phase" + attrGet _ = getDOMEventEventPhase + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "return-value" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value" + +setDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> Bool -> m () +setDOMEventReturnValue obj val = liftIO $ setObjectPropertyBool obj "return-value" val + +constructDOMEventReturnValue :: Bool -> IO ([Char], GValue) +constructDOMEventReturnValue val = constructObjectPropertyBool "return-value" val + +data DOMEventReturnValuePropertyInfo +instance AttrInfo DOMEventReturnValuePropertyInfo where + type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = DOMEventK + type AttrGetType DOMEventReturnValuePropertyInfo = Bool + type AttrLabel DOMEventReturnValuePropertyInfo = "DOMEvent::return-value" + attrGet _ = getDOMEventReturnValue + attrSet _ = setDOMEventReturnValue + attrConstruct _ = constructDOMEventReturnValue + +-- VVV Prop "src-element" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget + +data DOMEventSrcElementPropertyInfo +instance AttrInfo DOMEventSrcElementPropertyInfo where + type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK + type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget + type AttrLabel DOMEventSrcElementPropertyInfo = "DOMEvent::src-element" + attrGet _ = getDOMEventSrcElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget + +data DOMEventTargetPropertyInfo +instance AttrInfo DOMEventTargetPropertyInfo where + type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK + type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMEventTargetPropertyInfo = "DOMEvent::target" + attrGet _ = getDOMEventTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "time-stamp" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 +getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp" + +data DOMEventTimeStampPropertyInfo +instance AttrInfo DOMEventTimeStampPropertyInfo where + type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = DOMEventK + type AttrGetType DOMEventTimeStampPropertyInfo = Word32 + type AttrLabel DOMEventTimeStampPropertyInfo = "DOMEvent::time-stamp" + attrGet _ = getDOMEventTimeStamp + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text +getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMEventTypePropertyInfo +instance AttrInfo DOMEventTypePropertyInfo where + type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK + type AttrGetType DOMEventTypePropertyInfo = T.Text + type AttrLabel DOMEventTypePropertyInfo = "DOMEvent::type" + attrGet _ = getDOMEventType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMEvent = DOMEventAttributeList +type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMEvent = DOMEventSignalList +type DOMEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMEvent::get_bubbles +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_bubbles" webkit_dom_event_get_bubbles :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO CInt + + +dOMEventGetBubbles :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Bool +dOMEventGetBubbles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_bubbles _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_cancel_bubble +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_cancel_bubble" webkit_dom_event_get_cancel_bubble :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO CInt + + +dOMEventGetCancelBubble :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Bool +dOMEventGetCancelBubble _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_cancel_bubble _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_cancelable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_cancelable" webkit_dom_event_get_cancelable :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO CInt + + +dOMEventGetCancelable :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Bool +dOMEventGetCancelable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_cancelable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_current_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEventTarget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_current_target" webkit_dom_event_get_current_target :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO (Ptr DOMEventTarget) + + +dOMEventGetCurrentTarget :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m DOMEventTarget +dOMEventGetCurrentTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_current_target _obj' + checkUnexpectedReturnNULL "webkit_dom_event_get_current_target" result + result' <- (wrapObject DOMEventTarget) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_default_prevented +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_default_prevented" webkit_dom_event_get_default_prevented :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO CInt + + +dOMEventGetDefaultPrevented :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Bool +dOMEventGetDefaultPrevented _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_default_prevented _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_event_phase +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_event_phase" webkit_dom_event_get_event_phase :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO Word16 + + +dOMEventGetEventPhase :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Word16 +dOMEventGetEventPhase _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_event_phase _obj' + touchManagedPtr _obj + return result + +-- method DOMEvent::get_return_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_return_value" webkit_dom_event_get_return_value :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO CInt + + +dOMEventGetReturnValue :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Bool +dOMEventGetReturnValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_return_value _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_src_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEventTarget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_src_element" webkit_dom_event_get_src_element :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO (Ptr DOMEventTarget) + + +dOMEventGetSrcElement :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m DOMEventTarget +dOMEventGetSrcElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_src_element _obj' + checkUnexpectedReturnNULL "webkit_dom_event_get_src_element" result + result' <- (wrapObject DOMEventTarget) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEventTarget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO (Ptr DOMEventTarget) + + +dOMEventGetTarget :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m DOMEventTarget +dOMEventGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_event_get_target" result + result' <- (wrapObject DOMEventTarget) result + touchManagedPtr _obj + return result' + +-- method DOMEvent::get_time_stamp +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_get_time_stamp" webkit_dom_event_get_time_stamp :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO Word32 + + +dOMEventGetTimeStamp :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m Word32 +dOMEventGetTimeStamp _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_event_get_time_stamp _obj' + touchManagedPtr _obj + return result + +-- method DOMEvent::init_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_init_event" webkit_dom_event_init_event :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + CString -> -- eventTypeArg : TBasicType TUTF8 + CInt -> -- canBubbleArg : TBasicType TBoolean + CInt -> -- cancelableArg : TBasicType TBoolean + IO () + + +dOMEventInitEvent :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + T.Text -> -- eventTypeArg + Bool -> -- canBubbleArg + Bool -> -- cancelableArg + m () +dOMEventInitEvent _obj eventTypeArg canBubbleArg cancelableArg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + eventTypeArg' <- textToCString eventTypeArg + let canBubbleArg' = (fromIntegral . fromEnum) canBubbleArg + let cancelableArg' = (fromIntegral . fromEnum) cancelableArg + webkit_dom_event_init_event _obj' eventTypeArg' canBubbleArg' cancelableArg' + touchManagedPtr _obj + freeMem eventTypeArg' + return () + +-- method DOMEvent::prevent_default +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_prevent_default" webkit_dom_event_prevent_default :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO () + + +dOMEventPreventDefault :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m () +dOMEventPreventDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_event_prevent_default _obj' + touchManagedPtr _obj + return () + +-- method DOMEvent::set_cancel_bubble +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_set_cancel_bubble" webkit_dom_event_set_cancel_bubble :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMEventSetCancelBubble :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + Bool -> -- value + m () +dOMEventSetCancelBubble _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_event_set_cancel_bubble _obj' value' + touchManagedPtr _obj + return () + +-- method DOMEvent::set_return_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_set_return_value" webkit_dom_event_set_return_value :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMEventSetReturnValue :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + Bool -> -- value + m () +dOMEventSetReturnValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_event_set_return_value _obj' value' + touchManagedPtr _obj + return () + +-- method DOMEvent::stop_immediate_propagation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_stop_immediate_propagation" webkit_dom_event_stop_immediate_propagation :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO () + + +dOMEventStopImmediatePropagation :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m () +dOMEventStopImmediatePropagation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_event_stop_immediate_propagation _obj' + touchManagedPtr _obj + return () + +-- method DOMEvent::stop_propagation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_event_stop_propagation" webkit_dom_event_stop_propagation :: + Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" + IO () + + +dOMEventStopPropagation :: + (MonadIO m, DOMEventK a) => + a -> -- _obj + m () +dOMEventStopPropagation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_event_stop_propagation _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMEvent.hs-boot b/GI/WebKit/Objects/DOMEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMEvent.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent) +instance GObject DOMEvent where +class GObject o => DOMEventK o +instance (GObject o, IsDescendantOf DOMEvent o) => DOMEventK o +data DOMEventBubblesPropertyInfo +data DOMEventCancelBubblePropertyInfo +data DOMEventCancelablePropertyInfo +data DOMEventCurrentTargetPropertyInfo +data DOMEventDefaultPreventedPropertyInfo +data DOMEventEventPhasePropertyInfo +data DOMEventReturnValuePropertyInfo +data DOMEventSrcElementPropertyInfo +data DOMEventTargetPropertyInfo +data DOMEventTimeStampPropertyInfo +data DOMEventTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMFile.hs b/GI/WebKit/Objects/DOMFile.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMFile.hs @@ -0,0 +1,172 @@ + +{- | +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.WebKit.Objects.DOMFile + ( + +-- * Exported types + DOMFile(..) , + DOMFileK , + toDOMFile , + noDOMFile , + + + -- * Methods +-- ** dOMFileGetName + dOMFileGetName , + + +-- ** dOMFileGetWebkitRelativePath + dOMFileGetWebkitRelativePath , + + + + + -- * Properties +-- ** Name + DOMFileNamePropertyInfo , + getDOMFileName , + + +-- ** WebkitRelativePath + DOMFileWebkitRelativePathPropertyInfo , + getDOMFileWebkitRelativePath , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMFile = DOMFile (ForeignPtr DOMFile) +foreign import ccall "webkit_dom_file_get_type" + c_webkit_dom_file_get_type :: IO GType + +type instance ParentTypes DOMFile = DOMFileParentTypes +type DOMFileParentTypes = '[DOMBlob, DOMObject, GObject.Object] + +instance GObject DOMFile where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_file_get_type + + +class GObject o => DOMFileK o +instance (GObject o, IsDescendantOf DOMFile o) => DOMFileK o + +toDOMFile :: DOMFileK o => o -> IO DOMFile +toDOMFile = unsafeCastTo DOMFile + +noDOMFile :: Maybe DOMFile +noDOMFile = Nothing + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMFileNamePropertyInfo +instance AttrInfo DOMFileNamePropertyInfo where + type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK + type AttrGetType DOMFileNamePropertyInfo = T.Text + type AttrLabel DOMFileNamePropertyInfo = "DOMFile::name" + attrGet _ = getDOMFileName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-relative-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMFileWebkitRelativePath :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileWebkitRelativePath obj = liftIO $ getObjectPropertyString obj "webkit-relative-path" + +data DOMFileWebkitRelativePathPropertyInfo +instance AttrInfo DOMFileWebkitRelativePathPropertyInfo where + type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileWebkitRelativePathPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileWebkitRelativePathPropertyInfo = DOMFileK + type AttrGetType DOMFileWebkitRelativePathPropertyInfo = T.Text + type AttrLabel DOMFileWebkitRelativePathPropertyInfo = "DOMFile::webkit-relative-path" + attrGet _ = getDOMFileWebkitRelativePath + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMFile = DOMFileAttributeList +type DOMFileAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo), '("webkit-relative-path", DOMFileWebkitRelativePathPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMFile = DOMFileSignalList +type DOMFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMFile::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_file_get_name" webkit_dom_file_get_name :: + Ptr DOMFile -> -- _obj : TInterface "WebKit" "DOMFile" + IO CString + + +dOMFileGetName :: + (MonadIO m, DOMFileK a) => + a -> -- _obj + m T.Text +dOMFileGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_file_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_file_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMFile::get_webkit_relative_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_file_get_webkit_relative_path" webkit_dom_file_get_webkit_relative_path :: + Ptr DOMFile -> -- _obj : TInterface "WebKit" "DOMFile" + IO CString + + +dOMFileGetWebkitRelativePath :: + (MonadIO m, DOMFileK a) => + a -> -- _obj + m T.Text +dOMFileGetWebkitRelativePath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_file_get_webkit_relative_path _obj' + checkUnexpectedReturnNULL "webkit_dom_file_get_webkit_relative_path" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMFile.hs-boot b/GI/WebKit/Objects/DOMFile.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMFile.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMFile where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMFile = DOMFile (ForeignPtr DOMFile) +instance GObject DOMFile where +class GObject o => DOMFileK o +instance (GObject o, IsDescendantOf DOMFile o) => DOMFileK o +data DOMFileNamePropertyInfo +data DOMFileWebkitRelativePathPropertyInfo diff --git a/GI/WebKit/Objects/DOMFileList.hs b/GI/WebKit/Objects/DOMFileList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMFileList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMFileList + ( + +-- * Exported types + DOMFileList(..) , + DOMFileListK , + toDOMFileList , + noDOMFileList , + + + -- * Methods +-- ** dOMFileListGetLength + dOMFileListGetLength , + + +-- ** dOMFileListItem + dOMFileListItem , + + + + + -- * Properties +-- ** Length + DOMFileListLengthPropertyInfo , + getDOMFileListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMFileList = DOMFileList (ForeignPtr DOMFileList) +foreign import ccall "webkit_dom_file_list_get_type" + c_webkit_dom_file_list_get_type :: IO GType + +type instance ParentTypes DOMFileList = DOMFileListParentTypes +type DOMFileListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMFileList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_file_list_get_type + + +class GObject o => DOMFileListK o +instance (GObject o, IsDescendantOf DOMFileList o) => DOMFileListK o + +toDOMFileList :: DOMFileListK o => o -> IO DOMFileList +toDOMFileList = unsafeCastTo DOMFileList + +noDOMFileList :: Maybe DOMFileList +noDOMFileList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m Word64 +getDOMFileListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMFileListLengthPropertyInfo +instance AttrInfo DOMFileListLengthPropertyInfo where + type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK + type AttrGetType DOMFileListLengthPropertyInfo = Word64 + type AttrLabel DOMFileListLengthPropertyInfo = "DOMFileList::length" + attrGet _ = getDOMFileListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMFileList = DOMFileListAttributeList +type DOMFileListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMFileList = DOMFileListSignalList +type DOMFileListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMFileList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_file_list_get_length" webkit_dom_file_list_get_length :: + Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList" + IO Word64 + + +dOMFileListGetLength :: + (MonadIO m, DOMFileListK a) => + a -> -- _obj + m Word64 +dOMFileListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_file_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMFileList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMFile" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_file_list_item" webkit_dom_file_list_item :: + Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMFile) + + +dOMFileListItem :: + (MonadIO m, DOMFileListK a) => + a -> -- _obj + Word64 -> -- index + m DOMFile +dOMFileListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_file_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_file_list_item" result + result' <- (wrapObject DOMFile) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMFileList.hs-boot b/GI/WebKit/Objects/DOMFileList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMFileList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMFileList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMFileList = DOMFileList (ForeignPtr DOMFileList) +instance GObject DOMFileList where +class GObject o => DOMFileListK o +instance (GObject o, IsDescendantOf DOMFileList o) => DOMFileListK o +data DOMFileListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMGamepad.hs b/GI/WebKit/Objects/DOMGamepad.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGamepad.hs @@ -0,0 +1,220 @@ + +{- | +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.WebKit.Objects.DOMGamepad + ( + +-- * Exported types + DOMGamepad(..) , + DOMGamepadK , + toDOMGamepad , + noDOMGamepad , + + + -- * Methods +-- ** dOMGamepadGetId + dOMGamepadGetId , + + +-- ** dOMGamepadGetIndex + dOMGamepadGetIndex , + + +-- ** dOMGamepadGetTimestamp + dOMGamepadGetTimestamp , + + + + + -- * Properties +-- ** Id + DOMGamepadIdPropertyInfo , + getDOMGamepadId , + + +-- ** Index + DOMGamepadIndexPropertyInfo , + getDOMGamepadIndex , + + +-- ** Timestamp + DOMGamepadTimestampPropertyInfo , + getDOMGamepadTimestamp , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMGamepad = DOMGamepad (ForeignPtr DOMGamepad) +foreign import ccall "webkit_dom_gamepad_get_type" + c_webkit_dom_gamepad_get_type :: IO GType + +type instance ParentTypes DOMGamepad = DOMGamepadParentTypes +type DOMGamepadParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMGamepad where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_gamepad_get_type + + +class GObject o => DOMGamepadK o +instance (GObject o, IsDescendantOf DOMGamepad o) => DOMGamepadK o + +toDOMGamepad :: DOMGamepadK o => o -> IO DOMGamepad +toDOMGamepad = unsafeCastTo DOMGamepad + +noDOMGamepad :: Maybe DOMGamepad +noDOMGamepad = Nothing + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMGamepadId :: (MonadIO m, DOMGamepadK o) => o -> m T.Text +getDOMGamepadId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMGamepadIdPropertyInfo +instance AttrInfo DOMGamepadIdPropertyInfo where + type AttrAllowedOps DOMGamepadIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadIdPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadIdPropertyInfo = T.Text + type AttrLabel DOMGamepadIdPropertyInfo = "DOMGamepad::id" + attrGet _ = getDOMGamepadId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "index" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadIndex :: (MonadIO m, DOMGamepadK o) => o -> m Word64 +getDOMGamepadIndex obj = liftIO $ getObjectPropertyUInt64 obj "index" + +data DOMGamepadIndexPropertyInfo +instance AttrInfo DOMGamepadIndexPropertyInfo where + type AttrAllowedOps DOMGamepadIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadIndexPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadIndexPropertyInfo = Word64 + type AttrLabel DOMGamepadIndexPropertyInfo = "DOMGamepad::index" + attrGet _ = getDOMGamepadIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "timestamp" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadTimestamp :: (MonadIO m, DOMGamepadK o) => o -> m Word64 +getDOMGamepadTimestamp obj = liftIO $ getObjectPropertyUInt64 obj "timestamp" + +data DOMGamepadTimestampPropertyInfo +instance AttrInfo DOMGamepadTimestampPropertyInfo where + type AttrAllowedOps DOMGamepadTimestampPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadTimestampPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadTimestampPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadTimestampPropertyInfo = Word64 + type AttrLabel DOMGamepadTimestampPropertyInfo = "DOMGamepad::timestamp" + attrGet _ = getDOMGamepadTimestamp + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMGamepad = DOMGamepadAttributeList +type DOMGamepadAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMGamepadIdPropertyInfo), '("index", DOMGamepadIndexPropertyInfo), '("timestamp", DOMGamepadTimestampPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMGamepad = DOMGamepadSignalList +type DOMGamepadSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMGamepad::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_gamepad_get_id" webkit_dom_gamepad_get_id :: + Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad" + IO CString + + +dOMGamepadGetId :: + (MonadIO m, DOMGamepadK a) => + a -> -- _obj + m T.Text +dOMGamepadGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_gamepad_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_gamepad_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMGamepad::get_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_gamepad_get_index" webkit_dom_gamepad_get_index :: + Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad" + IO Word64 + + +dOMGamepadGetIndex :: + (MonadIO m, DOMGamepadK a) => + a -> -- _obj + m Word64 +dOMGamepadGetIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_gamepad_get_index _obj' + touchManagedPtr _obj + return result + +-- method DOMGamepad::get_timestamp +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_gamepad_get_timestamp" webkit_dom_gamepad_get_timestamp :: + Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad" + IO Word64 + + +dOMGamepadGetTimestamp :: + (MonadIO m, DOMGamepadK a) => + a -> -- _obj + m Word64 +dOMGamepadGetTimestamp _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_gamepad_get_timestamp _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMGamepad.hs-boot b/GI/WebKit/Objects/DOMGamepad.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGamepad.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMGamepad where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMGamepad = DOMGamepad (ForeignPtr DOMGamepad) +instance GObject DOMGamepad where +class GObject o => DOMGamepadK o +instance (GObject o, IsDescendantOf DOMGamepad o) => DOMGamepadK o +data DOMGamepadIdPropertyInfo +data DOMGamepadIndexPropertyInfo +data DOMGamepadTimestampPropertyInfo diff --git a/GI/WebKit/Objects/DOMGamepadList.hs b/GI/WebKit/Objects/DOMGamepadList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGamepadList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMGamepadList + ( + +-- * Exported types + DOMGamepadList(..) , + DOMGamepadListK , + toDOMGamepadList , + noDOMGamepadList , + + + -- * Methods +-- ** dOMGamepadListGetLength + dOMGamepadListGetLength , + + +-- ** dOMGamepadListItem + dOMGamepadListItem , + + + + + -- * Properties +-- ** Length + DOMGamepadListLengthPropertyInfo , + getDOMGamepadListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMGamepadList = DOMGamepadList (ForeignPtr DOMGamepadList) +foreign import ccall "webkit_dom_gamepad_list_get_type" + c_webkit_dom_gamepad_list_get_type :: IO GType + +type instance ParentTypes DOMGamepadList = DOMGamepadListParentTypes +type DOMGamepadListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMGamepadList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_gamepad_list_get_type + + +class GObject o => DOMGamepadListK o +instance (GObject o, IsDescendantOf DOMGamepadList o) => DOMGamepadListK o + +toDOMGamepadList :: DOMGamepadListK o => o -> IO DOMGamepadList +toDOMGamepadList = unsafeCastTo DOMGamepadList + +noDOMGamepadList :: Maybe DOMGamepadList +noDOMGamepadList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m Word64 +getDOMGamepadListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMGamepadListLengthPropertyInfo +instance AttrInfo DOMGamepadListLengthPropertyInfo where + type AttrAllowedOps DOMGamepadListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadListLengthPropertyInfo = DOMGamepadListK + type AttrGetType DOMGamepadListLengthPropertyInfo = Word64 + type AttrLabel DOMGamepadListLengthPropertyInfo = "DOMGamepadList::length" + attrGet _ = getDOMGamepadListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMGamepadList = DOMGamepadListAttributeList +type DOMGamepadListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMGamepadListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMGamepadList = DOMGamepadListSignalList +type DOMGamepadListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMGamepadList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_gamepad_list_get_length" webkit_dom_gamepad_list_get_length :: + Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList" + IO Word64 + + +dOMGamepadListGetLength :: + (MonadIO m, DOMGamepadListK a) => + a -> -- _obj + m Word64 +dOMGamepadListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_gamepad_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMGamepadList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMGamepad" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_gamepad_list_item" webkit_dom_gamepad_list_item :: + Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMGamepad) + + +dOMGamepadListItem :: + (MonadIO m, DOMGamepadListK a) => + a -> -- _obj + Word64 -> -- index + m DOMGamepad +dOMGamepadListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_gamepad_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_gamepad_list_item" result + result' <- (wrapObject DOMGamepad) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMGamepadList.hs-boot b/GI/WebKit/Objects/DOMGamepadList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGamepadList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMGamepadList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMGamepadList = DOMGamepadList (ForeignPtr DOMGamepadList) +instance GObject DOMGamepadList where +class GObject o => DOMGamepadListK o +instance (GObject o, IsDescendantOf DOMGamepadList o) => DOMGamepadListK o +data DOMGamepadListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMGeolocation.hs b/GI/WebKit/Objects/DOMGeolocation.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGeolocation.hs @@ -0,0 +1,91 @@ + +{- | +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.WebKit.Objects.DOMGeolocation + ( + +-- * Exported types + DOMGeolocation(..) , + DOMGeolocationK , + toDOMGeolocation , + noDOMGeolocation , + + + -- * Methods +-- ** dOMGeolocationClearWatch + dOMGeolocationClearWatch , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMGeolocation = DOMGeolocation (ForeignPtr DOMGeolocation) +foreign import ccall "webkit_dom_geolocation_get_type" + c_webkit_dom_geolocation_get_type :: IO GType + +type instance ParentTypes DOMGeolocation = DOMGeolocationParentTypes +type DOMGeolocationParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMGeolocation where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_geolocation_get_type + + +class GObject o => DOMGeolocationK o +instance (GObject o, IsDescendantOf DOMGeolocation o) => DOMGeolocationK o + +toDOMGeolocation :: DOMGeolocationK o => o -> IO DOMGeolocation +toDOMGeolocation = unsafeCastTo DOMGeolocation + +noDOMGeolocation :: Maybe DOMGeolocation +noDOMGeolocation = Nothing + +type instance AttributeList DOMGeolocation = DOMGeolocationAttributeList +type DOMGeolocationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMGeolocation = DOMGeolocationSignalList +type DOMGeolocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMGeolocation::clear_watch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "watchID", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "watchID", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_geolocation_clear_watch" webkit_dom_geolocation_clear_watch :: + Ptr DOMGeolocation -> -- _obj : TInterface "WebKit" "DOMGeolocation" + Int64 -> -- watchID : TBasicType TInt64 + IO () + + +dOMGeolocationClearWatch :: + (MonadIO m, DOMGeolocationK a) => + a -> -- _obj + Int64 -> -- watchID + m () +dOMGeolocationClearWatch _obj watchID = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_geolocation_clear_watch _obj' watchID + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMGeolocation.hs-boot b/GI/WebKit/Objects/DOMGeolocation.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMGeolocation.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMGeolocation where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMGeolocation = DOMGeolocation (ForeignPtr DOMGeolocation) +instance GObject DOMGeolocation where +class GObject o => DOMGeolocationK o +instance (GObject o, IsDescendantOf DOMGeolocation o) => DOMGeolocationK o diff --git a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs @@ -0,0 +1,1895 @@ + +{- | +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.WebKit.Objects.DOMHTMLAnchorElement + ( + +-- * Exported types + DOMHTMLAnchorElement(..) , + DOMHTMLAnchorElementK , + toDOMHTMLAnchorElement , + noDOMHTMLAnchorElement , + + + -- * Methods +-- ** dOMHTMLAnchorElementGetCharset + dOMHTMLAnchorElementGetCharset , + + +-- ** dOMHTMLAnchorElementGetCoords + dOMHTMLAnchorElementGetCoords , + + +-- ** dOMHTMLAnchorElementGetDownload + dOMHTMLAnchorElementGetDownload , + + +-- ** dOMHTMLAnchorElementGetHash + dOMHTMLAnchorElementGetHash , + + +-- ** dOMHTMLAnchorElementGetHost + dOMHTMLAnchorElementGetHost , + + +-- ** dOMHTMLAnchorElementGetHostname + dOMHTMLAnchorElementGetHostname , + + +-- ** dOMHTMLAnchorElementGetHref + dOMHTMLAnchorElementGetHref , + + +-- ** dOMHTMLAnchorElementGetHreflang + dOMHTMLAnchorElementGetHreflang , + + +-- ** dOMHTMLAnchorElementGetName + dOMHTMLAnchorElementGetName , + + +-- ** dOMHTMLAnchorElementGetOrigin + dOMHTMLAnchorElementGetOrigin , + + +-- ** dOMHTMLAnchorElementGetPathname + dOMHTMLAnchorElementGetPathname , + + +-- ** dOMHTMLAnchorElementGetPing + dOMHTMLAnchorElementGetPing , + + +-- ** dOMHTMLAnchorElementGetPort + dOMHTMLAnchorElementGetPort , + + +-- ** dOMHTMLAnchorElementGetProtocol + dOMHTMLAnchorElementGetProtocol , + + +-- ** dOMHTMLAnchorElementGetRel + dOMHTMLAnchorElementGetRel , + + +-- ** dOMHTMLAnchorElementGetRev + dOMHTMLAnchorElementGetRev , + + +-- ** dOMHTMLAnchorElementGetSearch + dOMHTMLAnchorElementGetSearch , + + +-- ** dOMHTMLAnchorElementGetShape + dOMHTMLAnchorElementGetShape , + + +-- ** dOMHTMLAnchorElementGetTarget + dOMHTMLAnchorElementGetTarget , + + +-- ** dOMHTMLAnchorElementGetText + dOMHTMLAnchorElementGetText , + + +-- ** dOMHTMLAnchorElementSetCharset + dOMHTMLAnchorElementSetCharset , + + +-- ** dOMHTMLAnchorElementSetCoords + dOMHTMLAnchorElementSetCoords , + + +-- ** dOMHTMLAnchorElementSetDownload + dOMHTMLAnchorElementSetDownload , + + +-- ** dOMHTMLAnchorElementSetHash + dOMHTMLAnchorElementSetHash , + + +-- ** dOMHTMLAnchorElementSetHost + dOMHTMLAnchorElementSetHost , + + +-- ** dOMHTMLAnchorElementSetHostname + dOMHTMLAnchorElementSetHostname , + + +-- ** dOMHTMLAnchorElementSetHref + dOMHTMLAnchorElementSetHref , + + +-- ** dOMHTMLAnchorElementSetHreflang + dOMHTMLAnchorElementSetHreflang , + + +-- ** dOMHTMLAnchorElementSetName + dOMHTMLAnchorElementSetName , + + +-- ** dOMHTMLAnchorElementSetPathname + dOMHTMLAnchorElementSetPathname , + + +-- ** dOMHTMLAnchorElementSetPing + dOMHTMLAnchorElementSetPing , + + +-- ** dOMHTMLAnchorElementSetPort + dOMHTMLAnchorElementSetPort , + + +-- ** dOMHTMLAnchorElementSetProtocol + dOMHTMLAnchorElementSetProtocol , + + +-- ** dOMHTMLAnchorElementSetRel + dOMHTMLAnchorElementSetRel , + + +-- ** dOMHTMLAnchorElementSetRev + dOMHTMLAnchorElementSetRev , + + +-- ** dOMHTMLAnchorElementSetSearch + dOMHTMLAnchorElementSetSearch , + + +-- ** dOMHTMLAnchorElementSetShape + dOMHTMLAnchorElementSetShape , + + +-- ** dOMHTMLAnchorElementSetTarget + dOMHTMLAnchorElementSetTarget , + + + + + -- * Properties +-- ** Charset + DOMHTMLAnchorElementCharsetPropertyInfo , + constructDOMHTMLAnchorElementCharset , + getDOMHTMLAnchorElementCharset , + setDOMHTMLAnchorElementCharset , + + +-- ** Coords + DOMHTMLAnchorElementCoordsPropertyInfo , + constructDOMHTMLAnchorElementCoords , + getDOMHTMLAnchorElementCoords , + setDOMHTMLAnchorElementCoords , + + +-- ** Download + DOMHTMLAnchorElementDownloadPropertyInfo, + constructDOMHTMLAnchorElementDownload , + getDOMHTMLAnchorElementDownload , + setDOMHTMLAnchorElementDownload , + + +-- ** Hash + DOMHTMLAnchorElementHashPropertyInfo , + constructDOMHTMLAnchorElementHash , + getDOMHTMLAnchorElementHash , + setDOMHTMLAnchorElementHash , + + +-- ** Host + DOMHTMLAnchorElementHostPropertyInfo , + constructDOMHTMLAnchorElementHost , + getDOMHTMLAnchorElementHost , + setDOMHTMLAnchorElementHost , + + +-- ** Hostname + DOMHTMLAnchorElementHostnamePropertyInfo, + constructDOMHTMLAnchorElementHostname , + getDOMHTMLAnchorElementHostname , + setDOMHTMLAnchorElementHostname , + + +-- ** Href + DOMHTMLAnchorElementHrefPropertyInfo , + constructDOMHTMLAnchorElementHref , + getDOMHTMLAnchorElementHref , + setDOMHTMLAnchorElementHref , + + +-- ** Hreflang + DOMHTMLAnchorElementHreflangPropertyInfo, + constructDOMHTMLAnchorElementHreflang , + getDOMHTMLAnchorElementHreflang , + setDOMHTMLAnchorElementHreflang , + + +-- ** Name + DOMHTMLAnchorElementNamePropertyInfo , + constructDOMHTMLAnchorElementName , + getDOMHTMLAnchorElementName , + setDOMHTMLAnchorElementName , + + +-- ** Origin + DOMHTMLAnchorElementOriginPropertyInfo , + getDOMHTMLAnchorElementOrigin , + + +-- ** Pathname + DOMHTMLAnchorElementPathnamePropertyInfo, + constructDOMHTMLAnchorElementPathname , + getDOMHTMLAnchorElementPathname , + setDOMHTMLAnchorElementPathname , + + +-- ** Ping + DOMHTMLAnchorElementPingPropertyInfo , + constructDOMHTMLAnchorElementPing , + getDOMHTMLAnchorElementPing , + setDOMHTMLAnchorElementPing , + + +-- ** Port + DOMHTMLAnchorElementPortPropertyInfo , + constructDOMHTMLAnchorElementPort , + getDOMHTMLAnchorElementPort , + setDOMHTMLAnchorElementPort , + + +-- ** Protocol + DOMHTMLAnchorElementProtocolPropertyInfo, + constructDOMHTMLAnchorElementProtocol , + getDOMHTMLAnchorElementProtocol , + setDOMHTMLAnchorElementProtocol , + + +-- ** Rel + DOMHTMLAnchorElementRelPropertyInfo , + constructDOMHTMLAnchorElementRel , + getDOMHTMLAnchorElementRel , + setDOMHTMLAnchorElementRel , + + +-- ** Rev + DOMHTMLAnchorElementRevPropertyInfo , + constructDOMHTMLAnchorElementRev , + getDOMHTMLAnchorElementRev , + setDOMHTMLAnchorElementRev , + + +-- ** Search + DOMHTMLAnchorElementSearchPropertyInfo , + constructDOMHTMLAnchorElementSearch , + getDOMHTMLAnchorElementSearch , + setDOMHTMLAnchorElementSearch , + + +-- ** Shape + DOMHTMLAnchorElementShapePropertyInfo , + constructDOMHTMLAnchorElementShape , + getDOMHTMLAnchorElementShape , + setDOMHTMLAnchorElementShape , + + +-- ** Target + DOMHTMLAnchorElementTargetPropertyInfo , + constructDOMHTMLAnchorElementTarget , + getDOMHTMLAnchorElementTarget , + setDOMHTMLAnchorElementTarget , + + +-- ** Text + DOMHTMLAnchorElementTextPropertyInfo , + getDOMHTMLAnchorElementText , + + +-- ** Type + DOMHTMLAnchorElementTypePropertyInfo , + constructDOMHTMLAnchorElementType , + getDOMHTMLAnchorElementType , + setDOMHTMLAnchorElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLAnchorElement = DOMHTMLAnchorElement (ForeignPtr DOMHTMLAnchorElement) +foreign import ccall "webkit_dom_html_anchor_element_get_type" + c_webkit_dom_html_anchor_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLAnchorElement = DOMHTMLAnchorElementParentTypes +type DOMHTMLAnchorElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLAnchorElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_anchor_element_get_type + + +class GObject o => DOMHTMLAnchorElementK o +instance (GObject o, IsDescendantOf DOMHTMLAnchorElement o) => DOMHTMLAnchorElementK o + +toDOMHTMLAnchorElement :: DOMHTMLAnchorElementK o => o -> IO DOMHTMLAnchorElement +toDOMHTMLAnchorElement = unsafeCastTo DOMHTMLAnchorElement + +noDOMHTMLAnchorElement :: Maybe DOMHTMLAnchorElement +noDOMHTMLAnchorElement = Nothing + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLAnchorElementCharsetPropertyInfo +instance AttrInfo DOMHTMLAnchorElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "DOMHTMLAnchorElement::charset" + attrGet _ = getDOMHTMLAnchorElementCharset + attrSet _ = setDOMHTMLAnchorElementCharset + attrConstruct _ = constructDOMHTMLAnchorElementCharset + +-- VVV Prop "coords" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords" + +setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val + +constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" val + +data DOMHTMLAnchorElementCoordsPropertyInfo +instance AttrInfo DOMHTMLAnchorElementCoordsPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "DOMHTMLAnchorElement::coords" + attrGet _ = getDOMHTMLAnchorElementCoords + attrSet _ = setDOMHTMLAnchorElementCoords + attrConstruct _ = constructDOMHTMLAnchorElementCoords + +-- VVV Prop "download" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download" + +setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" val + +constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" val + +data DOMHTMLAnchorElementDownloadPropertyInfo +instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "DOMHTMLAnchorElement::download" + attrGet _ = getDOMHTMLAnchorElementDownload + attrSet _ = setDOMHTMLAnchorElementDownload + attrConstruct _ = constructDOMHTMLAnchorElementDownload + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash" + +setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" val + +constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" val + +data DOMHTMLAnchorElementHashPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHashPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "DOMHTMLAnchorElement::hash" + attrGet _ = getDOMHTMLAnchorElementHash + attrSet _ = setDOMHTMLAnchorElementHash + attrConstruct _ = constructDOMHTMLAnchorElementHash + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host" + +setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" val + +constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" val + +data DOMHTMLAnchorElementHostPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHostPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "DOMHTMLAnchorElement::host" + attrGet _ = getDOMHTMLAnchorElementHost + attrSet _ = setDOMHTMLAnchorElementHost + attrConstruct _ = constructDOMHTMLAnchorElementHost + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" val + +constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" val + +data DOMHTMLAnchorElementHostnamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementHostnamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHostnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "DOMHTMLAnchorElement::hostname" + attrGet _ = getDOMHTMLAnchorElementHostname + attrSet _ = setDOMHTMLAnchorElementHostname + attrConstruct _ = constructDOMHTMLAnchorElementHostname + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLAnchorElementHrefPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "DOMHTMLAnchorElement::href" + attrGet _ = getDOMHTMLAnchorElementHref + attrSet _ = setDOMHTMLAnchorElementHref + attrConstruct _ = constructDOMHTMLAnchorElementHref + +-- VVV Prop "hreflang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" + +setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val + +constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" val + +data DOMHTMLAnchorElementHreflangPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHreflangPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "DOMHTMLAnchorElement::hreflang" + attrGet _ = getDOMHTMLAnchorElementHreflang + attrSet _ = setDOMHTMLAnchorElementHreflang + attrConstruct _ = constructDOMHTMLAnchorElementHreflang + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" val + +data DOMHTMLAnchorElementNamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "DOMHTMLAnchorElement::name" + attrGet _ = getDOMHTMLAnchorElementName + attrSet _ = setDOMHTMLAnchorElementName + attrConstruct _ = constructDOMHTMLAnchorElementName + +-- VVV Prop "origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin" + +data DOMHTMLAnchorElementOriginPropertyInfo +instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "DOMHTMLAnchorElement::origin" + attrGet _ = getDOMHTMLAnchorElementOrigin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" val + +constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" val + +data DOMHTMLAnchorElementPathnamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementPathnamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPathnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "DOMHTMLAnchorElement::pathname" + attrGet _ = getDOMHTMLAnchorElementPathname + attrSet _ = setDOMHTMLAnchorElementPathname + attrConstruct _ = constructDOMHTMLAnchorElementPathname + +-- VVV Prop "ping" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping" + +setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val + +constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" val + +data DOMHTMLAnchorElementPingPropertyInfo +instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "DOMHTMLAnchorElement::ping" + attrGet _ = getDOMHTMLAnchorElementPing + attrSet _ = setDOMHTMLAnchorElementPing + attrConstruct _ = constructDOMHTMLAnchorElementPing + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port" + +setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" val + +constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" val + +data DOMHTMLAnchorElementPortPropertyInfo +instance AttrInfo DOMHTMLAnchorElementPortPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "DOMHTMLAnchorElement::port" + attrGet _ = getDOMHTMLAnchorElementPort + attrSet _ = setDOMHTMLAnchorElementPort + attrConstruct _ = constructDOMHTMLAnchorElementPort + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" val + +constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" val + +data DOMHTMLAnchorElementProtocolPropertyInfo +instance AttrInfo DOMHTMLAnchorElementProtocolPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "DOMHTMLAnchorElement::protocol" + attrGet _ = getDOMHTMLAnchorElementProtocol + attrSet _ = setDOMHTMLAnchorElementProtocol + attrConstruct _ = constructDOMHTMLAnchorElementProtocol + +-- VVV Prop "rel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel" + +setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val + +constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" val + +data DOMHTMLAnchorElementRelPropertyInfo +instance AttrInfo DOMHTMLAnchorElementRelPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "DOMHTMLAnchorElement::rel" + attrGet _ = getDOMHTMLAnchorElementRel + attrSet _ = setDOMHTMLAnchorElementRel + attrConstruct _ = constructDOMHTMLAnchorElementRel + +-- VVV Prop "rev" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev" + +setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val + +constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" val + +data DOMHTMLAnchorElementRevPropertyInfo +instance AttrInfo DOMHTMLAnchorElementRevPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "DOMHTMLAnchorElement::rev" + attrGet _ = getDOMHTMLAnchorElementRev + attrSet _ = setDOMHTMLAnchorElementRev + attrConstruct _ = constructDOMHTMLAnchorElementRev + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search" + +setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" val + +constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" val + +data DOMHTMLAnchorElementSearchPropertyInfo +instance AttrInfo DOMHTMLAnchorElementSearchPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "DOMHTMLAnchorElement::search" + attrGet _ = getDOMHTMLAnchorElementSearch + attrSet _ = setDOMHTMLAnchorElementSearch + attrConstruct _ = constructDOMHTMLAnchorElementSearch + +-- VVV Prop "shape" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape" + +setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val + +constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" val + +data DOMHTMLAnchorElementShapePropertyInfo +instance AttrInfo DOMHTMLAnchorElementShapePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "DOMHTMLAnchorElement::shape" + attrGet _ = getDOMHTMLAnchorElementShape + attrSet _ = setDOMHTMLAnchorElementShape + attrConstruct _ = constructDOMHTMLAnchorElementShape + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLAnchorElementTargetPropertyInfo +instance AttrInfo DOMHTMLAnchorElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "DOMHTMLAnchorElement::target" + attrGet _ = getDOMHTMLAnchorElementTarget + attrSet _ = setDOMHTMLAnchorElementTarget + attrConstruct _ = constructDOMHTMLAnchorElementTarget + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMHTMLAnchorElementTextPropertyInfo +instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "DOMHTMLAnchorElement::text" + attrGet _ = getDOMHTMLAnchorElementText + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" val + +data DOMHTMLAnchorElementTypePropertyInfo +instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "DOMHTMLAnchorElement::type" + attrGet _ = getDOMHTMLAnchorElementType + attrSet _ = setDOMHTMLAnchorElementType + attrConstruct _ = constructDOMHTMLAnchorElementType + +type instance AttributeList DOMHTMLAnchorElement = DOMHTMLAnchorElementAttributeList +type DOMHTMLAnchorElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLAnchorElement = DOMHTMLAnchorElementSignalList +type DOMHTMLAnchorElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLAnchorElement::get_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_charset" webkit_dom_html_anchor_element_get_charset :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetCharset :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_coords" webkit_dom_html_anchor_element_get_coords :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetCoords :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetCoords _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_coords _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_coords" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_download +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_download" webkit_dom_html_anchor_element_get_download :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetDownload :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetDownload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_download _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_download" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_hash" webkit_dom_html_anchor_element_get_hash :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetHash :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_hash _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hash" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_host" webkit_dom_html_anchor_element_get_host :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetHost :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_host _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_host" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_hostname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_hostname" webkit_dom_html_anchor_element_get_hostname :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetHostname :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetHostname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_hostname _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hostname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_href" webkit_dom_html_anchor_element_get_href :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetHref :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_hreflang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_hreflang" webkit_dom_html_anchor_element_get_hreflang :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetHreflang :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetHreflang _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_hreflang _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hreflang" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_name" webkit_dom_html_anchor_element_get_name :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetName :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_origin" webkit_dom_html_anchor_element_get_origin :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetOrigin :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_origin _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_origin" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_pathname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_pathname" webkit_dom_html_anchor_element_get_pathname :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetPathname :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetPathname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_pathname _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_pathname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_ping +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_ping" webkit_dom_html_anchor_element_get_ping :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetPing :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetPing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_ping _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_ping" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_port" webkit_dom_html_anchor_element_get_port :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetPort :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_port _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_port" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_protocol" webkit_dom_html_anchor_element_get_protocol :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetProtocol :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetProtocol _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_protocol _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_protocol" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_rel +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_rel" webkit_dom_html_anchor_element_get_rel :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetRel :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetRel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_rel _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_rel" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_rev +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_rev" webkit_dom_html_anchor_element_get_rev :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetRev :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetRev _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_rev _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_rev" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_search +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_search" webkit_dom_html_anchor_element_get_search :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetSearch :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetSearch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_search _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_search" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_shape +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_shape" webkit_dom_html_anchor_element_get_shape :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetShape :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetShape _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_shape _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_shape" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_target" webkit_dom_html_anchor_element_get_target :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetTarget :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_get_text" webkit_dom_html_anchor_element_get_text :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + IO CString + + +dOMHTMLAnchorElementGetText :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAnchorElementGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_anchor_element_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAnchorElement::set_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_charset" webkit_dom_html_anchor_element_set_charset :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetCharset :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetCharset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_charset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_coords" webkit_dom_html_anchor_element_set_coords :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetCoords :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetCoords _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_coords _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_download +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_download" webkit_dom_html_anchor_element_set_download :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetDownload :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetDownload _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_download _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_hash" webkit_dom_html_anchor_element_set_hash :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetHash :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetHash _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_hash _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_host" webkit_dom_html_anchor_element_set_host :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetHost :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetHost _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_host _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_hostname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_hostname" webkit_dom_html_anchor_element_set_hostname :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetHostname :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetHostname _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_hostname _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_href" webkit_dom_html_anchor_element_set_href :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetHref :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetHref _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_href _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_hreflang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_hreflang" webkit_dom_html_anchor_element_set_hreflang :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetHreflang :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetHreflang _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_hreflang _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_name" webkit_dom_html_anchor_element_set_name :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetName :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_pathname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_pathname" webkit_dom_html_anchor_element_set_pathname :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetPathname :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetPathname _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_pathname _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_ping +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_ping" webkit_dom_html_anchor_element_set_ping :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetPing :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetPing _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_ping _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_port" webkit_dom_html_anchor_element_set_port :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetPort :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetPort _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_port _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_protocol" webkit_dom_html_anchor_element_set_protocol :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetProtocol :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetProtocol _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_protocol _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_rel +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_rel" webkit_dom_html_anchor_element_set_rel :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetRel :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetRel _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_rel _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_rev +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_rev" webkit_dom_html_anchor_element_set_rev :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetRev :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetRev _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_rev _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_search +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_search" webkit_dom_html_anchor_element_set_search :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetSearch :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetSearch _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_search _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_shape +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_shape" webkit_dom_html_anchor_element_set_shape :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetShape :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetShape _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_shape _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAnchorElement::set_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_anchor_element_set_target" webkit_dom_html_anchor_element_set_target :: + Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAnchorElementSetTarget :: + (MonadIO m, DOMHTMLAnchorElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAnchorElementSetTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_anchor_element_set_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot @@ -0,0 +1,34 @@ +module GI.WebKit.Objects.DOMHTMLAnchorElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLAnchorElement = DOMHTMLAnchorElement (ForeignPtr DOMHTMLAnchorElement) +instance GObject DOMHTMLAnchorElement where +class GObject o => DOMHTMLAnchorElementK o +instance (GObject o, IsDescendantOf DOMHTMLAnchorElement o) => DOMHTMLAnchorElementK o +data DOMHTMLAnchorElementCharsetPropertyInfo +data DOMHTMLAnchorElementCoordsPropertyInfo +data DOMHTMLAnchorElementDownloadPropertyInfo +data DOMHTMLAnchorElementHashPropertyInfo +data DOMHTMLAnchorElementHostPropertyInfo +data DOMHTMLAnchorElementHostnamePropertyInfo +data DOMHTMLAnchorElementHrefPropertyInfo +data DOMHTMLAnchorElementHreflangPropertyInfo +data DOMHTMLAnchorElementNamePropertyInfo +data DOMHTMLAnchorElementOriginPropertyInfo +data DOMHTMLAnchorElementPathnamePropertyInfo +data DOMHTMLAnchorElementPingPropertyInfo +data DOMHTMLAnchorElementPortPropertyInfo +data DOMHTMLAnchorElementProtocolPropertyInfo +data DOMHTMLAnchorElementRelPropertyInfo +data DOMHTMLAnchorElementRevPropertyInfo +data DOMHTMLAnchorElementSearchPropertyInfo +data DOMHTMLAnchorElementShapePropertyInfo +data DOMHTMLAnchorElementTargetPropertyInfo +data DOMHTMLAnchorElementTextPropertyInfo +data DOMHTMLAnchorElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLAppletElement.hs b/GI/WebKit/Objects/DOMHTMLAppletElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAppletElement.hs @@ -0,0 +1,1088 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLAppletElement + ( + +-- * Exported types + DOMHTMLAppletElement(..) , + DOMHTMLAppletElementK , + toDOMHTMLAppletElement , + noDOMHTMLAppletElement , + + + -- * Methods +-- ** dOMHTMLAppletElementGetAlign + dOMHTMLAppletElementGetAlign , + + +-- ** dOMHTMLAppletElementGetAlt + dOMHTMLAppletElementGetAlt , + + +-- ** dOMHTMLAppletElementGetArchive + dOMHTMLAppletElementGetArchive , + + +-- ** dOMHTMLAppletElementGetCode + dOMHTMLAppletElementGetCode , + + +-- ** dOMHTMLAppletElementGetCodeBase + dOMHTMLAppletElementGetCodeBase , + + +-- ** dOMHTMLAppletElementGetHeight + dOMHTMLAppletElementGetHeight , + + +-- ** dOMHTMLAppletElementGetHspace + dOMHTMLAppletElementGetHspace , + + +-- ** dOMHTMLAppletElementGetName + dOMHTMLAppletElementGetName , + + +-- ** dOMHTMLAppletElementGetObject + dOMHTMLAppletElementGetObject , + + +-- ** dOMHTMLAppletElementGetVspace + dOMHTMLAppletElementGetVspace , + + +-- ** dOMHTMLAppletElementGetWidth + dOMHTMLAppletElementGetWidth , + + +-- ** dOMHTMLAppletElementSetAlign + dOMHTMLAppletElementSetAlign , + + +-- ** dOMHTMLAppletElementSetAlt + dOMHTMLAppletElementSetAlt , + + +-- ** dOMHTMLAppletElementSetArchive + dOMHTMLAppletElementSetArchive , + + +-- ** dOMHTMLAppletElementSetCode + dOMHTMLAppletElementSetCode , + + +-- ** dOMHTMLAppletElementSetCodeBase + dOMHTMLAppletElementSetCodeBase , + + +-- ** dOMHTMLAppletElementSetHeight + dOMHTMLAppletElementSetHeight , + + +-- ** dOMHTMLAppletElementSetHspace + dOMHTMLAppletElementSetHspace , + + +-- ** dOMHTMLAppletElementSetName + dOMHTMLAppletElementSetName , + + +-- ** dOMHTMLAppletElementSetObject + dOMHTMLAppletElementSetObject , + + +-- ** dOMHTMLAppletElementSetVspace + dOMHTMLAppletElementSetVspace , + + +-- ** dOMHTMLAppletElementSetWidth + dOMHTMLAppletElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLAppletElementAlignPropertyInfo , + constructDOMHTMLAppletElementAlign , + getDOMHTMLAppletElementAlign , + setDOMHTMLAppletElementAlign , + + +-- ** Alt + DOMHTMLAppletElementAltPropertyInfo , + constructDOMHTMLAppletElementAlt , + getDOMHTMLAppletElementAlt , + setDOMHTMLAppletElementAlt , + + +-- ** Archive + DOMHTMLAppletElementArchivePropertyInfo , + constructDOMHTMLAppletElementArchive , + getDOMHTMLAppletElementArchive , + setDOMHTMLAppletElementArchive , + + +-- ** Code + DOMHTMLAppletElementCodePropertyInfo , + constructDOMHTMLAppletElementCode , + getDOMHTMLAppletElementCode , + setDOMHTMLAppletElementCode , + + +-- ** CodeBase + DOMHTMLAppletElementCodeBasePropertyInfo, + constructDOMHTMLAppletElementCodeBase , + getDOMHTMLAppletElementCodeBase , + setDOMHTMLAppletElementCodeBase , + + +-- ** Height + DOMHTMLAppletElementHeightPropertyInfo , + constructDOMHTMLAppletElementHeight , + getDOMHTMLAppletElementHeight , + setDOMHTMLAppletElementHeight , + + +-- ** Hspace + DOMHTMLAppletElementHspacePropertyInfo , + constructDOMHTMLAppletElementHspace , + getDOMHTMLAppletElementHspace , + setDOMHTMLAppletElementHspace , + + +-- ** Name + DOMHTMLAppletElementNamePropertyInfo , + constructDOMHTMLAppletElementName , + getDOMHTMLAppletElementName , + setDOMHTMLAppletElementName , + + +-- ** Object + DOMHTMLAppletElementObjectPropertyInfo , + constructDOMHTMLAppletElementObject , + getDOMHTMLAppletElementObject , + setDOMHTMLAppletElementObject , + + +-- ** Vspace + DOMHTMLAppletElementVspacePropertyInfo , + constructDOMHTMLAppletElementVspace , + getDOMHTMLAppletElementVspace , + setDOMHTMLAppletElementVspace , + + +-- ** Width + DOMHTMLAppletElementWidthPropertyInfo , + constructDOMHTMLAppletElementWidth , + getDOMHTMLAppletElementWidth , + setDOMHTMLAppletElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLAppletElement = DOMHTMLAppletElement (ForeignPtr DOMHTMLAppletElement) +foreign import ccall "webkit_dom_html_applet_element_get_type" + c_webkit_dom_html_applet_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLAppletElement = DOMHTMLAppletElementParentTypes +type DOMHTMLAppletElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLAppletElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_applet_element_get_type + + +class GObject o => DOMHTMLAppletElementK o +instance (GObject o, IsDescendantOf DOMHTMLAppletElement o) => DOMHTMLAppletElementK o + +toDOMHTMLAppletElement :: DOMHTMLAppletElementK o => o -> IO DOMHTMLAppletElement +toDOMHTMLAppletElement = unsafeCastTo DOMHTMLAppletElement + +noDOMHTMLAppletElement :: Maybe DOMHTMLAppletElement +noDOMHTMLAppletElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLAppletElementAlignPropertyInfo +instance AttrInfo DOMHTMLAppletElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "DOMHTMLAppletElement::align" + attrGet _ = getDOMHTMLAppletElementAlign + attrSet _ = setDOMHTMLAppletElementAlign + attrConstruct _ = constructDOMHTMLAppletElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLAppletElementAltPropertyInfo +instance AttrInfo DOMHTMLAppletElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementAltPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "DOMHTMLAppletElement::alt" + attrGet _ = getDOMHTMLAppletElementAlt + attrSet _ = setDOMHTMLAppletElementAlt + attrConstruct _ = constructDOMHTMLAppletElementAlt + +-- VVV Prop "archive" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive" + +setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val + +constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" val + +data DOMHTMLAppletElementArchivePropertyInfo +instance AttrInfo DOMHTMLAppletElementArchivePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "DOMHTMLAppletElement::archive" + attrGet _ = getDOMHTMLAppletElementArchive + attrSet _ = setDOMHTMLAppletElementArchive + attrConstruct _ = constructDOMHTMLAppletElementArchive + +-- VVV Prop "code" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code" + +setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" val + +constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" val + +data DOMHTMLAppletElementCodePropertyInfo +instance AttrInfo DOMHTMLAppletElementCodePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementCodePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementCodePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementCodePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "DOMHTMLAppletElement::code" + attrGet _ = getDOMHTMLAppletElementCode + attrSet _ = setDOMHTMLAppletElementCode + attrConstruct _ = constructDOMHTMLAppletElementCode + +-- VVV Prop "code-base" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" + +setDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val + +constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" val + +data DOMHTMLAppletElementCodeBasePropertyInfo +instance AttrInfo DOMHTMLAppletElementCodeBasePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "DOMHTMLAppletElement::code-base" + attrGet _ = getDOMHTMLAppletElementCodeBase + attrSet _ = setDOMHTMLAppletElementCodeBase + attrConstruct _ = constructDOMHTMLAppletElementCodeBase + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLAppletElementHeightPropertyInfo +instance AttrInfo DOMHTMLAppletElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "DOMHTMLAppletElement::height" + attrGet _ = getDOMHTMLAppletElementHeight + attrSet _ = setDOMHTMLAppletElementHeight + attrConstruct _ = constructDOMHTMLAppletElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 +getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () +setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLAppletElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLAppletElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLAppletElementHspacePropertyInfo +instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "DOMHTMLAppletElement::hspace" + attrGet _ = getDOMHTMLAppletElementHspace + attrSet _ = setDOMHTMLAppletElementHspace + attrConstruct _ = constructDOMHTMLAppletElementHspace + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" val + +data DOMHTMLAppletElementNamePropertyInfo +instance AttrInfo DOMHTMLAppletElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementNamePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "DOMHTMLAppletElement::name" + attrGet _ = getDOMHTMLAppletElementName + attrSet _ = setDOMHTMLAppletElementName + attrConstruct _ = constructDOMHTMLAppletElementName + +-- VVV Prop "object" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object" + +setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" val + +constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" val + +data DOMHTMLAppletElementObjectPropertyInfo +instance AttrInfo DOMHTMLAppletElementObjectPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "DOMHTMLAppletElement::object" + attrGet _ = getDOMHTMLAppletElementObject + attrSet _ = setDOMHTMLAppletElementObject + attrConstruct _ = constructDOMHTMLAppletElementObject + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 +getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () +setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLAppletElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLAppletElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLAppletElementVspacePropertyInfo +instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "DOMHTMLAppletElement::vspace" + attrGet _ = getDOMHTMLAppletElementVspace + attrSet _ = setDOMHTMLAppletElementVspace + attrConstruct _ = constructDOMHTMLAppletElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLAppletElementWidthPropertyInfo +instance AttrInfo DOMHTMLAppletElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "DOMHTMLAppletElement::width" + attrGet _ = getDOMHTMLAppletElementWidth + attrSet _ = setDOMHTMLAppletElementWidth + attrConstruct _ = constructDOMHTMLAppletElementWidth + +type instance AttributeList DOMHTMLAppletElement = DOMHTMLAppletElementAttributeList +type DOMHTMLAppletElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("code-base", DOMHTMLAppletElementCodeBasePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLAppletElement = DOMHTMLAppletElementSignalList +type DOMHTMLAppletElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLAppletElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_align" webkit_dom_html_applet_element_get_align :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetAlign :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_alt" webkit_dom_html_applet_element_get_alt :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetAlt :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetAlt _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_alt _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_alt" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_archive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_archive" webkit_dom_html_applet_element_get_archive :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetArchive :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetArchive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_archive _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_archive" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_code" webkit_dom_html_applet_element_get_code :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetCode :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_code _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_code" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_code_base +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_code_base" webkit_dom_html_applet_element_get_code_base :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetCodeBase :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetCodeBase _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_code_base _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_code_base" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_height" webkit_dom_html_applet_element_get_height :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetHeight :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_hspace" webkit_dom_html_applet_element_get_hspace :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO Int64 + + +dOMHTMLAppletElementGetHspace :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m Int64 +dOMHTMLAppletElementGetHspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_hspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLAppletElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_name" webkit_dom_html_applet_element_get_name :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetName :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_object +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_object" webkit_dom_html_applet_element_get_object :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetObject :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetObject _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_object _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_object" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::get_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_vspace" webkit_dom_html_applet_element_get_vspace :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO Int64 + + +dOMHTMLAppletElementGetVspace :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m Int64 +dOMHTMLAppletElementGetVspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_vspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLAppletElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_get_width" webkit_dom_html_applet_element_get_width :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + IO CString + + +dOMHTMLAppletElementGetWidth :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAppletElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_applet_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAppletElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_align" webkit_dom_html_applet_element_set_align :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetAlign :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_alt" webkit_dom_html_applet_element_set_alt :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetAlt :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetAlt _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_alt _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_archive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_archive" webkit_dom_html_applet_element_set_archive :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetArchive :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetArchive _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_archive _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_code" webkit_dom_html_applet_element_set_code :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetCode :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetCode _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_code _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_code_base +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_code_base" webkit_dom_html_applet_element_set_code_base :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetCodeBase :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetCodeBase _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_code_base _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_height" webkit_dom_html_applet_element_set_height :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetHeight :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_hspace" webkit_dom_html_applet_element_set_hspace :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLAppletElementSetHspace :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLAppletElementSetHspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_applet_element_set_hspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLAppletElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_name" webkit_dom_html_applet_element_set_name :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetName :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_object +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_object" webkit_dom_html_applet_element_set_object :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetObject :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetObject _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_object _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAppletElement::set_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_vspace" webkit_dom_html_applet_element_set_vspace :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLAppletElementSetVspace :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLAppletElementSetVspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_applet_element_set_vspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLAppletElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_applet_element_set_width" webkit_dom_html_applet_element_set_width :: + Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAppletElementSetWidth :: + (MonadIO m, DOMHTMLAppletElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAppletElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_applet_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMHTMLAppletElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLAppletElement = DOMHTMLAppletElement (ForeignPtr DOMHTMLAppletElement) +instance GObject DOMHTMLAppletElement where +class GObject o => DOMHTMLAppletElementK o +instance (GObject o, IsDescendantOf DOMHTMLAppletElement o) => DOMHTMLAppletElementK o +data DOMHTMLAppletElementAlignPropertyInfo +data DOMHTMLAppletElementAltPropertyInfo +data DOMHTMLAppletElementArchivePropertyInfo +data DOMHTMLAppletElementCodePropertyInfo +data DOMHTMLAppletElementCodeBasePropertyInfo +data DOMHTMLAppletElementHeightPropertyInfo +data DOMHTMLAppletElementHspacePropertyInfo +data DOMHTMLAppletElementNamePropertyInfo +data DOMHTMLAppletElementObjectPropertyInfo +data DOMHTMLAppletElementVspacePropertyInfo +data DOMHTMLAppletElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLAreaElement.hs b/GI/WebKit/Objects/DOMHTMLAreaElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAreaElement.hs @@ -0,0 +1,1097 @@ + +{- | +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.WebKit.Objects.DOMHTMLAreaElement + ( + +-- * Exported types + DOMHTMLAreaElement(..) , + DOMHTMLAreaElementK , + toDOMHTMLAreaElement , + noDOMHTMLAreaElement , + + + -- * Methods +-- ** dOMHTMLAreaElementGetAlt + dOMHTMLAreaElementGetAlt , + + +-- ** dOMHTMLAreaElementGetCoords + dOMHTMLAreaElementGetCoords , + + +-- ** dOMHTMLAreaElementGetHash + dOMHTMLAreaElementGetHash , + + +-- ** dOMHTMLAreaElementGetHost + dOMHTMLAreaElementGetHost , + + +-- ** dOMHTMLAreaElementGetHostname + dOMHTMLAreaElementGetHostname , + + +-- ** dOMHTMLAreaElementGetHref + dOMHTMLAreaElementGetHref , + + +-- ** dOMHTMLAreaElementGetNoHref + dOMHTMLAreaElementGetNoHref , + + +-- ** dOMHTMLAreaElementGetPathname + dOMHTMLAreaElementGetPathname , + + +-- ** dOMHTMLAreaElementGetPing + dOMHTMLAreaElementGetPing , + + +-- ** dOMHTMLAreaElementGetPort + dOMHTMLAreaElementGetPort , + + +-- ** dOMHTMLAreaElementGetProtocol + dOMHTMLAreaElementGetProtocol , + + +-- ** dOMHTMLAreaElementGetSearch + dOMHTMLAreaElementGetSearch , + + +-- ** dOMHTMLAreaElementGetShape + dOMHTMLAreaElementGetShape , + + +-- ** dOMHTMLAreaElementGetTarget + dOMHTMLAreaElementGetTarget , + + +-- ** dOMHTMLAreaElementSetAlt + dOMHTMLAreaElementSetAlt , + + +-- ** dOMHTMLAreaElementSetCoords + dOMHTMLAreaElementSetCoords , + + +-- ** dOMHTMLAreaElementSetHref + dOMHTMLAreaElementSetHref , + + +-- ** dOMHTMLAreaElementSetNoHref + dOMHTMLAreaElementSetNoHref , + + +-- ** dOMHTMLAreaElementSetPing + dOMHTMLAreaElementSetPing , + + +-- ** dOMHTMLAreaElementSetShape + dOMHTMLAreaElementSetShape , + + +-- ** dOMHTMLAreaElementSetTarget + dOMHTMLAreaElementSetTarget , + + + + + -- * Properties +-- ** Alt + DOMHTMLAreaElementAltPropertyInfo , + constructDOMHTMLAreaElementAlt , + getDOMHTMLAreaElementAlt , + setDOMHTMLAreaElementAlt , + + +-- ** Coords + DOMHTMLAreaElementCoordsPropertyInfo , + constructDOMHTMLAreaElementCoords , + getDOMHTMLAreaElementCoords , + setDOMHTMLAreaElementCoords , + + +-- ** Hash + DOMHTMLAreaElementHashPropertyInfo , + getDOMHTMLAreaElementHash , + + +-- ** Host + DOMHTMLAreaElementHostPropertyInfo , + getDOMHTMLAreaElementHost , + + +-- ** Hostname + DOMHTMLAreaElementHostnamePropertyInfo , + getDOMHTMLAreaElementHostname , + + +-- ** Href + DOMHTMLAreaElementHrefPropertyInfo , + constructDOMHTMLAreaElementHref , + getDOMHTMLAreaElementHref , + setDOMHTMLAreaElementHref , + + +-- ** NoHref + DOMHTMLAreaElementNoHrefPropertyInfo , + constructDOMHTMLAreaElementNoHref , + getDOMHTMLAreaElementNoHref , + setDOMHTMLAreaElementNoHref , + + +-- ** Pathname + DOMHTMLAreaElementPathnamePropertyInfo , + getDOMHTMLAreaElementPathname , + + +-- ** Ping + DOMHTMLAreaElementPingPropertyInfo , + constructDOMHTMLAreaElementPing , + getDOMHTMLAreaElementPing , + setDOMHTMLAreaElementPing , + + +-- ** Port + DOMHTMLAreaElementPortPropertyInfo , + getDOMHTMLAreaElementPort , + + +-- ** Protocol + DOMHTMLAreaElementProtocolPropertyInfo , + getDOMHTMLAreaElementProtocol , + + +-- ** Search + DOMHTMLAreaElementSearchPropertyInfo , + getDOMHTMLAreaElementSearch , + + +-- ** Shape + DOMHTMLAreaElementShapePropertyInfo , + constructDOMHTMLAreaElementShape , + getDOMHTMLAreaElementShape , + setDOMHTMLAreaElementShape , + + +-- ** Target + DOMHTMLAreaElementTargetPropertyInfo , + constructDOMHTMLAreaElementTarget , + getDOMHTMLAreaElementTarget , + setDOMHTMLAreaElementTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLAreaElement = DOMHTMLAreaElement (ForeignPtr DOMHTMLAreaElement) +foreign import ccall "webkit_dom_html_area_element_get_type" + c_webkit_dom_html_area_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLAreaElement = DOMHTMLAreaElementParentTypes +type DOMHTMLAreaElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLAreaElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_area_element_get_type + + +class GObject o => DOMHTMLAreaElementK o +instance (GObject o, IsDescendantOf DOMHTMLAreaElement o) => DOMHTMLAreaElementK o + +toDOMHTMLAreaElement :: DOMHTMLAreaElementK o => o -> IO DOMHTMLAreaElement +toDOMHTMLAreaElement = unsafeCastTo DOMHTMLAreaElement + +noDOMHTMLAreaElement :: Maybe DOMHTMLAreaElement +noDOMHTMLAreaElement = Nothing + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLAreaElementAltPropertyInfo +instance AttrInfo DOMHTMLAreaElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementAltPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "DOMHTMLAreaElement::alt" + attrGet _ = getDOMHTMLAreaElementAlt + attrSet _ = setDOMHTMLAreaElementAlt + attrConstruct _ = constructDOMHTMLAreaElementAlt + +-- VVV Prop "coords" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords" + +setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val + +constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" val + +data DOMHTMLAreaElementCoordsPropertyInfo +instance AttrInfo DOMHTMLAreaElementCoordsPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "DOMHTMLAreaElement::coords" + attrGet _ = getDOMHTMLAreaElementCoords + attrSet _ = setDOMHTMLAreaElementCoords + attrConstruct _ = constructDOMHTMLAreaElementCoords + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash" + +data DOMHTMLAreaElementHashPropertyInfo +instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHashPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "DOMHTMLAreaElement::hash" + attrGet _ = getDOMHTMLAreaElementHash + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host" + +data DOMHTMLAreaElementHostPropertyInfo +instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHostPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "DOMHTMLAreaElement::host" + attrGet _ = getDOMHTMLAreaElementHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +data DOMHTMLAreaElementHostnamePropertyInfo +instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "DOMHTMLAreaElement::hostname" + attrGet _ = getDOMHTMLAreaElementHostname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLAreaElementHrefPropertyInfo +instance AttrInfo DOMHTMLAreaElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "DOMHTMLAreaElement::href" + attrGet _ = getDOMHTMLAreaElementHref + attrSet _ = setDOMHTMLAreaElementHref + attrConstruct _ = constructDOMHTMLAreaElementHref + +-- VVV Prop "no-href" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m Bool +getDOMHTMLAreaElementNoHref obj = liftIO $ getObjectPropertyBool obj "no-href" + +setDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> Bool -> m () +setDOMHTMLAreaElementNoHref obj val = liftIO $ setObjectPropertyBool obj "no-href" val + +constructDOMHTMLAreaElementNoHref :: Bool -> IO ([Char], GValue) +constructDOMHTMLAreaElementNoHref val = constructObjectPropertyBool "no-href" val + +data DOMHTMLAreaElementNoHrefPropertyInfo +instance AttrInfo DOMHTMLAreaElementNoHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementNoHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementNoHrefPropertyInfo = Bool + type AttrLabel DOMHTMLAreaElementNoHrefPropertyInfo = "DOMHTMLAreaElement::no-href" + attrGet _ = getDOMHTMLAreaElementNoHref + attrSet _ = setDOMHTMLAreaElementNoHref + attrConstruct _ = constructDOMHTMLAreaElementNoHref + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +data DOMHTMLAreaElementPathnamePropertyInfo +instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "DOMHTMLAreaElement::pathname" + attrGet _ = getDOMHTMLAreaElementPathname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ping" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping" + +setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val + +constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" val + +data DOMHTMLAreaElementPingPropertyInfo +instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPingPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "DOMHTMLAreaElement::ping" + attrGet _ = getDOMHTMLAreaElementPing + attrSet _ = setDOMHTMLAreaElementPing + attrConstruct _ = constructDOMHTMLAreaElementPing + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port" + +data DOMHTMLAreaElementPortPropertyInfo +instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPortPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "DOMHTMLAreaElement::port" + attrGet _ = getDOMHTMLAreaElementPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data DOMHTMLAreaElementProtocolPropertyInfo +instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "DOMHTMLAreaElement::protocol" + attrGet _ = getDOMHTMLAreaElementProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search" + +data DOMHTMLAreaElementSearchPropertyInfo +instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "DOMHTMLAreaElement::search" + attrGet _ = getDOMHTMLAreaElementSearch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shape" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape" + +setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val + +constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" val + +data DOMHTMLAreaElementShapePropertyInfo +instance AttrInfo DOMHTMLAreaElementShapePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementShapePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementShapePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementShapePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "DOMHTMLAreaElement::shape" + attrGet _ = getDOMHTMLAreaElementShape + attrSet _ = setDOMHTMLAreaElementShape + attrConstruct _ = constructDOMHTMLAreaElementShape + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLAreaElementTargetPropertyInfo +instance AttrInfo DOMHTMLAreaElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "DOMHTMLAreaElement::target" + attrGet _ = getDOMHTMLAreaElementTarget + attrSet _ = setDOMHTMLAreaElementTarget + attrConstruct _ = constructDOMHTMLAreaElementTarget + +type instance AttributeList DOMHTMLAreaElement = DOMHTMLAreaElementAttributeList +type DOMHTMLAreaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-href", DOMHTMLAreaElementNoHrefPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLAreaElement = DOMHTMLAreaElementSignalList +type DOMHTMLAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLAreaElement::get_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_alt" webkit_dom_html_area_element_get_alt :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetAlt :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetAlt _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_alt _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_alt" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_coords" webkit_dom_html_area_element_get_coords :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetCoords :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetCoords _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_coords _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_coords" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_hash" webkit_dom_html_area_element_get_hash :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetHash :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_hash _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_hash" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_host" webkit_dom_html_area_element_get_host :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetHost :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_host _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_host" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_hostname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_hostname" webkit_dom_html_area_element_get_hostname :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetHostname :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetHostname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_hostname _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_hostname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_href" webkit_dom_html_area_element_get_href :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetHref :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_no_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_no_href" webkit_dom_html_area_element_get_no_href :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CInt + + +dOMHTMLAreaElementGetNoHref :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLAreaElementGetNoHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_no_href _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_pathname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_pathname" webkit_dom_html_area_element_get_pathname :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetPathname :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetPathname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_pathname _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_pathname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_ping +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_ping" webkit_dom_html_area_element_get_ping :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetPing :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetPing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_ping _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_ping" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_port" webkit_dom_html_area_element_get_port :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetPort :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_port _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_port" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_protocol" webkit_dom_html_area_element_get_protocol :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetProtocol :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetProtocol _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_protocol _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_protocol" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_search +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_search" webkit_dom_html_area_element_get_search :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetSearch :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetSearch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_search _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_search" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_shape +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_shape" webkit_dom_html_area_element_get_shape :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetShape :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetShape _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_shape _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_shape" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_get_target" webkit_dom_html_area_element_get_target :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + IO CString + + +dOMHTMLAreaElementGetTarget :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLAreaElementGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_area_element_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLAreaElement::set_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_alt" webkit_dom_html_area_element_set_alt :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetAlt :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetAlt _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_alt _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAreaElement::set_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_coords" webkit_dom_html_area_element_set_coords :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetCoords :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetCoords _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_coords _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAreaElement::set_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_href" webkit_dom_html_area_element_set_href :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetHref :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetHref _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_href _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAreaElement::set_no_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_no_href" webkit_dom_html_area_element_set_no_href :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLAreaElementSetNoHref :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLAreaElementSetNoHref _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_area_element_set_no_href _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLAreaElement::set_ping +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_ping" webkit_dom_html_area_element_set_ping :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetPing :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetPing _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_ping _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAreaElement::set_shape +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_shape" webkit_dom_html_area_element_set_shape :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetShape :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetShape _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_shape _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLAreaElement::set_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_area_element_set_target" webkit_dom_html_area_element_set_target :: + Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLAreaElementSetTarget :: + (MonadIO m, DOMHTMLAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLAreaElementSetTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_area_element_set_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot @@ -0,0 +1,27 @@ +module GI.WebKit.Objects.DOMHTMLAreaElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLAreaElement = DOMHTMLAreaElement (ForeignPtr DOMHTMLAreaElement) +instance GObject DOMHTMLAreaElement where +class GObject o => DOMHTMLAreaElementK o +instance (GObject o, IsDescendantOf DOMHTMLAreaElement o) => DOMHTMLAreaElementK o +data DOMHTMLAreaElementAltPropertyInfo +data DOMHTMLAreaElementCoordsPropertyInfo +data DOMHTMLAreaElementHashPropertyInfo +data DOMHTMLAreaElementHostPropertyInfo +data DOMHTMLAreaElementHostnamePropertyInfo +data DOMHTMLAreaElementHrefPropertyInfo +data DOMHTMLAreaElementNoHrefPropertyInfo +data DOMHTMLAreaElementPathnamePropertyInfo +data DOMHTMLAreaElementPingPropertyInfo +data DOMHTMLAreaElementPortPropertyInfo +data DOMHTMLAreaElementProtocolPropertyInfo +data DOMHTMLAreaElementSearchPropertyInfo +data DOMHTMLAreaElementShapePropertyInfo +data DOMHTMLAreaElementTargetPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLAudioElement.hs b/GI/WebKit/Objects/DOMHTMLAudioElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAudioElement.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLAudioElement + ( + +-- * Exported types + DOMHTMLAudioElement(..) , + DOMHTMLAudioElementK , + toDOMHTMLAudioElement , + noDOMHTMLAudioElement , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLAudioElement = DOMHTMLAudioElement (ForeignPtr DOMHTMLAudioElement) +foreign import ccall "webkit_dom_html_audio_element_get_type" + c_webkit_dom_html_audio_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLAudioElement = DOMHTMLAudioElementParentTypes +type DOMHTMLAudioElementParentTypes = '[DOMHTMLMediaElement, DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLAudioElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_audio_element_get_type + + +class GObject o => DOMHTMLAudioElementK o +instance (GObject o, IsDescendantOf DOMHTMLAudioElement o) => DOMHTMLAudioElementK o + +toDOMHTMLAudioElement :: DOMHTMLAudioElementK o => o -> IO DOMHTMLAudioElement +toDOMHTMLAudioElement = unsafeCastTo DOMHTMLAudioElement + +noDOMHTMLAudioElement :: Maybe DOMHTMLAudioElement +noDOMHTMLAudioElement = Nothing + +type instance AttributeList DOMHTMLAudioElement = DOMHTMLAudioElementAttributeList +type DOMHTMLAudioElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLAudioElement = DOMHTMLAudioElementSignalList +type DOMHTMLAudioElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMHTMLAudioElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLAudioElement = DOMHTMLAudioElement (ForeignPtr DOMHTMLAudioElement) +instance GObject DOMHTMLAudioElement where +class GObject o => DOMHTMLAudioElementK o +instance (GObject o, IsDescendantOf DOMHTMLAudioElement o) => DOMHTMLAudioElementK o diff --git a/GI/WebKit/Objects/DOMHTMLBRElement.hs b/GI/WebKit/Objects/DOMHTMLBRElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBRElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLBRElement + ( + +-- * Exported types + DOMHTMLBRElement(..) , + DOMHTMLBRElementK , + toDOMHTMLBRElement , + noDOMHTMLBRElement , + + + -- * Methods +-- ** dOMHTMLBRElementGetClear + dOMHTMLBRElementGetClear , + + +-- ** dOMHTMLBRElementSetClear + dOMHTMLBRElementSetClear , + + + + + -- * Properties +-- ** Clear + DOMHTMLBRElementClearPropertyInfo , + constructDOMHTMLBRElementClear , + getDOMHTMLBRElementClear , + setDOMHTMLBRElementClear , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLBRElement = DOMHTMLBRElement (ForeignPtr DOMHTMLBRElement) +foreign import ccall "webkit_dom_htmlbr_element_get_type" + c_webkit_dom_htmlbr_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_htmlbr_element_get_type + + +class GObject o => DOMHTMLBRElementK o +instance (GObject o, IsDescendantOf DOMHTMLBRElement o) => DOMHTMLBRElementK o + +toDOMHTMLBRElement :: DOMHTMLBRElementK o => o -> IO DOMHTMLBRElement +toDOMHTMLBRElement = unsafeCastTo DOMHTMLBRElement + +noDOMHTMLBRElement :: Maybe DOMHTMLBRElement +noDOMHTMLBRElement = Nothing + +-- VVV Prop "clear" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m T.Text +getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear" + +setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m () +setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" val + +constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" val + +data DOMHTMLBRElementClearPropertyInfo +instance AttrInfo DOMHTMLBRElementClearPropertyInfo where + type AttrAllowedOps DOMHTMLBRElementClearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBRElementClearPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBRElementClearPropertyInfo = DOMHTMLBRElementK + type AttrGetType DOMHTMLBRElementClearPropertyInfo = T.Text + type AttrLabel DOMHTMLBRElementClearPropertyInfo = "DOMHTMLBRElement::clear" + attrGet _ = getDOMHTMLBRElementClear + attrSet _ = setDOMHTMLBRElementClear + attrConstruct _ = constructDOMHTMLBRElementClear + +type instance AttributeList DOMHTMLBRElement = DOMHTMLBRElementAttributeList +type DOMHTMLBRElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLBRElement = DOMHTMLBRElementSignalList +type DOMHTMLBRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLBRElement::get_clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlbr_element_get_clear" webkit_dom_htmlbr_element_get_clear :: + Ptr DOMHTMLBRElement -> -- _obj : TInterface "WebKit" "DOMHTMLBRElement" + IO CString + + +dOMHTMLBRElementGetClear :: + (MonadIO m, DOMHTMLBRElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBRElementGetClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlbr_element_get_clear _obj' + checkUnexpectedReturnNULL "webkit_dom_htmlbr_element_get_clear" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBRElement::set_clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlbr_element_set_clear" webkit_dom_htmlbr_element_set_clear :: + Ptr DOMHTMLBRElement -> -- _obj : TInterface "WebKit" "DOMHTMLBRElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBRElementSetClear :: + (MonadIO m, DOMHTMLBRElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBRElementSetClear _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_htmlbr_element_set_clear _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLBRElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLBRElement = DOMHTMLBRElement (ForeignPtr DOMHTMLBRElement) +instance GObject DOMHTMLBRElement where +class GObject o => DOMHTMLBRElementK o +instance (GObject o, IsDescendantOf DOMHTMLBRElement o) => DOMHTMLBRElementK o +data DOMHTMLBRElementClearPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLBaseElement.hs b/GI/WebKit/Objects/DOMHTMLBaseElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBaseElement.hs @@ -0,0 +1,252 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLBaseElement + ( + +-- * Exported types + DOMHTMLBaseElement(..) , + DOMHTMLBaseElementK , + toDOMHTMLBaseElement , + noDOMHTMLBaseElement , + + + -- * Methods +-- ** dOMHTMLBaseElementGetHref + dOMHTMLBaseElementGetHref , + + +-- ** dOMHTMLBaseElementGetTarget + dOMHTMLBaseElementGetTarget , + + +-- ** dOMHTMLBaseElementSetHref + dOMHTMLBaseElementSetHref , + + +-- ** dOMHTMLBaseElementSetTarget + dOMHTMLBaseElementSetTarget , + + + + + -- * Properties +-- ** Href + DOMHTMLBaseElementHrefPropertyInfo , + constructDOMHTMLBaseElementHref , + getDOMHTMLBaseElementHref , + setDOMHTMLBaseElementHref , + + +-- ** Target + DOMHTMLBaseElementTargetPropertyInfo , + constructDOMHTMLBaseElementTarget , + getDOMHTMLBaseElementTarget , + setDOMHTMLBaseElementTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLBaseElement = DOMHTMLBaseElement (ForeignPtr DOMHTMLBaseElement) +foreign import ccall "webkit_dom_html_base_element_get_type" + c_webkit_dom_html_base_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLBaseElement = DOMHTMLBaseElementParentTypes +type DOMHTMLBaseElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLBaseElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_base_element_get_type + + +class GObject o => DOMHTMLBaseElementK o +instance (GObject o, IsDescendantOf DOMHTMLBaseElement o) => DOMHTMLBaseElementK o + +toDOMHTMLBaseElement :: DOMHTMLBaseElementK o => o -> IO DOMHTMLBaseElement +toDOMHTMLBaseElement = unsafeCastTo DOMHTMLBaseElement + +noDOMHTMLBaseElement :: Maybe DOMHTMLBaseElement +noDOMHTMLBaseElement = Nothing + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () +setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLBaseElementHrefPropertyInfo +instance AttrInfo DOMHTMLBaseElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLBaseElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = DOMHTMLBaseElementK + type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "DOMHTMLBaseElement::href" + attrGet _ = getDOMHTMLBaseElementHref + attrSet _ = setDOMHTMLBaseElementHref + attrConstruct _ = constructDOMHTMLBaseElementHref + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () +setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLBaseElementTargetPropertyInfo +instance AttrInfo DOMHTMLBaseElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLBaseElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = DOMHTMLBaseElementK + type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "DOMHTMLBaseElement::target" + attrGet _ = getDOMHTMLBaseElementTarget + attrSet _ = setDOMHTMLBaseElementTarget + attrConstruct _ = constructDOMHTMLBaseElementTarget + +type instance AttributeList DOMHTMLBaseElement = DOMHTMLBaseElementAttributeList +type DOMHTMLBaseElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLBaseElement = DOMHTMLBaseElementSignalList +type DOMHTMLBaseElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLBaseElement::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_element_get_href" webkit_dom_html_base_element_get_href :: + Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement" + IO CString + + +dOMHTMLBaseElementGetHref :: + (MonadIO m, DOMHTMLBaseElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBaseElementGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_base_element_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_html_base_element_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBaseElement::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_element_get_target" webkit_dom_html_base_element_get_target :: + Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement" + IO CString + + +dOMHTMLBaseElementGetTarget :: + (MonadIO m, DOMHTMLBaseElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBaseElementGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_base_element_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_base_element_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBaseElement::set_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_element_set_href" webkit_dom_html_base_element_set_href :: + Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBaseElementSetHref :: + (MonadIO m, DOMHTMLBaseElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBaseElementSetHref _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_base_element_set_href _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBaseElement::set_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_element_set_target" webkit_dom_html_base_element_set_target :: + Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBaseElementSetTarget :: + (MonadIO m, DOMHTMLBaseElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBaseElementSetTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_base_element_set_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLBaseElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLBaseElement = DOMHTMLBaseElement (ForeignPtr DOMHTMLBaseElement) +instance GObject DOMHTMLBaseElement where +class GObject o => DOMHTMLBaseElementK o +instance (GObject o, IsDescendantOf DOMHTMLBaseElement o) => DOMHTMLBaseElementK o +data DOMHTMLBaseElementHrefPropertyInfo +data DOMHTMLBaseElementTargetPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs @@ -0,0 +1,341 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLBaseFontElement + ( + +-- * Exported types + DOMHTMLBaseFontElement(..) , + DOMHTMLBaseFontElementK , + toDOMHTMLBaseFontElement , + noDOMHTMLBaseFontElement , + + + -- * Methods +-- ** dOMHTMLBaseFontElementGetColor + dOMHTMLBaseFontElementGetColor , + + +-- ** dOMHTMLBaseFontElementGetFace + dOMHTMLBaseFontElementGetFace , + + +-- ** dOMHTMLBaseFontElementGetSize + dOMHTMLBaseFontElementGetSize , + + +-- ** dOMHTMLBaseFontElementSetColor + dOMHTMLBaseFontElementSetColor , + + +-- ** dOMHTMLBaseFontElementSetFace + dOMHTMLBaseFontElementSetFace , + + +-- ** dOMHTMLBaseFontElementSetSize + dOMHTMLBaseFontElementSetSize , + + + + + -- * Properties +-- ** Color + DOMHTMLBaseFontElementColorPropertyInfo , + constructDOMHTMLBaseFontElementColor , + getDOMHTMLBaseFontElementColor , + setDOMHTMLBaseFontElementColor , + + +-- ** Face + DOMHTMLBaseFontElementFacePropertyInfo , + constructDOMHTMLBaseFontElementFace , + getDOMHTMLBaseFontElementFace , + setDOMHTMLBaseFontElementFace , + + +-- ** Size + DOMHTMLBaseFontElementSizePropertyInfo , + constructDOMHTMLBaseFontElementSize , + getDOMHTMLBaseFontElementSize , + setDOMHTMLBaseFontElementSize , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLBaseFontElement = DOMHTMLBaseFontElement (ForeignPtr DOMHTMLBaseFontElement) +foreign import ccall "webkit_dom_html_base_font_element_get_type" + c_webkit_dom_html_base_font_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLBaseFontElement = DOMHTMLBaseFontElementParentTypes +type DOMHTMLBaseFontElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLBaseFontElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_base_font_element_get_type + + +class GObject o => DOMHTMLBaseFontElementK o +instance (GObject o, IsDescendantOf DOMHTMLBaseFontElement o) => DOMHTMLBaseFontElementK o + +toDOMHTMLBaseFontElement :: DOMHTMLBaseFontElementK o => o -> IO DOMHTMLBaseFontElement +toDOMHTMLBaseFontElement = unsafeCastTo DOMHTMLBaseFontElement + +noDOMHTMLBaseFontElement :: Maybe DOMHTMLBaseFontElement +noDOMHTMLBaseFontElement = Nothing + +-- VVV Prop "color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementColor obj = liftIO $ getObjectPropertyString obj "color" + +setDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () +setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val + +constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" val + +data DOMHTMLBaseFontElementColorPropertyInfo +instance AttrInfo DOMHTMLBaseFontElementColorPropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "DOMHTMLBaseFontElement::color" + attrGet _ = getDOMHTMLBaseFontElementColor + attrSet _ = setDOMHTMLBaseFontElementColor + attrConstruct _ = constructDOMHTMLBaseFontElementColor + +-- VVV Prop "face" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementFace obj = liftIO $ getObjectPropertyString obj "face" + +setDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () +setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val + +constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" val + +data DOMHTMLBaseFontElementFacePropertyInfo +instance AttrInfo DOMHTMLBaseFontElementFacePropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = T.Text + type AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "DOMHTMLBaseFontElement::face" + attrGet _ = getDOMHTMLBaseFontElementFace + attrSet _ = setDOMHTMLBaseFontElementFace + attrConstruct _ = constructDOMHTMLBaseFontElementFace + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64 +getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m () +setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val + +data DOMHTMLBaseFontElementSizePropertyInfo +instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64 + type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "DOMHTMLBaseFontElement::size" + attrGet _ = getDOMHTMLBaseFontElementSize + attrSet _ = setDOMHTMLBaseFontElementSize + attrConstruct _ = constructDOMHTMLBaseFontElementSize + +type instance AttributeList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementAttributeList +type DOMHTMLBaseFontElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLBaseFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLBaseFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLBaseFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementSignalList +type DOMHTMLBaseFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLBaseFontElement::get_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_get_color" webkit_dom_html_base_font_element_get_color :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + IO CString + + +dOMHTMLBaseFontElementGetColor :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBaseFontElementGetColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_base_font_element_get_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_base_font_element_get_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBaseFontElement::get_face +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_get_face" webkit_dom_html_base_font_element_get_face :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + IO CString + + +dOMHTMLBaseFontElementGetFace :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBaseFontElementGetFace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_base_font_element_get_face _obj' + checkUnexpectedReturnNULL "webkit_dom_html_base_font_element_get_face" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBaseFontElement::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_get_size" webkit_dom_html_base_font_element_get_size :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + IO Int64 + + +dOMHTMLBaseFontElementGetSize :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + m Int64 +dOMHTMLBaseFontElementGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_base_font_element_get_size _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLBaseFontElement::set_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_set_color" webkit_dom_html_base_font_element_set_color :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBaseFontElementSetColor :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBaseFontElementSetColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_base_font_element_set_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBaseFontElement::set_face +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_set_face" webkit_dom_html_base_font_element_set_face :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBaseFontElementSetFace :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBaseFontElementSetFace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_base_font_element_set_face _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBaseFontElement::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_base_font_element_set_size" webkit_dom_html_base_font_element_set_size :: + Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLBaseFontElementSetSize :: + (MonadIO m, DOMHTMLBaseFontElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLBaseFontElementSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_base_font_element_set_size _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMHTMLBaseFontElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLBaseFontElement = DOMHTMLBaseFontElement (ForeignPtr DOMHTMLBaseFontElement) +instance GObject DOMHTMLBaseFontElement where +class GObject o => DOMHTMLBaseFontElementK o +instance (GObject o, IsDescendantOf DOMHTMLBaseFontElement o) => DOMHTMLBaseFontElementK o +data DOMHTMLBaseFontElementColorPropertyInfo +data DOMHTMLBaseFontElementFacePropertyInfo +data DOMHTMLBaseFontElementSizePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLBodyElement.hs b/GI/WebKit/Objects/DOMHTMLBodyElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBodyElement.hs @@ -0,0 +1,628 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLBodyElement + ( + +-- * Exported types + DOMHTMLBodyElement(..) , + DOMHTMLBodyElementK , + toDOMHTMLBodyElement , + noDOMHTMLBodyElement , + + + -- * Methods +-- ** dOMHTMLBodyElementGetALink + dOMHTMLBodyElementGetALink , + + +-- ** dOMHTMLBodyElementGetBackground + dOMHTMLBodyElementGetBackground , + + +-- ** dOMHTMLBodyElementGetBgColor + dOMHTMLBodyElementGetBgColor , + + +-- ** dOMHTMLBodyElementGetLink + dOMHTMLBodyElementGetLink , + + +-- ** dOMHTMLBodyElementGetText + dOMHTMLBodyElementGetText , + + +-- ** dOMHTMLBodyElementGetVLink + dOMHTMLBodyElementGetVLink , + + +-- ** dOMHTMLBodyElementSetALink + dOMHTMLBodyElementSetALink , + + +-- ** dOMHTMLBodyElementSetBackground + dOMHTMLBodyElementSetBackground , + + +-- ** dOMHTMLBodyElementSetBgColor + dOMHTMLBodyElementSetBgColor , + + +-- ** dOMHTMLBodyElementSetLink + dOMHTMLBodyElementSetLink , + + +-- ** dOMHTMLBodyElementSetText + dOMHTMLBodyElementSetText , + + +-- ** dOMHTMLBodyElementSetVLink + dOMHTMLBodyElementSetVLink , + + + + + -- * Properties +-- ** ALink + DOMHTMLBodyElementALinkPropertyInfo , + constructDOMHTMLBodyElementALink , + getDOMHTMLBodyElementALink , + setDOMHTMLBodyElementALink , + + +-- ** Background + DOMHTMLBodyElementBackgroundPropertyInfo, + constructDOMHTMLBodyElementBackground , + getDOMHTMLBodyElementBackground , + setDOMHTMLBodyElementBackground , + + +-- ** BgColor + DOMHTMLBodyElementBgColorPropertyInfo , + constructDOMHTMLBodyElementBgColor , + getDOMHTMLBodyElementBgColor , + setDOMHTMLBodyElementBgColor , + + +-- ** Link + DOMHTMLBodyElementLinkPropertyInfo , + constructDOMHTMLBodyElementLink , + getDOMHTMLBodyElementLink , + setDOMHTMLBodyElementLink , + + +-- ** Text + DOMHTMLBodyElementTextPropertyInfo , + constructDOMHTMLBodyElementText , + getDOMHTMLBodyElementText , + setDOMHTMLBodyElementText , + + +-- ** VLink + DOMHTMLBodyElementVLinkPropertyInfo , + constructDOMHTMLBodyElementVLink , + getDOMHTMLBodyElementVLink , + setDOMHTMLBodyElementVLink , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLBodyElement = DOMHTMLBodyElement (ForeignPtr DOMHTMLBodyElement) +foreign import ccall "webkit_dom_html_body_element_get_type" + c_webkit_dom_html_body_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLBodyElement = DOMHTMLBodyElementParentTypes +type DOMHTMLBodyElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLBodyElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_body_element_get_type + + +class GObject o => DOMHTMLBodyElementK o +instance (GObject o, IsDescendantOf DOMHTMLBodyElement o) => DOMHTMLBodyElementK o + +toDOMHTMLBodyElement :: DOMHTMLBodyElementK o => o -> IO DOMHTMLBodyElement +toDOMHTMLBodyElement = unsafeCastTo DOMHTMLBodyElement + +noDOMHTMLBodyElement :: Maybe DOMHTMLBodyElement +noDOMHTMLBodyElement = Nothing + +-- VVV Prop "a-link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementALink obj = liftIO $ getObjectPropertyString obj "a-link" + +setDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" val + +constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" val + +data DOMHTMLBodyElementALinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "DOMHTMLBodyElement::a-link" + attrGet _ = getDOMHTMLBodyElementALink + attrSet _ = setDOMHTMLBodyElementALink + attrConstruct _ = constructDOMHTMLBodyElementALink + +-- VVV Prop "background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background" + +setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" val + +constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" val + +data DOMHTMLBodyElementBackgroundPropertyInfo +instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "DOMHTMLBodyElement::background" + attrGet _ = getDOMHTMLBodyElementBackground + attrSet _ = setDOMHTMLBodyElementBackground + attrConstruct _ = constructDOMHTMLBodyElementBackground + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLBodyElementBgColorPropertyInfo +instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "DOMHTMLBodyElement::bg-color" + attrGet _ = getDOMHTMLBodyElementBgColor + attrSet _ = setDOMHTMLBodyElementBgColor + attrConstruct _ = constructDOMHTMLBodyElementBgColor + +-- VVV Prop "link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link" + +setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" val + +constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" val + +data DOMHTMLBodyElementLinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "DOMHTMLBodyElement::link" + attrGet _ = getDOMHTMLBodyElementLink + attrSet _ = setDOMHTMLBodyElementLink + attrConstruct _ = constructDOMHTMLBodyElementLink + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" val + +data DOMHTMLBodyElementTextPropertyInfo +instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "DOMHTMLBodyElement::text" + attrGet _ = getDOMHTMLBodyElementText + attrSet _ = setDOMHTMLBodyElementText + attrConstruct _ = constructDOMHTMLBodyElementText + +-- VVV Prop "v-link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementVLink obj = liftIO $ getObjectPropertyString obj "v-link" + +setDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" val + +constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" val + +data DOMHTMLBodyElementVLinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "DOMHTMLBodyElement::v-link" + attrGet _ = getDOMHTMLBodyElementVLink + attrSet _ = setDOMHTMLBodyElementVLink + attrConstruct _ = constructDOMHTMLBodyElementVLink + +type instance AttributeList DOMHTMLBodyElement = DOMHTMLBodyElementAttributeList +type DOMHTMLBodyElementAttributeList = ('[ '("a-link", DOMHTMLBodyElementALinkPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLBodyElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-link", DOMHTMLBodyElementVLinkPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLBodyElement = DOMHTMLBodyElementSignalList +type DOMHTMLBodyElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLBodyElement::get_a_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_a_link" webkit_dom_html_body_element_get_a_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetALink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetALink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_a_link _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_a_link" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::get_background +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_background" webkit_dom_html_body_element_get_background :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetBackground :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetBackground _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_background _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_background" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_bg_color" webkit_dom_html_body_element_get_bg_color :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetBgColor :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::get_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_link" webkit_dom_html_body_element_get_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetLink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetLink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_link _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_link" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_text" webkit_dom_html_body_element_get_text :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetText :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::get_v_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_get_v_link" webkit_dom_html_body_element_get_v_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + IO CString + + +dOMHTMLBodyElementGetVLink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + m T.Text +dOMHTMLBodyElementGetVLink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_body_element_get_v_link _obj' + checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_v_link" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLBodyElement::set_a_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_a_link" webkit_dom_html_body_element_set_a_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetALink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetALink _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_a_link _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBodyElement::set_background +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_background" webkit_dom_html_body_element_set_background :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetBackground :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetBackground _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_background _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBodyElement::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_bg_color" webkit_dom_html_body_element_set_bg_color :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetBgColor :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBodyElement::set_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_link" webkit_dom_html_body_element_set_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetLink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetLink _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_link _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBodyElement::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_text" webkit_dom_html_body_element_set_text :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetText :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLBodyElement::set_v_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_body_element_set_v_link" webkit_dom_html_body_element_set_v_link :: + Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLBodyElementSetVLink :: + (MonadIO m, DOMHTMLBodyElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLBodyElementSetVLink _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_body_element_set_v_link _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.DOMHTMLBodyElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLBodyElement = DOMHTMLBodyElement (ForeignPtr DOMHTMLBodyElement) +instance GObject DOMHTMLBodyElement where +class GObject o => DOMHTMLBodyElementK o +instance (GObject o, IsDescendantOf DOMHTMLBodyElement o) => DOMHTMLBodyElementK o +data DOMHTMLBodyElementALinkPropertyInfo +data DOMHTMLBodyElementBackgroundPropertyInfo +data DOMHTMLBodyElementBgColorPropertyInfo +data DOMHTMLBodyElementLinkPropertyInfo +data DOMHTMLBodyElementTextPropertyInfo +data DOMHTMLBodyElementVLinkPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLButtonElement.hs b/GI/WebKit/Objects/DOMHTMLButtonElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLButtonElement.hs @@ -0,0 +1,1258 @@ + +{- | +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.WebKit.Objects.DOMHTMLButtonElement + ( + +-- * Exported types + DOMHTMLButtonElement(..) , + DOMHTMLButtonElementK , + toDOMHTMLButtonElement , + noDOMHTMLButtonElement , + + + -- * Methods +-- ** dOMHTMLButtonElementCheckValidity + dOMHTMLButtonElementCheckValidity , + + +-- ** dOMHTMLButtonElementGetAutofocus + dOMHTMLButtonElementGetAutofocus , + + +-- ** dOMHTMLButtonElementGetDisabled + dOMHTMLButtonElementGetDisabled , + + +-- ** dOMHTMLButtonElementGetForm + dOMHTMLButtonElementGetForm , + + +-- ** dOMHTMLButtonElementGetFormAction + dOMHTMLButtonElementGetFormAction , + + +-- ** dOMHTMLButtonElementGetFormEnctype + dOMHTMLButtonElementGetFormEnctype , + + +-- ** dOMHTMLButtonElementGetFormMethod + dOMHTMLButtonElementGetFormMethod , + + +-- ** dOMHTMLButtonElementGetFormNoValidate + dOMHTMLButtonElementGetFormNoValidate , + + +-- ** dOMHTMLButtonElementGetFormTarget + dOMHTMLButtonElementGetFormTarget , + + +-- ** dOMHTMLButtonElementGetLabels + dOMHTMLButtonElementGetLabels , + + +-- ** dOMHTMLButtonElementGetName + dOMHTMLButtonElementGetName , + + +-- ** dOMHTMLButtonElementGetValidationMessage + dOMHTMLButtonElementGetValidationMessage, + + +-- ** dOMHTMLButtonElementGetValidity + dOMHTMLButtonElementGetValidity , + + +-- ** dOMHTMLButtonElementGetValue + dOMHTMLButtonElementGetValue , + + +-- ** dOMHTMLButtonElementGetWillValidate + dOMHTMLButtonElementGetWillValidate , + + +-- ** dOMHTMLButtonElementSetAutofocus + dOMHTMLButtonElementSetAutofocus , + + +-- ** dOMHTMLButtonElementSetCustomValidity + dOMHTMLButtonElementSetCustomValidity , + + +-- ** dOMHTMLButtonElementSetDisabled + dOMHTMLButtonElementSetDisabled , + + +-- ** dOMHTMLButtonElementSetFormAction + dOMHTMLButtonElementSetFormAction , + + +-- ** dOMHTMLButtonElementSetFormEnctype + dOMHTMLButtonElementSetFormEnctype , + + +-- ** dOMHTMLButtonElementSetFormMethod + dOMHTMLButtonElementSetFormMethod , + + +-- ** dOMHTMLButtonElementSetFormNoValidate + dOMHTMLButtonElementSetFormNoValidate , + + +-- ** dOMHTMLButtonElementSetFormTarget + dOMHTMLButtonElementSetFormTarget , + + +-- ** dOMHTMLButtonElementSetName + dOMHTMLButtonElementSetName , + + +-- ** dOMHTMLButtonElementSetValue + dOMHTMLButtonElementSetValue , + + + + + -- * Properties +-- ** Autofocus + DOMHTMLButtonElementAutofocusPropertyInfo, + constructDOMHTMLButtonElementAutofocus , + getDOMHTMLButtonElementAutofocus , + setDOMHTMLButtonElementAutofocus , + + +-- ** Disabled + DOMHTMLButtonElementDisabledPropertyInfo, + constructDOMHTMLButtonElementDisabled , + getDOMHTMLButtonElementDisabled , + setDOMHTMLButtonElementDisabled , + + +-- ** Form + DOMHTMLButtonElementFormPropertyInfo , + getDOMHTMLButtonElementForm , + + +-- ** FormAction + DOMHTMLButtonElementFormActionPropertyInfo, + constructDOMHTMLButtonElementFormAction , + getDOMHTMLButtonElementFormAction , + setDOMHTMLButtonElementFormAction , + + +-- ** FormEnctype + DOMHTMLButtonElementFormEnctypePropertyInfo, + constructDOMHTMLButtonElementFormEnctype, + getDOMHTMLButtonElementFormEnctype , + setDOMHTMLButtonElementFormEnctype , + + +-- ** FormMethod + DOMHTMLButtonElementFormMethodPropertyInfo, + constructDOMHTMLButtonElementFormMethod , + getDOMHTMLButtonElementFormMethod , + setDOMHTMLButtonElementFormMethod , + + +-- ** FormNoValidate + DOMHTMLButtonElementFormNoValidatePropertyInfo, + constructDOMHTMLButtonElementFormNoValidate, + getDOMHTMLButtonElementFormNoValidate , + setDOMHTMLButtonElementFormNoValidate , + + +-- ** FormTarget + DOMHTMLButtonElementFormTargetPropertyInfo, + constructDOMHTMLButtonElementFormTarget , + getDOMHTMLButtonElementFormTarget , + setDOMHTMLButtonElementFormTarget , + + +-- ** Labels + DOMHTMLButtonElementLabelsPropertyInfo , + getDOMHTMLButtonElementLabels , + + +-- ** Name + DOMHTMLButtonElementNamePropertyInfo , + constructDOMHTMLButtonElementName , + getDOMHTMLButtonElementName , + setDOMHTMLButtonElementName , + + +-- ** Type + DOMHTMLButtonElementTypePropertyInfo , + constructDOMHTMLButtonElementType , + getDOMHTMLButtonElementType , + setDOMHTMLButtonElementType , + + +-- ** ValidationMessage + DOMHTMLButtonElementValidationMessagePropertyInfo, + getDOMHTMLButtonElementValidationMessage, + + +-- ** Validity + DOMHTMLButtonElementValidityPropertyInfo, + getDOMHTMLButtonElementValidity , + + +-- ** Value + DOMHTMLButtonElementValuePropertyInfo , + constructDOMHTMLButtonElementValue , + getDOMHTMLButtonElementValue , + setDOMHTMLButtonElementValue , + + +-- ** WillValidate + DOMHTMLButtonElementWillValidatePropertyInfo, + getDOMHTMLButtonElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLButtonElement = DOMHTMLButtonElement (ForeignPtr DOMHTMLButtonElement) +foreign import ccall "webkit_dom_html_button_element_get_type" + c_webkit_dom_html_button_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLButtonElement = DOMHTMLButtonElementParentTypes +type DOMHTMLButtonElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLButtonElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_button_element_get_type + + +class GObject o => DOMHTMLButtonElementK o +instance (GObject o, IsDescendantOf DOMHTMLButtonElement o) => DOMHTMLButtonElementK o + +toDOMHTMLButtonElement :: DOMHTMLButtonElementK o => o -> IO DOMHTMLButtonElement +toDOMHTMLButtonElement = unsafeCastTo DOMHTMLButtonElement + +noDOMHTMLButtonElement :: Maybe DOMHTMLButtonElement +noDOMHTMLButtonElement = Nothing + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLButtonElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLButtonElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLButtonElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementAutofocusPropertyInfo = "DOMHTMLButtonElement::autofocus" + attrGet _ = getDOMHTMLButtonElementAutofocus + attrSet _ = setDOMHTMLButtonElementAutofocus + attrConstruct _ = constructDOMHTMLButtonElementAutofocus + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLButtonElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLButtonElementDisabledPropertyInfo +instance AttrInfo DOMHTMLButtonElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementDisabledPropertyInfo = "DOMHTMLButtonElement::disabled" + attrGet _ = getDOMHTMLButtonElementDisabled + attrSet _ = setDOMHTMLButtonElementDisabled + attrConstruct _ = constructDOMHTMLButtonElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLButtonElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLButtonElementFormPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLButtonElementFormPropertyInfo = "DOMHTMLButtonElement::form" + attrGet _ = getDOMHTMLButtonElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form-action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" + +setDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val + +constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" val + +data DOMHTMLButtonElementFormActionPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "DOMHTMLButtonElement::form-action" + attrGet _ = getDOMHTMLButtonElementFormAction + attrSet _ = setDOMHTMLButtonElementFormAction + attrConstruct _ = constructDOMHTMLButtonElementFormAction + +-- VVV Prop "form-enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" + +setDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val + +constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" val + +data DOMHTMLButtonElementFormEnctypePropertyInfo +instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "DOMHTMLButtonElement::form-enctype" + attrGet _ = getDOMHTMLButtonElementFormEnctype + attrSet _ = setDOMHTMLButtonElementFormEnctype + attrConstruct _ = constructDOMHTMLButtonElementFormEnctype + +-- VVV Prop "form-method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" + +setDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val + +constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" val + +data DOMHTMLButtonElementFormMethodPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "DOMHTMLButtonElement::form-method" + attrGet _ = getDOMHTMLButtonElementFormMethod + attrSet _ = setDOMHTMLButtonElementFormMethod + attrConstruct _ = constructDOMHTMLButtonElementFormMethod + +-- VVV Prop "form-no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" + +setDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val + +constructDOMHTMLButtonElementFormNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val + +data DOMHTMLButtonElementFormNoValidatePropertyInfo +instance AttrInfo DOMHTMLButtonElementFormNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementFormNoValidatePropertyInfo = "DOMHTMLButtonElement::form-no-validate" + attrGet _ = getDOMHTMLButtonElementFormNoValidate + attrSet _ = setDOMHTMLButtonElementFormNoValidate + attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate + +-- VVV Prop "form-target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" + +setDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val + +constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" val + +data DOMHTMLButtonElementFormTargetPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "DOMHTMLButtonElement::form-target" + attrGet _ = getDOMHTMLButtonElementFormTarget + attrSet _ = setDOMHTMLButtonElementFormTarget + attrConstruct _ = constructDOMHTMLButtonElementFormTarget + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMNodeList +getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLButtonElementLabelsPropertyInfo +instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "DOMHTMLButtonElement::labels" + attrGet _ = getDOMHTMLButtonElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" val + +data DOMHTMLButtonElementNamePropertyInfo +instance AttrInfo DOMHTMLButtonElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementNamePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "DOMHTMLButtonElement::name" + attrGet _ = getDOMHTMLButtonElementName + attrSet _ = setDOMHTMLButtonElementName + attrConstruct _ = constructDOMHTMLButtonElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" val + +data DOMHTMLButtonElementTypePropertyInfo +instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "DOMHTMLButtonElement::type" + attrGet _ = getDOMHTMLButtonElementType + attrSet _ = setDOMHTMLButtonElementType + attrConstruct _ = constructDOMHTMLButtonElementType + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLButtonElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "DOMHTMLButtonElement::validation-message" + attrGet _ = getDOMHTMLButtonElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementValidity :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMValidityState +getDOMHTMLButtonElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLButtonElementValidityPropertyInfo +instance AttrInfo DOMHTMLButtonElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLButtonElementValidityPropertyInfo = "DOMHTMLButtonElement::validity" + attrGet _ = getDOMHTMLButtonElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLButtonElementValuePropertyInfo +instance AttrInfo DOMHTMLButtonElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementValuePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "DOMHTMLButtonElement::value" + attrGet _ = getDOMHTMLButtonElementValue + attrSet _ = setDOMHTMLButtonElementValue + attrConstruct _ = constructDOMHTMLButtonElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementWillValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLButtonElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLButtonElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementWillValidatePropertyInfo = "DOMHTMLButtonElement::will-validate" + attrGet _ = getDOMHTMLButtonElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLButtonElement = DOMHTMLButtonElementAttributeList +type DOMHTMLButtonElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("form-action", DOMHTMLButtonElementFormActionPropertyInfo), '("form-enctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("form-method", DOMHTMLButtonElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validation-message", DOMHTMLButtonElementValidationMessagePropertyInfo), '("validity", DOMHTMLButtonElementValidityPropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLButtonElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLButtonElement = DOMHTMLButtonElementSignalList +type DOMHTMLButtonElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLButtonElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_check_validity" webkit_dom_html_button_element_check_validity :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CInt + + +dOMHTMLButtonElementCheckValidity :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m Bool +dOMHTMLButtonElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_autofocus" webkit_dom_html_button_element_get_autofocus :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CInt + + +dOMHTMLButtonElementGetAutofocus :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m Bool +dOMHTMLButtonElementGetAutofocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_autofocus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_disabled" webkit_dom_html_button_element_get_disabled :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CInt + + +dOMHTMLButtonElementGetDisabled :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m Bool +dOMHTMLButtonElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form" webkit_dom_html_button_element_get_form :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLButtonElementGetForm :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLButtonElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form_action" webkit_dom_html_button_element_get_form_action :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetFormAction :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetFormAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form_action _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form_action" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form_enctype" webkit_dom_html_button_element_get_form_enctype :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetFormEnctype :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetFormEnctype _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form_enctype _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form_enctype" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form_method" webkit_dom_html_button_element_get_form_method :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetFormMethod :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetFormMethod _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form_method _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form_method" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form_no_validate" webkit_dom_html_button_element_get_form_no_validate :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CInt + + +dOMHTMLButtonElementGetFormNoValidate :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m Bool +dOMHTMLButtonElementGetFormNoValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form_no_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_form_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_form_target" webkit_dom_html_button_element_get_form_target :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetFormTarget :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetFormTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_form_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_labels" webkit_dom_html_button_element_get_labels :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO (Ptr DOMNodeList) + + +dOMHTMLButtonElementGetLabels :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m DOMNodeList +dOMHTMLButtonElementGetLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_labels _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_labels" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_name" webkit_dom_html_button_element_get_name :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetName :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_validation_message" webkit_dom_html_button_element_get_validation_message :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetValidationMessage :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_validity" webkit_dom_html_button_element_get_validity :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO (Ptr DOMValidityState) + + +dOMHTMLButtonElementGetValidity :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLButtonElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_value" webkit_dom_html_button_element_get_value :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CString + + +dOMHTMLButtonElementGetValue :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m T.Text +dOMHTMLButtonElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_get_will_validate" webkit_dom_html_button_element_get_will_validate :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + IO CInt + + +dOMHTMLButtonElementGetWillValidate :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + m Bool +dOMHTMLButtonElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_button_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLButtonElement::set_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_autofocus" webkit_dom_html_button_element_set_autofocus :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLButtonElementSetAutofocus :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLButtonElementSetAutofocus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_button_element_set_autofocus _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLButtonElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_custom_validity" webkit_dom_html_button_element_set_custom_validity :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetCustomValidity :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLButtonElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_button_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLButtonElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_disabled" webkit_dom_html_button_element_set_disabled :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLButtonElementSetDisabled :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLButtonElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_button_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLButtonElement::set_form_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_form_action" webkit_dom_html_button_element_set_form_action :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetFormAction :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetFormAction _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_form_action _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLButtonElement::set_form_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_form_enctype" webkit_dom_html_button_element_set_form_enctype :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetFormEnctype :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetFormEnctype _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_form_enctype _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLButtonElement::set_form_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_form_method" webkit_dom_html_button_element_set_form_method :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetFormMethod :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetFormMethod _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_form_method _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLButtonElement::set_form_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_form_no_validate" webkit_dom_html_button_element_set_form_no_validate :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLButtonElementSetFormNoValidate :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLButtonElementSetFormNoValidate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_button_element_set_form_no_validate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLButtonElement::set_form_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_form_target" webkit_dom_html_button_element_set_form_target :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetFormTarget :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetFormTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_form_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLButtonElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_name" webkit_dom_html_button_element_set_name :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetName :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLButtonElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_button_element_set_value" webkit_dom_html_button_element_set_value :: + Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLButtonElementSetValue :: + (MonadIO m, DOMHTMLButtonElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLButtonElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_button_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot b/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot @@ -0,0 +1,28 @@ +module GI.WebKit.Objects.DOMHTMLButtonElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLButtonElement = DOMHTMLButtonElement (ForeignPtr DOMHTMLButtonElement) +instance GObject DOMHTMLButtonElement where +class GObject o => DOMHTMLButtonElementK o +instance (GObject o, IsDescendantOf DOMHTMLButtonElement o) => DOMHTMLButtonElementK o +data DOMHTMLButtonElementAutofocusPropertyInfo +data DOMHTMLButtonElementDisabledPropertyInfo +data DOMHTMLButtonElementFormPropertyInfo +data DOMHTMLButtonElementFormActionPropertyInfo +data DOMHTMLButtonElementFormEnctypePropertyInfo +data DOMHTMLButtonElementFormMethodPropertyInfo +data DOMHTMLButtonElementFormNoValidatePropertyInfo +data DOMHTMLButtonElementFormTargetPropertyInfo +data DOMHTMLButtonElementLabelsPropertyInfo +data DOMHTMLButtonElementNamePropertyInfo +data DOMHTMLButtonElementTypePropertyInfo +data DOMHTMLButtonElementValidationMessagePropertyInfo +data DOMHTMLButtonElementValidityPropertyInfo +data DOMHTMLButtonElementValuePropertyInfo +data DOMHTMLButtonElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs @@ -0,0 +1,242 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLCanvasElement + ( + +-- * Exported types + DOMHTMLCanvasElement(..) , + DOMHTMLCanvasElementK , + toDOMHTMLCanvasElement , + noDOMHTMLCanvasElement , + + + -- * Methods +-- ** dOMHTMLCanvasElementGetHeight + dOMHTMLCanvasElementGetHeight , + + +-- ** dOMHTMLCanvasElementGetWidth + dOMHTMLCanvasElementGetWidth , + + +-- ** dOMHTMLCanvasElementSetHeight + dOMHTMLCanvasElementSetHeight , + + +-- ** dOMHTMLCanvasElementSetWidth + dOMHTMLCanvasElementSetWidth , + + + + + -- * Properties +-- ** Height + DOMHTMLCanvasElementHeightPropertyInfo , + constructDOMHTMLCanvasElementHeight , + getDOMHTMLCanvasElementHeight , + setDOMHTMLCanvasElementHeight , + + +-- ** Width + DOMHTMLCanvasElementWidthPropertyInfo , + constructDOMHTMLCanvasElementWidth , + getDOMHTMLCanvasElementWidth , + setDOMHTMLCanvasElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLCanvasElement = DOMHTMLCanvasElement (ForeignPtr DOMHTMLCanvasElement) +foreign import ccall "webkit_dom_html_canvas_element_get_type" + c_webkit_dom_html_canvas_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLCanvasElement = DOMHTMLCanvasElementParentTypes +type DOMHTMLCanvasElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLCanvasElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_canvas_element_get_type + + +class GObject o => DOMHTMLCanvasElementK o +instance (GObject o, IsDescendantOf DOMHTMLCanvasElement o) => DOMHTMLCanvasElementK o + +toDOMHTMLCanvasElement :: DOMHTMLCanvasElementK o => o -> IO DOMHTMLCanvasElement +toDOMHTMLCanvasElement = unsafeCastTo DOMHTMLCanvasElement + +noDOMHTMLCanvasElement :: Maybe DOMHTMLCanvasElement +noDOMHTMLCanvasElement = Nothing + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 +getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () +setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLCanvasElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLCanvasElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLCanvasElementHeightPropertyInfo +instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK + type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "DOMHTMLCanvasElement::height" + attrGet _ = getDOMHTMLCanvasElementHeight + attrSet _ = setDOMHTMLCanvasElementHeight + attrConstruct _ = constructDOMHTMLCanvasElementHeight + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 +getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () +setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLCanvasElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLCanvasElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLCanvasElementWidthPropertyInfo +instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK + type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "DOMHTMLCanvasElement::width" + attrGet _ = getDOMHTMLCanvasElementWidth + attrSet _ = setDOMHTMLCanvasElementWidth + attrConstruct _ = constructDOMHTMLCanvasElementWidth + +type instance AttributeList DOMHTMLCanvasElement = DOMHTMLCanvasElementAttributeList +type DOMHTMLCanvasElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLCanvasElement = DOMHTMLCanvasElementSignalList +type DOMHTMLCanvasElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLCanvasElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_canvas_element_get_height" webkit_dom_html_canvas_element_get_height :: + Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" + IO Int64 + + +dOMHTMLCanvasElementGetHeight :: + (MonadIO m, DOMHTMLCanvasElementK a) => + a -> -- _obj + m Int64 +dOMHTMLCanvasElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_canvas_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLCanvasElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_canvas_element_get_width" webkit_dom_html_canvas_element_get_width :: + Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" + IO Int64 + + +dOMHTMLCanvasElementGetWidth :: + (MonadIO m, DOMHTMLCanvasElementK a) => + a -> -- _obj + m Int64 +dOMHTMLCanvasElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_canvas_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLCanvasElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_canvas_element_set_height" webkit_dom_html_canvas_element_set_height :: + Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLCanvasElementSetHeight :: + (MonadIO m, DOMHTMLCanvasElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLCanvasElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_canvas_element_set_height _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLCanvasElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_canvas_element_set_width" webkit_dom_html_canvas_element_set_width :: + Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLCanvasElementSetWidth :: + (MonadIO m, DOMHTMLCanvasElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLCanvasElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_canvas_element_set_width _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLCanvasElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLCanvasElement = DOMHTMLCanvasElement (ForeignPtr DOMHTMLCanvasElement) +instance GObject DOMHTMLCanvasElement where +class GObject o => DOMHTMLCanvasElementK o +instance (GObject o, IsDescendantOf DOMHTMLCanvasElement o) => DOMHTMLCanvasElementK o +data DOMHTMLCanvasElementHeightPropertyInfo +data DOMHTMLCanvasElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLCollection.hs b/GI/WebKit/Objects/DOMHTMLCollection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLCollection.hs @@ -0,0 +1,181 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLCollection + ( + +-- * Exported types + DOMHTMLCollection(..) , + DOMHTMLCollectionK , + toDOMHTMLCollection , + noDOMHTMLCollection , + + + -- * Methods +-- ** dOMHTMLCollectionGetLength + dOMHTMLCollectionGetLength , + + +-- ** dOMHTMLCollectionItem + dOMHTMLCollectionItem , + + +-- ** dOMHTMLCollectionNamedItem + dOMHTMLCollectionNamedItem , + + + + + -- * Properties +-- ** Length + DOMHTMLCollectionLengthPropertyInfo , + getDOMHTMLCollectionLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLCollection = DOMHTMLCollection (ForeignPtr DOMHTMLCollection) +foreign import ccall "webkit_dom_html_collection_get_type" + c_webkit_dom_html_collection_get_type :: IO GType + +type instance ParentTypes DOMHTMLCollection = DOMHTMLCollectionParentTypes +type DOMHTMLCollectionParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMHTMLCollection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_collection_get_type + + +class GObject o => DOMHTMLCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLCollection o) => DOMHTMLCollectionK o + +toDOMHTMLCollection :: DOMHTMLCollectionK o => o -> IO DOMHTMLCollection +toDOMHTMLCollection = unsafeCastTo DOMHTMLCollection + +noDOMHTMLCollection :: Maybe DOMHTMLCollection +noDOMHTMLCollection = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m Word64 +getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK + type AttrGetType DOMHTMLCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "DOMHTMLCollection::length" + attrGet _ = getDOMHTMLCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLCollection = DOMHTMLCollectionAttributeList +type DOMHTMLCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLCollection = DOMHTMLCollectionSignalList +type DOMHTMLCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLCollection::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_collection_get_length" webkit_dom_html_collection_get_length :: + Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection" + IO Word64 + + +dOMHTMLCollectionGetLength :: + (MonadIO m, DOMHTMLCollectionK a) => + a -> -- _obj + m Word64 +dOMHTMLCollectionGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_collection_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLCollection::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item :: + Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + + +dOMHTMLCollectionItem :: + (MonadIO m, DOMHTMLCollectionK a) => + a -> -- _obj + Word64 -> -- index + m DOMNode +dOMHTMLCollectionItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_collection_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_html_collection_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLCollection::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_collection_named_item" webkit_dom_html_collection_named_item :: + Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNode) + + +dOMHTMLCollectionNamedItem :: + (MonadIO m, DOMHTMLCollectionK a) => + a -> -- _obj + T.Text -> -- name + m DOMNode +dOMHTMLCollectionNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_html_collection_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_html_collection_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem name' + return result' + + diff --git a/GI/WebKit/Objects/DOMHTMLCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLCollection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLCollection.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLCollection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLCollection = DOMHTMLCollection (ForeignPtr DOMHTMLCollection) +instance GObject DOMHTMLCollection where +class GObject o => DOMHTMLCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLCollection o) => DOMHTMLCollectionK o +data DOMHTMLCollectionLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLDListElement.hs b/GI/WebKit/Objects/DOMHTMLDListElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDListElement.hs @@ -0,0 +1,155 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLDListElement + ( + +-- * Exported types + DOMHTMLDListElement(..) , + DOMHTMLDListElementK , + toDOMHTMLDListElement , + noDOMHTMLDListElement , + + + -- * Methods +-- ** dOMHTMLDListElementGetCompact + dOMHTMLDListElementGetCompact , + + +-- ** dOMHTMLDListElementSetCompact + dOMHTMLDListElementSetCompact , + + + + + -- * Properties +-- ** Compact + DOMHTMLDListElementCompactPropertyInfo , + constructDOMHTMLDListElementCompact , + getDOMHTMLDListElementCompact , + setDOMHTMLDListElementCompact , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLDListElement = DOMHTMLDListElement (ForeignPtr DOMHTMLDListElement) +foreign import ccall "webkit_dom_htmld_list_element_get_type" + c_webkit_dom_htmld_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_htmld_list_element_get_type + + +class GObject o => DOMHTMLDListElementK o +instance (GObject o, IsDescendantOf DOMHTMLDListElement o) => DOMHTMLDListElementK o + +toDOMHTMLDListElement :: DOMHTMLDListElementK o => o -> IO DOMHTMLDListElement +toDOMHTMLDListElement = unsafeCastTo DOMHTMLDListElement + +noDOMHTMLDListElement :: Maybe DOMHTMLDListElement +noDOMHTMLDListElement = Nothing + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> m Bool +getDOMHTMLDListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> Bool -> m () +setDOMHTMLDListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLDListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLDListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLDListElementCompactPropertyInfo +instance AttrInfo DOMHTMLDListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLDListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDListElementCompactPropertyInfo = DOMHTMLDListElementK + type AttrGetType DOMHTMLDListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLDListElementCompactPropertyInfo = "DOMHTMLDListElement::compact" + attrGet _ = getDOMHTMLDListElementCompact + attrSet _ = setDOMHTMLDListElementCompact + attrConstruct _ = constructDOMHTMLDListElementCompact + +type instance AttributeList DOMHTMLDListElement = DOMHTMLDListElementAttributeList +type DOMHTMLDListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLDListElement = DOMHTMLDListElementSignalList +type DOMHTMLDListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLDListElement::get_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmld_list_element_get_compact" webkit_dom_htmld_list_element_get_compact :: + Ptr DOMHTMLDListElement -> -- _obj : TInterface "WebKit" "DOMHTMLDListElement" + IO CInt + + +dOMHTMLDListElementGetCompact :: + (MonadIO m, DOMHTMLDListElementK a) => + a -> -- _obj + m Bool +dOMHTMLDListElementGetCompact _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmld_list_element_get_compact _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDListElement::set_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmld_list_element_set_compact" webkit_dom_htmld_list_element_set_compact :: + Ptr DOMHTMLDListElement -> -- _obj : TInterface "WebKit" "DOMHTMLDListElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLDListElementSetCompact :: + (MonadIO m, DOMHTMLDListElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLDListElementSetCompact _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_htmld_list_element_set_compact _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLDListElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLDListElement = DOMHTMLDListElement (ForeignPtr DOMHTMLDListElement) +instance GObject DOMHTMLDListElement where +class GObject o => DOMHTMLDListElementK o +instance (GObject o, IsDescendantOf DOMHTMLDListElement o) => DOMHTMLDListElementK o +data DOMHTMLDListElementCompactPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs @@ -0,0 +1,155 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLDetailsElement + ( + +-- * Exported types + DOMHTMLDetailsElement(..) , + DOMHTMLDetailsElementK , + toDOMHTMLDetailsElement , + noDOMHTMLDetailsElement , + + + -- * Methods +-- ** dOMHTMLDetailsElementGetOpen + dOMHTMLDetailsElementGetOpen , + + +-- ** dOMHTMLDetailsElementSetOpen + dOMHTMLDetailsElementSetOpen , + + + + + -- * Properties +-- ** Open + DOMHTMLDetailsElementOpenPropertyInfo , + constructDOMHTMLDetailsElementOpen , + getDOMHTMLDetailsElementOpen , + setDOMHTMLDetailsElementOpen , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLDetailsElement = DOMHTMLDetailsElement (ForeignPtr DOMHTMLDetailsElement) +foreign import ccall "webkit_dom_html_details_element_get_type" + c_webkit_dom_html_details_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLDetailsElement = DOMHTMLDetailsElementParentTypes +type DOMHTMLDetailsElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLDetailsElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_details_element_get_type + + +class GObject o => DOMHTMLDetailsElementK o +instance (GObject o, IsDescendantOf DOMHTMLDetailsElement o) => DOMHTMLDetailsElementK o + +toDOMHTMLDetailsElement :: DOMHTMLDetailsElementK o => o -> IO DOMHTMLDetailsElement +toDOMHTMLDetailsElement = unsafeCastTo DOMHTMLDetailsElement + +noDOMHTMLDetailsElement :: Maybe DOMHTMLDetailsElement +noDOMHTMLDetailsElement = Nothing + +-- VVV Prop "open" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> m Bool +getDOMHTMLDetailsElementOpen obj = liftIO $ getObjectPropertyBool obj "open" + +setDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> Bool -> m () +setDOMHTMLDetailsElementOpen obj val = liftIO $ setObjectPropertyBool obj "open" val + +constructDOMHTMLDetailsElementOpen :: Bool -> IO ([Char], GValue) +constructDOMHTMLDetailsElementOpen val = constructObjectPropertyBool "open" val + +data DOMHTMLDetailsElementOpenPropertyInfo +instance AttrInfo DOMHTMLDetailsElementOpenPropertyInfo where + type AttrAllowedOps DOMHTMLDetailsElementOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = DOMHTMLDetailsElementK + type AttrGetType DOMHTMLDetailsElementOpenPropertyInfo = Bool + type AttrLabel DOMHTMLDetailsElementOpenPropertyInfo = "DOMHTMLDetailsElement::open" + attrGet _ = getDOMHTMLDetailsElementOpen + attrSet _ = setDOMHTMLDetailsElementOpen + attrConstruct _ = constructDOMHTMLDetailsElementOpen + +type instance AttributeList DOMHTMLDetailsElement = DOMHTMLDetailsElementAttributeList +type DOMHTMLDetailsElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("open", DOMHTMLDetailsElementOpenPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLDetailsElement = DOMHTMLDetailsElementSignalList +type DOMHTMLDetailsElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLDetailsElement::get_open +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_details_element_get_open" webkit_dom_html_details_element_get_open :: + Ptr DOMHTMLDetailsElement -> -- _obj : TInterface "WebKit" "DOMHTMLDetailsElement" + IO CInt + + +dOMHTMLDetailsElementGetOpen :: + (MonadIO m, DOMHTMLDetailsElementK a) => + a -> -- _obj + m Bool +dOMHTMLDetailsElementGetOpen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_details_element_get_open _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDetailsElement::set_open +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_details_element_set_open" webkit_dom_html_details_element_set_open :: + Ptr DOMHTMLDetailsElement -> -- _obj : TInterface "WebKit" "DOMHTMLDetailsElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLDetailsElementSetOpen :: + (MonadIO m, DOMHTMLDetailsElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLDetailsElementSetOpen _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_details_element_set_open _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLDetailsElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLDetailsElement = DOMHTMLDetailsElement (ForeignPtr DOMHTMLDetailsElement) +instance GObject DOMHTMLDetailsElement where +class GObject o => DOMHTMLDetailsElementK o +instance (GObject o, IsDescendantOf DOMHTMLDetailsElement o) => DOMHTMLDetailsElementK o +data DOMHTMLDetailsElementOpenPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs @@ -0,0 +1,155 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLDirectoryElement + ( + +-- * Exported types + DOMHTMLDirectoryElement(..) , + DOMHTMLDirectoryElementK , + toDOMHTMLDirectoryElement , + noDOMHTMLDirectoryElement , + + + -- * Methods +-- ** dOMHTMLDirectoryElementGetCompact + dOMHTMLDirectoryElementGetCompact , + + +-- ** dOMHTMLDirectoryElementSetCompact + dOMHTMLDirectoryElementSetCompact , + + + + + -- * Properties +-- ** Compact + DOMHTMLDirectoryElementCompactPropertyInfo, + constructDOMHTMLDirectoryElementCompact , + getDOMHTMLDirectoryElementCompact , + setDOMHTMLDirectoryElementCompact , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLDirectoryElement = DOMHTMLDirectoryElement (ForeignPtr DOMHTMLDirectoryElement) +foreign import ccall "webkit_dom_html_directory_element_get_type" + c_webkit_dom_html_directory_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLDirectoryElement = DOMHTMLDirectoryElementParentTypes +type DOMHTMLDirectoryElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLDirectoryElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_directory_element_get_type + + +class GObject o => DOMHTMLDirectoryElementK o +instance (GObject o, IsDescendantOf DOMHTMLDirectoryElement o) => DOMHTMLDirectoryElementK o + +toDOMHTMLDirectoryElement :: DOMHTMLDirectoryElementK o => o -> IO DOMHTMLDirectoryElement +toDOMHTMLDirectoryElement = unsafeCastTo DOMHTMLDirectoryElement + +noDOMHTMLDirectoryElement :: Maybe DOMHTMLDirectoryElement +noDOMHTMLDirectoryElement = Nothing + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> m Bool +getDOMHTMLDirectoryElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> Bool -> m () +setDOMHTMLDirectoryElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLDirectoryElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLDirectoryElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLDirectoryElementCompactPropertyInfo +instance AttrInfo DOMHTMLDirectoryElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLDirectoryElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = DOMHTMLDirectoryElementK + type AttrGetType DOMHTMLDirectoryElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLDirectoryElementCompactPropertyInfo = "DOMHTMLDirectoryElement::compact" + attrGet _ = getDOMHTMLDirectoryElementCompact + attrSet _ = setDOMHTMLDirectoryElementCompact + attrConstruct _ = constructDOMHTMLDirectoryElementCompact + +type instance AttributeList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementAttributeList +type DOMHTMLDirectoryElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementSignalList +type DOMHTMLDirectoryElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLDirectoryElement::get_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_directory_element_get_compact" webkit_dom_html_directory_element_get_compact :: + Ptr DOMHTMLDirectoryElement -> -- _obj : TInterface "WebKit" "DOMHTMLDirectoryElement" + IO CInt + + +dOMHTMLDirectoryElementGetCompact :: + (MonadIO m, DOMHTMLDirectoryElementK a) => + a -> -- _obj + m Bool +dOMHTMLDirectoryElementGetCompact _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_directory_element_get_compact _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDirectoryElement::set_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_directory_element_set_compact" webkit_dom_html_directory_element_set_compact :: + Ptr DOMHTMLDirectoryElement -> -- _obj : TInterface "WebKit" "DOMHTMLDirectoryElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLDirectoryElementSetCompact :: + (MonadIO m, DOMHTMLDirectoryElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLDirectoryElementSetCompact _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_directory_element_set_compact _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLDirectoryElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLDirectoryElement = DOMHTMLDirectoryElement (ForeignPtr DOMHTMLDirectoryElement) +instance GObject DOMHTMLDirectoryElement where +class GObject o => DOMHTMLDirectoryElementK o +instance (GObject o, IsDescendantOf DOMHTMLDirectoryElement o) => DOMHTMLDirectoryElementK o +data DOMHTMLDirectoryElementCompactPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLDivElement.hs b/GI/WebKit/Objects/DOMHTMLDivElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDivElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLDivElement + ( + +-- * Exported types + DOMHTMLDivElement(..) , + DOMHTMLDivElementK , + toDOMHTMLDivElement , + noDOMHTMLDivElement , + + + -- * Methods +-- ** dOMHTMLDivElementGetAlign + dOMHTMLDivElementGetAlign , + + +-- ** dOMHTMLDivElementSetAlign + dOMHTMLDivElementSetAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLDivElementAlignPropertyInfo , + constructDOMHTMLDivElementAlign , + getDOMHTMLDivElementAlign , + setDOMHTMLDivElementAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLDivElement = DOMHTMLDivElement (ForeignPtr DOMHTMLDivElement) +foreign import ccall "webkit_dom_html_div_element_get_type" + c_webkit_dom_html_div_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLDivElement = DOMHTMLDivElementParentTypes +type DOMHTMLDivElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLDivElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_div_element_get_type + + +class GObject o => DOMHTMLDivElementK o +instance (GObject o, IsDescendantOf DOMHTMLDivElement o) => DOMHTMLDivElementK o + +toDOMHTMLDivElement :: DOMHTMLDivElementK o => o -> IO DOMHTMLDivElement +toDOMHTMLDivElement = unsafeCastTo DOMHTMLDivElement + +noDOMHTMLDivElement :: Maybe DOMHTMLDivElement +noDOMHTMLDivElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m T.Text +getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m () +setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLDivElementAlignPropertyInfo +instance AttrInfo DOMHTMLDivElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLDivElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDivElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDivElementAlignPropertyInfo = DOMHTMLDivElementK + type AttrGetType DOMHTMLDivElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "DOMHTMLDivElement::align" + attrGet _ = getDOMHTMLDivElementAlign + attrSet _ = setDOMHTMLDivElementAlign + attrConstruct _ = constructDOMHTMLDivElementAlign + +type instance AttributeList DOMHTMLDivElement = DOMHTMLDivElementAttributeList +type DOMHTMLDivElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLDivElement = DOMHTMLDivElementSignalList +type DOMHTMLDivElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLDivElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_div_element_get_align" webkit_dom_html_div_element_get_align :: + Ptr DOMHTMLDivElement -> -- _obj : TInterface "WebKit" "DOMHTMLDivElement" + IO CString + + +dOMHTMLDivElementGetAlign :: + (MonadIO m, DOMHTMLDivElementK a) => + a -> -- _obj + m T.Text +dOMHTMLDivElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_div_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_div_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDivElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_div_element_set_align" webkit_dom_html_div_element_set_align :: + Ptr DOMHTMLDivElement -> -- _obj : TInterface "WebKit" "DOMHTMLDivElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDivElementSetAlign :: + (MonadIO m, DOMHTMLDivElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDivElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_div_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLDivElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLDivElement = DOMHTMLDivElement (ForeignPtr DOMHTMLDivElement) +instance GObject DOMHTMLDivElement where +class GObject o => DOMHTMLDivElementK o +instance (GObject o, IsDescendantOf DOMHTMLDivElement o) => DOMHTMLDivElementK o +data DOMHTMLDivElementAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLDocument.hs b/GI/WebKit/Objects/DOMHTMLDocument.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDocument.hs @@ -0,0 +1,1259 @@ + +{- | +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.WebKit.Objects.DOMHTMLDocument + ( + +-- * Exported types + DOMHTMLDocument(..) , + DOMHTMLDocumentK , + toDOMHTMLDocument , + noDOMHTMLDocument , + + + -- * Methods +-- ** dOMHTMLDocumentCaptureEvents + dOMHTMLDocumentCaptureEvents , + + +-- ** dOMHTMLDocumentClear + dOMHTMLDocumentClear , + + +-- ** dOMHTMLDocumentClose + dOMHTMLDocumentClose , + + +-- ** dOMHTMLDocumentGetActiveElement + dOMHTMLDocumentGetActiveElement , + + +-- ** dOMHTMLDocumentGetAlinkColor + dOMHTMLDocumentGetAlinkColor , + + +-- ** dOMHTMLDocumentGetBgColor + dOMHTMLDocumentGetBgColor , + + +-- ** dOMHTMLDocumentGetCompatMode + dOMHTMLDocumentGetCompatMode , + + +-- ** dOMHTMLDocumentGetDesignMode + dOMHTMLDocumentGetDesignMode , + + +-- ** dOMHTMLDocumentGetDir + dOMHTMLDocumentGetDir , + + +-- ** dOMHTMLDocumentGetEmbeds + dOMHTMLDocumentGetEmbeds , + + +-- ** dOMHTMLDocumentGetFgColor + dOMHTMLDocumentGetFgColor , + + +-- ** dOMHTMLDocumentGetHeight + dOMHTMLDocumentGetHeight , + + +-- ** dOMHTMLDocumentGetLinkColor + dOMHTMLDocumentGetLinkColor , + + +-- ** dOMHTMLDocumentGetPlugins + dOMHTMLDocumentGetPlugins , + + +-- ** dOMHTMLDocumentGetScripts + dOMHTMLDocumentGetScripts , + + +-- ** dOMHTMLDocumentGetVlinkColor + dOMHTMLDocumentGetVlinkColor , + + +-- ** dOMHTMLDocumentGetWidth + dOMHTMLDocumentGetWidth , + + +-- ** dOMHTMLDocumentHasFocus + dOMHTMLDocumentHasFocus , + + +-- ** dOMHTMLDocumentOpen + dOMHTMLDocumentOpen , + + +-- ** dOMHTMLDocumentReleaseEvents + dOMHTMLDocumentReleaseEvents , + + +-- ** dOMHTMLDocumentSetAlinkColor + dOMHTMLDocumentSetAlinkColor , + + +-- ** dOMHTMLDocumentSetBgColor + dOMHTMLDocumentSetBgColor , + + +-- ** dOMHTMLDocumentSetDesignMode + dOMHTMLDocumentSetDesignMode , + + +-- ** dOMHTMLDocumentSetDir + dOMHTMLDocumentSetDir , + + +-- ** dOMHTMLDocumentSetFgColor + dOMHTMLDocumentSetFgColor , + + +-- ** dOMHTMLDocumentSetLinkColor + dOMHTMLDocumentSetLinkColor , + + +-- ** dOMHTMLDocumentSetVlinkColor + dOMHTMLDocumentSetVlinkColor , + + + + + -- * Properties +-- ** ActiveElement + DOMHTMLDocumentActiveElementPropertyInfo, + getDOMHTMLDocumentActiveElement , + + +-- ** AlinkColor + DOMHTMLDocumentAlinkColorPropertyInfo , + constructDOMHTMLDocumentAlinkColor , + getDOMHTMLDocumentAlinkColor , + setDOMHTMLDocumentAlinkColor , + + +-- ** BgColor + DOMHTMLDocumentBgColorPropertyInfo , + constructDOMHTMLDocumentBgColor , + getDOMHTMLDocumentBgColor , + setDOMHTMLDocumentBgColor , + + +-- ** CompatMode + DOMHTMLDocumentCompatModePropertyInfo , + getDOMHTMLDocumentCompatMode , + + +-- ** DesignMode + DOMHTMLDocumentDesignModePropertyInfo , + constructDOMHTMLDocumentDesignMode , + getDOMHTMLDocumentDesignMode , + setDOMHTMLDocumentDesignMode , + + +-- ** Dir + DOMHTMLDocumentDirPropertyInfo , + constructDOMHTMLDocumentDir , + getDOMHTMLDocumentDir , + setDOMHTMLDocumentDir , + + +-- ** Embeds + DOMHTMLDocumentEmbedsPropertyInfo , + getDOMHTMLDocumentEmbeds , + + +-- ** FgColor + DOMHTMLDocumentFgColorPropertyInfo , + constructDOMHTMLDocumentFgColor , + getDOMHTMLDocumentFgColor , + setDOMHTMLDocumentFgColor , + + +-- ** Height + DOMHTMLDocumentHeightPropertyInfo , + getDOMHTMLDocumentHeight , + + +-- ** LinkColor + DOMHTMLDocumentLinkColorPropertyInfo , + constructDOMHTMLDocumentLinkColor , + getDOMHTMLDocumentLinkColor , + setDOMHTMLDocumentLinkColor , + + +-- ** Plugins + DOMHTMLDocumentPluginsPropertyInfo , + getDOMHTMLDocumentPlugins , + + +-- ** Scripts + DOMHTMLDocumentScriptsPropertyInfo , + getDOMHTMLDocumentScripts , + + +-- ** VlinkColor + DOMHTMLDocumentVlinkColorPropertyInfo , + constructDOMHTMLDocumentVlinkColor , + getDOMHTMLDocumentVlinkColor , + setDOMHTMLDocumentVlinkColor , + + +-- ** Width + DOMHTMLDocumentWidthPropertyInfo , + getDOMHTMLDocumentWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument) +foreign import ccall "webkit_dom_html_document_get_type" + c_webkit_dom_html_document_get_type :: IO GType + +type instance ParentTypes DOMHTMLDocument = DOMHTMLDocumentParentTypes +type DOMHTMLDocumentParentTypes = '[DOMDocument, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLDocument where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_document_get_type + + +class GObject o => DOMHTMLDocumentK o +instance (GObject o, IsDescendantOf DOMHTMLDocument o) => DOMHTMLDocumentK o + +toDOMHTMLDocument :: DOMHTMLDocumentK o => o -> IO DOMHTMLDocument +toDOMHTMLDocument = unsafeCastTo DOMHTMLDocument + +noDOMHTMLDocument :: Maybe DOMHTMLDocument +noDOMHTMLDocument = Nothing + +-- VVV Prop "active-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentActiveElement :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMElement +getDOMHTMLDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement + +data DOMHTMLDocumentActiveElementPropertyInfo +instance AttrInfo DOMHTMLDocumentActiveElementPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentActiveElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentActiveElementPropertyInfo = DOMElement + type AttrLabel DOMHTMLDocumentActiveElementPropertyInfo = "DOMHTMLDocument::active-element" + attrGet _ = getDOMHTMLDocumentActiveElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "alink-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color" + +setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val + +constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val + +data DOMHTMLDocumentAlinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "DOMHTMLDocument::alink-color" + attrGet _ = getDOMHTMLDocumentAlinkColor + attrSet _ = setDOMHTMLDocumentAlinkColor + attrConstruct _ = constructDOMHTMLDocumentAlinkColor + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLDocumentBgColorPropertyInfo +instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "DOMHTMLDocument::bg-color" + attrGet _ = getDOMHTMLDocumentBgColor + attrSet _ = setDOMHTMLDocumentBgColor + attrConstruct _ = constructDOMHTMLDocumentBgColor + +-- VVV Prop "compat-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" + +data DOMHTMLDocumentCompatModePropertyInfo +instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where + type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "DOMHTMLDocument::compat-mode" + attrGet _ = getDOMHTMLDocumentCompatMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "design-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode" + +setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val + +constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val + +data DOMHTMLDocumentDesignModePropertyInfo +instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where + type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "DOMHTMLDocument::design-mode" + attrGet _ = getDOMHTMLDocumentDesignMode + attrSet _ = setDOMHTMLDocumentDesignMode + attrConstruct _ = constructDOMHTMLDocumentDesignMode + +-- VVV Prop "dir" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir" + +setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val + +constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val + +data DOMHTMLDocumentDirPropertyInfo +instance AttrInfo DOMHTMLDocumentDirPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentDirPropertyInfo = "DOMHTMLDocument::dir" + attrGet _ = getDOMHTMLDocumentDir + attrSet _ = setDOMHTMLDocumentDir + attrConstruct _ = constructDOMHTMLDocumentDir + +-- VVV Prop "embeds" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection + +data DOMHTMLDocumentEmbedsPropertyInfo +instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "DOMHTMLDocument::embeds" + attrGet _ = getDOMHTMLDocumentEmbeds + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "fg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color" + +setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val + +constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val + +data DOMHTMLDocumentFgColorPropertyInfo +instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "DOMHTMLDocument::fg-color" + attrGet _ = getDOMHTMLDocumentFgColor + attrSet _ = setDOMHTMLDocumentFgColor + attrConstruct _ = constructDOMHTMLDocumentFgColor + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 +getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +data DOMHTMLDocumentHeightPropertyInfo +instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "DOMHTMLDocument::height" + attrGet _ = getDOMHTMLDocumentHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "link-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color" + +setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val + +constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val + +data DOMHTMLDocumentLinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "DOMHTMLDocument::link-color" + attrGet _ = getDOMHTMLDocumentLinkColor + attrSet _ = setDOMHTMLDocumentLinkColor + attrConstruct _ = constructDOMHTMLDocumentLinkColor + +-- VVV Prop "plugins" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection + +data DOMHTMLDocumentPluginsPropertyInfo +instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "DOMHTMLDocument::plugins" + attrGet _ = getDOMHTMLDocumentPlugins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scripts" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection + +data DOMHTMLDocumentScriptsPropertyInfo +instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "DOMHTMLDocument::scripts" + attrGet _ = getDOMHTMLDocumentScripts + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vlink-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color" + +setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val + +constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val + +data DOMHTMLDocumentVlinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "DOMHTMLDocument::vlink-color" + attrGet _ = getDOMHTMLDocumentVlinkColor + attrSet _ = setDOMHTMLDocumentVlinkColor + attrConstruct _ = constructDOMHTMLDocumentVlinkColor + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 +getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +data DOMHTMLDocumentWidthPropertyInfo +instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "DOMHTMLDocument::width" + attrGet _ = getDOMHTMLDocumentWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLDocument = DOMHTMLDocumentAttributeList +type DOMHTMLDocumentAttributeList = ('[ '("active-element", DOMHTMLDocumentActiveElementPropertyInfo), '("alink-color", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMHTMLDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("design-mode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fg-color", DOMHTMLDocumentFgColorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("link-color", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("vlink-color", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLDocument = DOMHTMLDocumentSignalList +type DOMHTMLDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLDocument::capture_events +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_capture_events" webkit_dom_html_document_capture_events :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO () + + +dOMHTMLDocumentCaptureEvents :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m () +dOMHTMLDocumentCaptureEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_document_capture_events _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLDocument::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_clear" webkit_dom_html_document_clear :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO () + + +dOMHTMLDocumentClear :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m () +dOMHTMLDocumentClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_document_clear _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLDocument::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_close" webkit_dom_html_document_close :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO () + + +dOMHTMLDocumentClose :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m () +dOMHTMLDocumentClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_document_close _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLDocument::get_active_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_active_element" webkit_dom_html_document_get_active_element :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO (Ptr DOMElement) + + +dOMHTMLDocumentGetActiveElement :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m DOMElement +dOMHTMLDocumentGetActiveElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_active_element _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_active_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_alink_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_alink_color" webkit_dom_html_document_get_alink_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetAlinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetAlinkColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_alink_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_alink_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_bg_color" webkit_dom_html_document_get_bg_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetBgColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_compat_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_compat_mode" webkit_dom_html_document_get_compat_mode :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetCompatMode :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetCompatMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_compat_mode _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_compat_mode" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_design_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_design_mode" webkit_dom_html_document_get_design_mode :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetDesignMode :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetDesignMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_design_mode _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_design_mode" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_dir +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_dir" webkit_dom_html_document_get_dir :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetDir :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetDir _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_dir _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_dir" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_embeds +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_embeds" webkit_dom_html_document_get_embeds :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLDocumentGetEmbeds :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLDocumentGetEmbeds _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_embeds _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_embeds" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_fg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_fg_color" webkit_dom_html_document_get_fg_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetFgColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetFgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_fg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_fg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_height" webkit_dom_html_document_get_height :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO Int64 + + +dOMHTMLDocumentGetHeight :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m Int64 +dOMHTMLDocumentGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLDocument::get_link_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_link_color" webkit_dom_html_document_get_link_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetLinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetLinkColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_link_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_link_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_plugins +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_plugins" webkit_dom_html_document_get_plugins :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLDocumentGetPlugins :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLDocumentGetPlugins _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_plugins _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_plugins" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_scripts +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_scripts" webkit_dom_html_document_get_scripts :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLDocumentGetScripts :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLDocumentGetScripts _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_scripts _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_scripts" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_vlink_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_vlink_color" webkit_dom_html_document_get_vlink_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CString + + +dOMHTMLDocumentGetVlinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m T.Text +dOMHTMLDocumentGetVlinkColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_vlink_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_document_get_vlink_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_get_width" webkit_dom_html_document_get_width :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO Int64 + + +dOMHTMLDocumentGetWidth :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m Int64 +dOMHTMLDocumentGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLDocument::has_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_has_focus" webkit_dom_html_document_has_focus :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO CInt + + +dOMHTMLDocumentHasFocus :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m Bool +dOMHTMLDocumentHasFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_document_has_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLDocument::open +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_open" webkit_dom_html_document_open :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO () + +{-# DEPRECATED dOMHTMLDocumentOpen ["(Since version 2.2)"]#-} +dOMHTMLDocumentOpen :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m () +dOMHTMLDocumentOpen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_document_open _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLDocument::release_events +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_release_events" webkit_dom_html_document_release_events :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + IO () + + +dOMHTMLDocumentReleaseEvents :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + m () +dOMHTMLDocumentReleaseEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_document_release_events _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLDocument::set_alink_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_alink_color" webkit_dom_html_document_set_alink_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetAlinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetAlinkColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_alink_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_bg_color" webkit_dom_html_document_set_bg_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetBgColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_design_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_design_mode" webkit_dom_html_document_set_design_mode :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetDesignMode :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetDesignMode _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_design_mode _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_dir +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_dir" webkit_dom_html_document_set_dir :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetDir :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetDir _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_dir _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_fg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_fg_color" webkit_dom_html_document_set_fg_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetFgColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetFgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_fg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_link_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_link_color" webkit_dom_html_document_set_link_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetLinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetLinkColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_link_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLDocument::set_vlink_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_document_set_vlink_color" webkit_dom_html_document_set_vlink_color :: + Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLDocumentSetVlinkColor :: + (MonadIO m, DOMHTMLDocumentK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLDocumentSetVlinkColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_document_set_vlink_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLDocument.hs-boot b/GI/WebKit/Objects/DOMHTMLDocument.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLDocument.hs-boot @@ -0,0 +1,27 @@ +module GI.WebKit.Objects.DOMHTMLDocument where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument) +instance GObject DOMHTMLDocument where +class GObject o => DOMHTMLDocumentK o +instance (GObject o, IsDescendantOf DOMHTMLDocument o) => DOMHTMLDocumentK o +data DOMHTMLDocumentActiveElementPropertyInfo +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 diff --git a/GI/WebKit/Objects/DOMHTMLElement.hs b/GI/WebKit/Objects/DOMHTMLElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLElement.hs @@ -0,0 +1,2109 @@ + +{- | +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.WebKit.Objects.DOMHTMLElement + ( + +-- * Exported types + DOMHTMLElement(..) , + DOMHTMLElementK , + toDOMHTMLElement , + noDOMHTMLElement , + + + -- * Methods +-- ** dOMHTMLElementClick + dOMHTMLElementClick , + + +-- ** dOMHTMLElementGetAccessKey + dOMHTMLElementGetAccessKey , + + +-- ** dOMHTMLElementGetChildren + dOMHTMLElementGetChildren , + + +-- ** dOMHTMLElementGetClassList + dOMHTMLElementGetClassList , + + +-- ** dOMHTMLElementGetClassName + dOMHTMLElementGetClassName , + + +-- ** dOMHTMLElementGetContentEditable + dOMHTMLElementGetContentEditable , + + +-- ** dOMHTMLElementGetDir + dOMHTMLElementGetDir , + + +-- ** dOMHTMLElementGetDraggable + dOMHTMLElementGetDraggable , + + +-- ** dOMHTMLElementGetHidden + dOMHTMLElementGetHidden , + + +-- ** dOMHTMLElementGetId + dOMHTMLElementGetId , + + +-- ** dOMHTMLElementGetInnerHtml + dOMHTMLElementGetInnerHtml , + + +-- ** dOMHTMLElementGetInnerText + dOMHTMLElementGetInnerText , + + +-- ** dOMHTMLElementGetIsContentEditable + dOMHTMLElementGetIsContentEditable , + + +-- ** dOMHTMLElementGetItemId + dOMHTMLElementGetItemId , + + +-- ** dOMHTMLElementGetItemProp + dOMHTMLElementGetItemProp , + + +-- ** dOMHTMLElementGetItemRef + dOMHTMLElementGetItemRef , + + +-- ** dOMHTMLElementGetItemScope + dOMHTMLElementGetItemScope , + + +-- ** dOMHTMLElementGetItemType + dOMHTMLElementGetItemType , + + +-- ** dOMHTMLElementGetLang + dOMHTMLElementGetLang , + + +-- ** dOMHTMLElementGetOuterHtml + dOMHTMLElementGetOuterHtml , + + +-- ** dOMHTMLElementGetOuterText + dOMHTMLElementGetOuterText , + + +-- ** dOMHTMLElementGetSpellcheck + dOMHTMLElementGetSpellcheck , + + +-- ** dOMHTMLElementGetTabIndex + dOMHTMLElementGetTabIndex , + + +-- ** dOMHTMLElementGetTitle + dOMHTMLElementGetTitle , + + +-- ** dOMHTMLElementGetTranslate + dOMHTMLElementGetTranslate , + + +-- ** dOMHTMLElementGetWebkitdropzone + dOMHTMLElementGetWebkitdropzone , + + +-- ** dOMHTMLElementInsertAdjacentElement + dOMHTMLElementInsertAdjacentElement , + + +-- ** dOMHTMLElementInsertAdjacentHtml + dOMHTMLElementInsertAdjacentHtml , + + +-- ** dOMHTMLElementInsertAdjacentText + dOMHTMLElementInsertAdjacentText , + + +-- ** dOMHTMLElementSetAccessKey + dOMHTMLElementSetAccessKey , + + +-- ** dOMHTMLElementSetClassName + dOMHTMLElementSetClassName , + + +-- ** dOMHTMLElementSetContentEditable + dOMHTMLElementSetContentEditable , + + +-- ** dOMHTMLElementSetDir + dOMHTMLElementSetDir , + + +-- ** dOMHTMLElementSetDraggable + dOMHTMLElementSetDraggable , + + +-- ** dOMHTMLElementSetHidden + dOMHTMLElementSetHidden , + + +-- ** dOMHTMLElementSetId + dOMHTMLElementSetId , + + +-- ** dOMHTMLElementSetInnerHtml + dOMHTMLElementSetInnerHtml , + + +-- ** dOMHTMLElementSetInnerText + dOMHTMLElementSetInnerText , + + +-- ** dOMHTMLElementSetItemId + dOMHTMLElementSetItemId , + + +-- ** dOMHTMLElementSetItemScope + dOMHTMLElementSetItemScope , + + +-- ** dOMHTMLElementSetLang + dOMHTMLElementSetLang , + + +-- ** dOMHTMLElementSetOuterHtml + dOMHTMLElementSetOuterHtml , + + +-- ** dOMHTMLElementSetOuterText + dOMHTMLElementSetOuterText , + + +-- ** dOMHTMLElementSetSpellcheck + dOMHTMLElementSetSpellcheck , + + +-- ** dOMHTMLElementSetTabIndex + dOMHTMLElementSetTabIndex , + + +-- ** dOMHTMLElementSetTitle + dOMHTMLElementSetTitle , + + +-- ** dOMHTMLElementSetTranslate + dOMHTMLElementSetTranslate , + + +-- ** dOMHTMLElementSetWebkitdropzone + dOMHTMLElementSetWebkitdropzone , + + + + + -- * Properties +-- ** AccessKey + DOMHTMLElementAccessKeyPropertyInfo , + constructDOMHTMLElementAccessKey , + getDOMHTMLElementAccessKey , + setDOMHTMLElementAccessKey , + + +-- ** Children + DOMHTMLElementChildrenPropertyInfo , + getDOMHTMLElementChildren , + + +-- ** ContentEditable + DOMHTMLElementContentEditablePropertyInfo, + constructDOMHTMLElementContentEditable , + getDOMHTMLElementContentEditable , + setDOMHTMLElementContentEditable , + + +-- ** Dir + DOMHTMLElementDirPropertyInfo , + constructDOMHTMLElementDir , + getDOMHTMLElementDir , + setDOMHTMLElementDir , + + +-- ** Draggable + DOMHTMLElementDraggablePropertyInfo , + constructDOMHTMLElementDraggable , + getDOMHTMLElementDraggable , + setDOMHTMLElementDraggable , + + +-- ** Hidden + DOMHTMLElementHiddenPropertyInfo , + constructDOMHTMLElementHidden , + getDOMHTMLElementHidden , + setDOMHTMLElementHidden , + + +-- ** InnerHtml + DOMHTMLElementInnerHtmlPropertyInfo , + constructDOMHTMLElementInnerHtml , + getDOMHTMLElementInnerHtml , + setDOMHTMLElementInnerHtml , + + +-- ** InnerText + DOMHTMLElementInnerTextPropertyInfo , + constructDOMHTMLElementInnerText , + getDOMHTMLElementInnerText , + setDOMHTMLElementInnerText , + + +-- ** IsContentEditable + DOMHTMLElementIsContentEditablePropertyInfo, + getDOMHTMLElementIsContentEditable , + + +-- ** Lang + DOMHTMLElementLangPropertyInfo , + constructDOMHTMLElementLang , + getDOMHTMLElementLang , + setDOMHTMLElementLang , + + +-- ** OuterHtml + DOMHTMLElementOuterHtmlPropertyInfo , + constructDOMHTMLElementOuterHtml , + getDOMHTMLElementOuterHtml , + setDOMHTMLElementOuterHtml , + + +-- ** OuterText + DOMHTMLElementOuterTextPropertyInfo , + constructDOMHTMLElementOuterText , + getDOMHTMLElementOuterText , + setDOMHTMLElementOuterText , + + +-- ** Spellcheck + DOMHTMLElementSpellcheckPropertyInfo , + constructDOMHTMLElementSpellcheck , + getDOMHTMLElementSpellcheck , + setDOMHTMLElementSpellcheck , + + +-- ** TabIndex + DOMHTMLElementTabIndexPropertyInfo , + constructDOMHTMLElementTabIndex , + getDOMHTMLElementTabIndex , + setDOMHTMLElementTabIndex , + + +-- ** Title + DOMHTMLElementTitlePropertyInfo , + constructDOMHTMLElementTitle , + getDOMHTMLElementTitle , + setDOMHTMLElementTitle , + + +-- ** Translate + DOMHTMLElementTranslatePropertyInfo , + constructDOMHTMLElementTranslate , + getDOMHTMLElementTranslate , + setDOMHTMLElementTranslate , + + +-- ** Webkitdropzone + DOMHTMLElementWebkitdropzonePropertyInfo, + constructDOMHTMLElementWebkitdropzone , + getDOMHTMLElementWebkitdropzone , + setDOMHTMLElementWebkitdropzone , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement) +foreign import ccall "webkit_dom_html_element_get_type" + c_webkit_dom_html_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLElement = DOMHTMLElementParentTypes +type DOMHTMLElementParentTypes = '[DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_element_get_type + + +class GObject o => DOMHTMLElementK o +instance (GObject o, IsDescendantOf DOMHTMLElement o) => DOMHTMLElementK o + +toDOMHTMLElement :: DOMHTMLElementK o => o -> IO DOMHTMLElement +toDOMHTMLElement = unsafeCastTo DOMHTMLElement + +noDOMHTMLElement :: Maybe DOMHTMLElement +noDOMHTMLElement = Nothing + +-- VVV Prop "access-key" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key" + +setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val + +constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val + +data DOMHTMLElementAccessKeyPropertyInfo +instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where + type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text + type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "DOMHTMLElement::access-key" + attrGet _ = getDOMHTMLElementAccessKey + attrSet _ = setDOMHTMLElementAccessKey + attrConstruct _ = constructDOMHTMLElementAccessKey + +-- VVV Prop "children" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection +getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection + +data DOMHTMLElementChildrenPropertyInfo +instance AttrInfo DOMHTMLElementChildrenPropertyInfo where + type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLElementChildrenPropertyInfo = "DOMHTMLElement::children" + attrGet _ = getDOMHTMLElementChildren + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-editable" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable" + +setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val + +constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val + +data DOMHTMLElementContentEditablePropertyInfo +instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where + type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text + type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "DOMHTMLElement::content-editable" + attrGet _ = getDOMHTMLElementContentEditable + attrSet _ = setDOMHTMLElementContentEditable + attrConstruct _ = constructDOMHTMLElementContentEditable + +-- VVV Prop "dir" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir" + +setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val + +constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val + +data DOMHTMLElementDirPropertyInfo +instance AttrInfo DOMHTMLElementDirPropertyInfo where + type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text + type AttrLabel DOMHTMLElementDirPropertyInfo = "DOMHTMLElement::dir" + attrGet _ = getDOMHTMLElementDir + attrSet _ = setDOMHTMLElementDir + attrConstruct _ = constructDOMHTMLElementDir + +-- VVV Prop "draggable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable" + +setDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementDraggable obj val = liftIO $ setObjectPropertyBool obj "draggable" val + +constructDOMHTMLElementDraggable :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementDraggable val = constructObjectPropertyBool "draggable" val + +data DOMHTMLElementDraggablePropertyInfo +instance AttrInfo DOMHTMLElementDraggablePropertyInfo where + type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool + type AttrLabel DOMHTMLElementDraggablePropertyInfo = "DOMHTMLElement::draggable" + attrGet _ = getDOMHTMLElementDraggable + attrSet _ = setDOMHTMLElementDraggable + attrConstruct _ = constructDOMHTMLElementDraggable + +-- VVV Prop "hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden" + +setDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementHidden obj val = liftIO $ setObjectPropertyBool obj "hidden" val + +constructDOMHTMLElementHidden :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementHidden val = constructObjectPropertyBool "hidden" val + +data DOMHTMLElementHiddenPropertyInfo +instance AttrInfo DOMHTMLElementHiddenPropertyInfo where + type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool + type AttrLabel DOMHTMLElementHiddenPropertyInfo = "DOMHTMLElement::hidden" + attrGet _ = getDOMHTMLElementHidden + attrSet _ = setDOMHTMLElementHidden + attrConstruct _ = constructDOMHTMLElementHidden + +-- VVV Prop "inner-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" + +setDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val + +constructDOMHTMLElementInnerHtml :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" val + +data DOMHTMLElementInnerHtmlPropertyInfo +instance AttrInfo DOMHTMLElementInnerHtmlPropertyInfo where + type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = T.Text + type AttrLabel DOMHTMLElementInnerHtmlPropertyInfo = "DOMHTMLElement::inner-html" + attrGet _ = getDOMHTMLElementInnerHtml + attrSet _ = setDOMHTMLElementInnerHtml + attrConstruct _ = constructDOMHTMLElementInnerHtml + +-- VVV Prop "inner-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text" + +setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val + +constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val + +data DOMHTMLElementInnerTextPropertyInfo +instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where + type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text + type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "DOMHTMLElement::inner-text" + attrGet _ = getDOMHTMLElementInnerText + attrSet _ = setDOMHTMLElementInnerText + attrConstruct _ = constructDOMHTMLElementInnerText + +-- VVV Prop "is-content-editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable" + +data DOMHTMLElementIsContentEditablePropertyInfo +instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where + type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool + type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "DOMHTMLElement::is-content-editable" + attrGet _ = getDOMHTMLElementIsContentEditable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "lang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang" + +setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val + +constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val + +data DOMHTMLElementLangPropertyInfo +instance AttrInfo DOMHTMLElementLangPropertyInfo where + type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text + type AttrLabel DOMHTMLElementLangPropertyInfo = "DOMHTMLElement::lang" + attrGet _ = getDOMHTMLElementLang + attrSet _ = setDOMHTMLElementLang + attrConstruct _ = constructDOMHTMLElementLang + +-- VVV Prop "outer-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html" + +setDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val + +constructDOMHTMLElementOuterHtml :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" val + +data DOMHTMLElementOuterHtmlPropertyInfo +instance AttrInfo DOMHTMLElementOuterHtmlPropertyInfo where + type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = T.Text + type AttrLabel DOMHTMLElementOuterHtmlPropertyInfo = "DOMHTMLElement::outer-html" + attrGet _ = getDOMHTMLElementOuterHtml + attrSet _ = setDOMHTMLElementOuterHtml + attrConstruct _ = constructDOMHTMLElementOuterHtml + +-- VVV Prop "outer-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text" + +setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val + +constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val + +data DOMHTMLElementOuterTextPropertyInfo +instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where + type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text + type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "DOMHTMLElement::outer-text" + attrGet _ = getDOMHTMLElementOuterText + attrSet _ = setDOMHTMLElementOuterText + attrConstruct _ = constructDOMHTMLElementOuterText + +-- VVV Prop "spellcheck" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck" + +setDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementSpellcheck obj val = liftIO $ setObjectPropertyBool obj "spellcheck" val + +constructDOMHTMLElementSpellcheck :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementSpellcheck val = constructObjectPropertyBool "spellcheck" val + +data DOMHTMLElementSpellcheckPropertyInfo +instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where + type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool + type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "DOMHTMLElement::spellcheck" + attrGet _ = getDOMHTMLElementSpellcheck + attrSet _ = setDOMHTMLElementSpellcheck + attrConstruct _ = constructDOMHTMLElementSpellcheck + +-- VVV Prop "tab-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64 +getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index" + +setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m () +setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val + +constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val + +data DOMHTMLElementTabIndexPropertyInfo +instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where + type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "DOMHTMLElement::tab-index" + attrGet _ = getDOMHTMLElementTabIndex + attrSet _ = setDOMHTMLElementTabIndex + attrConstruct _ = constructDOMHTMLElementTabIndex + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title" + +setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val + +data DOMHTMLElementTitlePropertyInfo +instance AttrInfo DOMHTMLElementTitlePropertyInfo where + type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text + type AttrLabel DOMHTMLElementTitlePropertyInfo = "DOMHTMLElement::title" + attrGet _ = getDOMHTMLElementTitle + attrSet _ = setDOMHTMLElementTitle + attrConstruct _ = constructDOMHTMLElementTitle + +-- VVV Prop "translate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate" + +setDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementTranslate obj val = liftIO $ setObjectPropertyBool obj "translate" val + +constructDOMHTMLElementTranslate :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementTranslate val = constructObjectPropertyBool "translate" val + +data DOMHTMLElementTranslatePropertyInfo +instance AttrInfo DOMHTMLElementTranslatePropertyInfo where + type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool + type AttrLabel DOMHTMLElementTranslatePropertyInfo = "DOMHTMLElement::translate" + attrGet _ = getDOMHTMLElementTranslate + attrSet _ = setDOMHTMLElementTranslate + attrConstruct _ = constructDOMHTMLElementTranslate + +-- VVV Prop "webkitdropzone" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone" + +setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val + +constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val + +data DOMHTMLElementWebkitdropzonePropertyInfo +instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where + type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text + type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "DOMHTMLElement::webkitdropzone" + attrGet _ = getDOMHTMLElementWebkitdropzone + attrSet _ = setDOMHTMLElementWebkitdropzone + attrConstruct _ = constructDOMHTMLElementWebkitdropzone + +type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList +type DOMHTMLElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLElement = DOMHTMLElementSignalList +type DOMHTMLElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLElement::click +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_click" webkit_dom_html_element_click :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO () + + +dOMHTMLElementClick :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m () +dOMHTMLElementClick _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_element_click _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::get_access_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_access_key" webkit_dom_html_element_get_access_key :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetAccessKey :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetAccessKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_access_key _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_access_key" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_children +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_children" webkit_dom_html_element_get_children :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLElementGetChildren :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLElementGetChildren _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_children _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_children" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_class_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMTokenList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_class_list" webkit_dom_html_element_get_class_list :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO (Ptr DOMDOMTokenList) + +{-# DEPRECATED dOMHTMLElementGetClassList ["(Since version 1.10)","Use webkit_dom_element_get_class_list() instead."]#-} +dOMHTMLElementGetClassList :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m DOMDOMTokenList +dOMHTMLElementGetClassList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_class_list _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_class_list" result + result' <- (newObject DOMDOMTokenList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_class_name" webkit_dom_html_element_get_class_name :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + +{-# DEPRECATED dOMHTMLElementGetClassName ["(Since version 1.10)","Use webkit_dom_element_get_class_name() instead."]#-} +dOMHTMLElementGetClassName :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetClassName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_class_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_class_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_content_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_content_editable" webkit_dom_html_element_get_content_editable :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetContentEditable :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetContentEditable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_content_editable _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_content_editable" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_dir +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_dir" webkit_dom_html_element_get_dir :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetDir :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetDir _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_dir _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_dir" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_draggable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_draggable" webkit_dom_html_element_get_draggable :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + + +dOMHTMLElementGetDraggable :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetDraggable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_draggable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_hidden" webkit_dom_html_element_get_hidden :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + + +dOMHTMLElementGetHidden :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetHidden _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_hidden _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_id" webkit_dom_html_element_get_id :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + +{-# DEPRECATED dOMHTMLElementGetId ["(Since version 2.2)","Use webkit_dom_element_get_id() instead."]#-} +dOMHTMLElementGetId :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_inner_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_inner_html" webkit_dom_html_element_get_inner_html :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetInnerHtml :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetInnerHtml _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_inner_html _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_html" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_inner_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_inner_text" webkit_dom_html_element_get_inner_text :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetInnerText :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetInnerText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_inner_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_is_content_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_is_content_editable" webkit_dom_html_element_get_is_content_editable :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + + +dOMHTMLElementGetIsContentEditable :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetIsContentEditable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_is_content_editable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_item_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_item_id" webkit_dom_html_element_get_item_id :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + +{-# DEPRECATED dOMHTMLElementGetItemId ["(Since version 2.2)"]#-} +dOMHTMLElementGetItemId :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetItemId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_item_id _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_item_prop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMSettableTokenList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_item_prop" webkit_dom_html_element_get_item_prop :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO (Ptr DOMDOMSettableTokenList) + +{-# DEPRECATED dOMHTMLElementGetItemProp ["(Since version 2.2)"]#-} +dOMHTMLElementGetItemProp :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m DOMDOMSettableTokenList +dOMHTMLElementGetItemProp _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_item_prop _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_prop" result + result' <- (newObject DOMDOMSettableTokenList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_item_ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMSettableTokenList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_item_ref" webkit_dom_html_element_get_item_ref :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO (Ptr DOMDOMSettableTokenList) + +{-# DEPRECATED dOMHTMLElementGetItemRef ["(Since version 2.2)"]#-} +dOMHTMLElementGetItemRef :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m DOMDOMSettableTokenList +dOMHTMLElementGetItemRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_item_ref _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_ref" result + result' <- (newObject DOMDOMSettableTokenList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_item_scope +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_item_scope" webkit_dom_html_element_get_item_scope :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + +{-# DEPRECATED dOMHTMLElementGetItemScope ["(Since version 2.2)"]#-} +dOMHTMLElementGetItemScope :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetItemScope _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_item_scope _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_item_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_item_type" webkit_dom_html_element_get_item_type :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO () + +{-# DEPRECATED dOMHTMLElementGetItemType ["(Since version 2.2)"]#-} +dOMHTMLElementGetItemType :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m () +dOMHTMLElementGetItemType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_element_get_item_type _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::get_lang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_lang" webkit_dom_html_element_get_lang :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetLang :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetLang _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_lang _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_lang" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_outer_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_outer_html" webkit_dom_html_element_get_outer_html :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetOuterHtml :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetOuterHtml _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_outer_html _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_html" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_outer_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_outer_text" webkit_dom_html_element_get_outer_text :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetOuterText :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetOuterText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_outer_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_spellcheck +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_spellcheck" webkit_dom_html_element_get_spellcheck :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + + +dOMHTMLElementGetSpellcheck :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetSpellcheck _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_spellcheck _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_tab_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_tab_index" webkit_dom_html_element_get_tab_index :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO Int64 + + +dOMHTMLElementGetTabIndex :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Int64 +dOMHTMLElementGetTabIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_tab_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLElement::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_title" webkit_dom_html_element_get_title :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetTitle :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_title _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_title" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_translate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_translate" webkit_dom_html_element_get_translate :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CInt + + +dOMHTMLElementGetTranslate :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m Bool +dOMHTMLElementGetTranslate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_translate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::get_webkitdropzone +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_get_webkitdropzone" webkit_dom_html_element_get_webkitdropzone :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + IO CString + + +dOMHTMLElementGetWebkitdropzone :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + m T.Text +dOMHTMLElementGetWebkitdropzone _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_element_get_webkitdropzone _obj' + checkUnexpectedReturnNULL "webkit_dom_html_element_get_webkitdropzone" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLElement::insert_adjacent_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_insert_adjacent_element" webkit_dom_html_element_insert_adjacent_element :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- where : TBasicType TUTF8 + Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMElement) + + +dOMHTMLElementInsertAdjacentElement :: + (MonadIO m, DOMHTMLElementK a, DOMElementK b) => + a -> -- _obj + T.Text -> -- where + b -> -- element + m DOMElement +dOMHTMLElementInsertAdjacentElement _obj where_ element = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + where_' <- textToCString where_ + let element' = unsafeManagedPtrCastPtr element + onException (do + result <- propagateGError $ webkit_dom_html_element_insert_adjacent_element _obj' where_' element' + checkUnexpectedReturnNULL "webkit_dom_html_element_insert_adjacent_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + touchManagedPtr element + freeMem where_' + return result' + ) (do + freeMem where_' + ) + +-- method DOMHTMLElement::insert_adjacent_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_insert_adjacent_html" webkit_dom_html_element_insert_adjacent_html :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- where : TBasicType TUTF8 + CString -> -- html : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementInsertAdjacentHtml :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- where + T.Text -> -- html + m () +dOMHTMLElementInsertAdjacentHtml _obj where_ html = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + where_' <- textToCString where_ + html' <- textToCString html + onException (do + propagateGError $ webkit_dom_html_element_insert_adjacent_html _obj' where_' html' + touchManagedPtr _obj + freeMem where_' + freeMem html' + return () + ) (do + freeMem where_' + freeMem html' + ) + +-- method DOMHTMLElement::insert_adjacent_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_insert_adjacent_text" webkit_dom_html_element_insert_adjacent_text :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- where : TBasicType TUTF8 + CString -> -- text : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementInsertAdjacentText :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- where + T.Text -> -- text + m () +dOMHTMLElementInsertAdjacentText _obj where_ text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + where_' <- textToCString where_ + text' <- textToCString text + onException (do + propagateGError $ webkit_dom_html_element_insert_adjacent_text _obj' where_' text' + touchManagedPtr _obj + freeMem where_' + freeMem text' + return () + ) (do + freeMem where_' + freeMem text' + ) + +-- method DOMHTMLElement::set_access_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_access_key" webkit_dom_html_element_set_access_key :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLElementSetAccessKey :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetAccessKey _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_access_key _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_class_name" webkit_dom_html_element_set_class_name :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + +{-# DEPRECATED dOMHTMLElementSetClassName ["(Since version 1.10)","Use webkit_dom_element_set_class_name() instead."]#-} +dOMHTMLElementSetClassName :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetClassName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_class_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_content_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_content_editable" webkit_dom_html_element_set_content_editable :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementSetContentEditable :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetContentEditable _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_html_element_set_content_editable _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMHTMLElement::set_dir +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_dir" webkit_dom_html_element_set_dir :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLElementSetDir :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetDir _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_dir _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_draggable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_draggable" webkit_dom_html_element_set_draggable :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLElementSetDraggable :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLElementSetDraggable _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_element_set_draggable _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_hidden" webkit_dom_html_element_set_hidden :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLElementSetHidden :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLElementSetHidden _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_element_set_hidden _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_id" webkit_dom_html_element_set_id :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + +{-# DEPRECATED dOMHTMLElementSetId ["(Since version 2.2)","Use webkit_dom_element_set_id() instead."]#-} +dOMHTMLElementSetId :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetId _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_id _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_inner_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_inner_html" webkit_dom_html_element_set_inner_html :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementSetInnerHtml :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetInnerHtml _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_html_element_set_inner_html _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMHTMLElement::set_inner_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_inner_text" webkit_dom_html_element_set_inner_text :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementSetInnerText :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetInnerText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_html_element_set_inner_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMHTMLElement::set_item_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_item_id" webkit_dom_html_element_set_item_id :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + +{-# DEPRECATED dOMHTMLElementSetItemId ["(Since version 2.2)"]#-} +dOMHTMLElementSetItemId :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetItemId _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_item_id _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_item_scope +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_item_scope" webkit_dom_html_element_set_item_scope :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CInt -> -- value : TBasicType TBoolean + IO () + +{-# DEPRECATED dOMHTMLElementSetItemScope ["(Since version 2.2)"]#-} +dOMHTMLElementSetItemScope :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLElementSetItemScope _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_element_set_item_scope _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_lang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_lang" webkit_dom_html_element_set_lang :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLElementSetLang :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetLang _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_lang _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_outer_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_outer_html" webkit_dom_html_element_set_outer_html :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementSetOuterHtml :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetOuterHtml _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_html_element_set_outer_html _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMHTMLElement::set_outer_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_outer_text" webkit_dom_html_element_set_outer_text :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLElementSetOuterText :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetOuterText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_html_element_set_outer_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMHTMLElement::set_spellcheck +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_spellcheck" webkit_dom_html_element_set_spellcheck :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLElementSetSpellcheck :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLElementSetSpellcheck _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_element_set_spellcheck _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_tab_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_tab_index" webkit_dom_html_element_set_tab_index :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLElementSetTabIndex :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLElementSetTabIndex _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_element_set_tab_index _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_title" webkit_dom_html_element_set_title :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLElementSetTitle :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetTitle _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_title _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLElement::set_translate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_translate" webkit_dom_html_element_set_translate :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLElementSetTranslate :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLElementSetTranslate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_element_set_translate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLElement::set_webkitdropzone +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_element_set_webkitdropzone" webkit_dom_html_element_set_webkitdropzone :: + Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLElementSetWebkitdropzone :: + (MonadIO m, DOMHTMLElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLElementSetWebkitdropzone _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_element_set_webkitdropzone _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLElement.hs-boot b/GI/WebKit/Objects/DOMHTMLElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLElement.hs-boot @@ -0,0 +1,30 @@ +module GI.WebKit.Objects.DOMHTMLElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement) +instance GObject DOMHTMLElement where +class GObject o => DOMHTMLElementK o +instance (GObject o, IsDescendantOf DOMHTMLElement o) => DOMHTMLElementK o +data DOMHTMLElementAccessKeyPropertyInfo +data DOMHTMLElementChildrenPropertyInfo +data DOMHTMLElementContentEditablePropertyInfo +data DOMHTMLElementDirPropertyInfo +data DOMHTMLElementDraggablePropertyInfo +data DOMHTMLElementHiddenPropertyInfo +data DOMHTMLElementInnerHtmlPropertyInfo +data DOMHTMLElementInnerTextPropertyInfo +data DOMHTMLElementIsContentEditablePropertyInfo +data DOMHTMLElementLangPropertyInfo +data DOMHTMLElementOuterHtmlPropertyInfo +data DOMHTMLElementOuterTextPropertyInfo +data DOMHTMLElementSpellcheckPropertyInfo +data DOMHTMLElementTabIndexPropertyInfo +data DOMHTMLElementTitlePropertyInfo +data DOMHTMLElementTranslatePropertyInfo +data DOMHTMLElementWebkitdropzonePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs @@ -0,0 +1,555 @@ + +{- | +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.WebKit.Objects.DOMHTMLEmbedElement + ( + +-- * Exported types + DOMHTMLEmbedElement(..) , + DOMHTMLEmbedElementK , + toDOMHTMLEmbedElement , + noDOMHTMLEmbedElement , + + + -- * Methods +-- ** dOMHTMLEmbedElementGetAlign + dOMHTMLEmbedElementGetAlign , + + +-- ** dOMHTMLEmbedElementGetHeight + dOMHTMLEmbedElementGetHeight , + + +-- ** dOMHTMLEmbedElementGetName + dOMHTMLEmbedElementGetName , + + +-- ** dOMHTMLEmbedElementGetSrc + dOMHTMLEmbedElementGetSrc , + + +-- ** dOMHTMLEmbedElementGetWidth + dOMHTMLEmbedElementGetWidth , + + +-- ** dOMHTMLEmbedElementSetAlign + dOMHTMLEmbedElementSetAlign , + + +-- ** dOMHTMLEmbedElementSetHeight + dOMHTMLEmbedElementSetHeight , + + +-- ** dOMHTMLEmbedElementSetName + dOMHTMLEmbedElementSetName , + + +-- ** dOMHTMLEmbedElementSetSrc + dOMHTMLEmbedElementSetSrc , + + +-- ** dOMHTMLEmbedElementSetWidth + dOMHTMLEmbedElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLEmbedElementAlignPropertyInfo , + constructDOMHTMLEmbedElementAlign , + getDOMHTMLEmbedElementAlign , + setDOMHTMLEmbedElementAlign , + + +-- ** Height + DOMHTMLEmbedElementHeightPropertyInfo , + constructDOMHTMLEmbedElementHeight , + getDOMHTMLEmbedElementHeight , + setDOMHTMLEmbedElementHeight , + + +-- ** Name + DOMHTMLEmbedElementNamePropertyInfo , + constructDOMHTMLEmbedElementName , + getDOMHTMLEmbedElementName , + setDOMHTMLEmbedElementName , + + +-- ** Src + DOMHTMLEmbedElementSrcPropertyInfo , + constructDOMHTMLEmbedElementSrc , + getDOMHTMLEmbedElementSrc , + setDOMHTMLEmbedElementSrc , + + +-- ** Type + DOMHTMLEmbedElementTypePropertyInfo , + constructDOMHTMLEmbedElementType , + getDOMHTMLEmbedElementType , + setDOMHTMLEmbedElementType , + + +-- ** Width + DOMHTMLEmbedElementWidthPropertyInfo , + constructDOMHTMLEmbedElementWidth , + getDOMHTMLEmbedElementWidth , + setDOMHTMLEmbedElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLEmbedElement = DOMHTMLEmbedElement (ForeignPtr DOMHTMLEmbedElement) +foreign import ccall "webkit_dom_html_embed_element_get_type" + c_webkit_dom_html_embed_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLEmbedElement = DOMHTMLEmbedElementParentTypes +type DOMHTMLEmbedElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLEmbedElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_embed_element_get_type + + +class GObject o => DOMHTMLEmbedElementK o +instance (GObject o, IsDescendantOf DOMHTMLEmbedElement o) => DOMHTMLEmbedElementK o + +toDOMHTMLEmbedElement :: DOMHTMLEmbedElementK o => o -> IO DOMHTMLEmbedElement +toDOMHTMLEmbedElement = unsafeCastTo DOMHTMLEmbedElement + +noDOMHTMLEmbedElement :: Maybe DOMHTMLEmbedElement +noDOMHTMLEmbedElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLEmbedElementAlignPropertyInfo +instance AttrInfo DOMHTMLEmbedElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "DOMHTMLEmbedElement::align" + attrGet _ = getDOMHTMLEmbedElementAlign + attrSet _ = setDOMHTMLEmbedElementAlign + attrConstruct _ = constructDOMHTMLEmbedElementAlign + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 +getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () +setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLEmbedElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLEmbedElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLEmbedElementHeightPropertyInfo +instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "DOMHTMLEmbedElement::height" + attrGet _ = getDOMHTMLEmbedElementHeight + attrSet _ = setDOMHTMLEmbedElementHeight + attrConstruct _ = constructDOMHTMLEmbedElementHeight + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" val + +data DOMHTMLEmbedElementNamePropertyInfo +instance AttrInfo DOMHTMLEmbedElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "DOMHTMLEmbedElement::name" + attrGet _ = getDOMHTMLEmbedElementName + attrSet _ = setDOMHTMLEmbedElementName + attrConstruct _ = constructDOMHTMLEmbedElementName + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLEmbedElementSrcPropertyInfo +instance AttrInfo DOMHTMLEmbedElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "DOMHTMLEmbedElement::src" + attrGet _ = getDOMHTMLEmbedElementSrc + attrSet _ = setDOMHTMLEmbedElementSrc + attrConstruct _ = constructDOMHTMLEmbedElementSrc + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" val + +data DOMHTMLEmbedElementTypePropertyInfo +instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "DOMHTMLEmbedElement::type" + attrGet _ = getDOMHTMLEmbedElementType + attrSet _ = setDOMHTMLEmbedElementType + attrConstruct _ = constructDOMHTMLEmbedElementType + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 +getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () +setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLEmbedElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLEmbedElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLEmbedElementWidthPropertyInfo +instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "DOMHTMLEmbedElement::width" + attrGet _ = getDOMHTMLEmbedElementWidth + attrSet _ = setDOMHTMLEmbedElementWidth + attrConstruct _ = constructDOMHTMLEmbedElementWidth + +type instance AttributeList DOMHTMLEmbedElement = DOMHTMLEmbedElementAttributeList +type DOMHTMLEmbedElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLEmbedElement = DOMHTMLEmbedElementSignalList +type DOMHTMLEmbedElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLEmbedElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_get_align" webkit_dom_html_embed_element_get_align :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + IO CString + + +dOMHTMLEmbedElementGetAlign :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + m T.Text +dOMHTMLEmbedElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_embed_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLEmbedElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_get_height" webkit_dom_html_embed_element_get_height :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + IO Int64 + + +dOMHTMLEmbedElementGetHeight :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + m Int64 +dOMHTMLEmbedElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_embed_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLEmbedElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_get_name" webkit_dom_html_embed_element_get_name :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + IO CString + + +dOMHTMLEmbedElementGetName :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + m T.Text +dOMHTMLEmbedElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_embed_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLEmbedElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_get_src" webkit_dom_html_embed_element_get_src :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + IO CString + + +dOMHTMLEmbedElementGetSrc :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + m T.Text +dOMHTMLEmbedElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_embed_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLEmbedElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_get_width" webkit_dom_html_embed_element_get_width :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + IO Int64 + + +dOMHTMLEmbedElementGetWidth :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + m Int64 +dOMHTMLEmbedElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_embed_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLEmbedElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_set_align" webkit_dom_html_embed_element_set_align :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLEmbedElementSetAlign :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLEmbedElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_embed_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLEmbedElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_set_height" webkit_dom_html_embed_element_set_height :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLEmbedElementSetHeight :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLEmbedElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_embed_element_set_height _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLEmbedElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_set_name" webkit_dom_html_embed_element_set_name :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLEmbedElementSetName :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLEmbedElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_embed_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLEmbedElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_set_src" webkit_dom_html_embed_element_set_src :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLEmbedElementSetSrc :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLEmbedElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_embed_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLEmbedElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_embed_element_set_width" webkit_dom_html_embed_element_set_width :: + Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLEmbedElementSetWidth :: + (MonadIO m, DOMHTMLEmbedElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLEmbedElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_embed_element_set_width _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.DOMHTMLEmbedElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLEmbedElement = DOMHTMLEmbedElement (ForeignPtr DOMHTMLEmbedElement) +instance GObject DOMHTMLEmbedElement where +class GObject o => DOMHTMLEmbedElementK o +instance (GObject o, IsDescendantOf DOMHTMLEmbedElement o) => DOMHTMLEmbedElementK o +data DOMHTMLEmbedElementAlignPropertyInfo +data DOMHTMLEmbedElementHeightPropertyInfo +data DOMHTMLEmbedElementNamePropertyInfo +data DOMHTMLEmbedElementSrcPropertyInfo +data DOMHTMLEmbedElementTypePropertyInfo +data DOMHTMLEmbedElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs @@ -0,0 +1,598 @@ + +{- | +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.WebKit.Objects.DOMHTMLFieldSetElement + ( + +-- * Exported types + DOMHTMLFieldSetElement(..) , + DOMHTMLFieldSetElementK , + toDOMHTMLFieldSetElement , + noDOMHTMLFieldSetElement , + + + -- * Methods +-- ** dOMHTMLFieldSetElementCheckValidity + dOMHTMLFieldSetElementCheckValidity , + + +-- ** dOMHTMLFieldSetElementGetDisabled + dOMHTMLFieldSetElementGetDisabled , + + +-- ** dOMHTMLFieldSetElementGetElements + dOMHTMLFieldSetElementGetElements , + + +-- ** dOMHTMLFieldSetElementGetForm + dOMHTMLFieldSetElementGetForm , + + +-- ** dOMHTMLFieldSetElementGetName + dOMHTMLFieldSetElementGetName , + + +-- ** dOMHTMLFieldSetElementGetValidationMessage + dOMHTMLFieldSetElementGetValidationMessage, + + +-- ** dOMHTMLFieldSetElementGetValidity + dOMHTMLFieldSetElementGetValidity , + + +-- ** dOMHTMLFieldSetElementGetWillValidate + dOMHTMLFieldSetElementGetWillValidate , + + +-- ** dOMHTMLFieldSetElementSetCustomValidity + dOMHTMLFieldSetElementSetCustomValidity , + + +-- ** dOMHTMLFieldSetElementSetDisabled + dOMHTMLFieldSetElementSetDisabled , + + +-- ** dOMHTMLFieldSetElementSetName + dOMHTMLFieldSetElementSetName , + + + + + -- * Properties +-- ** Disabled + DOMHTMLFieldSetElementDisabledPropertyInfo, + constructDOMHTMLFieldSetElementDisabled , + getDOMHTMLFieldSetElementDisabled , + setDOMHTMLFieldSetElementDisabled , + + +-- ** Elements + DOMHTMLFieldSetElementElementsPropertyInfo, + getDOMHTMLFieldSetElementElements , + + +-- ** Form + DOMHTMLFieldSetElementFormPropertyInfo , + getDOMHTMLFieldSetElementForm , + + +-- ** Name + DOMHTMLFieldSetElementNamePropertyInfo , + constructDOMHTMLFieldSetElementName , + getDOMHTMLFieldSetElementName , + setDOMHTMLFieldSetElementName , + + +-- ** Type + DOMHTMLFieldSetElementTypePropertyInfo , + getDOMHTMLFieldSetElementType , + + +-- ** ValidationMessage + DOMHTMLFieldSetElementValidationMessagePropertyInfo, + getDOMHTMLFieldSetElementValidationMessage, + + +-- ** Validity + DOMHTMLFieldSetElementValidityPropertyInfo, + getDOMHTMLFieldSetElementValidity , + + +-- ** WillValidate + DOMHTMLFieldSetElementWillValidatePropertyInfo, + getDOMHTMLFieldSetElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLFieldSetElement = DOMHTMLFieldSetElement (ForeignPtr DOMHTMLFieldSetElement) +foreign import ccall "webkit_dom_html_field_set_element_get_type" + c_webkit_dom_html_field_set_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLFieldSetElement = DOMHTMLFieldSetElementParentTypes +type DOMHTMLFieldSetElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLFieldSetElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_field_set_element_get_type + + +class GObject o => DOMHTMLFieldSetElementK o +instance (GObject o, IsDescendantOf DOMHTMLFieldSetElement o) => DOMHTMLFieldSetElementK o + +toDOMHTMLFieldSetElement :: DOMHTMLFieldSetElementK o => o -> IO DOMHTMLFieldSetElement +toDOMHTMLFieldSetElement = unsafeCastTo DOMHTMLFieldSetElement + +noDOMHTMLFieldSetElement :: Maybe DOMHTMLFieldSetElement +noDOMHTMLFieldSetElement = Nothing + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool +getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> Bool -> m () +setDOMHTMLFieldSetElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLFieldSetElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLFieldSetElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLFieldSetElementDisabledPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLFieldSetElementDisabledPropertyInfo = "DOMHTMLFieldSetElement::disabled" + attrGet _ = getDOMHTMLFieldSetElementDisabled + attrSet _ = setDOMHTMLFieldSetElementDisabled + attrConstruct _ = constructDOMHTMLFieldSetElementDisabled + +-- VVV Prop "elements" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection + +data DOMHTMLFieldSetElementElementsPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "DOMHTMLFieldSetElement::elements" + attrGet _ = getDOMHTMLFieldSetElementElements + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLFieldSetElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLFieldSetElementFormPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLFieldSetElementFormPropertyInfo = "DOMHTMLFieldSetElement::form" + attrGet _ = getDOMHTMLFieldSetElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m () +setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFieldSetElementNamePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "DOMHTMLFieldSetElement::name" + attrGet _ = getDOMHTMLFieldSetElementName + attrSet _ = setDOMHTMLFieldSetElementName + attrConstruct _ = constructDOMHTMLFieldSetElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLFieldSetElementTypePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "DOMHTMLFieldSetElement::type" + attrGet _ = getDOMHTMLFieldSetElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLFieldSetElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "DOMHTMLFieldSetElement::validation-message" + attrGet _ = getDOMHTMLFieldSetElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementValidity :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMValidityState +getDOMHTMLFieldSetElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLFieldSetElementValidityPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLFieldSetElementValidityPropertyInfo = "DOMHTMLFieldSetElement::validity" + attrGet _ = getDOMHTMLFieldSetElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool +getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLFieldSetElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLFieldSetElementWillValidatePropertyInfo = "DOMHTMLFieldSetElement::will-validate" + attrGet _ = getDOMHTMLFieldSetElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementAttributeList +type DOMHTMLFieldSetElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validation-message", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("validity", DOMHTMLFieldSetElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementSignalList +type DOMHTMLFieldSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLFieldSetElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_check_validity" webkit_dom_html_field_set_element_check_validity :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO CInt + + +dOMHTMLFieldSetElementCheckValidity :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m Bool +dOMHTMLFieldSetElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_disabled" webkit_dom_html_field_set_element_get_disabled :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO CInt + + +dOMHTMLFieldSetElementGetDisabled :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m Bool +dOMHTMLFieldSetElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_elements +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_elements" webkit_dom_html_field_set_element_get_elements :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLFieldSetElementGetElements :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLFieldSetElementGetElements _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_elements _obj' + checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_elements" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_form" webkit_dom_html_field_set_element_get_form :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLFieldSetElementGetForm :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLFieldSetElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_name" webkit_dom_html_field_set_element_get_name :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO CString + + +dOMHTMLFieldSetElementGetName :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFieldSetElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_validation_message" webkit_dom_html_field_set_element_get_validation_message :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO CString + + +dOMHTMLFieldSetElementGetValidationMessage :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFieldSetElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_validity" webkit_dom_html_field_set_element_get_validity :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO (Ptr DOMValidityState) + + +dOMHTMLFieldSetElementGetValidity :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLFieldSetElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_get_will_validate" webkit_dom_html_field_set_element_get_will_validate :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + IO CInt + + +dOMHTMLFieldSetElementGetWillValidate :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + m Bool +dOMHTMLFieldSetElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_field_set_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFieldSetElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_set_custom_validity" webkit_dom_html_field_set_element_set_custom_validity :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLFieldSetElementSetCustomValidity :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLFieldSetElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_field_set_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLFieldSetElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_set_disabled" webkit_dom_html_field_set_element_set_disabled :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLFieldSetElementSetDisabled :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLFieldSetElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_field_set_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLFieldSetElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_field_set_element_set_name" webkit_dom_html_field_set_element_set_name :: + Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFieldSetElementSetName :: + (MonadIO m, DOMHTMLFieldSetElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFieldSetElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_field_set_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.DOMHTMLFieldSetElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLFieldSetElement = DOMHTMLFieldSetElement (ForeignPtr DOMHTMLFieldSetElement) +instance GObject DOMHTMLFieldSetElement where +class GObject o => DOMHTMLFieldSetElementK o +instance (GObject o, IsDescendantOf DOMHTMLFieldSetElement o) => DOMHTMLFieldSetElementK o +data DOMHTMLFieldSetElementDisabledPropertyInfo +data DOMHTMLFieldSetElementElementsPropertyInfo +data DOMHTMLFieldSetElementFormPropertyInfo +data DOMHTMLFieldSetElementNamePropertyInfo +data DOMHTMLFieldSetElementTypePropertyInfo +data DOMHTMLFieldSetElementValidationMessagePropertyInfo +data DOMHTMLFieldSetElementValidityPropertyInfo +data DOMHTMLFieldSetElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLFontElement.hs b/GI/WebKit/Objects/DOMHTMLFontElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFontElement.hs @@ -0,0 +1,346 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLFontElement + ( + +-- * Exported types + DOMHTMLFontElement(..) , + DOMHTMLFontElementK , + toDOMHTMLFontElement , + noDOMHTMLFontElement , + + + -- * Methods +-- ** dOMHTMLFontElementGetColor + dOMHTMLFontElementGetColor , + + +-- ** dOMHTMLFontElementGetFace + dOMHTMLFontElementGetFace , + + +-- ** dOMHTMLFontElementGetSize + dOMHTMLFontElementGetSize , + + +-- ** dOMHTMLFontElementSetColor + dOMHTMLFontElementSetColor , + + +-- ** dOMHTMLFontElementSetFace + dOMHTMLFontElementSetFace , + + +-- ** dOMHTMLFontElementSetSize + dOMHTMLFontElementSetSize , + + + + + -- * Properties +-- ** Color + DOMHTMLFontElementColorPropertyInfo , + constructDOMHTMLFontElementColor , + getDOMHTMLFontElementColor , + setDOMHTMLFontElementColor , + + +-- ** Face + DOMHTMLFontElementFacePropertyInfo , + constructDOMHTMLFontElementFace , + getDOMHTMLFontElementFace , + setDOMHTMLFontElementFace , + + +-- ** Size + DOMHTMLFontElementSizePropertyInfo , + constructDOMHTMLFontElementSize , + getDOMHTMLFontElementSize , + setDOMHTMLFontElementSize , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLFontElement = DOMHTMLFontElement (ForeignPtr DOMHTMLFontElement) +foreign import ccall "webkit_dom_html_font_element_get_type" + c_webkit_dom_html_font_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLFontElement = DOMHTMLFontElementParentTypes +type DOMHTMLFontElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLFontElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_font_element_get_type + + +class GObject o => DOMHTMLFontElementK o +instance (GObject o, IsDescendantOf DOMHTMLFontElement o) => DOMHTMLFontElementK o + +toDOMHTMLFontElement :: DOMHTMLFontElementK o => o -> IO DOMHTMLFontElement +toDOMHTMLFontElement = unsafeCastTo DOMHTMLFontElement + +noDOMHTMLFontElement :: Maybe DOMHTMLFontElement +noDOMHTMLFontElement = Nothing + +-- VVV Prop "color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color" + +setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val + +constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" val + +data DOMHTMLFontElementColorPropertyInfo +instance AttrInfo DOMHTMLFontElementColorPropertyInfo where + type AttrAllowedOps DOMHTMLFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementColorPropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementColorPropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementColorPropertyInfo = "DOMHTMLFontElement::color" + attrGet _ = getDOMHTMLFontElementColor + attrSet _ = setDOMHTMLFontElementColor + attrConstruct _ = constructDOMHTMLFontElementColor + +-- VVV Prop "face" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face" + +setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val + +constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" val + +data DOMHTMLFontElementFacePropertyInfo +instance AttrInfo DOMHTMLFontElementFacePropertyInfo where + type AttrAllowedOps DOMHTMLFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementFacePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementFacePropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementFacePropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementFacePropertyInfo = "DOMHTMLFontElement::face" + attrGet _ = getDOMHTMLFontElementFace + attrSet _ = setDOMHTMLFontElementFace + attrConstruct _ = constructDOMHTMLFontElementFace + +-- VVV Prop "size" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size" + +setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" val + +constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" val + +data DOMHTMLFontElementSizePropertyInfo +instance AttrInfo DOMHTMLFontElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementSizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementSizePropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementSizePropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementSizePropertyInfo = "DOMHTMLFontElement::size" + attrGet _ = getDOMHTMLFontElementSize + attrSet _ = setDOMHTMLFontElementSize + attrConstruct _ = constructDOMHTMLFontElementSize + +type instance AttributeList DOMHTMLFontElement = DOMHTMLFontElementAttributeList +type DOMHTMLFontElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLFontElement = DOMHTMLFontElementSignalList +type DOMHTMLFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLFontElement::get_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_get_color" webkit_dom_html_font_element_get_color :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + IO CString + + +dOMHTMLFontElementGetColor :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFontElementGetColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_font_element_get_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFontElement::get_face +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_get_face" webkit_dom_html_font_element_get_face :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + IO CString + + +dOMHTMLFontElementGetFace :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFontElementGetFace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_font_element_get_face _obj' + checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_face" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFontElement::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_get_size" webkit_dom_html_font_element_get_size :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + IO CString + + +dOMHTMLFontElementGetSize :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFontElementGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_font_element_get_size _obj' + checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_size" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFontElement::set_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_set_color" webkit_dom_html_font_element_set_color :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFontElementSetColor :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFontElementSetColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_font_element_set_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFontElement::set_face +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_set_face" webkit_dom_html_font_element_set_face :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFontElementSetFace :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFontElementSetFace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_font_element_set_face _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFontElement::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_font_element_set_size" webkit_dom_html_font_element_set_size :: + Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFontElementSetSize :: + (MonadIO m, DOMHTMLFontElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFontElementSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_font_element_set_size _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMHTMLFontElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLFontElement = DOMHTMLFontElement (ForeignPtr DOMHTMLFontElement) +instance GObject DOMHTMLFontElement where +class GObject o => DOMHTMLFontElementK o +instance (GObject o, IsDescendantOf DOMHTMLFontElement o) => DOMHTMLFontElementK o +data DOMHTMLFontElementColorPropertyInfo +data DOMHTMLFontElementFacePropertyInfo +data DOMHTMLFontElementSizePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLFormElement.hs b/GI/WebKit/Objects/DOMHTMLFormElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFormElement.hs @@ -0,0 +1,1337 @@ + +{- | +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.WebKit.Objects.DOMHTMLFormElement + ( + +-- * Exported types + DOMHTMLFormElement(..) , + DOMHTMLFormElementK , + toDOMHTMLFormElement , + noDOMHTMLFormElement , + + + -- * Methods +-- ** dOMHTMLFormElementCheckValidity + dOMHTMLFormElementCheckValidity , + + +-- ** dOMHTMLFormElementDispatchFormChange + dOMHTMLFormElementDispatchFormChange , + + +-- ** dOMHTMLFormElementDispatchFormInput + dOMHTMLFormElementDispatchFormInput , + + +-- ** dOMHTMLFormElementGetAcceptCharset + dOMHTMLFormElementGetAcceptCharset , + + +-- ** dOMHTMLFormElementGetAction + dOMHTMLFormElementGetAction , + + +-- ** dOMHTMLFormElementGetAutocapitalize + dOMHTMLFormElementGetAutocapitalize , + + +-- ** dOMHTMLFormElementGetAutocomplete + dOMHTMLFormElementGetAutocomplete , + + +-- ** dOMHTMLFormElementGetAutocorrect + dOMHTMLFormElementGetAutocorrect , + + +-- ** dOMHTMLFormElementGetElements + dOMHTMLFormElementGetElements , + + +-- ** dOMHTMLFormElementGetEncoding + dOMHTMLFormElementGetEncoding , + + +-- ** dOMHTMLFormElementGetEnctype + dOMHTMLFormElementGetEnctype , + + +-- ** dOMHTMLFormElementGetLength + dOMHTMLFormElementGetLength , + + +-- ** dOMHTMLFormElementGetMethod + dOMHTMLFormElementGetMethod , + + +-- ** dOMHTMLFormElementGetName + dOMHTMLFormElementGetName , + + +-- ** dOMHTMLFormElementGetNoValidate + dOMHTMLFormElementGetNoValidate , + + +-- ** dOMHTMLFormElementGetTarget + dOMHTMLFormElementGetTarget , + + +-- ** dOMHTMLFormElementReset + dOMHTMLFormElementReset , + + +-- ** dOMHTMLFormElementSetAcceptCharset + dOMHTMLFormElementSetAcceptCharset , + + +-- ** dOMHTMLFormElementSetAction + dOMHTMLFormElementSetAction , + + +-- ** dOMHTMLFormElementSetAutocapitalize + dOMHTMLFormElementSetAutocapitalize , + + +-- ** dOMHTMLFormElementSetAutocomplete + dOMHTMLFormElementSetAutocomplete , + + +-- ** dOMHTMLFormElementSetAutocorrect + dOMHTMLFormElementSetAutocorrect , + + +-- ** dOMHTMLFormElementSetEncoding + dOMHTMLFormElementSetEncoding , + + +-- ** dOMHTMLFormElementSetEnctype + dOMHTMLFormElementSetEnctype , + + +-- ** dOMHTMLFormElementSetMethod + dOMHTMLFormElementSetMethod , + + +-- ** dOMHTMLFormElementSetName + dOMHTMLFormElementSetName , + + +-- ** dOMHTMLFormElementSetNoValidate + dOMHTMLFormElementSetNoValidate , + + +-- ** dOMHTMLFormElementSetTarget + dOMHTMLFormElementSetTarget , + + +-- ** dOMHTMLFormElementSubmit + dOMHTMLFormElementSubmit , + + + + + -- * Properties +-- ** AcceptCharset + DOMHTMLFormElementAcceptCharsetPropertyInfo, + constructDOMHTMLFormElementAcceptCharset, + getDOMHTMLFormElementAcceptCharset , + setDOMHTMLFormElementAcceptCharset , + + +-- ** Action + DOMHTMLFormElementActionPropertyInfo , + constructDOMHTMLFormElementAction , + getDOMHTMLFormElementAction , + setDOMHTMLFormElementAction , + + +-- ** Autocapitalize + DOMHTMLFormElementAutocapitalizePropertyInfo, + constructDOMHTMLFormElementAutocapitalize, + getDOMHTMLFormElementAutocapitalize , + setDOMHTMLFormElementAutocapitalize , + + +-- ** Autocomplete + DOMHTMLFormElementAutocompletePropertyInfo, + constructDOMHTMLFormElementAutocomplete , + getDOMHTMLFormElementAutocomplete , + setDOMHTMLFormElementAutocomplete , + + +-- ** Autocorrect + DOMHTMLFormElementAutocorrectPropertyInfo, + constructDOMHTMLFormElementAutocorrect , + getDOMHTMLFormElementAutocorrect , + setDOMHTMLFormElementAutocorrect , + + +-- ** Elements + DOMHTMLFormElementElementsPropertyInfo , + getDOMHTMLFormElementElements , + + +-- ** Encoding + DOMHTMLFormElementEncodingPropertyInfo , + constructDOMHTMLFormElementEncoding , + getDOMHTMLFormElementEncoding , + setDOMHTMLFormElementEncoding , + + +-- ** Enctype + DOMHTMLFormElementEnctypePropertyInfo , + constructDOMHTMLFormElementEnctype , + getDOMHTMLFormElementEnctype , + setDOMHTMLFormElementEnctype , + + +-- ** Length + DOMHTMLFormElementLengthPropertyInfo , + getDOMHTMLFormElementLength , + + +-- ** Method + DOMHTMLFormElementMethodPropertyInfo , + constructDOMHTMLFormElementMethod , + getDOMHTMLFormElementMethod , + setDOMHTMLFormElementMethod , + + +-- ** Name + DOMHTMLFormElementNamePropertyInfo , + constructDOMHTMLFormElementName , + getDOMHTMLFormElementName , + setDOMHTMLFormElementName , + + +-- ** NoValidate + DOMHTMLFormElementNoValidatePropertyInfo, + constructDOMHTMLFormElementNoValidate , + getDOMHTMLFormElementNoValidate , + setDOMHTMLFormElementNoValidate , + + +-- ** Target + DOMHTMLFormElementTargetPropertyInfo , + constructDOMHTMLFormElementTarget , + getDOMHTMLFormElementTarget , + setDOMHTMLFormElementTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLFormElement = DOMHTMLFormElement (ForeignPtr DOMHTMLFormElement) +foreign import ccall "webkit_dom_html_form_element_get_type" + c_webkit_dom_html_form_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLFormElement = DOMHTMLFormElementParentTypes +type DOMHTMLFormElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLFormElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_form_element_get_type + + +class GObject o => DOMHTMLFormElementK o +instance (GObject o, IsDescendantOf DOMHTMLFormElement o) => DOMHTMLFormElementK o + +toDOMHTMLFormElement :: DOMHTMLFormElementK o => o -> IO DOMHTMLFormElement +toDOMHTMLFormElement = unsafeCastTo DOMHTMLFormElement + +noDOMHTMLFormElement :: Maybe DOMHTMLFormElement +noDOMHTMLFormElement = Nothing + +-- VVV Prop "accept-charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAcceptCharset obj = liftIO $ getObjectPropertyString obj "accept-charset" + +setDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" val + +constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" val + +data DOMHTMLFormElementAcceptCharsetPropertyInfo +instance AttrInfo DOMHTMLFormElementAcceptCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAcceptCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "DOMHTMLFormElement::accept-charset" + attrGet _ = getDOMHTMLFormElementAcceptCharset + attrSet _ = setDOMHTMLFormElementAcceptCharset + attrConstruct _ = constructDOMHTMLFormElementAcceptCharset + +-- VVV Prop "action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action" + +setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" val + +constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" val + +data DOMHTMLFormElementActionPropertyInfo +instance AttrInfo DOMHTMLFormElementActionPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementActionPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementActionPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementActionPropertyInfo = "DOMHTMLFormElement::action" + attrGet _ = getDOMHTMLFormElementAction + attrSet _ = setDOMHTMLFormElementAction + attrConstruct _ = constructDOMHTMLFormElementAction + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLFormElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "DOMHTMLFormElement::autocapitalize" + attrGet _ = getDOMHTMLFormElementAutocapitalize + attrSet _ = setDOMHTMLFormElementAutocapitalize + attrConstruct _ = constructDOMHTMLFormElementAutocapitalize + +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val + +constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" val + +data DOMHTMLFormElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "DOMHTMLFormElement::autocomplete" + attrGet _ = getDOMHTMLFormElementAutocomplete + attrSet _ = setDOMHTMLFormElementAutocomplete + attrConstruct _ = constructDOMHTMLFormElementAutocomplete + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool +getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () +setDOMHTMLFormElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLFormElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLFormElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLFormElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLFormElementAutocorrectPropertyInfo = "DOMHTMLFormElement::autocorrect" + attrGet _ = getDOMHTMLFormElementAutocorrect + attrSet _ = setDOMHTMLFormElementAutocorrect + attrConstruct _ = constructDOMHTMLFormElementAutocorrect + +-- VVV Prop "elements" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection + +data DOMHTMLFormElementElementsPropertyInfo +instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementElementsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "DOMHTMLFormElement::elements" + attrGet _ = getDOMHTMLFormElementElements + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" val + +constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" val + +data DOMHTMLFormElementEncodingPropertyInfo +instance AttrInfo DOMHTMLFormElementEncodingPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "DOMHTMLFormElement::encoding" + attrGet _ = getDOMHTMLFormElementEncoding + attrSet _ = setDOMHTMLFormElementEncoding + attrConstruct _ = constructDOMHTMLFormElementEncoding + +-- VVV Prop "enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype" + +setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" val + +constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" val + +data DOMHTMLFormElementEnctypePropertyInfo +instance AttrInfo DOMHTMLFormElementEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "DOMHTMLFormElement::enctype" + attrGet _ = getDOMHTMLFormElementEnctype + attrSet _ = setDOMHTMLFormElementEnctype + attrConstruct _ = constructDOMHTMLFormElementEnctype + +-- VVV Prop "length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Int64 +getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyInt64 obj "length" + +data DOMHTMLFormElementLengthPropertyInfo +instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "DOMHTMLFormElement::length" + attrGet _ = getDOMHTMLFormElementLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method" + +setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" val + +constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" val + +data DOMHTMLFormElementMethodPropertyInfo +instance AttrInfo DOMHTMLFormElementMethodPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementMethodPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "DOMHTMLFormElement::method" + attrGet _ = getDOMHTMLFormElementMethod + attrSet _ = setDOMHTMLFormElementMethod + attrConstruct _ = constructDOMHTMLFormElementMethod + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFormElementNamePropertyInfo +instance AttrInfo DOMHTMLFormElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementNamePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementNamePropertyInfo = "DOMHTMLFormElement::name" + attrGet _ = getDOMHTMLFormElementName + attrSet _ = setDOMHTMLFormElementName + attrConstruct _ = constructDOMHTMLFormElementName + +-- VVV Prop "no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool +getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate" + +setDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () +setDOMHTMLFormElementNoValidate obj val = liftIO $ setObjectPropertyBool obj "no-validate" val + +constructDOMHTMLFormElementNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLFormElementNoValidate val = constructObjectPropertyBool "no-validate" val + +data DOMHTMLFormElementNoValidatePropertyInfo +instance AttrInfo DOMHTMLFormElementNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLFormElementNoValidatePropertyInfo = "DOMHTMLFormElement::no-validate" + attrGet _ = getDOMHTMLFormElementNoValidate + attrSet _ = setDOMHTMLFormElementNoValidate + attrConstruct _ = constructDOMHTMLFormElementNoValidate + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLFormElementTargetPropertyInfo +instance AttrInfo DOMHTMLFormElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementTargetPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "DOMHTMLFormElement::target" + attrGet _ = getDOMHTMLFormElementTarget + attrSet _ = setDOMHTMLFormElementTarget + attrConstruct _ = constructDOMHTMLFormElementTarget + +type instance AttributeList DOMHTMLFormElement = DOMHTMLFormElementAttributeList +type DOMHTMLFormElementAttributeList = ('[ '("accept-charset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-validate", DOMHTMLFormElementNoValidatePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLFormElement = DOMHTMLFormElementSignalList +type DOMHTMLFormElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLFormElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_check_validity" webkit_dom_html_form_element_check_validity :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CInt + + +dOMHTMLFormElementCheckValidity :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m Bool +dOMHTMLFormElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::dispatch_form_change +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_dispatch_form_change" webkit_dom_html_form_element_dispatch_form_change :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO () + +{-# DEPRECATED dOMHTMLFormElementDispatchFormChange ["(Since version 1.6)"]#-} +dOMHTMLFormElementDispatchFormChange :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m () +dOMHTMLFormElementDispatchFormChange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_form_element_dispatch_form_change _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLFormElement::dispatch_form_input +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_dispatch_form_input" webkit_dom_html_form_element_dispatch_form_input :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO () + +{-# DEPRECATED dOMHTMLFormElementDispatchFormInput ["(Since version 1.6)"]#-} +dOMHTMLFormElementDispatchFormInput :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m () +dOMHTMLFormElementDispatchFormInput _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_form_element_dispatch_form_input _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLFormElement::get_accept_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_accept_charset" webkit_dom_html_form_element_get_accept_charset :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetAcceptCharset :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetAcceptCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_accept_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_accept_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_action" webkit_dom_html_form_element_get_action :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetAction :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_action _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_action" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_autocapitalize" webkit_dom_html_form_element_get_autocapitalize :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetAutocapitalize :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetAutocapitalize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_autocapitalize _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_autocapitalize" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_autocomplete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_autocomplete" webkit_dom_html_form_element_get_autocomplete :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetAutocomplete :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetAutocomplete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_autocomplete _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_autocomplete" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_autocorrect" webkit_dom_html_form_element_get_autocorrect :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CInt + + +dOMHTMLFormElementGetAutocorrect :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m Bool +dOMHTMLFormElementGetAutocorrect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_autocorrect _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_elements +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_elements" webkit_dom_html_form_element_get_elements :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLFormElementGetElements :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLFormElementGetElements _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_elements _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_elements" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_encoding" webkit_dom_html_form_element_get_encoding :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetEncoding :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_encoding _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_encoding" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_enctype" webkit_dom_html_form_element_get_enctype :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetEnctype :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetEnctype _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_enctype _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_enctype" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_length" webkit_dom_html_form_element_get_length :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO Int64 + + +dOMHTMLFormElementGetLength :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m Int64 +dOMHTMLFormElementGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLFormElement::get_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_method" webkit_dom_html_form_element_get_method :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetMethod :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetMethod _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_method _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_method" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_name" webkit_dom_html_form_element_get_name :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetName :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_no_validate" webkit_dom_html_form_element_get_no_validate :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CInt + + +dOMHTMLFormElementGetNoValidate :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m Bool +dOMHTMLFormElementGetNoValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_no_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_get_target" webkit_dom_html_form_element_get_target :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO CString + + +dOMHTMLFormElementGetTarget :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFormElementGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_form_element_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFormElement::reset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_reset" webkit_dom_html_form_element_reset :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO () + + +dOMHTMLFormElementReset :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m () +dOMHTMLFormElementReset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_form_element_reset _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLFormElement::set_accept_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_accept_charset" webkit_dom_html_form_element_set_accept_charset :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetAcceptCharset :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetAcceptCharset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_accept_charset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_action" webkit_dom_html_form_element_set_action :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetAction :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetAction _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_action _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_autocapitalize" webkit_dom_html_form_element_set_autocapitalize :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetAutocapitalize :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetAutocapitalize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_autocapitalize _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_autocomplete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_autocomplete" webkit_dom_html_form_element_set_autocomplete :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetAutocomplete :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetAutocomplete _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_autocomplete _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_autocorrect" webkit_dom_html_form_element_set_autocorrect :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLFormElementSetAutocorrect :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLFormElementSetAutocorrect _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_form_element_set_autocorrect _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLFormElement::set_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_encoding" webkit_dom_html_form_element_set_encoding :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetEncoding :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetEncoding _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_encoding _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_enctype" webkit_dom_html_form_element_set_enctype :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetEnctype :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetEnctype _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_enctype _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_method" webkit_dom_html_form_element_set_method :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetMethod :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetMethod _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_method _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_name" webkit_dom_html_form_element_set_name :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetName :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::set_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_no_validate" webkit_dom_html_form_element_set_no_validate :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLFormElementSetNoValidate :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLFormElementSetNoValidate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_form_element_set_no_validate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLFormElement::set_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_set_target" webkit_dom_html_form_element_set_target :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFormElementSetTarget :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFormElementSetTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_form_element_set_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFormElement::submit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_form_element_submit" webkit_dom_html_form_element_submit :: + Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" + IO () + + +dOMHTMLFormElementSubmit :: + (MonadIO m, DOMHTMLFormElementK a) => + a -> -- _obj + m () +dOMHTMLFormElementSubmit _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_form_element_submit _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot @@ -0,0 +1,26 @@ +module GI.WebKit.Objects.DOMHTMLFormElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLFormElement = DOMHTMLFormElement (ForeignPtr DOMHTMLFormElement) +instance GObject DOMHTMLFormElement where +class GObject o => DOMHTMLFormElementK o +instance (GObject o, IsDescendantOf DOMHTMLFormElement o) => DOMHTMLFormElementK o +data DOMHTMLFormElementAcceptCharsetPropertyInfo +data DOMHTMLFormElementActionPropertyInfo +data DOMHTMLFormElementAutocapitalizePropertyInfo +data DOMHTMLFormElementAutocompletePropertyInfo +data DOMHTMLFormElementAutocorrectPropertyInfo +data DOMHTMLFormElementElementsPropertyInfo +data DOMHTMLFormElementEncodingPropertyInfo +data DOMHTMLFormElementEnctypePropertyInfo +data DOMHTMLFormElementLengthPropertyInfo +data DOMHTMLFormElementMethodPropertyInfo +data DOMHTMLFormElementNamePropertyInfo +data DOMHTMLFormElementNoValidatePropertyInfo +data DOMHTMLFormElementTargetPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLFrameElement.hs b/GI/WebKit/Objects/DOMHTMLFrameElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFrameElement.hs @@ -0,0 +1,1021 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLFrameElement + ( + +-- * Exported types + DOMHTMLFrameElement(..) , + DOMHTMLFrameElementK , + toDOMHTMLFrameElement , + noDOMHTMLFrameElement , + + + -- * Methods +-- ** dOMHTMLFrameElementGetContentDocument + dOMHTMLFrameElementGetContentDocument , + + +-- ** dOMHTMLFrameElementGetContentWindow + dOMHTMLFrameElementGetContentWindow , + + +-- ** dOMHTMLFrameElementGetFrameBorder + dOMHTMLFrameElementGetFrameBorder , + + +-- ** dOMHTMLFrameElementGetHeight + dOMHTMLFrameElementGetHeight , + + +-- ** dOMHTMLFrameElementGetLongDesc + dOMHTMLFrameElementGetLongDesc , + + +-- ** dOMHTMLFrameElementGetMarginHeight + dOMHTMLFrameElementGetMarginHeight , + + +-- ** dOMHTMLFrameElementGetMarginWidth + dOMHTMLFrameElementGetMarginWidth , + + +-- ** dOMHTMLFrameElementGetName + dOMHTMLFrameElementGetName , + + +-- ** dOMHTMLFrameElementGetNoResize + dOMHTMLFrameElementGetNoResize , + + +-- ** dOMHTMLFrameElementGetScrolling + dOMHTMLFrameElementGetScrolling , + + +-- ** dOMHTMLFrameElementGetSrc + dOMHTMLFrameElementGetSrc , + + +-- ** dOMHTMLFrameElementGetWidth + dOMHTMLFrameElementGetWidth , + + +-- ** dOMHTMLFrameElementSetFrameBorder + dOMHTMLFrameElementSetFrameBorder , + + +-- ** dOMHTMLFrameElementSetLongDesc + dOMHTMLFrameElementSetLongDesc , + + +-- ** dOMHTMLFrameElementSetMarginHeight + dOMHTMLFrameElementSetMarginHeight , + + +-- ** dOMHTMLFrameElementSetMarginWidth + dOMHTMLFrameElementSetMarginWidth , + + +-- ** dOMHTMLFrameElementSetName + dOMHTMLFrameElementSetName , + + +-- ** dOMHTMLFrameElementSetNoResize + dOMHTMLFrameElementSetNoResize , + + +-- ** dOMHTMLFrameElementSetScrolling + dOMHTMLFrameElementSetScrolling , + + +-- ** dOMHTMLFrameElementSetSrc + dOMHTMLFrameElementSetSrc , + + + + + -- * Properties +-- ** ContentDocument + DOMHTMLFrameElementContentDocumentPropertyInfo, + getDOMHTMLFrameElementContentDocument , + + +-- ** ContentWindow + DOMHTMLFrameElementContentWindowPropertyInfo, + getDOMHTMLFrameElementContentWindow , + + +-- ** FrameBorder + DOMHTMLFrameElementFrameBorderPropertyInfo, + constructDOMHTMLFrameElementFrameBorder , + getDOMHTMLFrameElementFrameBorder , + setDOMHTMLFrameElementFrameBorder , + + +-- ** Height + DOMHTMLFrameElementHeightPropertyInfo , + getDOMHTMLFrameElementHeight , + + +-- ** LongDesc + DOMHTMLFrameElementLongDescPropertyInfo , + constructDOMHTMLFrameElementLongDesc , + getDOMHTMLFrameElementLongDesc , + setDOMHTMLFrameElementLongDesc , + + +-- ** MarginHeight + DOMHTMLFrameElementMarginHeightPropertyInfo, + constructDOMHTMLFrameElementMarginHeight, + getDOMHTMLFrameElementMarginHeight , + setDOMHTMLFrameElementMarginHeight , + + +-- ** MarginWidth + DOMHTMLFrameElementMarginWidthPropertyInfo, + constructDOMHTMLFrameElementMarginWidth , + getDOMHTMLFrameElementMarginWidth , + setDOMHTMLFrameElementMarginWidth , + + +-- ** Name + DOMHTMLFrameElementNamePropertyInfo , + constructDOMHTMLFrameElementName , + getDOMHTMLFrameElementName , + setDOMHTMLFrameElementName , + + +-- ** NoResize + DOMHTMLFrameElementNoResizePropertyInfo , + constructDOMHTMLFrameElementNoResize , + getDOMHTMLFrameElementNoResize , + setDOMHTMLFrameElementNoResize , + + +-- ** Scrolling + DOMHTMLFrameElementScrollingPropertyInfo, + constructDOMHTMLFrameElementScrolling , + getDOMHTMLFrameElementScrolling , + setDOMHTMLFrameElementScrolling , + + +-- ** Src + DOMHTMLFrameElementSrcPropertyInfo , + constructDOMHTMLFrameElementSrc , + getDOMHTMLFrameElementSrc , + setDOMHTMLFrameElementSrc , + + +-- ** Width + DOMHTMLFrameElementWidthPropertyInfo , + getDOMHTMLFrameElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLFrameElement = DOMHTMLFrameElement (ForeignPtr DOMHTMLFrameElement) +foreign import ccall "webkit_dom_html_frame_element_get_type" + c_webkit_dom_html_frame_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLFrameElement = DOMHTMLFrameElementParentTypes +type DOMHTMLFrameElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLFrameElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_frame_element_get_type + + +class GObject o => DOMHTMLFrameElementK o +instance (GObject o, IsDescendantOf DOMHTMLFrameElement o) => DOMHTMLFrameElementK o + +toDOMHTMLFrameElement :: DOMHTMLFrameElementK o => o -> IO DOMHTMLFrameElement +toDOMHTMLFrameElement = unsafeCastTo DOMHTMLFrameElement + +noDOMHTMLFrameElement :: Maybe DOMHTMLFrameElement +noDOMHTMLFrameElement = Nothing + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument +getDOMHTMLFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLFrameElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLFrameElementContentDocumentPropertyInfo = "DOMHTMLFrameElement::content-document" + attrGet _ = getDOMHTMLFrameElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow + +data DOMHTMLFrameElementContentWindowPropertyInfo +instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "DOMHTMLFrameElement::content-window" + attrGet _ = getDOMHTMLFrameElementContentWindow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" + +setDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val + +constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val + +data DOMHTMLFrameElementFrameBorderPropertyInfo +instance AttrInfo DOMHTMLFrameElementFrameBorderPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "DOMHTMLFrameElement::frame-border" + attrGet _ = getDOMHTMLFrameElementFrameBorder + attrSet _ = setDOMHTMLFrameElementFrameBorder + attrConstruct _ = constructDOMHTMLFrameElementFrameBorder + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 +getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +data DOMHTMLFrameElementHeightPropertyInfo +instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "DOMHTMLFrameElement::height" + attrGet _ = getDOMHTMLFrameElementHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLFrameElementLongDescPropertyInfo +instance AttrInfo DOMHTMLFrameElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "DOMHTMLFrameElement::long-desc" + attrGet _ = getDOMHTMLFrameElementLongDesc + attrSet _ = setDOMHTMLFrameElementLongDesc + attrConstruct _ = constructDOMHTMLFrameElementLongDesc + +-- VVV Prop "margin-height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" + +setDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val + +constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val + +data DOMHTMLFrameElementMarginHeightPropertyInfo +instance AttrInfo DOMHTMLFrameElementMarginHeightPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "DOMHTMLFrameElement::margin-height" + attrGet _ = getDOMHTMLFrameElementMarginHeight + attrSet _ = setDOMHTMLFrameElementMarginHeight + attrConstruct _ = constructDOMHTMLFrameElementMarginHeight + +-- VVV Prop "margin-width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" + +setDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val + +constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val + +data DOMHTMLFrameElementMarginWidthPropertyInfo +instance AttrInfo DOMHTMLFrameElementMarginWidthPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "DOMHTMLFrameElement::margin-width" + attrGet _ = getDOMHTMLFrameElementMarginWidth + attrSet _ = setDOMHTMLFrameElementMarginWidth + attrConstruct _ = constructDOMHTMLFrameElementMarginWidth + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFrameElementNamePropertyInfo +instance AttrInfo DOMHTMLFrameElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementNamePropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "DOMHTMLFrameElement::name" + attrGet _ = getDOMHTMLFrameElementName + attrSet _ = setDOMHTMLFrameElementName + attrConstruct _ = constructDOMHTMLFrameElementName + +-- VVV Prop "no-resize" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Bool +getDOMHTMLFrameElementNoResize obj = liftIO $ getObjectPropertyBool obj "no-resize" + +setDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> Bool -> m () +setDOMHTMLFrameElementNoResize obj val = liftIO $ setObjectPropertyBool obj "no-resize" val + +constructDOMHTMLFrameElementNoResize :: Bool -> IO ([Char], GValue) +constructDOMHTMLFrameElementNoResize val = constructObjectPropertyBool "no-resize" val + +data DOMHTMLFrameElementNoResizePropertyInfo +instance AttrInfo DOMHTMLFrameElementNoResizePropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementNoResizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementNoResizePropertyInfo = Bool + type AttrLabel DOMHTMLFrameElementNoResizePropertyInfo = "DOMHTMLFrameElement::no-resize" + attrGet _ = getDOMHTMLFrameElementNoResize + attrSet _ = setDOMHTMLFrameElementNoResize + attrConstruct _ = constructDOMHTMLFrameElementNoResize + +-- VVV Prop "scrolling" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" + +setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val + +constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" val + +data DOMHTMLFrameElementScrollingPropertyInfo +instance AttrInfo DOMHTMLFrameElementScrollingPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "DOMHTMLFrameElement::scrolling" + attrGet _ = getDOMHTMLFrameElementScrolling + attrSet _ = setDOMHTMLFrameElementScrolling + attrConstruct _ = constructDOMHTMLFrameElementScrolling + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLFrameElementSrcPropertyInfo +instance AttrInfo DOMHTMLFrameElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "DOMHTMLFrameElement::src" + attrGet _ = getDOMHTMLFrameElementSrc + attrSet _ = setDOMHTMLFrameElementSrc + attrConstruct _ = constructDOMHTMLFrameElementSrc + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 +getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +data DOMHTMLFrameElementWidthPropertyInfo +instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "DOMHTMLFrameElement::width" + attrGet _ = getDOMHTMLFrameElementWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLFrameElement = DOMHTMLFrameElementAttributeList +type DOMHTMLFrameElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-resize", DOMHTMLFrameElementNoResizePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLFrameElement = DOMHTMLFrameElementSignalList +type DOMHTMLFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLFrameElement::get_content_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_content_document" webkit_dom_html_frame_element_get_content_document :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO (Ptr DOMDocument) + + +dOMHTMLFrameElementGetContentDocument :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m DOMDocument +dOMHTMLFrameElementGetContentDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_content_document _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_content_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_content_window +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_content_window" webkit_dom_html_frame_element_get_content_window :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO (Ptr DOMDOMWindow) + + +dOMHTMLFrameElementGetContentWindow :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m DOMDOMWindow +dOMHTMLFrameElementGetContentWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_content_window _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_content_window" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_frame_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_frame_border" webkit_dom_html_frame_element_get_frame_border :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetFrameBorder :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetFrameBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_frame_border _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_frame_border" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_height" webkit_dom_html_frame_element_get_height :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO Int64 + + +dOMHTMLFrameElementGetHeight :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m Int64 +dOMHTMLFrameElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLFrameElement::get_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_long_desc" webkit_dom_html_frame_element_get_long_desc :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetLongDesc :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetLongDesc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_long_desc _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_long_desc" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_margin_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_margin_height" webkit_dom_html_frame_element_get_margin_height :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetMarginHeight :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetMarginHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_margin_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_margin_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_margin_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_margin_width" webkit_dom_html_frame_element_get_margin_width :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetMarginWidth :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetMarginWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_margin_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_margin_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_name" webkit_dom_html_frame_element_get_name :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetName :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_no_resize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_no_resize" webkit_dom_html_frame_element_get_no_resize :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CInt + + +dOMHTMLFrameElementGetNoResize :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m Bool +dOMHTMLFrameElementGetNoResize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_no_resize _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_scrolling" webkit_dom_html_frame_element_get_scrolling :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetScrolling :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetScrolling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_scrolling _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_scrolling" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_src" webkit_dom_html_frame_element_get_src :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO CString + + +dOMHTMLFrameElementGetSrc :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_get_width" webkit_dom_html_frame_element_get_width :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + IO Int64 + + +dOMHTMLFrameElementGetWidth :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + m Int64 +dOMHTMLFrameElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLFrameElement::set_frame_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_frame_border" webkit_dom_html_frame_element_set_frame_border :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetFrameBorder :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetFrameBorder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_frame_border _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_long_desc" webkit_dom_html_frame_element_set_long_desc :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetLongDesc :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetLongDesc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_long_desc _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_margin_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_margin_height" webkit_dom_html_frame_element_set_margin_height :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetMarginHeight :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetMarginHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_margin_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_margin_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_margin_width" webkit_dom_html_frame_element_set_margin_width :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetMarginWidth :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetMarginWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_margin_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_name" webkit_dom_html_frame_element_set_name :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetName :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_no_resize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_no_resize" webkit_dom_html_frame_element_set_no_resize :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLFrameElementSetNoResize :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLFrameElementSetNoResize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_frame_element_set_no_resize _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLFrameElement::set_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_scrolling" webkit_dom_html_frame_element_set_scrolling :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetScrolling :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetScrolling _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_scrolling _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_element_set_src" webkit_dom_html_frame_element_set_src :: + Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameElementSetSrc :: + (MonadIO m, DOMHTMLFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot @@ -0,0 +1,25 @@ +module GI.WebKit.Objects.DOMHTMLFrameElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLFrameElement = DOMHTMLFrameElement (ForeignPtr DOMHTMLFrameElement) +instance GObject DOMHTMLFrameElement where +class GObject o => DOMHTMLFrameElementK o +instance (GObject o, IsDescendantOf DOMHTMLFrameElement o) => DOMHTMLFrameElementK o +data DOMHTMLFrameElementContentDocumentPropertyInfo +data DOMHTMLFrameElementContentWindowPropertyInfo +data DOMHTMLFrameElementFrameBorderPropertyInfo +data DOMHTMLFrameElementHeightPropertyInfo +data DOMHTMLFrameElementLongDescPropertyInfo +data DOMHTMLFrameElementMarginHeightPropertyInfo +data DOMHTMLFrameElementMarginWidthPropertyInfo +data DOMHTMLFrameElementNamePropertyInfo +data DOMHTMLFrameElementNoResizePropertyInfo +data DOMHTMLFrameElementScrollingPropertyInfo +data DOMHTMLFrameElementSrcPropertyInfo +data DOMHTMLFrameElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs @@ -0,0 +1,252 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLFrameSetElement + ( + +-- * Exported types + DOMHTMLFrameSetElement(..) , + DOMHTMLFrameSetElementK , + toDOMHTMLFrameSetElement , + noDOMHTMLFrameSetElement , + + + -- * Methods +-- ** dOMHTMLFrameSetElementGetCols + dOMHTMLFrameSetElementGetCols , + + +-- ** dOMHTMLFrameSetElementGetRows + dOMHTMLFrameSetElementGetRows , + + +-- ** dOMHTMLFrameSetElementSetCols + dOMHTMLFrameSetElementSetCols , + + +-- ** dOMHTMLFrameSetElementSetRows + dOMHTMLFrameSetElementSetRows , + + + + + -- * Properties +-- ** Cols + DOMHTMLFrameSetElementColsPropertyInfo , + constructDOMHTMLFrameSetElementCols , + getDOMHTMLFrameSetElementCols , + setDOMHTMLFrameSetElementCols , + + +-- ** Rows + DOMHTMLFrameSetElementRowsPropertyInfo , + constructDOMHTMLFrameSetElementRows , + getDOMHTMLFrameSetElementRows , + setDOMHTMLFrameSetElementRows , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLFrameSetElement = DOMHTMLFrameSetElement (ForeignPtr DOMHTMLFrameSetElement) +foreign import ccall "webkit_dom_html_frame_set_element_get_type" + c_webkit_dom_html_frame_set_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLFrameSetElement = DOMHTMLFrameSetElementParentTypes +type DOMHTMLFrameSetElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLFrameSetElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_frame_set_element_get_type + + +class GObject o => DOMHTMLFrameSetElementK o +instance (GObject o, IsDescendantOf DOMHTMLFrameSetElement o) => DOMHTMLFrameSetElementK o + +toDOMHTMLFrameSetElement :: DOMHTMLFrameSetElementK o => o -> IO DOMHTMLFrameSetElement +toDOMHTMLFrameSetElement = unsafeCastTo DOMHTMLFrameSetElement + +noDOMHTMLFrameSetElement :: Maybe DOMHTMLFrameSetElement +noDOMHTMLFrameSetElement = Nothing + +-- VVV Prop "cols" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols" + +setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () +setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" val + +constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" val + +data DOMHTMLFrameSetElementColsPropertyInfo +instance AttrInfo DOMHTMLFrameSetElementColsPropertyInfo where + type AttrAllowedOps DOMHTMLFrameSetElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = DOMHTMLFrameSetElementK + type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "DOMHTMLFrameSetElement::cols" + attrGet _ = getDOMHTMLFrameSetElementCols + attrSet _ = setDOMHTMLFrameSetElementCols + attrConstruct _ = constructDOMHTMLFrameSetElementCols + +-- VVV Prop "rows" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows" + +setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () +setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" val + +constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" val + +data DOMHTMLFrameSetElementRowsPropertyInfo +instance AttrInfo DOMHTMLFrameSetElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLFrameSetElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = DOMHTMLFrameSetElementK + type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "DOMHTMLFrameSetElement::rows" + attrGet _ = getDOMHTMLFrameSetElementRows + attrSet _ = setDOMHTMLFrameSetElementRows + attrConstruct _ = constructDOMHTMLFrameSetElementRows + +type instance AttributeList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementAttributeList +type DOMHTMLFrameSetElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementSignalList +type DOMHTMLFrameSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLFrameSetElement::get_cols +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_set_element_get_cols" webkit_dom_html_frame_set_element_get_cols :: + Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement" + IO CString + + +dOMHTMLFrameSetElementGetCols :: + (MonadIO m, DOMHTMLFrameSetElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameSetElementGetCols _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_set_element_get_cols _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_set_element_get_cols" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameSetElement::get_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_set_element_get_rows" webkit_dom_html_frame_set_element_get_rows :: + Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement" + IO CString + + +dOMHTMLFrameSetElementGetRows :: + (MonadIO m, DOMHTMLFrameSetElementK a) => + a -> -- _obj + m T.Text +dOMHTMLFrameSetElementGetRows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_frame_set_element_get_rows _obj' + checkUnexpectedReturnNULL "webkit_dom_html_frame_set_element_get_rows" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLFrameSetElement::set_cols +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_set_element_set_cols" webkit_dom_html_frame_set_element_set_cols :: + Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameSetElementSetCols :: + (MonadIO m, DOMHTMLFrameSetElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameSetElementSetCols _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_set_element_set_cols _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLFrameSetElement::set_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_frame_set_element_set_rows" webkit_dom_html_frame_set_element_set_rows :: + Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLFrameSetElementSetRows :: + (MonadIO m, DOMHTMLFrameSetElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLFrameSetElementSetRows _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_frame_set_element_set_rows _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLFrameSetElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLFrameSetElement = DOMHTMLFrameSetElement (ForeignPtr DOMHTMLFrameSetElement) +instance GObject DOMHTMLFrameSetElement where +class GObject o => DOMHTMLFrameSetElementK o +instance (GObject o, IsDescendantOf DOMHTMLFrameSetElement o) => DOMHTMLFrameSetElementK o +data DOMHTMLFrameSetElementColsPropertyInfo +data DOMHTMLFrameSetElementRowsPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLHRElement.hs b/GI/WebKit/Objects/DOMHTMLHRElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHRElement.hs @@ -0,0 +1,437 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLHRElement + ( + +-- * Exported types + DOMHTMLHRElement(..) , + DOMHTMLHRElementK , + toDOMHTMLHRElement , + noDOMHTMLHRElement , + + + -- * Methods +-- ** dOMHTMLHRElementGetAlign + dOMHTMLHRElementGetAlign , + + +-- ** dOMHTMLHRElementGetNoShade + dOMHTMLHRElementGetNoShade , + + +-- ** dOMHTMLHRElementGetSize + dOMHTMLHRElementGetSize , + + +-- ** dOMHTMLHRElementGetWidth + dOMHTMLHRElementGetWidth , + + +-- ** dOMHTMLHRElementSetAlign + dOMHTMLHRElementSetAlign , + + +-- ** dOMHTMLHRElementSetNoShade + dOMHTMLHRElementSetNoShade , + + +-- ** dOMHTMLHRElementSetSize + dOMHTMLHRElementSetSize , + + +-- ** dOMHTMLHRElementSetWidth + dOMHTMLHRElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLHRElementAlignPropertyInfo , + constructDOMHTMLHRElementAlign , + getDOMHTMLHRElementAlign , + setDOMHTMLHRElementAlign , + + +-- ** NoShade + DOMHTMLHRElementNoShadePropertyInfo , + constructDOMHTMLHRElementNoShade , + getDOMHTMLHRElementNoShade , + setDOMHTMLHRElementNoShade , + + +-- ** Size + DOMHTMLHRElementSizePropertyInfo , + constructDOMHTMLHRElementSize , + getDOMHTMLHRElementSize , + setDOMHTMLHRElementSize , + + +-- ** Width + DOMHTMLHRElementWidthPropertyInfo , + constructDOMHTMLHRElementWidth , + getDOMHTMLHRElementWidth , + setDOMHTMLHRElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLHRElement = DOMHTMLHRElement (ForeignPtr DOMHTMLHRElement) +foreign import ccall "webkit_dom_htmlhr_element_get_type" + c_webkit_dom_htmlhr_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_htmlhr_element_get_type + + +class GObject o => DOMHTMLHRElementK o +instance (GObject o, IsDescendantOf DOMHTMLHRElement o) => DOMHTMLHRElementK o + +toDOMHTMLHRElement :: DOMHTMLHRElementK o => o -> IO DOMHTMLHRElement +toDOMHTMLHRElement = unsafeCastTo DOMHTMLHRElement + +noDOMHTMLHRElement :: Maybe DOMHTMLHRElement +noDOMHTMLHRElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLHRElementAlignPropertyInfo +instance AttrInfo DOMHTMLHRElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLHRElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementAlignPropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "DOMHTMLHRElement::align" + attrGet _ = getDOMHTMLHRElementAlign + attrSet _ = setDOMHTMLHRElementAlign + attrConstruct _ = constructDOMHTMLHRElementAlign + +-- VVV Prop "no-shade" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> m Bool +getDOMHTMLHRElementNoShade obj = liftIO $ getObjectPropertyBool obj "no-shade" + +setDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> Bool -> m () +setDOMHTMLHRElementNoShade obj val = liftIO $ setObjectPropertyBool obj "no-shade" val + +constructDOMHTMLHRElementNoShade :: Bool -> IO ([Char], GValue) +constructDOMHTMLHRElementNoShade val = constructObjectPropertyBool "no-shade" val + +data DOMHTMLHRElementNoShadePropertyInfo +instance AttrInfo DOMHTMLHRElementNoShadePropertyInfo where + type AttrAllowedOps DOMHTMLHRElementNoShadePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementNoShadePropertyInfo = Bool + type AttrLabel DOMHTMLHRElementNoShadePropertyInfo = "DOMHTMLHRElement::no-shade" + attrGet _ = getDOMHTMLHRElementNoShade + attrSet _ = setDOMHTMLHRElementNoShade + attrConstruct _ = constructDOMHTMLHRElementNoShade + +-- VVV Prop "size" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size" + +setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" val + +constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" val + +data DOMHTMLHRElementSizePropertyInfo +instance AttrInfo DOMHTMLHRElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLHRElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementSizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementSizePropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementSizePropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementSizePropertyInfo = "DOMHTMLHRElement::size" + attrGet _ = getDOMHTMLHRElementSize + attrSet _ = setDOMHTMLHRElementSize + attrConstruct _ = constructDOMHTMLHRElementSize + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLHRElementWidthPropertyInfo +instance AttrInfo DOMHTMLHRElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLHRElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementWidthPropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "DOMHTMLHRElement::width" + attrGet _ = getDOMHTMLHRElementWidth + attrSet _ = setDOMHTMLHRElementWidth + attrConstruct _ = constructDOMHTMLHRElementWidth + +type instance AttributeList DOMHTMLHRElement = DOMHTMLHRElementAttributeList +type DOMHTMLHRElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-shade", DOMHTMLHRElementNoShadePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLHRElement = DOMHTMLHRElementSignalList +type DOMHTMLHRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLHRElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_get_align" webkit_dom_htmlhr_element_get_align :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + IO CString + + +dOMHTMLHRElementGetAlign :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHRElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlhr_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_htmlhr_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHRElement::get_no_shade +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_get_no_shade" webkit_dom_htmlhr_element_get_no_shade :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + IO CInt + + +dOMHTMLHRElementGetNoShade :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + m Bool +dOMHTMLHRElementGetNoShade _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlhr_element_get_no_shade _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHRElement::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_get_size" webkit_dom_htmlhr_element_get_size :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + IO CString + + +dOMHTMLHRElementGetSize :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHRElementGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlhr_element_get_size _obj' + checkUnexpectedReturnNULL "webkit_dom_htmlhr_element_get_size" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHRElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_get_width" webkit_dom_htmlhr_element_get_width :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + IO CString + + +dOMHTMLHRElementGetWidth :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHRElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlhr_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_htmlhr_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHRElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_set_align" webkit_dom_htmlhr_element_set_align :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHRElementSetAlign :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHRElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_htmlhr_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLHRElement::set_no_shade +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_set_no_shade" webkit_dom_htmlhr_element_set_no_shade :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLHRElementSetNoShade :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLHRElementSetNoShade _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_htmlhr_element_set_no_shade _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLHRElement::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_set_size" webkit_dom_htmlhr_element_set_size :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHRElementSetSize :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHRElementSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_htmlhr_element_set_size _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLHRElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlhr_element_set_width" webkit_dom_htmlhr_element_set_width :: + Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHRElementSetWidth :: + (MonadIO m, DOMHTMLHRElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHRElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_htmlhr_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMHTMLHRElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLHRElement = DOMHTMLHRElement (ForeignPtr DOMHTMLHRElement) +instance GObject DOMHTMLHRElement where +class GObject o => DOMHTMLHRElementK o +instance (GObject o, IsDescendantOf DOMHTMLHRElement o) => DOMHTMLHRElementK o +data DOMHTMLHRElementAlignPropertyInfo +data DOMHTMLHRElementNoShadePropertyInfo +data DOMHTMLHRElementSizePropertyInfo +data DOMHTMLHRElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLHeadElement.hs b/GI/WebKit/Objects/DOMHTMLHeadElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHeadElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLHeadElement + ( + +-- * Exported types + DOMHTMLHeadElement(..) , + DOMHTMLHeadElementK , + toDOMHTMLHeadElement , + noDOMHTMLHeadElement , + + + -- * Methods +-- ** dOMHTMLHeadElementGetProfile + dOMHTMLHeadElementGetProfile , + + +-- ** dOMHTMLHeadElementSetProfile + dOMHTMLHeadElementSetProfile , + + + + + -- * Properties +-- ** Profile + DOMHTMLHeadElementProfilePropertyInfo , + constructDOMHTMLHeadElementProfile , + getDOMHTMLHeadElementProfile , + setDOMHTMLHeadElementProfile , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLHeadElement = DOMHTMLHeadElement (ForeignPtr DOMHTMLHeadElement) +foreign import ccall "webkit_dom_html_head_element_get_type" + c_webkit_dom_html_head_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLHeadElement = DOMHTMLHeadElementParentTypes +type DOMHTMLHeadElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLHeadElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_head_element_get_type + + +class GObject o => DOMHTMLHeadElementK o +instance (GObject o, IsDescendantOf DOMHTMLHeadElement o) => DOMHTMLHeadElementK o + +toDOMHTMLHeadElement :: DOMHTMLHeadElementK o => o -> IO DOMHTMLHeadElement +toDOMHTMLHeadElement = unsafeCastTo DOMHTMLHeadElement + +noDOMHTMLHeadElement :: Maybe DOMHTMLHeadElement +noDOMHTMLHeadElement = Nothing + +-- VVV Prop "profile" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m T.Text +getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile" + +setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m () +setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" val + +constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" val + +data DOMHTMLHeadElementProfilePropertyInfo +instance AttrInfo DOMHTMLHeadElementProfilePropertyInfo where + type AttrAllowedOps DOMHTMLHeadElementProfilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = DOMHTMLHeadElementK + type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = T.Text + type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "DOMHTMLHeadElement::profile" + attrGet _ = getDOMHTMLHeadElementProfile + attrSet _ = setDOMHTMLHeadElementProfile + attrConstruct _ = constructDOMHTMLHeadElementProfile + +type instance AttributeList DOMHTMLHeadElement = DOMHTMLHeadElementAttributeList +type DOMHTMLHeadElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLHeadElement = DOMHTMLHeadElementSignalList +type DOMHTMLHeadElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLHeadElement::get_profile +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_head_element_get_profile" webkit_dom_html_head_element_get_profile :: + Ptr DOMHTMLHeadElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadElement" + IO CString + + +dOMHTMLHeadElementGetProfile :: + (MonadIO m, DOMHTMLHeadElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHeadElementGetProfile _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_head_element_get_profile _obj' + checkUnexpectedReturnNULL "webkit_dom_html_head_element_get_profile" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHeadElement::set_profile +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_head_element_set_profile" webkit_dom_html_head_element_set_profile :: + Ptr DOMHTMLHeadElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHeadElementSetProfile :: + (MonadIO m, DOMHTMLHeadElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHeadElementSetProfile _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_head_element_set_profile _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLHeadElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLHeadElement = DOMHTMLHeadElement (ForeignPtr DOMHTMLHeadElement) +instance GObject DOMHTMLHeadElement where +class GObject o => DOMHTMLHeadElementK o +instance (GObject o, IsDescendantOf DOMHTMLHeadElement o) => DOMHTMLHeadElementK o +data DOMHTMLHeadElementProfilePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLHeadingElement + ( + +-- * Exported types + DOMHTMLHeadingElement(..) , + DOMHTMLHeadingElementK , + toDOMHTMLHeadingElement , + noDOMHTMLHeadingElement , + + + -- * Methods +-- ** dOMHTMLHeadingElementGetAlign + dOMHTMLHeadingElementGetAlign , + + +-- ** dOMHTMLHeadingElementSetAlign + dOMHTMLHeadingElementSetAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLHeadingElementAlignPropertyInfo , + constructDOMHTMLHeadingElementAlign , + getDOMHTMLHeadingElementAlign , + setDOMHTMLHeadingElementAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLHeadingElement = DOMHTMLHeadingElement (ForeignPtr DOMHTMLHeadingElement) +foreign import ccall "webkit_dom_html_heading_element_get_type" + c_webkit_dom_html_heading_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLHeadingElement = DOMHTMLHeadingElementParentTypes +type DOMHTMLHeadingElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLHeadingElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_heading_element_get_type + + +class GObject o => DOMHTMLHeadingElementK o +instance (GObject o, IsDescendantOf DOMHTMLHeadingElement o) => DOMHTMLHeadingElementK o + +toDOMHTMLHeadingElement :: DOMHTMLHeadingElementK o => o -> IO DOMHTMLHeadingElement +toDOMHTMLHeadingElement = unsafeCastTo DOMHTMLHeadingElement + +noDOMHTMLHeadingElement :: Maybe DOMHTMLHeadingElement +noDOMHTMLHeadingElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m T.Text +getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m () +setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLHeadingElementAlignPropertyInfo +instance AttrInfo DOMHTMLHeadingElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLHeadingElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = DOMHTMLHeadingElementK + type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "DOMHTMLHeadingElement::align" + attrGet _ = getDOMHTMLHeadingElementAlign + attrSet _ = setDOMHTMLHeadingElementAlign + attrConstruct _ = constructDOMHTMLHeadingElementAlign + +type instance AttributeList DOMHTMLHeadingElement = DOMHTMLHeadingElementAttributeList +type DOMHTMLHeadingElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLHeadingElement = DOMHTMLHeadingElementSignalList +type DOMHTMLHeadingElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLHeadingElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_heading_element_get_align" webkit_dom_html_heading_element_get_align :: + Ptr DOMHTMLHeadingElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadingElement" + IO CString + + +dOMHTMLHeadingElementGetAlign :: + (MonadIO m, DOMHTMLHeadingElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHeadingElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_heading_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_heading_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHeadingElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_heading_element_set_align" webkit_dom_html_heading_element_set_align :: + Ptr DOMHTMLHeadingElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadingElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHeadingElementSetAlign :: + (MonadIO m, DOMHTMLHeadingElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHeadingElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_heading_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLHeadingElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLHeadingElement = DOMHTMLHeadingElement (ForeignPtr DOMHTMLHeadingElement) +instance GObject DOMHTMLHeadingElement where +class GObject o => DOMHTMLHeadingElementK o +instance (GObject o, IsDescendantOf DOMHTMLHeadingElement o) => DOMHTMLHeadingElementK o +data DOMHTMLHeadingElementAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs @@ -0,0 +1,252 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLHtmlElement + ( + +-- * Exported types + DOMHTMLHtmlElement(..) , + DOMHTMLHtmlElementK , + toDOMHTMLHtmlElement , + noDOMHTMLHtmlElement , + + + -- * Methods +-- ** dOMHTMLHtmlElementGetManifest + dOMHTMLHtmlElementGetManifest , + + +-- ** dOMHTMLHtmlElementGetVersion + dOMHTMLHtmlElementGetVersion , + + +-- ** dOMHTMLHtmlElementSetManifest + dOMHTMLHtmlElementSetManifest , + + +-- ** dOMHTMLHtmlElementSetVersion + dOMHTMLHtmlElementSetVersion , + + + + + -- * Properties +-- ** Manifest + DOMHTMLHtmlElementManifestPropertyInfo , + constructDOMHTMLHtmlElementManifest , + getDOMHTMLHtmlElementManifest , + setDOMHTMLHtmlElementManifest , + + +-- ** Version + DOMHTMLHtmlElementVersionPropertyInfo , + constructDOMHTMLHtmlElementVersion , + getDOMHTMLHtmlElementVersion , + setDOMHTMLHtmlElementVersion , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLHtmlElement = DOMHTMLHtmlElement (ForeignPtr DOMHTMLHtmlElement) +foreign import ccall "webkit_dom_html_html_element_get_type" + c_webkit_dom_html_html_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLHtmlElement = DOMHTMLHtmlElementParentTypes +type DOMHTMLHtmlElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLHtmlElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_html_element_get_type + + +class GObject o => DOMHTMLHtmlElementK o +instance (GObject o, IsDescendantOf DOMHTMLHtmlElement o) => DOMHTMLHtmlElementK o + +toDOMHTMLHtmlElement :: DOMHTMLHtmlElementK o => o -> IO DOMHTMLHtmlElement +toDOMHTMLHtmlElement = unsafeCastTo DOMHTMLHtmlElement + +noDOMHTMLHtmlElement :: Maybe DOMHTMLHtmlElement +noDOMHTMLHtmlElement = Nothing + +-- VVV Prop "manifest" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest" + +setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () +setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" val + +constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" val + +data DOMHTMLHtmlElementManifestPropertyInfo +instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where + type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK + type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = T.Text + type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "DOMHTMLHtmlElement::manifest" + attrGet _ = getDOMHTMLHtmlElementManifest + attrSet _ = setDOMHTMLHtmlElementManifest + attrConstruct _ = constructDOMHTMLHtmlElementManifest + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version" + +setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () +setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" val + +constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" val + +data DOMHTMLHtmlElementVersionPropertyInfo +instance AttrInfo DOMHTMLHtmlElementVersionPropertyInfo where + type AttrAllowedOps DOMHTMLHtmlElementVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = DOMHTMLHtmlElementK + type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = T.Text + type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "DOMHTMLHtmlElement::version" + attrGet _ = getDOMHTMLHtmlElementVersion + attrSet _ = setDOMHTMLHtmlElementVersion + attrConstruct _ = constructDOMHTMLHtmlElementVersion + +type instance AttributeList DOMHTMLHtmlElement = DOMHTMLHtmlElementAttributeList +type DOMHTMLHtmlElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLHtmlElement = DOMHTMLHtmlElementSignalList +type DOMHTMLHtmlElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLHtmlElement::get_manifest +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_html_element_get_manifest" webkit_dom_html_html_element_get_manifest :: + Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement" + IO CString + + +dOMHTMLHtmlElementGetManifest :: + (MonadIO m, DOMHTMLHtmlElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHtmlElementGetManifest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_html_element_get_manifest _obj' + checkUnexpectedReturnNULL "webkit_dom_html_html_element_get_manifest" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHtmlElement::get_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_html_element_get_version" webkit_dom_html_html_element_get_version :: + Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement" + IO CString + + +dOMHTMLHtmlElementGetVersion :: + (MonadIO m, DOMHTMLHtmlElementK a) => + a -> -- _obj + m T.Text +dOMHTMLHtmlElementGetVersion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_html_element_get_version _obj' + checkUnexpectedReturnNULL "webkit_dom_html_html_element_get_version" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLHtmlElement::set_manifest +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_html_element_set_manifest" webkit_dom_html_html_element_set_manifest :: + Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHtmlElementSetManifest :: + (MonadIO m, DOMHTMLHtmlElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHtmlElementSetManifest _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_html_element_set_manifest _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLHtmlElement::set_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_html_element_set_version" webkit_dom_html_html_element_set_version :: + Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLHtmlElementSetVersion :: + (MonadIO m, DOMHTMLHtmlElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLHtmlElementSetVersion _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_html_element_set_version _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLHtmlElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLHtmlElement = DOMHTMLHtmlElement (ForeignPtr DOMHTMLHtmlElement) +instance GObject DOMHTMLHtmlElement where +class GObject o => DOMHTMLHtmlElementK o +instance (GObject o, IsDescendantOf DOMHTMLHtmlElement o) => DOMHTMLHtmlElementK o +data DOMHTMLHtmlElementManifestPropertyInfo +data DOMHTMLHtmlElementVersionPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs @@ -0,0 +1,1389 @@ + +{- | +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.WebKit.Objects.DOMHTMLIFrameElement + ( + +-- * Exported types + DOMHTMLIFrameElement(..) , + DOMHTMLIFrameElementK , + toDOMHTMLIFrameElement , + noDOMHTMLIFrameElement , + + + -- * Methods +-- ** dOMHTMLIFrameElementGetAlign + dOMHTMLIFrameElementGetAlign , + + +-- ** dOMHTMLIFrameElementGetContentDocument + dOMHTMLIFrameElementGetContentDocument , + + +-- ** dOMHTMLIFrameElementGetContentWindow + dOMHTMLIFrameElementGetContentWindow , + + +-- ** dOMHTMLIFrameElementGetFrameBorder + dOMHTMLIFrameElementGetFrameBorder , + + +-- ** dOMHTMLIFrameElementGetHeight + dOMHTMLIFrameElementGetHeight , + + +-- ** dOMHTMLIFrameElementGetLongDesc + dOMHTMLIFrameElementGetLongDesc , + + +-- ** dOMHTMLIFrameElementGetMarginHeight + dOMHTMLIFrameElementGetMarginHeight , + + +-- ** dOMHTMLIFrameElementGetMarginWidth + dOMHTMLIFrameElementGetMarginWidth , + + +-- ** dOMHTMLIFrameElementGetName + dOMHTMLIFrameElementGetName , + + +-- ** dOMHTMLIFrameElementGetSandbox + dOMHTMLIFrameElementGetSandbox , + + +-- ** dOMHTMLIFrameElementGetScrolling + dOMHTMLIFrameElementGetScrolling , + + +-- ** dOMHTMLIFrameElementGetSeamless + dOMHTMLIFrameElementGetSeamless , + + +-- ** dOMHTMLIFrameElementGetSrc + dOMHTMLIFrameElementGetSrc , + + +-- ** dOMHTMLIFrameElementGetSrcdoc + dOMHTMLIFrameElementGetSrcdoc , + + +-- ** dOMHTMLIFrameElementGetWidth + dOMHTMLIFrameElementGetWidth , + + +-- ** dOMHTMLIFrameElementSetAlign + dOMHTMLIFrameElementSetAlign , + + +-- ** dOMHTMLIFrameElementSetFrameBorder + dOMHTMLIFrameElementSetFrameBorder , + + +-- ** dOMHTMLIFrameElementSetHeight + dOMHTMLIFrameElementSetHeight , + + +-- ** dOMHTMLIFrameElementSetLongDesc + dOMHTMLIFrameElementSetLongDesc , + + +-- ** dOMHTMLIFrameElementSetMarginHeight + dOMHTMLIFrameElementSetMarginHeight , + + +-- ** dOMHTMLIFrameElementSetMarginWidth + dOMHTMLIFrameElementSetMarginWidth , + + +-- ** dOMHTMLIFrameElementSetName + dOMHTMLIFrameElementSetName , + + +-- ** dOMHTMLIFrameElementSetSandbox + dOMHTMLIFrameElementSetSandbox , + + +-- ** dOMHTMLIFrameElementSetScrolling + dOMHTMLIFrameElementSetScrolling , + + +-- ** dOMHTMLIFrameElementSetSeamless + dOMHTMLIFrameElementSetSeamless , + + +-- ** dOMHTMLIFrameElementSetSrc + dOMHTMLIFrameElementSetSrc , + + +-- ** dOMHTMLIFrameElementSetSrcdoc + dOMHTMLIFrameElementSetSrcdoc , + + +-- ** dOMHTMLIFrameElementSetWidth + dOMHTMLIFrameElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLIFrameElementAlignPropertyInfo , + constructDOMHTMLIFrameElementAlign , + getDOMHTMLIFrameElementAlign , + setDOMHTMLIFrameElementAlign , + + +-- ** ContentDocument + DOMHTMLIFrameElementContentDocumentPropertyInfo, + getDOMHTMLIFrameElementContentDocument , + + +-- ** ContentWindow + DOMHTMLIFrameElementContentWindowPropertyInfo, + getDOMHTMLIFrameElementContentWindow , + + +-- ** FrameBorder + DOMHTMLIFrameElementFrameBorderPropertyInfo, + constructDOMHTMLIFrameElementFrameBorder, + getDOMHTMLIFrameElementFrameBorder , + setDOMHTMLIFrameElementFrameBorder , + + +-- ** Height + DOMHTMLIFrameElementHeightPropertyInfo , + constructDOMHTMLIFrameElementHeight , + getDOMHTMLIFrameElementHeight , + setDOMHTMLIFrameElementHeight , + + +-- ** LongDesc + DOMHTMLIFrameElementLongDescPropertyInfo, + constructDOMHTMLIFrameElementLongDesc , + getDOMHTMLIFrameElementLongDesc , + setDOMHTMLIFrameElementLongDesc , + + +-- ** MarginHeight + DOMHTMLIFrameElementMarginHeightPropertyInfo, + constructDOMHTMLIFrameElementMarginHeight, + getDOMHTMLIFrameElementMarginHeight , + setDOMHTMLIFrameElementMarginHeight , + + +-- ** MarginWidth + DOMHTMLIFrameElementMarginWidthPropertyInfo, + constructDOMHTMLIFrameElementMarginWidth, + getDOMHTMLIFrameElementMarginWidth , + setDOMHTMLIFrameElementMarginWidth , + + +-- ** Name + DOMHTMLIFrameElementNamePropertyInfo , + constructDOMHTMLIFrameElementName , + getDOMHTMLIFrameElementName , + setDOMHTMLIFrameElementName , + + +-- ** Sandbox + DOMHTMLIFrameElementSandboxPropertyInfo , + constructDOMHTMLIFrameElementSandbox , + getDOMHTMLIFrameElementSandbox , + setDOMHTMLIFrameElementSandbox , + + +-- ** Scrolling + DOMHTMLIFrameElementScrollingPropertyInfo, + constructDOMHTMLIFrameElementScrolling , + getDOMHTMLIFrameElementScrolling , + setDOMHTMLIFrameElementScrolling , + + +-- ** Seamless + DOMHTMLIFrameElementSeamlessPropertyInfo, + constructDOMHTMLIFrameElementSeamless , + getDOMHTMLIFrameElementSeamless , + setDOMHTMLIFrameElementSeamless , + + +-- ** Src + DOMHTMLIFrameElementSrcPropertyInfo , + constructDOMHTMLIFrameElementSrc , + getDOMHTMLIFrameElementSrc , + setDOMHTMLIFrameElementSrc , + + +-- ** Srcdoc + DOMHTMLIFrameElementSrcdocPropertyInfo , + constructDOMHTMLIFrameElementSrcdoc , + getDOMHTMLIFrameElementSrcdoc , + setDOMHTMLIFrameElementSrcdoc , + + +-- ** Width + DOMHTMLIFrameElementWidthPropertyInfo , + constructDOMHTMLIFrameElementWidth , + getDOMHTMLIFrameElementWidth , + setDOMHTMLIFrameElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLIFrameElement = DOMHTMLIFrameElement (ForeignPtr DOMHTMLIFrameElement) +foreign import ccall "webkit_dom_html_iframe_element_get_type" + c_webkit_dom_html_iframe_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLIFrameElement = DOMHTMLIFrameElementParentTypes +type DOMHTMLIFrameElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLIFrameElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_iframe_element_get_type + + +class GObject o => DOMHTMLIFrameElementK o +instance (GObject o, IsDescendantOf DOMHTMLIFrameElement o) => DOMHTMLIFrameElementK o + +toDOMHTMLIFrameElement :: DOMHTMLIFrameElementK o => o -> IO DOMHTMLIFrameElement +toDOMHTMLIFrameElement = unsafeCastTo DOMHTMLIFrameElement + +noDOMHTMLIFrameElement :: Maybe DOMHTMLIFrameElement +noDOMHTMLIFrameElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLIFrameElementAlignPropertyInfo +instance AttrInfo DOMHTMLIFrameElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "DOMHTMLIFrameElement::align" + attrGet _ = getDOMHTMLIFrameElementAlign + attrSet _ = setDOMHTMLIFrameElementAlign + attrConstruct _ = constructDOMHTMLIFrameElementAlign + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument +getDOMHTMLIFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLIFrameElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLIFrameElementContentDocumentPropertyInfo = "DOMHTMLIFrameElement::content-document" + attrGet _ = getDOMHTMLIFrameElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow + +data DOMHTMLIFrameElementContentWindowPropertyInfo +instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "DOMHTMLIFrameElement::content-window" + attrGet _ = getDOMHTMLIFrameElementContentWindow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" + +setDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val + +constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val + +data DOMHTMLIFrameElementFrameBorderPropertyInfo +instance AttrInfo DOMHTMLIFrameElementFrameBorderPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "DOMHTMLIFrameElement::frame-border" + attrGet _ = getDOMHTMLIFrameElementFrameBorder + attrSet _ = setDOMHTMLIFrameElementFrameBorder + attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLIFrameElementHeightPropertyInfo +instance AttrInfo DOMHTMLIFrameElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "DOMHTMLIFrameElement::height" + attrGet _ = getDOMHTMLIFrameElementHeight + attrSet _ = setDOMHTMLIFrameElementHeight + attrConstruct _ = constructDOMHTMLIFrameElementHeight + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLIFrameElementLongDescPropertyInfo +instance AttrInfo DOMHTMLIFrameElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "DOMHTMLIFrameElement::long-desc" + attrGet _ = getDOMHTMLIFrameElementLongDesc + attrSet _ = setDOMHTMLIFrameElementLongDesc + attrConstruct _ = constructDOMHTMLIFrameElementLongDesc + +-- VVV Prop "margin-height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" + +setDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val + +constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val + +data DOMHTMLIFrameElementMarginHeightPropertyInfo +instance AttrInfo DOMHTMLIFrameElementMarginHeightPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "DOMHTMLIFrameElement::margin-height" + attrGet _ = getDOMHTMLIFrameElementMarginHeight + attrSet _ = setDOMHTMLIFrameElementMarginHeight + attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight + +-- VVV Prop "margin-width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" + +setDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val + +constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val + +data DOMHTMLIFrameElementMarginWidthPropertyInfo +instance AttrInfo DOMHTMLIFrameElementMarginWidthPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "DOMHTMLIFrameElement::margin-width" + attrGet _ = getDOMHTMLIFrameElementMarginWidth + attrSet _ = setDOMHTMLIFrameElementMarginWidth + attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" val + +data DOMHTMLIFrameElementNamePropertyInfo +instance AttrInfo DOMHTMLIFrameElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "DOMHTMLIFrameElement::name" + attrGet _ = getDOMHTMLIFrameElementName + attrSet _ = setDOMHTMLIFrameElementName + attrConstruct _ = constructDOMHTMLIFrameElementName + +-- VVV Prop "sandbox" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox" + +setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" val + +constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" val + +data DOMHTMLIFrameElementSandboxPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "DOMHTMLIFrameElement::sandbox" + attrGet _ = getDOMHTMLIFrameElementSandbox + attrSet _ = setDOMHTMLIFrameElementSandbox + attrConstruct _ = constructDOMHTMLIFrameElementSandbox + +-- VVV Prop "scrolling" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" + +setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val + +constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" val + +data DOMHTMLIFrameElementScrollingPropertyInfo +instance AttrInfo DOMHTMLIFrameElementScrollingPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "DOMHTMLIFrameElement::scrolling" + attrGet _ = getDOMHTMLIFrameElementScrolling + attrSet _ = setDOMHTMLIFrameElementScrolling + attrConstruct _ = constructDOMHTMLIFrameElementScrolling + +-- VVV Prop "seamless" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m Bool +getDOMHTMLIFrameElementSeamless obj = liftIO $ getObjectPropertyBool obj "seamless" + +setDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> Bool -> m () +setDOMHTMLIFrameElementSeamless obj val = liftIO $ setObjectPropertyBool obj "seamless" val + +constructDOMHTMLIFrameElementSeamless :: Bool -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSeamless val = constructObjectPropertyBool "seamless" val + +data DOMHTMLIFrameElementSeamlessPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSeamlessPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSeamlessPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSeamlessPropertyInfo = Bool + type AttrLabel DOMHTMLIFrameElementSeamlessPropertyInfo = "DOMHTMLIFrameElement::seamless" + attrGet _ = getDOMHTMLIFrameElementSeamless + attrSet _ = setDOMHTMLIFrameElementSeamless + attrConstruct _ = constructDOMHTMLIFrameElementSeamless + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLIFrameElementSrcPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "DOMHTMLIFrameElement::src" + attrGet _ = getDOMHTMLIFrameElementSrc + attrSet _ = setDOMHTMLIFrameElementSrc + attrConstruct _ = constructDOMHTMLIFrameElementSrc + +-- VVV Prop "srcdoc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc" + +setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" val + +constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" val + +data DOMHTMLIFrameElementSrcdocPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "DOMHTMLIFrameElement::srcdoc" + attrGet _ = getDOMHTMLIFrameElementSrcdoc + attrSet _ = setDOMHTMLIFrameElementSrcdoc + attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLIFrameElementWidthPropertyInfo +instance AttrInfo DOMHTMLIFrameElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "DOMHTMLIFrameElement::width" + attrGet _ = getDOMHTMLIFrameElementWidth + attrSet _ = setDOMHTMLIFrameElementWidth + attrConstruct _ = constructDOMHTMLIFrameElementWidth + +type instance AttributeList DOMHTMLIFrameElement = DOMHTMLIFrameElementAttributeList +type DOMHTMLIFrameElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLIFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLIFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("seamless", DOMHTMLIFrameElementSeamlessPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLIFrameElement = DOMHTMLIFrameElementSignalList +type DOMHTMLIFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLIFrameElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_align" webkit_dom_html_iframe_element_get_align :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetAlign :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_content_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_content_document" webkit_dom_html_iframe_element_get_content_document :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO (Ptr DOMDocument) + + +dOMHTMLIFrameElementGetContentDocument :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m DOMDocument +dOMHTMLIFrameElementGetContentDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_content_document _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_content_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_content_window +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_content_window" webkit_dom_html_iframe_element_get_content_window :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO (Ptr DOMDOMWindow) + + +dOMHTMLIFrameElementGetContentWindow :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m DOMDOMWindow +dOMHTMLIFrameElementGetContentWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_content_window _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_content_window" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_frame_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_frame_border" webkit_dom_html_iframe_element_get_frame_border :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetFrameBorder :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetFrameBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_frame_border _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_frame_border" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_height" webkit_dom_html_iframe_element_get_height :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetHeight :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_long_desc" webkit_dom_html_iframe_element_get_long_desc :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetLongDesc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetLongDesc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_long_desc _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_long_desc" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_margin_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_margin_height" webkit_dom_html_iframe_element_get_margin_height :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetMarginHeight :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetMarginHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_margin_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_margin_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_margin_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_margin_width" webkit_dom_html_iframe_element_get_margin_width :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetMarginWidth :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetMarginWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_margin_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_margin_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_name" webkit_dom_html_iframe_element_get_name :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetName :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_sandbox +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_sandbox" webkit_dom_html_iframe_element_get_sandbox :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetSandbox :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetSandbox _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_sandbox _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_sandbox" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_scrolling" webkit_dom_html_iframe_element_get_scrolling :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetScrolling :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetScrolling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_scrolling _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_scrolling" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_seamless +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_seamless" webkit_dom_html_iframe_element_get_seamless :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CInt + + +dOMHTMLIFrameElementGetSeamless :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m Bool +dOMHTMLIFrameElementGetSeamless _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_seamless _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_src" webkit_dom_html_iframe_element_get_src :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetSrc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_srcdoc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_srcdoc" webkit_dom_html_iframe_element_get_srcdoc :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetSrcdoc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetSrcdoc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_srcdoc _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_srcdoc" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_get_width" webkit_dom_html_iframe_element_get_width :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + IO CString + + +dOMHTMLIFrameElementGetWidth :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + m T.Text +dOMHTMLIFrameElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_iframe_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLIFrameElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_align" webkit_dom_html_iframe_element_set_align :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetAlign :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_frame_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_frame_border" webkit_dom_html_iframe_element_set_frame_border :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetFrameBorder :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetFrameBorder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_frame_border _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_height" webkit_dom_html_iframe_element_set_height :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetHeight :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_long_desc" webkit_dom_html_iframe_element_set_long_desc :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetLongDesc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetLongDesc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_long_desc _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_margin_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_margin_height" webkit_dom_html_iframe_element_set_margin_height :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetMarginHeight :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetMarginHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_margin_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_margin_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_margin_width" webkit_dom_html_iframe_element_set_margin_width :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetMarginWidth :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetMarginWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_margin_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_name" webkit_dom_html_iframe_element_set_name :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetName :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_sandbox +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_sandbox" webkit_dom_html_iframe_element_set_sandbox :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetSandbox :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetSandbox _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_sandbox _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_scrolling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_scrolling" webkit_dom_html_iframe_element_set_scrolling :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetScrolling :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetScrolling _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_scrolling _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_seamless +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_seamless" webkit_dom_html_iframe_element_set_seamless :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLIFrameElementSetSeamless :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLIFrameElementSetSeamless _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_iframe_element_set_seamless _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLIFrameElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_src" webkit_dom_html_iframe_element_set_src :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetSrc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_srcdoc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_srcdoc" webkit_dom_html_iframe_element_set_srcdoc :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetSrcdoc :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetSrcdoc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_srcdoc _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLIFrameElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_iframe_element_set_width" webkit_dom_html_iframe_element_set_width :: + Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLIFrameElementSetWidth :: + (MonadIO m, DOMHTMLIFrameElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLIFrameElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_iframe_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot @@ -0,0 +1,28 @@ +module GI.WebKit.Objects.DOMHTMLIFrameElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLIFrameElement = DOMHTMLIFrameElement (ForeignPtr DOMHTMLIFrameElement) +instance GObject DOMHTMLIFrameElement where +class GObject o => DOMHTMLIFrameElementK o +instance (GObject o, IsDescendantOf DOMHTMLIFrameElement o) => DOMHTMLIFrameElementK o +data DOMHTMLIFrameElementAlignPropertyInfo +data DOMHTMLIFrameElementContentDocumentPropertyInfo +data DOMHTMLIFrameElementContentWindowPropertyInfo +data DOMHTMLIFrameElementFrameBorderPropertyInfo +data DOMHTMLIFrameElementHeightPropertyInfo +data DOMHTMLIFrameElementLongDescPropertyInfo +data DOMHTMLIFrameElementMarginHeightPropertyInfo +data DOMHTMLIFrameElementMarginWidthPropertyInfo +data DOMHTMLIFrameElementNamePropertyInfo +data DOMHTMLIFrameElementSandboxPropertyInfo +data DOMHTMLIFrameElementScrollingPropertyInfo +data DOMHTMLIFrameElementSeamlessPropertyInfo +data DOMHTMLIFrameElementSrcPropertyInfo +data DOMHTMLIFrameElementSrcdocPropertyInfo +data DOMHTMLIFrameElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLImageElement.hs b/GI/WebKit/Objects/DOMHTMLImageElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLImageElement.hs @@ -0,0 +1,1707 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLImageElement + ( + +-- * Exported types + DOMHTMLImageElement(..) , + DOMHTMLImageElementK , + toDOMHTMLImageElement , + noDOMHTMLImageElement , + + + -- * Methods +-- ** dOMHTMLImageElementGetAlign + dOMHTMLImageElementGetAlign , + + +-- ** dOMHTMLImageElementGetAlt + dOMHTMLImageElementGetAlt , + + +-- ** dOMHTMLImageElementGetBorder + dOMHTMLImageElementGetBorder , + + +-- ** dOMHTMLImageElementGetComplete + dOMHTMLImageElementGetComplete , + + +-- ** dOMHTMLImageElementGetCrossOrigin + dOMHTMLImageElementGetCrossOrigin , + + +-- ** dOMHTMLImageElementGetHeight + dOMHTMLImageElementGetHeight , + + +-- ** dOMHTMLImageElementGetHspace + dOMHTMLImageElementGetHspace , + + +-- ** dOMHTMLImageElementGetIsMap + dOMHTMLImageElementGetIsMap , + + +-- ** dOMHTMLImageElementGetLongDesc + dOMHTMLImageElementGetLongDesc , + + +-- ** dOMHTMLImageElementGetLowsrc + dOMHTMLImageElementGetLowsrc , + + +-- ** dOMHTMLImageElementGetName + dOMHTMLImageElementGetName , + + +-- ** dOMHTMLImageElementGetNaturalHeight + dOMHTMLImageElementGetNaturalHeight , + + +-- ** dOMHTMLImageElementGetNaturalWidth + dOMHTMLImageElementGetNaturalWidth , + + +-- ** dOMHTMLImageElementGetSrc + dOMHTMLImageElementGetSrc , + + +-- ** dOMHTMLImageElementGetSrcset + dOMHTMLImageElementGetSrcset , + + +-- ** dOMHTMLImageElementGetUseMap + dOMHTMLImageElementGetUseMap , + + +-- ** dOMHTMLImageElementGetVspace + dOMHTMLImageElementGetVspace , + + +-- ** dOMHTMLImageElementGetWidth + dOMHTMLImageElementGetWidth , + + +-- ** dOMHTMLImageElementGetX + dOMHTMLImageElementGetX , + + +-- ** dOMHTMLImageElementGetY + dOMHTMLImageElementGetY , + + +-- ** dOMHTMLImageElementSetAlign + dOMHTMLImageElementSetAlign , + + +-- ** dOMHTMLImageElementSetAlt + dOMHTMLImageElementSetAlt , + + +-- ** dOMHTMLImageElementSetBorder + dOMHTMLImageElementSetBorder , + + +-- ** dOMHTMLImageElementSetCrossOrigin + dOMHTMLImageElementSetCrossOrigin , + + +-- ** dOMHTMLImageElementSetHeight + dOMHTMLImageElementSetHeight , + + +-- ** dOMHTMLImageElementSetHspace + dOMHTMLImageElementSetHspace , + + +-- ** dOMHTMLImageElementSetIsMap + dOMHTMLImageElementSetIsMap , + + +-- ** dOMHTMLImageElementSetLongDesc + dOMHTMLImageElementSetLongDesc , + + +-- ** dOMHTMLImageElementSetLowsrc + dOMHTMLImageElementSetLowsrc , + + +-- ** dOMHTMLImageElementSetName + dOMHTMLImageElementSetName , + + +-- ** dOMHTMLImageElementSetSrc + dOMHTMLImageElementSetSrc , + + +-- ** dOMHTMLImageElementSetSrcset + dOMHTMLImageElementSetSrcset , + + +-- ** dOMHTMLImageElementSetUseMap + dOMHTMLImageElementSetUseMap , + + +-- ** dOMHTMLImageElementSetVspace + dOMHTMLImageElementSetVspace , + + +-- ** dOMHTMLImageElementSetWidth + dOMHTMLImageElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLImageElementAlignPropertyInfo , + constructDOMHTMLImageElementAlign , + getDOMHTMLImageElementAlign , + setDOMHTMLImageElementAlign , + + +-- ** Alt + DOMHTMLImageElementAltPropertyInfo , + constructDOMHTMLImageElementAlt , + getDOMHTMLImageElementAlt , + setDOMHTMLImageElementAlt , + + +-- ** Border + DOMHTMLImageElementBorderPropertyInfo , + constructDOMHTMLImageElementBorder , + getDOMHTMLImageElementBorder , + setDOMHTMLImageElementBorder , + + +-- ** Complete + DOMHTMLImageElementCompletePropertyInfo , + getDOMHTMLImageElementComplete , + + +-- ** CrossOrigin + DOMHTMLImageElementCrossOriginPropertyInfo, + constructDOMHTMLImageElementCrossOrigin , + getDOMHTMLImageElementCrossOrigin , + setDOMHTMLImageElementCrossOrigin , + + +-- ** Height + DOMHTMLImageElementHeightPropertyInfo , + constructDOMHTMLImageElementHeight , + getDOMHTMLImageElementHeight , + setDOMHTMLImageElementHeight , + + +-- ** Hspace + DOMHTMLImageElementHspacePropertyInfo , + constructDOMHTMLImageElementHspace , + getDOMHTMLImageElementHspace , + setDOMHTMLImageElementHspace , + + +-- ** IsMap + DOMHTMLImageElementIsMapPropertyInfo , + constructDOMHTMLImageElementIsMap , + getDOMHTMLImageElementIsMap , + setDOMHTMLImageElementIsMap , + + +-- ** LongDesc + DOMHTMLImageElementLongDescPropertyInfo , + constructDOMHTMLImageElementLongDesc , + getDOMHTMLImageElementLongDesc , + setDOMHTMLImageElementLongDesc , + + +-- ** Lowsrc + DOMHTMLImageElementLowsrcPropertyInfo , + constructDOMHTMLImageElementLowsrc , + getDOMHTMLImageElementLowsrc , + setDOMHTMLImageElementLowsrc , + + +-- ** Name + DOMHTMLImageElementNamePropertyInfo , + constructDOMHTMLImageElementName , + getDOMHTMLImageElementName , + setDOMHTMLImageElementName , + + +-- ** NaturalHeight + DOMHTMLImageElementNaturalHeightPropertyInfo, + getDOMHTMLImageElementNaturalHeight , + + +-- ** NaturalWidth + DOMHTMLImageElementNaturalWidthPropertyInfo, + getDOMHTMLImageElementNaturalWidth , + + +-- ** Src + DOMHTMLImageElementSrcPropertyInfo , + constructDOMHTMLImageElementSrc , + getDOMHTMLImageElementSrc , + setDOMHTMLImageElementSrc , + + +-- ** Srcset + DOMHTMLImageElementSrcsetPropertyInfo , + constructDOMHTMLImageElementSrcset , + getDOMHTMLImageElementSrcset , + setDOMHTMLImageElementSrcset , + + +-- ** UseMap + DOMHTMLImageElementUseMapPropertyInfo , + constructDOMHTMLImageElementUseMap , + getDOMHTMLImageElementUseMap , + setDOMHTMLImageElementUseMap , + + +-- ** Vspace + DOMHTMLImageElementVspacePropertyInfo , + constructDOMHTMLImageElementVspace , + getDOMHTMLImageElementVspace , + setDOMHTMLImageElementVspace , + + +-- ** Width + DOMHTMLImageElementWidthPropertyInfo , + constructDOMHTMLImageElementWidth , + getDOMHTMLImageElementWidth , + setDOMHTMLImageElementWidth , + + +-- ** X + DOMHTMLImageElementXPropertyInfo , + getDOMHTMLImageElementX , + + +-- ** Y + DOMHTMLImageElementYPropertyInfo , + getDOMHTMLImageElementY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement) +foreign import ccall "webkit_dom_html_image_element_get_type" + c_webkit_dom_html_image_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLImageElement = DOMHTMLImageElementParentTypes +type DOMHTMLImageElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLImageElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_image_element_get_type + + +class GObject o => DOMHTMLImageElementK o +instance (GObject o, IsDescendantOf DOMHTMLImageElement o) => DOMHTMLImageElementK o + +toDOMHTMLImageElement :: DOMHTMLImageElementK o => o -> IO DOMHTMLImageElement +toDOMHTMLImageElement = unsafeCastTo DOMHTMLImageElement + +noDOMHTMLImageElement :: Maybe DOMHTMLImageElement +noDOMHTMLImageElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLImageElementAlignPropertyInfo +instance AttrInfo DOMHTMLImageElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementAlignPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "DOMHTMLImageElement::align" + attrGet _ = getDOMHTMLImageElementAlign + attrSet _ = setDOMHTMLImageElementAlign + attrConstruct _ = constructDOMHTMLImageElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLImageElementAltPropertyInfo +instance AttrInfo DOMHTMLImageElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementAltPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementAltPropertyInfo = "DOMHTMLImageElement::alt" + attrGet _ = getDOMHTMLImageElementAlt + attrSet _ = setDOMHTMLImageElementAlt + attrConstruct _ = constructDOMHTMLImageElementAlt + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLImageElementBorderPropertyInfo +instance AttrInfo DOMHTMLImageElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementBorderPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "DOMHTMLImageElement::border" + attrGet _ = getDOMHTMLImageElementBorder + attrSet _ = setDOMHTMLImageElementBorder + attrConstruct _ = constructDOMHTMLImageElementBorder + +-- VVV Prop "complete" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementComplete :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool +getDOMHTMLImageElementComplete obj = liftIO $ getObjectPropertyBool obj "complete" + +data DOMHTMLImageElementCompletePropertyInfo +instance AttrInfo DOMHTMLImageElementCompletePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementCompletePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementCompletePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementCompletePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementCompletePropertyInfo = Bool + type AttrLabel DOMHTMLImageElementCompletePropertyInfo = "DOMHTMLImageElement::complete" + attrGet _ = getDOMHTMLImageElementComplete + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cross-origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" + +setDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val + +constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" val + +data DOMHTMLImageElementCrossOriginPropertyInfo +instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "DOMHTMLImageElement::cross-origin" + attrGet _ = getDOMHTMLImageElementCrossOrigin + attrSet _ = setDOMHTMLImageElementCrossOrigin + attrConstruct _ = constructDOMHTMLImageElementCrossOrigin + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLImageElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLImageElementHeightPropertyInfo +instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "DOMHTMLImageElement::height" + attrGet _ = getDOMHTMLImageElementHeight + attrSet _ = setDOMHTMLImageElementHeight + attrConstruct _ = constructDOMHTMLImageElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLImageElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLImageElementHspacePropertyInfo +instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "DOMHTMLImageElement::hspace" + attrGet _ = getDOMHTMLImageElementHspace + attrSet _ = setDOMHTMLImageElementHspace + attrConstruct _ = constructDOMHTMLImageElementHspace + +-- VVV Prop "is-map" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool +getDOMHTMLImageElementIsMap obj = liftIO $ getObjectPropertyBool obj "is-map" + +setDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> Bool -> m () +setDOMHTMLImageElementIsMap obj val = liftIO $ setObjectPropertyBool obj "is-map" val + +constructDOMHTMLImageElementIsMap :: Bool -> IO ([Char], GValue) +constructDOMHTMLImageElementIsMap val = constructObjectPropertyBool "is-map" val + +data DOMHTMLImageElementIsMapPropertyInfo +instance AttrInfo DOMHTMLImageElementIsMapPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementIsMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementIsMapPropertyInfo = Bool + type AttrLabel DOMHTMLImageElementIsMapPropertyInfo = "DOMHTMLImageElement::is-map" + attrGet _ = getDOMHTMLImageElementIsMap + attrSet _ = setDOMHTMLImageElementIsMap + attrConstruct _ = constructDOMHTMLImageElementIsMap + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLImageElementLongDescPropertyInfo +instance AttrInfo DOMHTMLImageElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "DOMHTMLImageElement::long-desc" + attrGet _ = getDOMHTMLImageElementLongDesc + attrSet _ = setDOMHTMLImageElementLongDesc + attrConstruct _ = constructDOMHTMLImageElementLongDesc + +-- VVV Prop "lowsrc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc" + +setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" val + +constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" val + +data DOMHTMLImageElementLowsrcPropertyInfo +instance AttrInfo DOMHTMLImageElementLowsrcPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementLowsrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "DOMHTMLImageElement::lowsrc" + attrGet _ = getDOMHTMLImageElementLowsrc + attrSet _ = setDOMHTMLImageElementLowsrc + attrConstruct _ = constructDOMHTMLImageElementLowsrc + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementName val = constructObjectPropertyString "name" val + +data DOMHTMLImageElementNamePropertyInfo +instance AttrInfo DOMHTMLImageElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementNamePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementNamePropertyInfo = "DOMHTMLImageElement::name" + attrGet _ = getDOMHTMLImageElementName + attrSet _ = setDOMHTMLImageElementName + attrConstruct _ = constructDOMHTMLImageElementName + +-- VVV Prop "natural-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyInt64 obj "natural-height" + +data DOMHTMLImageElementNaturalHeightPropertyInfo +instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "DOMHTMLImageElement::natural-height" + attrGet _ = getDOMHTMLImageElementNaturalHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "natural-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyInt64 obj "natural-width" + +data DOMHTMLImageElementNaturalWidthPropertyInfo +instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "DOMHTMLImageElement::natural-width" + attrGet _ = getDOMHTMLImageElementNaturalWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLImageElementSrcPropertyInfo +instance AttrInfo DOMHTMLImageElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementSrcPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "DOMHTMLImageElement::src" + attrGet _ = getDOMHTMLImageElementSrc + attrSet _ = setDOMHTMLImageElementSrc + attrConstruct _ = constructDOMHTMLImageElementSrc + +-- VVV Prop "srcset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset" + +setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" val + +constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" val + +data DOMHTMLImageElementSrcsetPropertyInfo +instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "DOMHTMLImageElement::srcset" + attrGet _ = getDOMHTMLImageElementSrcset + attrSet _ = setDOMHTMLImageElementSrcset + attrConstruct _ = constructDOMHTMLImageElementSrcset + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLImageElementUseMapPropertyInfo +instance AttrInfo DOMHTMLImageElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "DOMHTMLImageElement::use-map" + attrGet _ = getDOMHTMLImageElementUseMap + attrSet _ = setDOMHTMLImageElementUseMap + attrConstruct _ = constructDOMHTMLImageElementUseMap + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLImageElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLImageElementVspacePropertyInfo +instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "DOMHTMLImageElement::vspace" + attrGet _ = getDOMHTMLImageElementVspace + attrSet _ = setDOMHTMLImageElementVspace + attrConstruct _ = constructDOMHTMLImageElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLImageElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLImageElementWidthPropertyInfo +instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "DOMHTMLImageElement::width" + attrGet _ = getDOMHTMLImageElementWidth + attrSet _ = setDOMHTMLImageElementWidth + attrConstruct _ = constructDOMHTMLImageElementWidth + +-- VVV Prop "x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyInt64 obj "x" + +data DOMHTMLImageElementXPropertyInfo +instance AttrInfo DOMHTMLImageElementXPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementXPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementXPropertyInfo = "DOMHTMLImageElement::x" + attrGet _ = getDOMHTMLImageElementX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyInt64 obj "y" + +data DOMHTMLImageElementYPropertyInfo +instance AttrInfo DOMHTMLImageElementYPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementYPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementYPropertyInfo = "DOMHTMLImageElement::y" + attrGet _ = getDOMHTMLImageElementY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLImageElement = DOMHTMLImageElementAttributeList +type DOMHTMLImageElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLImageElementCrossOriginPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("is-map", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("natural-height", DOMHTMLImageElementNaturalHeightPropertyInfo), '("natural-width", DOMHTMLImageElementNaturalWidthPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("use-map", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLImageElement = DOMHTMLImageElementSignalList +type DOMHTMLImageElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLImageElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_align" webkit_dom_html_image_element_get_align :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetAlign :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_alt" webkit_dom_html_image_element_get_alt :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetAlt :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetAlt _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_alt _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_alt" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_border" webkit_dom_html_image_element_get_border :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetBorder :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_border _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_border" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_complete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_complete" webkit_dom_html_image_element_get_complete :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CInt + + +dOMHTMLImageElementGetComplete :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Bool +dOMHTMLImageElementGetComplete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_complete _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_cross_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_cross_origin" webkit_dom_html_image_element_get_cross_origin :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetCrossOrigin :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetCrossOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_cross_origin _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_cross_origin" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_height" webkit_dom_html_image_element_get_height :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetHeight :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_hspace" webkit_dom_html_image_element_get_hspace :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetHspace :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetHspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_hspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_is_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_is_map" webkit_dom_html_image_element_get_is_map :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CInt + + +dOMHTMLImageElementGetIsMap :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Bool +dOMHTMLImageElementGetIsMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_is_map _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_long_desc" webkit_dom_html_image_element_get_long_desc :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetLongDesc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetLongDesc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_long_desc _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_long_desc" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_lowsrc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_lowsrc" webkit_dom_html_image_element_get_lowsrc :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetLowsrc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetLowsrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_lowsrc _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_lowsrc" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_name" webkit_dom_html_image_element_get_name :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetName :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_natural_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_natural_height" webkit_dom_html_image_element_get_natural_height :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetNaturalHeight :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetNaturalHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_natural_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_natural_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_natural_width" webkit_dom_html_image_element_get_natural_width :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetNaturalWidth :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetNaturalWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_natural_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_src" webkit_dom_html_image_element_get_src :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetSrc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_srcset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_srcset" webkit_dom_html_image_element_get_srcset :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetSrcset :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetSrcset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_srcset _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_srcset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_use_map" webkit_dom_html_image_element_get_use_map :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO CString + + +dOMHTMLImageElementGetUseMap :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m T.Text +dOMHTMLImageElementGetUseMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_use_map _obj' + checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_use_map" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLImageElement::get_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_vspace" webkit_dom_html_image_element_get_vspace :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetVspace :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetVspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_vspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_width" webkit_dom_html_image_element_get_width :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetWidth :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_x" webkit_dom_html_image_element_get_x :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetX :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_x _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::get_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_get_y" webkit_dom_html_image_element_get_y :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + IO Int64 + + +dOMHTMLImageElementGetY :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + m Int64 +dOMHTMLImageElementGetY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_image_element_get_y _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLImageElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_align" webkit_dom_html_image_element_set_align :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetAlign :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_alt" webkit_dom_html_image_element_set_alt :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetAlt :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetAlt _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_alt _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_border" webkit_dom_html_image_element_set_border :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetBorder :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetBorder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_border _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_cross_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_cross_origin" webkit_dom_html_image_element_set_cross_origin :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetCrossOrigin :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetCrossOrigin _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_cross_origin _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_height" webkit_dom_html_image_element_set_height :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLImageElementSetHeight :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLImageElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_image_element_set_height _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLImageElement::set_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_hspace" webkit_dom_html_image_element_set_hspace :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLImageElementSetHspace :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLImageElementSetHspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_image_element_set_hspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLImageElement::set_is_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_is_map" webkit_dom_html_image_element_set_is_map :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLImageElementSetIsMap :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLImageElementSetIsMap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_image_element_set_is_map _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLImageElement::set_long_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_long_desc" webkit_dom_html_image_element_set_long_desc :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetLongDesc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetLongDesc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_long_desc _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_lowsrc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_lowsrc" webkit_dom_html_image_element_set_lowsrc :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetLowsrc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetLowsrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_lowsrc _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_name" webkit_dom_html_image_element_set_name :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetName :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_src" webkit_dom_html_image_element_set_src :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetSrc :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_srcset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_srcset" webkit_dom_html_image_element_set_srcset :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetSrcset :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetSrcset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_srcset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_use_map" webkit_dom_html_image_element_set_use_map :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLImageElementSetUseMap :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLImageElementSetUseMap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_image_element_set_use_map _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLImageElement::set_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_vspace" webkit_dom_html_image_element_set_vspace :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLImageElementSetVspace :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLImageElementSetVspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_image_element_set_vspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLImageElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_image_element_set_width" webkit_dom_html_image_element_set_width :: + Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLImageElementSetWidth :: + (MonadIO m, DOMHTMLImageElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLImageElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_image_element_set_width _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot b/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot @@ -0,0 +1,33 @@ +module GI.WebKit.Objects.DOMHTMLImageElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement) +instance GObject DOMHTMLImageElement where +class GObject o => DOMHTMLImageElementK o +instance (GObject o, IsDescendantOf DOMHTMLImageElement o) => DOMHTMLImageElementK o +data DOMHTMLImageElementAlignPropertyInfo +data DOMHTMLImageElementAltPropertyInfo +data DOMHTMLImageElementBorderPropertyInfo +data DOMHTMLImageElementCompletePropertyInfo +data DOMHTMLImageElementCrossOriginPropertyInfo +data DOMHTMLImageElementHeightPropertyInfo +data DOMHTMLImageElementHspacePropertyInfo +data DOMHTMLImageElementIsMapPropertyInfo +data DOMHTMLImageElementLongDescPropertyInfo +data DOMHTMLImageElementLowsrcPropertyInfo +data DOMHTMLImageElementNamePropertyInfo +data DOMHTMLImageElementNaturalHeightPropertyInfo +data DOMHTMLImageElementNaturalWidthPropertyInfo +data DOMHTMLImageElementSrcPropertyInfo +data DOMHTMLImageElementSrcsetPropertyInfo +data DOMHTMLImageElementUseMapPropertyInfo +data DOMHTMLImageElementVspacePropertyInfo +data DOMHTMLImageElementWidthPropertyInfo +data DOMHTMLImageElementXPropertyInfo +data DOMHTMLImageElementYPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLInputElement.hs b/GI/WebKit/Objects/DOMHTMLInputElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLInputElement.hs @@ -0,0 +1,4474 @@ + +{- | +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.WebKit.Objects.DOMHTMLInputElement + ( + +-- * Exported types + DOMHTMLInputElement(..) , + DOMHTMLInputElementK , + toDOMHTMLInputElement , + noDOMHTMLInputElement , + + + -- * Methods +-- ** dOMHTMLInputElementCheckValidity + dOMHTMLInputElementCheckValidity , + + +-- ** dOMHTMLInputElementGetAccept + dOMHTMLInputElementGetAccept , + + +-- ** dOMHTMLInputElementGetAlign + dOMHTMLInputElementGetAlign , + + +-- ** dOMHTMLInputElementGetAlt + dOMHTMLInputElementGetAlt , + + +-- ** dOMHTMLInputElementGetAutocapitalize + dOMHTMLInputElementGetAutocapitalize , + + +-- ** dOMHTMLInputElementGetAutocomplete + dOMHTMLInputElementGetAutocomplete , + + +-- ** dOMHTMLInputElementGetAutocorrect + dOMHTMLInputElementGetAutocorrect , + + +-- ** dOMHTMLInputElementGetAutofocus + dOMHTMLInputElementGetAutofocus , + + +-- ** dOMHTMLInputElementGetCapture + dOMHTMLInputElementGetCapture , + + +-- ** dOMHTMLInputElementGetChecked + dOMHTMLInputElementGetChecked , + + +-- ** dOMHTMLInputElementGetDefaultChecked + dOMHTMLInputElementGetDefaultChecked , + + +-- ** dOMHTMLInputElementGetDefaultValue + dOMHTMLInputElementGetDefaultValue , + + +-- ** dOMHTMLInputElementGetDirName + dOMHTMLInputElementGetDirName , + + +-- ** dOMHTMLInputElementGetDisabled + dOMHTMLInputElementGetDisabled , + + +-- ** dOMHTMLInputElementGetFiles + dOMHTMLInputElementGetFiles , + + +-- ** dOMHTMLInputElementGetForm + dOMHTMLInputElementGetForm , + + +-- ** dOMHTMLInputElementGetFormAction + dOMHTMLInputElementGetFormAction , + + +-- ** dOMHTMLInputElementGetFormEnctype + dOMHTMLInputElementGetFormEnctype , + + +-- ** dOMHTMLInputElementGetFormMethod + dOMHTMLInputElementGetFormMethod , + + +-- ** dOMHTMLInputElementGetFormNoValidate + dOMHTMLInputElementGetFormNoValidate , + + +-- ** dOMHTMLInputElementGetFormTarget + dOMHTMLInputElementGetFormTarget , + + +-- ** dOMHTMLInputElementGetHeight + dOMHTMLInputElementGetHeight , + + +-- ** dOMHTMLInputElementGetIncremental + dOMHTMLInputElementGetIncremental , + + +-- ** dOMHTMLInputElementGetIndeterminate + dOMHTMLInputElementGetIndeterminate , + + +-- ** dOMHTMLInputElementGetLabels + dOMHTMLInputElementGetLabels , + + +-- ** dOMHTMLInputElementGetList + dOMHTMLInputElementGetList , + + +-- ** dOMHTMLInputElementGetMax + dOMHTMLInputElementGetMax , + + +-- ** dOMHTMLInputElementGetMaxLength + dOMHTMLInputElementGetMaxLength , + + +-- ** dOMHTMLInputElementGetMin + dOMHTMLInputElementGetMin , + + +-- ** dOMHTMLInputElementGetMultiple + dOMHTMLInputElementGetMultiple , + + +-- ** dOMHTMLInputElementGetName + dOMHTMLInputElementGetName , + + +-- ** dOMHTMLInputElementGetPattern + dOMHTMLInputElementGetPattern , + + +-- ** dOMHTMLInputElementGetPlaceholder + dOMHTMLInputElementGetPlaceholder , + + +-- ** dOMHTMLInputElementGetReadOnly + dOMHTMLInputElementGetReadOnly , + + +-- ** dOMHTMLInputElementGetRequired + dOMHTMLInputElementGetRequired , + + +-- ** dOMHTMLInputElementGetSize + dOMHTMLInputElementGetSize , + + +-- ** dOMHTMLInputElementGetSrc + dOMHTMLInputElementGetSrc , + + +-- ** dOMHTMLInputElementGetStep + dOMHTMLInputElementGetStep , + + +-- ** dOMHTMLInputElementGetUseMap + dOMHTMLInputElementGetUseMap , + + +-- ** dOMHTMLInputElementGetValidationMessage + dOMHTMLInputElementGetValidationMessage , + + +-- ** dOMHTMLInputElementGetValidity + dOMHTMLInputElementGetValidity , + + +-- ** dOMHTMLInputElementGetValue + dOMHTMLInputElementGetValue , + + +-- ** dOMHTMLInputElementGetValueAsNumber + dOMHTMLInputElementGetValueAsNumber , + + +-- ** dOMHTMLInputElementGetWebkitGrammar + dOMHTMLInputElementGetWebkitGrammar , + + +-- ** dOMHTMLInputElementGetWebkitSpeech + dOMHTMLInputElementGetWebkitSpeech , + + +-- ** dOMHTMLInputElementGetWebkitdirectory + dOMHTMLInputElementGetWebkitdirectory , + + +-- ** dOMHTMLInputElementGetWidth + dOMHTMLInputElementGetWidth , + + +-- ** dOMHTMLInputElementGetWillValidate + dOMHTMLInputElementGetWillValidate , + + +-- ** dOMHTMLInputElementIsEdited + dOMHTMLInputElementIsEdited , + + +-- ** dOMHTMLInputElementSelect + dOMHTMLInputElementSelect , + + +-- ** dOMHTMLInputElementSetAccept + dOMHTMLInputElementSetAccept , + + +-- ** dOMHTMLInputElementSetAlign + dOMHTMLInputElementSetAlign , + + +-- ** dOMHTMLInputElementSetAlt + dOMHTMLInputElementSetAlt , + + +-- ** dOMHTMLInputElementSetAutocapitalize + dOMHTMLInputElementSetAutocapitalize , + + +-- ** dOMHTMLInputElementSetAutocomplete + dOMHTMLInputElementSetAutocomplete , + + +-- ** dOMHTMLInputElementSetAutocorrect + dOMHTMLInputElementSetAutocorrect , + + +-- ** dOMHTMLInputElementSetAutofocus + dOMHTMLInputElementSetAutofocus , + + +-- ** dOMHTMLInputElementSetCapture + dOMHTMLInputElementSetCapture , + + +-- ** dOMHTMLInputElementSetChecked + dOMHTMLInputElementSetChecked , + + +-- ** dOMHTMLInputElementSetCustomValidity + dOMHTMLInputElementSetCustomValidity , + + +-- ** dOMHTMLInputElementSetDefaultChecked + dOMHTMLInputElementSetDefaultChecked , + + +-- ** dOMHTMLInputElementSetDefaultValue + dOMHTMLInputElementSetDefaultValue , + + +-- ** dOMHTMLInputElementSetDirName + dOMHTMLInputElementSetDirName , + + +-- ** dOMHTMLInputElementSetDisabled + dOMHTMLInputElementSetDisabled , + + +-- ** dOMHTMLInputElementSetFiles + dOMHTMLInputElementSetFiles , + + +-- ** dOMHTMLInputElementSetFormAction + dOMHTMLInputElementSetFormAction , + + +-- ** dOMHTMLInputElementSetFormEnctype + dOMHTMLInputElementSetFormEnctype , + + +-- ** dOMHTMLInputElementSetFormMethod + dOMHTMLInputElementSetFormMethod , + + +-- ** dOMHTMLInputElementSetFormNoValidate + dOMHTMLInputElementSetFormNoValidate , + + +-- ** dOMHTMLInputElementSetFormTarget + dOMHTMLInputElementSetFormTarget , + + +-- ** dOMHTMLInputElementSetHeight + dOMHTMLInputElementSetHeight , + + +-- ** dOMHTMLInputElementSetIncremental + dOMHTMLInputElementSetIncremental , + + +-- ** dOMHTMLInputElementSetIndeterminate + dOMHTMLInputElementSetIndeterminate , + + +-- ** dOMHTMLInputElementSetMax + dOMHTMLInputElementSetMax , + + +-- ** dOMHTMLInputElementSetMaxLength + dOMHTMLInputElementSetMaxLength , + + +-- ** dOMHTMLInputElementSetMin + dOMHTMLInputElementSetMin , + + +-- ** dOMHTMLInputElementSetMultiple + dOMHTMLInputElementSetMultiple , + + +-- ** dOMHTMLInputElementSetName + dOMHTMLInputElementSetName , + + +-- ** dOMHTMLInputElementSetPattern + dOMHTMLInputElementSetPattern , + + +-- ** dOMHTMLInputElementSetPlaceholder + dOMHTMLInputElementSetPlaceholder , + + +-- ** dOMHTMLInputElementSetRangeText + dOMHTMLInputElementSetRangeText , + + +-- ** dOMHTMLInputElementSetReadOnly + dOMHTMLInputElementSetReadOnly , + + +-- ** dOMHTMLInputElementSetRequired + dOMHTMLInputElementSetRequired , + + +-- ** dOMHTMLInputElementSetSize + dOMHTMLInputElementSetSize , + + +-- ** dOMHTMLInputElementSetSrc + dOMHTMLInputElementSetSrc , + + +-- ** dOMHTMLInputElementSetStep + dOMHTMLInputElementSetStep , + + +-- ** dOMHTMLInputElementSetUseMap + dOMHTMLInputElementSetUseMap , + + +-- ** dOMHTMLInputElementSetValue + dOMHTMLInputElementSetValue , + + +-- ** dOMHTMLInputElementSetValueAsNumber + dOMHTMLInputElementSetValueAsNumber , + + +-- ** dOMHTMLInputElementSetValueForUser + dOMHTMLInputElementSetValueForUser , + + +-- ** dOMHTMLInputElementSetWebkitGrammar + dOMHTMLInputElementSetWebkitGrammar , + + +-- ** dOMHTMLInputElementSetWebkitSpeech + dOMHTMLInputElementSetWebkitSpeech , + + +-- ** dOMHTMLInputElementSetWebkitdirectory + dOMHTMLInputElementSetWebkitdirectory , + + +-- ** dOMHTMLInputElementSetWidth + dOMHTMLInputElementSetWidth , + + +-- ** dOMHTMLInputElementStepDown + dOMHTMLInputElementStepDown , + + +-- ** dOMHTMLInputElementStepUp + dOMHTMLInputElementStepUp , + + + + + -- * Properties +-- ** Accept + DOMHTMLInputElementAcceptPropertyInfo , + constructDOMHTMLInputElementAccept , + getDOMHTMLInputElementAccept , + setDOMHTMLInputElementAccept , + + +-- ** Align + DOMHTMLInputElementAlignPropertyInfo , + constructDOMHTMLInputElementAlign , + getDOMHTMLInputElementAlign , + setDOMHTMLInputElementAlign , + + +-- ** Alt + DOMHTMLInputElementAltPropertyInfo , + constructDOMHTMLInputElementAlt , + getDOMHTMLInputElementAlt , + setDOMHTMLInputElementAlt , + + +-- ** Autocapitalize + DOMHTMLInputElementAutocapitalizePropertyInfo, + constructDOMHTMLInputElementAutocapitalize, + getDOMHTMLInputElementAutocapitalize , + setDOMHTMLInputElementAutocapitalize , + + +-- ** Autocomplete + DOMHTMLInputElementAutocompletePropertyInfo, + constructDOMHTMLInputElementAutocomplete, + getDOMHTMLInputElementAutocomplete , + setDOMHTMLInputElementAutocomplete , + + +-- ** Autocorrect + DOMHTMLInputElementAutocorrectPropertyInfo, + constructDOMHTMLInputElementAutocorrect , + getDOMHTMLInputElementAutocorrect , + setDOMHTMLInputElementAutocorrect , + + +-- ** Autofocus + DOMHTMLInputElementAutofocusPropertyInfo, + constructDOMHTMLInputElementAutofocus , + getDOMHTMLInputElementAutofocus , + setDOMHTMLInputElementAutofocus , + + +-- ** Capture + DOMHTMLInputElementCapturePropertyInfo , + constructDOMHTMLInputElementCapture , + getDOMHTMLInputElementCapture , + setDOMHTMLInputElementCapture , + + +-- ** Checked + DOMHTMLInputElementCheckedPropertyInfo , + constructDOMHTMLInputElementChecked , + getDOMHTMLInputElementChecked , + setDOMHTMLInputElementChecked , + + +-- ** DefaultChecked + DOMHTMLInputElementDefaultCheckedPropertyInfo, + constructDOMHTMLInputElementDefaultChecked, + getDOMHTMLInputElementDefaultChecked , + setDOMHTMLInputElementDefaultChecked , + + +-- ** DefaultValue + DOMHTMLInputElementDefaultValuePropertyInfo, + constructDOMHTMLInputElementDefaultValue, + getDOMHTMLInputElementDefaultValue , + setDOMHTMLInputElementDefaultValue , + + +-- ** DirName + DOMHTMLInputElementDirNamePropertyInfo , + constructDOMHTMLInputElementDirName , + getDOMHTMLInputElementDirName , + setDOMHTMLInputElementDirName , + + +-- ** Disabled + DOMHTMLInputElementDisabledPropertyInfo , + constructDOMHTMLInputElementDisabled , + getDOMHTMLInputElementDisabled , + setDOMHTMLInputElementDisabled , + + +-- ** Files + DOMHTMLInputElementFilesPropertyInfo , + getDOMHTMLInputElementFiles , + + +-- ** Form + DOMHTMLInputElementFormPropertyInfo , + getDOMHTMLInputElementForm , + + +-- ** FormAction + DOMHTMLInputElementFormActionPropertyInfo, + constructDOMHTMLInputElementFormAction , + getDOMHTMLInputElementFormAction , + setDOMHTMLInputElementFormAction , + + +-- ** FormEnctype + DOMHTMLInputElementFormEnctypePropertyInfo, + constructDOMHTMLInputElementFormEnctype , + getDOMHTMLInputElementFormEnctype , + setDOMHTMLInputElementFormEnctype , + + +-- ** FormMethod + DOMHTMLInputElementFormMethodPropertyInfo, + constructDOMHTMLInputElementFormMethod , + getDOMHTMLInputElementFormMethod , + setDOMHTMLInputElementFormMethod , + + +-- ** FormNoValidate + DOMHTMLInputElementFormNoValidatePropertyInfo, + constructDOMHTMLInputElementFormNoValidate, + getDOMHTMLInputElementFormNoValidate , + setDOMHTMLInputElementFormNoValidate , + + +-- ** FormTarget + DOMHTMLInputElementFormTargetPropertyInfo, + constructDOMHTMLInputElementFormTarget , + getDOMHTMLInputElementFormTarget , + setDOMHTMLInputElementFormTarget , + + +-- ** Height + DOMHTMLInputElementHeightPropertyInfo , + constructDOMHTMLInputElementHeight , + getDOMHTMLInputElementHeight , + setDOMHTMLInputElementHeight , + + +-- ** Incremental + DOMHTMLInputElementIncrementalPropertyInfo, + constructDOMHTMLInputElementIncremental , + getDOMHTMLInputElementIncremental , + setDOMHTMLInputElementIncremental , + + +-- ** Indeterminate + DOMHTMLInputElementIndeterminatePropertyInfo, + constructDOMHTMLInputElementIndeterminate, + getDOMHTMLInputElementIndeterminate , + setDOMHTMLInputElementIndeterminate , + + +-- ** Labels + DOMHTMLInputElementLabelsPropertyInfo , + getDOMHTMLInputElementLabels , + + +-- ** List + DOMHTMLInputElementListPropertyInfo , + getDOMHTMLInputElementList , + + +-- ** Max + DOMHTMLInputElementMaxPropertyInfo , + constructDOMHTMLInputElementMax , + getDOMHTMLInputElementMax , + setDOMHTMLInputElementMax , + + +-- ** MaxLength + DOMHTMLInputElementMaxLengthPropertyInfo, + constructDOMHTMLInputElementMaxLength , + getDOMHTMLInputElementMaxLength , + setDOMHTMLInputElementMaxLength , + + +-- ** Min + DOMHTMLInputElementMinPropertyInfo , + constructDOMHTMLInputElementMin , + getDOMHTMLInputElementMin , + setDOMHTMLInputElementMin , + + +-- ** Multiple + DOMHTMLInputElementMultiplePropertyInfo , + constructDOMHTMLInputElementMultiple , + getDOMHTMLInputElementMultiple , + setDOMHTMLInputElementMultiple , + + +-- ** Name + DOMHTMLInputElementNamePropertyInfo , + constructDOMHTMLInputElementName , + getDOMHTMLInputElementName , + setDOMHTMLInputElementName , + + +-- ** Pattern + DOMHTMLInputElementPatternPropertyInfo , + constructDOMHTMLInputElementPattern , + getDOMHTMLInputElementPattern , + setDOMHTMLInputElementPattern , + + +-- ** Placeholder + DOMHTMLInputElementPlaceholderPropertyInfo, + constructDOMHTMLInputElementPlaceholder , + getDOMHTMLInputElementPlaceholder , + setDOMHTMLInputElementPlaceholder , + + +-- ** ReadOnly + DOMHTMLInputElementReadOnlyPropertyInfo , + constructDOMHTMLInputElementReadOnly , + getDOMHTMLInputElementReadOnly , + setDOMHTMLInputElementReadOnly , + + +-- ** Required + DOMHTMLInputElementRequiredPropertyInfo , + constructDOMHTMLInputElementRequired , + getDOMHTMLInputElementRequired , + setDOMHTMLInputElementRequired , + + +-- ** Size + DOMHTMLInputElementSizePropertyInfo , + constructDOMHTMLInputElementSize , + getDOMHTMLInputElementSize , + setDOMHTMLInputElementSize , + + +-- ** Src + DOMHTMLInputElementSrcPropertyInfo , + constructDOMHTMLInputElementSrc , + getDOMHTMLInputElementSrc , + setDOMHTMLInputElementSrc , + + +-- ** Step + DOMHTMLInputElementStepPropertyInfo , + constructDOMHTMLInputElementStep , + getDOMHTMLInputElementStep , + setDOMHTMLInputElementStep , + + +-- ** Type + DOMHTMLInputElementTypePropertyInfo , + constructDOMHTMLInputElementType , + getDOMHTMLInputElementType , + setDOMHTMLInputElementType , + + +-- ** UseMap + DOMHTMLInputElementUseMapPropertyInfo , + constructDOMHTMLInputElementUseMap , + getDOMHTMLInputElementUseMap , + setDOMHTMLInputElementUseMap , + + +-- ** ValidationMessage + DOMHTMLInputElementValidationMessagePropertyInfo, + getDOMHTMLInputElementValidationMessage , + + +-- ** Validity + DOMHTMLInputElementValidityPropertyInfo , + getDOMHTMLInputElementValidity , + + +-- ** Value + DOMHTMLInputElementValuePropertyInfo , + constructDOMHTMLInputElementValue , + getDOMHTMLInputElementValue , + setDOMHTMLInputElementValue , + + +-- ** ValueAsNumber + DOMHTMLInputElementValueAsNumberPropertyInfo, + constructDOMHTMLInputElementValueAsNumber, + getDOMHTMLInputElementValueAsNumber , + setDOMHTMLInputElementValueAsNumber , + + +-- ** WebkitGrammar + DOMHTMLInputElementWebkitGrammarPropertyInfo, + constructDOMHTMLInputElementWebkitGrammar, + getDOMHTMLInputElementWebkitGrammar , + setDOMHTMLInputElementWebkitGrammar , + + +-- ** WebkitSpeech + DOMHTMLInputElementWebkitSpeechPropertyInfo, + constructDOMHTMLInputElementWebkitSpeech, + getDOMHTMLInputElementWebkitSpeech , + setDOMHTMLInputElementWebkitSpeech , + + +-- ** Webkitdirectory + DOMHTMLInputElementWebkitdirectoryPropertyInfo, + constructDOMHTMLInputElementWebkitdirectory, + getDOMHTMLInputElementWebkitdirectory , + setDOMHTMLInputElementWebkitdirectory , + + +-- ** Width + DOMHTMLInputElementWidthPropertyInfo , + constructDOMHTMLInputElementWidth , + getDOMHTMLInputElementWidth , + setDOMHTMLInputElementWidth , + + +-- ** WillValidate + DOMHTMLInputElementWillValidatePropertyInfo, + getDOMHTMLInputElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLInputElement = DOMHTMLInputElement (ForeignPtr DOMHTMLInputElement) +foreign import ccall "webkit_dom_html_input_element_get_type" + c_webkit_dom_html_input_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLInputElement = DOMHTMLInputElementParentTypes +type DOMHTMLInputElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLInputElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_input_element_get_type + + +class GObject o => DOMHTMLInputElementK o +instance (GObject o, IsDescendantOf DOMHTMLInputElement o) => DOMHTMLInputElementK o + +toDOMHTMLInputElement :: DOMHTMLInputElementK o => o -> IO DOMHTMLInputElement +toDOMHTMLInputElement = unsafeCastTo DOMHTMLInputElement + +noDOMHTMLInputElement :: Maybe DOMHTMLInputElement +noDOMHTMLInputElement = Nothing + +-- VVV Prop "accept" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept" + +setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" val + +constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" val + +data DOMHTMLInputElementAcceptPropertyInfo +instance AttrInfo DOMHTMLInputElementAcceptPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAcceptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "DOMHTMLInputElement::accept" + attrGet _ = getDOMHTMLInputElementAccept + attrSet _ = setDOMHTMLInputElementAccept + attrConstruct _ = constructDOMHTMLInputElementAccept + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLInputElementAlignPropertyInfo +instance AttrInfo DOMHTMLInputElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAlignPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "DOMHTMLInputElement::align" + attrGet _ = getDOMHTMLInputElementAlign + attrSet _ = setDOMHTMLInputElementAlign + attrConstruct _ = constructDOMHTMLInputElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLInputElementAltPropertyInfo +instance AttrInfo DOMHTMLInputElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAltPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAltPropertyInfo = "DOMHTMLInputElement::alt" + attrGet _ = getDOMHTMLInputElementAlt + attrSet _ = setDOMHTMLInputElementAlt + attrConstruct _ = constructDOMHTMLInputElementAlt + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLInputElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "DOMHTMLInputElement::autocapitalize" + attrGet _ = getDOMHTMLInputElementAutocapitalize + attrSet _ = setDOMHTMLInputElementAutocapitalize + attrConstruct _ = constructDOMHTMLInputElementAutocapitalize + +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val + +constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" val + +data DOMHTMLInputElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "DOMHTMLInputElement::autocomplete" + attrGet _ = getDOMHTMLInputElementAutocomplete + attrSet _ = setDOMHTMLInputElementAutocomplete + attrConstruct _ = constructDOMHTMLInputElementAutocomplete + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLInputElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLInputElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLInputElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementAutocorrectPropertyInfo = "DOMHTMLInputElement::autocorrect" + attrGet _ = getDOMHTMLInputElementAutocorrect + attrSet _ = setDOMHTMLInputElementAutocorrect + attrConstruct _ = constructDOMHTMLInputElementAutocorrect + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLInputElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLInputElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLInputElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementAutofocusPropertyInfo = "DOMHTMLInputElement::autofocus" + attrGet _ = getDOMHTMLInputElementAutofocus + attrSet _ = setDOMHTMLInputElementAutofocus + attrConstruct _ = constructDOMHTMLInputElementAutofocus + +-- VVV Prop "capture" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyString obj "capture" + +setDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyString obj "capture" val + +constructDOMHTMLInputElementCapture :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementCapture val = constructObjectPropertyString "capture" val + +data DOMHTMLInputElementCapturePropertyInfo +instance AttrInfo DOMHTMLInputElementCapturePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementCapturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementCapturePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementCapturePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementCapturePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementCapturePropertyInfo = "DOMHTMLInputElement::capture" + attrGet _ = getDOMHTMLInputElementCapture + attrSet _ = setDOMHTMLInputElementCapture + attrConstruct _ = constructDOMHTMLInputElementCapture + +-- VVV Prop "checked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementChecked obj = liftIO $ getObjectPropertyBool obj "checked" + +setDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementChecked obj val = liftIO $ setObjectPropertyBool obj "checked" val + +constructDOMHTMLInputElementChecked :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementChecked val = constructObjectPropertyBool "checked" val + +data DOMHTMLInputElementCheckedPropertyInfo +instance AttrInfo DOMHTMLInputElementCheckedPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementCheckedPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementCheckedPropertyInfo = "DOMHTMLInputElement::checked" + attrGet _ = getDOMHTMLInputElementChecked + attrSet _ = setDOMHTMLInputElementChecked + attrConstruct _ = constructDOMHTMLInputElementChecked + +-- VVV Prop "default-checked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked" + +setDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementDefaultChecked obj val = liftIO $ setObjectPropertyBool obj "default-checked" val + +constructDOMHTMLInputElementDefaultChecked :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementDefaultChecked val = constructObjectPropertyBool "default-checked" val + +data DOMHTMLInputElementDefaultCheckedPropertyInfo +instance AttrInfo DOMHTMLInputElementDefaultCheckedPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDefaultCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDefaultCheckedPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementDefaultCheckedPropertyInfo = "DOMHTMLInputElement::default-checked" + attrGet _ = getDOMHTMLInputElementDefaultChecked + attrSet _ = setDOMHTMLInputElementDefaultChecked + attrConstruct _ = constructDOMHTMLInputElementDefaultChecked + +-- VVV Prop "default-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" + +setDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val + +constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" val + +data DOMHTMLInputElementDefaultValuePropertyInfo +instance AttrInfo DOMHTMLInputElementDefaultValuePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "DOMHTMLInputElement::default-value" + attrGet _ = getDOMHTMLInputElementDefaultValue + attrSet _ = setDOMHTMLInputElementDefaultValue + attrConstruct _ = constructDOMHTMLInputElementDefaultValue + +-- VVV Prop "dir-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" + +setDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val + +constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" val + +data DOMHTMLInputElementDirNamePropertyInfo +instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "DOMHTMLInputElement::dir-name" + attrGet _ = getDOMHTMLInputElementDirName + attrSet _ = setDOMHTMLInputElementDirName + attrConstruct _ = constructDOMHTMLInputElementDirName + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLInputElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLInputElementDisabledPropertyInfo +instance AttrInfo DOMHTMLInputElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementDisabledPropertyInfo = "DOMHTMLInputElement::disabled" + attrGet _ = getDOMHTMLInputElementDisabled + attrSet _ = setDOMHTMLInputElementDisabled + attrConstruct _ = constructDOMHTMLInputElementDisabled + +-- VVV Prop "files" + -- Type: TInterface "WebKit" "DOMFileList" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMFileList +getDOMHTMLInputElementFiles obj = liftIO $ getObjectPropertyObject obj "files" DOMFileList + +data DOMHTMLInputElementFilesPropertyInfo +instance AttrInfo DOMHTMLInputElementFilesPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFilesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFilesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementFilesPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFilesPropertyInfo = DOMFileList + type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "DOMHTMLInputElement::files" + attrGet _ = getDOMHTMLInputElementFiles + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLInputElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLInputElementFormPropertyInfo +instance AttrInfo DOMHTMLInputElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLInputElementFormPropertyInfo = "DOMHTMLInputElement::form" + attrGet _ = getDOMHTMLInputElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form-action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" + +setDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val + +constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" val + +data DOMHTMLInputElementFormActionPropertyInfo +instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "DOMHTMLInputElement::form-action" + attrGet _ = getDOMHTMLInputElementFormAction + attrSet _ = setDOMHTMLInputElementFormAction + attrConstruct _ = constructDOMHTMLInputElementFormAction + +-- VVV Prop "form-enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" + +setDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val + +constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" val + +data DOMHTMLInputElementFormEnctypePropertyInfo +instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "DOMHTMLInputElement::form-enctype" + attrGet _ = getDOMHTMLInputElementFormEnctype + attrSet _ = setDOMHTMLInputElementFormEnctype + attrConstruct _ = constructDOMHTMLInputElementFormEnctype + +-- VVV Prop "form-method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" + +setDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val + +constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" val + +data DOMHTMLInputElementFormMethodPropertyInfo +instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "DOMHTMLInputElement::form-method" + attrGet _ = getDOMHTMLInputElementFormMethod + attrSet _ = setDOMHTMLInputElementFormMethod + attrConstruct _ = constructDOMHTMLInputElementFormMethod + +-- VVV Prop "form-no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" + +setDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val + +constructDOMHTMLInputElementFormNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val + +data DOMHTMLInputElementFormNoValidatePropertyInfo +instance AttrInfo DOMHTMLInputElementFormNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementFormNoValidatePropertyInfo = "DOMHTMLInputElement::form-no-validate" + attrGet _ = getDOMHTMLInputElementFormNoValidate + attrSet _ = setDOMHTMLInputElementFormNoValidate + attrConstruct _ = constructDOMHTMLInputElementFormNoValidate + +-- VVV Prop "form-target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" + +setDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val + +constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" val + +data DOMHTMLInputElementFormTargetPropertyInfo +instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "DOMHTMLInputElement::form-target" + attrGet _ = getDOMHTMLInputElementFormTarget + attrSet _ = setDOMHTMLInputElementFormTarget + attrConstruct _ = constructDOMHTMLInputElementFormTarget + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val + +constructDOMHTMLInputElementHeight :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementHeight val = constructObjectPropertyUInt64 "height" val + +data DOMHTMLInputElementHeightPropertyInfo +instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "DOMHTMLInputElement::height" + attrGet _ = getDOMHTMLInputElementHeight + attrSet _ = setDOMHTMLInputElementHeight + attrConstruct _ = constructDOMHTMLInputElementHeight + +-- VVV Prop "incremental" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental" + +setDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementIncremental obj val = liftIO $ setObjectPropertyBool obj "incremental" val + +constructDOMHTMLInputElementIncremental :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementIncremental val = constructObjectPropertyBool "incremental" val + +data DOMHTMLInputElementIncrementalPropertyInfo +instance AttrInfo DOMHTMLInputElementIncrementalPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementIncrementalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementIncrementalPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementIncrementalPropertyInfo = "DOMHTMLInputElement::incremental" + attrGet _ = getDOMHTMLInputElementIncremental + attrSet _ = setDOMHTMLInputElementIncremental + attrConstruct _ = constructDOMHTMLInputElementIncremental + +-- VVV Prop "indeterminate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementIndeterminate obj = liftIO $ getObjectPropertyBool obj "indeterminate" + +setDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementIndeterminate obj val = liftIO $ setObjectPropertyBool obj "indeterminate" val + +constructDOMHTMLInputElementIndeterminate :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementIndeterminate val = constructObjectPropertyBool "indeterminate" val + +data DOMHTMLInputElementIndeterminatePropertyInfo +instance AttrInfo DOMHTMLInputElementIndeterminatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementIndeterminatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementIndeterminatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementIndeterminatePropertyInfo = "DOMHTMLInputElement::indeterminate" + attrGet _ = getDOMHTMLInputElementIndeterminate + attrSet _ = setDOMHTMLInputElementIndeterminate + attrConstruct _ = constructDOMHTMLInputElementIndeterminate + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMNodeList +getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLInputElementLabelsPropertyInfo +instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "DOMHTMLInputElement::labels" + attrGet _ = getDOMHTMLInputElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "list" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement +getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement + +data DOMHTMLInputElementListPropertyInfo +instance AttrInfo DOMHTMLInputElementListPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementListPropertyInfo = DOMHTMLElement + type AttrLabel DOMHTMLInputElementListPropertyInfo = "DOMHTMLInputElement::list" + attrGet _ = getDOMHTMLInputElementList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "max" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max" + +setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" val + +constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" val + +data DOMHTMLInputElementMaxPropertyInfo +instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMaxPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "DOMHTMLInputElement::max" + attrGet _ = getDOMHTMLInputElementMax + attrSet _ = setDOMHTMLInputElementMax + attrConstruct _ = constructDOMHTMLInputElementMax + +-- VVV Prop "max-length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Int64 +getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" + +setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> Int64 -> m () +setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val + +constructDOMHTMLInputElementMaxLength :: Int64 -> IO ([Char], GValue) +constructDOMHTMLInputElementMaxLength val = constructObjectPropertyInt64 "max-length" val + +data DOMHTMLInputElementMaxLengthPropertyInfo +instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "DOMHTMLInputElement::max-length" + attrGet _ = getDOMHTMLInputElementMaxLength + attrSet _ = setDOMHTMLInputElementMaxLength + attrConstruct _ = constructDOMHTMLInputElementMaxLength + +-- VVV Prop "min" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min" + +setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" val + +constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" val + +data DOMHTMLInputElementMinPropertyInfo +instance AttrInfo DOMHTMLInputElementMinPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMinPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementMinPropertyInfo = "DOMHTMLInputElement::min" + attrGet _ = getDOMHTMLInputElementMin + attrSet _ = setDOMHTMLInputElementMin + attrConstruct _ = constructDOMHTMLInputElementMin + +-- VVV Prop "multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" + +setDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val + +constructDOMHTMLInputElementMultiple :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementMultiple val = constructObjectPropertyBool "multiple" val + +data DOMHTMLInputElementMultiplePropertyInfo +instance AttrInfo DOMHTMLInputElementMultiplePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMultiplePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementMultiplePropertyInfo = "DOMHTMLInputElement::multiple" + attrGet _ = getDOMHTMLInputElementMultiple + attrSet _ = setDOMHTMLInputElementMultiple + attrConstruct _ = constructDOMHTMLInputElementMultiple + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementName val = constructObjectPropertyString "name" val + +data DOMHTMLInputElementNamePropertyInfo +instance AttrInfo DOMHTMLInputElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementNamePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementNamePropertyInfo = "DOMHTMLInputElement::name" + attrGet _ = getDOMHTMLInputElementName + attrSet _ = setDOMHTMLInputElementName + attrConstruct _ = constructDOMHTMLInputElementName + +-- VVV Prop "pattern" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern" + +setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val + +constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" val + +data DOMHTMLInputElementPatternPropertyInfo +instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementPatternPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "DOMHTMLInputElement::pattern" + attrGet _ = getDOMHTMLInputElementPattern + attrSet _ = setDOMHTMLInputElementPattern + attrConstruct _ = constructDOMHTMLInputElementPattern + +-- VVV Prop "placeholder" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" + +setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val + +constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" val + +data DOMHTMLInputElementPlaceholderPropertyInfo +instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "DOMHTMLInputElement::placeholder" + attrGet _ = getDOMHTMLInputElementPlaceholder + attrSet _ = setDOMHTMLInputElementPlaceholder + attrConstruct _ = constructDOMHTMLInputElementPlaceholder + +-- VVV Prop "read-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" + +setDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val + +constructDOMHTMLInputElementReadOnly :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementReadOnly val = constructObjectPropertyBool "read-only" val + +data DOMHTMLInputElementReadOnlyPropertyInfo +instance AttrInfo DOMHTMLInputElementReadOnlyPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementReadOnlyPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementReadOnlyPropertyInfo = "DOMHTMLInputElement::read-only" + attrGet _ = getDOMHTMLInputElementReadOnly + attrSet _ = setDOMHTMLInputElementReadOnly + attrConstruct _ = constructDOMHTMLInputElementReadOnly + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLInputElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLInputElementRequiredPropertyInfo +instance AttrInfo DOMHTMLInputElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementRequiredPropertyInfo = "DOMHTMLInputElement::required" + attrGet _ = getDOMHTMLInputElementRequired + attrSet _ = setDOMHTMLInputElementRequired + attrConstruct _ = constructDOMHTMLInputElementRequired + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyUInt64 obj "size" val + +constructDOMHTMLInputElementSize :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementSize val = constructObjectPropertyUInt64 "size" val + +data DOMHTMLInputElementSizePropertyInfo +instance AttrInfo DOMHTMLInputElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementSizePropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementSizePropertyInfo = "DOMHTMLInputElement::size" + attrGet _ = getDOMHTMLInputElementSize + attrSet _ = setDOMHTMLInputElementSize + attrConstruct _ = constructDOMHTMLInputElementSize + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLInputElementSrcPropertyInfo +instance AttrInfo DOMHTMLInputElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementSrcPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "DOMHTMLInputElement::src" + attrGet _ = getDOMHTMLInputElementSrc + attrSet _ = setDOMHTMLInputElementSrc + attrConstruct _ = constructDOMHTMLInputElementSrc + +-- VVV Prop "step" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step" + +setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" val + +constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" val + +data DOMHTMLInputElementStepPropertyInfo +instance AttrInfo DOMHTMLInputElementStepPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementStepPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementStepPropertyInfo = "DOMHTMLInputElement::step" + attrGet _ = getDOMHTMLInputElementStep + attrSet _ = setDOMHTMLInputElementStep + attrConstruct _ = constructDOMHTMLInputElementStep + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementType val = constructObjectPropertyString "type" val + +data DOMHTMLInputElementTypePropertyInfo +instance AttrInfo DOMHTMLInputElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementTypePropertyInfo = "DOMHTMLInputElement::type" + attrGet _ = getDOMHTMLInputElementType + attrSet _ = setDOMHTMLInputElementType + attrConstruct _ = constructDOMHTMLInputElementType + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLInputElementUseMapPropertyInfo +instance AttrInfo DOMHTMLInputElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "DOMHTMLInputElement::use-map" + attrGet _ = getDOMHTMLInputElementUseMap + attrSet _ = setDOMHTMLInputElementUseMap + attrConstruct _ = constructDOMHTMLInputElementUseMap + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLInputElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "DOMHTMLInputElement::validation-message" + attrGet _ = getDOMHTMLInputElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementValidity :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMValidityState +getDOMHTMLInputElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLInputElementValidityPropertyInfo +instance AttrInfo DOMHTMLInputElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementValidityPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLInputElementValidityPropertyInfo = "DOMHTMLInputElement::validity" + attrGet _ = getDOMHTMLInputElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLInputElementValuePropertyInfo +instance AttrInfo DOMHTMLInputElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementValuePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementValuePropertyInfo = "DOMHTMLInputElement::value" + attrGet _ = getDOMHTMLInputElementValue + attrSet _ = setDOMHTMLInputElementValue + attrConstruct _ = constructDOMHTMLInputElementValue + +-- VVV Prop "value-as-number" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double +getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number" + +setDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> Double -> m () +setDOMHTMLInputElementValueAsNumber obj val = liftIO $ setObjectPropertyDouble obj "value-as-number" val + +constructDOMHTMLInputElementValueAsNumber :: Double -> IO ([Char], GValue) +constructDOMHTMLInputElementValueAsNumber val = constructObjectPropertyDouble "value-as-number" val + +data DOMHTMLInputElementValueAsNumberPropertyInfo +instance AttrInfo DOMHTMLInputElementValueAsNumberPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValueAsNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValueAsNumberPropertyInfo = Double + type AttrLabel DOMHTMLInputElementValueAsNumberPropertyInfo = "DOMHTMLInputElement::value-as-number" + attrGet _ = getDOMHTMLInputElementValueAsNumber + attrSet _ = setDOMHTMLInputElementValueAsNumber + attrConstruct _ = constructDOMHTMLInputElementValueAsNumber + +-- VVV Prop "webkit-grammar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitGrammar obj = liftIO $ getObjectPropertyBool obj "webkit-grammar" + +setDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitGrammar obj val = liftIO $ setObjectPropertyBool obj "webkit-grammar" val + +constructDOMHTMLInputElementWebkitGrammar :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitGrammar val = constructObjectPropertyBool "webkit-grammar" val + +data DOMHTMLInputElementWebkitGrammarPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitGrammarPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitGrammarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitGrammarPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitGrammarPropertyInfo = "DOMHTMLInputElement::webkit-grammar" + attrGet _ = getDOMHTMLInputElementWebkitGrammar + attrSet _ = setDOMHTMLInputElementWebkitGrammar + attrConstruct _ = constructDOMHTMLInputElementWebkitGrammar + +-- VVV Prop "webkit-speech" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitSpeech obj = liftIO $ getObjectPropertyBool obj "webkit-speech" + +setDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitSpeech obj val = liftIO $ setObjectPropertyBool obj "webkit-speech" val + +constructDOMHTMLInputElementWebkitSpeech :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitSpeech val = constructObjectPropertyBool "webkit-speech" val + +data DOMHTMLInputElementWebkitSpeechPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitSpeechPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitSpeechPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitSpeechPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitSpeechPropertyInfo = "DOMHTMLInputElement::webkit-speech" + attrGet _ = getDOMHTMLInputElementWebkitSpeech + attrSet _ = setDOMHTMLInputElementWebkitSpeech + attrConstruct _ = constructDOMHTMLInputElementWebkitSpeech + +-- VVV Prop "webkitdirectory" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitdirectory obj = liftIO $ getObjectPropertyBool obj "webkitdirectory" + +setDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitdirectory obj val = liftIO $ setObjectPropertyBool obj "webkitdirectory" val + +constructDOMHTMLInputElementWebkitdirectory :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitdirectory val = constructObjectPropertyBool "webkitdirectory" val + +data DOMHTMLInputElementWebkitdirectoryPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitdirectoryPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitdirectoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitdirectoryPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitdirectoryPropertyInfo = "DOMHTMLInputElement::webkitdirectory" + attrGet _ = getDOMHTMLInputElementWebkitdirectory + attrSet _ = setDOMHTMLInputElementWebkitdirectory + attrConstruct _ = constructDOMHTMLInputElementWebkitdirectory + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val + +constructDOMHTMLInputElementWidth :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementWidth val = constructObjectPropertyUInt64 "width" val + +data DOMHTMLInputElementWidthPropertyInfo +instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "DOMHTMLInputElement::width" + attrGet _ = getDOMHTMLInputElementWidth + attrSet _ = setDOMHTMLInputElementWidth + attrConstruct _ = constructDOMHTMLInputElementWidth + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementWillValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLInputElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLInputElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWillValidatePropertyInfo = "DOMHTMLInputElement::will-validate" + attrGet _ = getDOMHTMLInputElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLInputElement = DOMHTMLInputElementAttributeList +type DOMHTMLInputElementAttributeList = ('[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-checked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("default-value", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("form-action", DOMHTMLInputElementFormActionPropertyInfo), '("form-enctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("form-method", DOMHTMLInputElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("max-length", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("use-map", DOMHTMLInputElementUseMapPropertyInfo), '("validation-message", DOMHTMLInputElementValidationMessagePropertyInfo), '("validity", DOMHTMLInputElementValidityPropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("value-as-number", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkit-grammar", DOMHTMLInputElementWebkitGrammarPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-speech", DOMHTMLInputElementWebkitSpeechPropertyInfo), '("webkitdirectory", DOMHTMLInputElementWebkitdirectoryPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("will-validate", DOMHTMLInputElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLInputElement = DOMHTMLInputElementSignalList +type DOMHTMLInputElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLInputElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_check_validity" webkit_dom_html_input_element_check_validity :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementCheckValidity :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_accept +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_accept" webkit_dom_html_input_element_get_accept :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetAccept :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetAccept _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_accept _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_accept" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_align" webkit_dom_html_input_element_get_align :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetAlign :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_alt" webkit_dom_html_input_element_get_alt :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetAlt :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetAlt _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_alt _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_alt" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_autocapitalize" webkit_dom_html_input_element_get_autocapitalize :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetAutocapitalize :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetAutocapitalize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_autocapitalize _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_autocapitalize" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_autocomplete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_autocomplete" webkit_dom_html_input_element_get_autocomplete :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetAutocomplete :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetAutocomplete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_autocomplete _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_autocomplete" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_autocorrect" webkit_dom_html_input_element_get_autocorrect :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetAutocorrect :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetAutocorrect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_autocorrect _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_autofocus" webkit_dom_html_input_element_get_autofocus :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetAutofocus :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetAutofocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_autofocus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_capture +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_capture" webkit_dom_html_input_element_get_capture :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetCapture :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetCapture _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_capture _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_capture" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_checked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_checked" webkit_dom_html_input_element_get_checked :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetChecked :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetChecked _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_checked _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_default_checked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_default_checked" webkit_dom_html_input_element_get_default_checked :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetDefaultChecked :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetDefaultChecked _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_default_checked _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_default_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_default_value" webkit_dom_html_input_element_get_default_value :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetDefaultValue :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetDefaultValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_default_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_default_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_dir_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_dir_name" webkit_dom_html_input_element_get_dir_name :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetDirName :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetDirName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_dir_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_dir_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_disabled" webkit_dom_html_input_element_get_disabled :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetDisabled :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_files +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMFileList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_files" webkit_dom_html_input_element_get_files :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO (Ptr DOMFileList) + + +dOMHTMLInputElementGetFiles :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m DOMFileList +dOMHTMLInputElementGetFiles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_files _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_files" result + result' <- (wrapObject DOMFileList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form" webkit_dom_html_input_element_get_form :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLInputElementGetForm :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLInputElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form_action" webkit_dom_html_input_element_get_form_action :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetFormAction :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetFormAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form_action _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form_action" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form_enctype" webkit_dom_html_input_element_get_form_enctype :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetFormEnctype :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetFormEnctype _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form_enctype _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form_enctype" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form_method" webkit_dom_html_input_element_get_form_method :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetFormMethod :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetFormMethod _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form_method _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form_method" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form_no_validate" webkit_dom_html_input_element_get_form_no_validate :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetFormNoValidate :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetFormNoValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form_no_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_form_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_form_target" webkit_dom_html_input_element_get_form_target :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetFormTarget :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetFormTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_form_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_height" webkit_dom_html_input_element_get_height :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO Word64 + + +dOMHTMLInputElementGetHeight :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Word64 +dOMHTMLInputElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLInputElement::get_incremental +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_incremental" webkit_dom_html_input_element_get_incremental :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetIncremental :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetIncremental _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_incremental _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_indeterminate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_indeterminate" webkit_dom_html_input_element_get_indeterminate :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetIndeterminate :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetIndeterminate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_indeterminate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_labels" webkit_dom_html_input_element_get_labels :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO (Ptr DOMNodeList) + + +dOMHTMLInputElementGetLabels :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m DOMNodeList +dOMHTMLInputElementGetLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_labels _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_labels" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_list" webkit_dom_html_input_element_get_list :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLInputElementGetList :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLInputElementGetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_list _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_list" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_max +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_max" webkit_dom_html_input_element_get_max :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetMax :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetMax _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_max _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_max" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_max_length" webkit_dom_html_input_element_get_max_length :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO Int64 + + +dOMHTMLInputElementGetMaxLength :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Int64 +dOMHTMLInputElementGetMaxLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_max_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLInputElement::get_min +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_min" webkit_dom_html_input_element_get_min :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetMin :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetMin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_min _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_min" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_multiple" webkit_dom_html_input_element_get_multiple :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetMultiple :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetMultiple _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_multiple _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_name" webkit_dom_html_input_element_get_name :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetName :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_pattern +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_pattern" webkit_dom_html_input_element_get_pattern :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetPattern :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetPattern _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_pattern _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_pattern" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_placeholder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_placeholder" webkit_dom_html_input_element_get_placeholder :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetPlaceholder :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetPlaceholder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_placeholder _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_placeholder" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_read_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_read_only" webkit_dom_html_input_element_get_read_only :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetReadOnly :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetReadOnly _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_read_only _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_required" webkit_dom_html_input_element_get_required :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetRequired :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetRequired _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_required _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_size" webkit_dom_html_input_element_get_size :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO Word64 + + +dOMHTMLInputElementGetSize :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Word64 +dOMHTMLInputElementGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_size _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLInputElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_src" webkit_dom_html_input_element_get_src :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetSrc :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_step +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_step" webkit_dom_html_input_element_get_step :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetStep :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetStep _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_step _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_step" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_use_map" webkit_dom_html_input_element_get_use_map :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetUseMap :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetUseMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_use_map _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_use_map" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_validation_message" webkit_dom_html_input_element_get_validation_message :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetValidationMessage :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_validity" webkit_dom_html_input_element_get_validity :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO (Ptr DOMValidityState) + + +dOMHTMLInputElementGetValidity :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLInputElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_value" webkit_dom_html_input_element_get_value :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CString + + +dOMHTMLInputElementGetValue :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m T.Text +dOMHTMLInputElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_value_as_number +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_value_as_number" webkit_dom_html_input_element_get_value_as_number :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CDouble + + +dOMHTMLInputElementGetValueAsNumber :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Double +dOMHTMLInputElementGetValueAsNumber _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_value_as_number _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_webkit_grammar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_webkit_grammar" webkit_dom_html_input_element_get_webkit_grammar :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetWebkitGrammar :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetWebkitGrammar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_webkit_grammar _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_webkit_speech +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_webkit_speech" webkit_dom_html_input_element_get_webkit_speech :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetWebkitSpeech :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetWebkitSpeech _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_webkit_speech _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_webkitdirectory +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_webkitdirectory" webkit_dom_html_input_element_get_webkitdirectory :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetWebkitdirectory :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetWebkitdirectory _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_webkitdirectory _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_width" webkit_dom_html_input_element_get_width :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO Word64 + + +dOMHTMLInputElementGetWidth :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Word64 +dOMHTMLInputElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLInputElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_get_will_validate" webkit_dom_html_input_element_get_will_validate :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementGetWillValidate :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::is_edited +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_is_edited" webkit_dom_html_input_element_is_edited :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO CInt + + +dOMHTMLInputElementIsEdited :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m Bool +dOMHTMLInputElementIsEdited _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_input_element_is_edited _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLInputElement::select +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_select" webkit_dom_html_input_element_select :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + IO () + + +dOMHTMLInputElementSelect :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + m () +dOMHTMLInputElementSelect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_input_element_select _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_accept +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_accept" webkit_dom_html_input_element_set_accept :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetAccept :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetAccept _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_accept _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_align" webkit_dom_html_input_element_set_align :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetAlign :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_alt +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_alt" webkit_dom_html_input_element_set_alt :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetAlt :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetAlt _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_alt _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_autocapitalize" webkit_dom_html_input_element_set_autocapitalize :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetAutocapitalize :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetAutocapitalize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_autocapitalize _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_autocomplete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_autocomplete" webkit_dom_html_input_element_set_autocomplete :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetAutocomplete :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetAutocomplete _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_autocomplete _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_autocorrect" webkit_dom_html_input_element_set_autocorrect :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetAutocorrect :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetAutocorrect _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_autocorrect _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_autofocus" webkit_dom_html_input_element_set_autofocus :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetAutofocus :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetAutofocus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_autofocus _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_capture +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_capture" webkit_dom_html_input_element_set_capture :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetCapture :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetCapture _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_capture _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_checked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_checked" webkit_dom_html_input_element_set_checked :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetChecked :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetChecked _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_checked _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_custom_validity" webkit_dom_html_input_element_set_custom_validity :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetCustomValidity :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLInputElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_input_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLInputElement::set_default_checked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_default_checked" webkit_dom_html_input_element_set_default_checked :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetDefaultChecked :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetDefaultChecked _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_default_checked _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_default_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_default_value" webkit_dom_html_input_element_set_default_value :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetDefaultValue :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetDefaultValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_default_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_dir_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_dir_name" webkit_dom_html_input_element_set_dir_name :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetDirName :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetDirName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_dir_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_disabled" webkit_dom_html_input_element_set_disabled :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetDisabled :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_files +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_files" webkit_dom_html_input_element_set_files :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Ptr DOMFileList -> -- value : TInterface "WebKit" "DOMFileList" + IO () + + +dOMHTMLInputElementSetFiles :: + (MonadIO m, DOMHTMLInputElementK a, DOMFileListK b) => + a -> -- _obj + b -> -- value + m () +dOMHTMLInputElementSetFiles _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + webkit_dom_html_input_element_set_files _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + +-- method DOMHTMLInputElement::set_form_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_form_action" webkit_dom_html_input_element_set_form_action :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetFormAction :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetFormAction _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_form_action _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_form_enctype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_form_enctype" webkit_dom_html_input_element_set_form_enctype :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetFormEnctype :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetFormEnctype _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_form_enctype _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_form_method +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_form_method" webkit_dom_html_input_element_set_form_method :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetFormMethod :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetFormMethod _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_form_method _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_form_no_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_form_no_validate" webkit_dom_html_input_element_set_form_no_validate :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetFormNoValidate :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetFormNoValidate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_form_no_validate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_form_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_form_target" webkit_dom_html_input_element_set_form_target :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetFormTarget :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetFormTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_form_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_height" webkit_dom_html_input_element_set_height :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLInputElementSetHeight :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLInputElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_input_element_set_height _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_incremental +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_incremental" webkit_dom_html_input_element_set_incremental :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetIncremental :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetIncremental _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_incremental _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_indeterminate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_indeterminate" webkit_dom_html_input_element_set_indeterminate :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetIndeterminate :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetIndeterminate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_indeterminate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_max +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_max" webkit_dom_html_input_element_set_max :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetMax :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetMax _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_max _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_max_length" webkit_dom_html_input_element_set_max_length :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementSetMaxLength :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLInputElementSetMaxLength _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_input_element_set_max_length _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLInputElement::set_min +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_min" webkit_dom_html_input_element_set_min :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetMin :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetMin _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_min _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_multiple" webkit_dom_html_input_element_set_multiple :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetMultiple :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetMultiple _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_multiple _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_name" webkit_dom_html_input_element_set_name :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetName :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_pattern +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_pattern" webkit_dom_html_input_element_set_pattern :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetPattern :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetPattern _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_pattern _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_placeholder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_placeholder" webkit_dom_html_input_element_set_placeholder :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetPlaceholder :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetPlaceholder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_placeholder _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_range_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_range_text" webkit_dom_html_input_element_set_range_text :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- replacement : TBasicType TUTF8 + Word64 -> -- start : TBasicType TUInt64 + Word64 -> -- end : TBasicType TUInt64 + CString -> -- selectionMode : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementSetRangeText :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- replacement + Word64 -> -- start + Word64 -> -- end + T.Text -> -- selectionMode + m () +dOMHTMLInputElementSetRangeText _obj replacement start end selectionMode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + replacement' <- textToCString replacement + selectionMode' <- textToCString selectionMode + onException (do + propagateGError $ webkit_dom_html_input_element_set_range_text _obj' replacement' start end selectionMode' + touchManagedPtr _obj + freeMem replacement' + freeMem selectionMode' + return () + ) (do + freeMem replacement' + freeMem selectionMode' + ) + +-- method DOMHTMLInputElement::set_read_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_read_only" webkit_dom_html_input_element_set_read_only :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetReadOnly :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetReadOnly _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_read_only _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_required" webkit_dom_html_input_element_set_required :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetRequired :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetRequired _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_required _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_size" webkit_dom_html_input_element_set_size :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Word64 -> -- value : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementSetSize :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLInputElementSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_input_element_set_size _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLInputElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_src" webkit_dom_html_input_element_set_src :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetSrc :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_step +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_step" webkit_dom_html_input_element_set_step :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetStep :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetStep _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_step _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_use_map" webkit_dom_html_input_element_set_use_map :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetUseMap :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetUseMap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_use_map _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_value" webkit_dom_html_input_element_set_value :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetValue :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_value_as_number +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_value_as_number" webkit_dom_html_input_element_set_value_as_number :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementSetValueAsNumber :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Double -> -- value + m () +dOMHTMLInputElementSetValueAsNumber _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_html_input_element_set_value_as_number _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLInputElement::set_value_for_user +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_value_for_user" webkit_dom_html_input_element_set_value_for_user :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLInputElementSetValueForUser :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLInputElementSetValueForUser _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_input_element_set_value_for_user _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLInputElement::set_webkit_grammar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_webkit_grammar" webkit_dom_html_input_element_set_webkit_grammar :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetWebkitGrammar :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetWebkitGrammar _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_webkit_grammar _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_webkit_speech +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_webkit_speech" webkit_dom_html_input_element_set_webkit_speech :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetWebkitSpeech :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetWebkitSpeech _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_webkit_speech _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_webkitdirectory +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_webkitdirectory" webkit_dom_html_input_element_set_webkitdirectory :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLInputElementSetWebkitdirectory :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLInputElementSetWebkitdirectory _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_input_element_set_webkitdirectory _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_set_width" webkit_dom_html_input_element_set_width :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLInputElementSetWidth :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLInputElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_input_element_set_width _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLInputElement::step_down +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_step_down" webkit_dom_html_input_element_step_down :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Int64 -> -- n : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementStepDown :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Int64 -> -- n + m () +dOMHTMLInputElementStepDown _obj n = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_input_element_step_down _obj' n + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLInputElement::step_up +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_input_element_step_up" webkit_dom_html_input_element_step_up :: + Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" + Int64 -> -- n : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLInputElementStepUp :: + (MonadIO m, DOMHTMLInputElementK a) => + a -> -- _obj + Int64 -> -- n + m () +dOMHTMLInputElementStepUp _obj n = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_input_element_step_up _obj' n + touchManagedPtr _obj + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot b/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot @@ -0,0 +1,61 @@ +module GI.WebKit.Objects.DOMHTMLInputElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLInputElement = DOMHTMLInputElement (ForeignPtr DOMHTMLInputElement) +instance GObject DOMHTMLInputElement where +class GObject o => DOMHTMLInputElementK o +instance (GObject o, IsDescendantOf DOMHTMLInputElement o) => DOMHTMLInputElementK o +data DOMHTMLInputElementAcceptPropertyInfo +data DOMHTMLInputElementAlignPropertyInfo +data DOMHTMLInputElementAltPropertyInfo +data DOMHTMLInputElementAutocapitalizePropertyInfo +data DOMHTMLInputElementAutocompletePropertyInfo +data DOMHTMLInputElementAutocorrectPropertyInfo +data DOMHTMLInputElementAutofocusPropertyInfo +data DOMHTMLInputElementCapturePropertyInfo +data DOMHTMLInputElementCheckedPropertyInfo +data DOMHTMLInputElementDefaultCheckedPropertyInfo +data DOMHTMLInputElementDefaultValuePropertyInfo +data DOMHTMLInputElementDirNamePropertyInfo +data DOMHTMLInputElementDisabledPropertyInfo +data DOMHTMLInputElementFilesPropertyInfo +data DOMHTMLInputElementFormPropertyInfo +data DOMHTMLInputElementFormActionPropertyInfo +data DOMHTMLInputElementFormEnctypePropertyInfo +data DOMHTMLInputElementFormMethodPropertyInfo +data DOMHTMLInputElementFormNoValidatePropertyInfo +data DOMHTMLInputElementFormTargetPropertyInfo +data DOMHTMLInputElementHeightPropertyInfo +data DOMHTMLInputElementIncrementalPropertyInfo +data DOMHTMLInputElementIndeterminatePropertyInfo +data DOMHTMLInputElementLabelsPropertyInfo +data DOMHTMLInputElementListPropertyInfo +data DOMHTMLInputElementMaxPropertyInfo +data DOMHTMLInputElementMaxLengthPropertyInfo +data DOMHTMLInputElementMinPropertyInfo +data DOMHTMLInputElementMultiplePropertyInfo +data DOMHTMLInputElementNamePropertyInfo +data DOMHTMLInputElementPatternPropertyInfo +data DOMHTMLInputElementPlaceholderPropertyInfo +data DOMHTMLInputElementReadOnlyPropertyInfo +data DOMHTMLInputElementRequiredPropertyInfo +data DOMHTMLInputElementSizePropertyInfo +data DOMHTMLInputElementSrcPropertyInfo +data DOMHTMLInputElementStepPropertyInfo +data DOMHTMLInputElementTypePropertyInfo +data DOMHTMLInputElementUseMapPropertyInfo +data DOMHTMLInputElementValidationMessagePropertyInfo +data DOMHTMLInputElementValidityPropertyInfo +data DOMHTMLInputElementValuePropertyInfo +data DOMHTMLInputElementValueAsNumberPropertyInfo +data DOMHTMLInputElementWebkitGrammarPropertyInfo +data DOMHTMLInputElementWebkitSpeechPropertyInfo +data DOMHTMLInputElementWebkitdirectoryPropertyInfo +data DOMHTMLInputElementWidthPropertyInfo +data DOMHTMLInputElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs @@ -0,0 +1,877 @@ + +{- | +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.WebKit.Objects.DOMHTMLKeygenElement + ( + +-- * Exported types + DOMHTMLKeygenElement(..) , + DOMHTMLKeygenElementK , + toDOMHTMLKeygenElement , + noDOMHTMLKeygenElement , + + + -- * Methods +-- ** dOMHTMLKeygenElementCheckValidity + dOMHTMLKeygenElementCheckValidity , + + +-- ** dOMHTMLKeygenElementGetAutofocus + dOMHTMLKeygenElementGetAutofocus , + + +-- ** dOMHTMLKeygenElementGetChallenge + dOMHTMLKeygenElementGetChallenge , + + +-- ** dOMHTMLKeygenElementGetDisabled + dOMHTMLKeygenElementGetDisabled , + + +-- ** dOMHTMLKeygenElementGetForm + dOMHTMLKeygenElementGetForm , + + +-- ** dOMHTMLKeygenElementGetKeytype + dOMHTMLKeygenElementGetKeytype , + + +-- ** dOMHTMLKeygenElementGetLabels + dOMHTMLKeygenElementGetLabels , + + +-- ** dOMHTMLKeygenElementGetName + dOMHTMLKeygenElementGetName , + + +-- ** dOMHTMLKeygenElementGetValidationMessage + dOMHTMLKeygenElementGetValidationMessage, + + +-- ** dOMHTMLKeygenElementGetValidity + dOMHTMLKeygenElementGetValidity , + + +-- ** dOMHTMLKeygenElementGetWillValidate + dOMHTMLKeygenElementGetWillValidate , + + +-- ** dOMHTMLKeygenElementSetAutofocus + dOMHTMLKeygenElementSetAutofocus , + + +-- ** dOMHTMLKeygenElementSetChallenge + dOMHTMLKeygenElementSetChallenge , + + +-- ** dOMHTMLKeygenElementSetCustomValidity + dOMHTMLKeygenElementSetCustomValidity , + + +-- ** dOMHTMLKeygenElementSetDisabled + dOMHTMLKeygenElementSetDisabled , + + +-- ** dOMHTMLKeygenElementSetKeytype + dOMHTMLKeygenElementSetKeytype , + + +-- ** dOMHTMLKeygenElementSetName + dOMHTMLKeygenElementSetName , + + + + + -- * Properties +-- ** Autofocus + DOMHTMLKeygenElementAutofocusPropertyInfo, + constructDOMHTMLKeygenElementAutofocus , + getDOMHTMLKeygenElementAutofocus , + setDOMHTMLKeygenElementAutofocus , + + +-- ** Challenge + DOMHTMLKeygenElementChallengePropertyInfo, + constructDOMHTMLKeygenElementChallenge , + getDOMHTMLKeygenElementChallenge , + setDOMHTMLKeygenElementChallenge , + + +-- ** Disabled + DOMHTMLKeygenElementDisabledPropertyInfo, + constructDOMHTMLKeygenElementDisabled , + getDOMHTMLKeygenElementDisabled , + setDOMHTMLKeygenElementDisabled , + + +-- ** Form + DOMHTMLKeygenElementFormPropertyInfo , + getDOMHTMLKeygenElementForm , + + +-- ** Keytype + DOMHTMLKeygenElementKeytypePropertyInfo , + constructDOMHTMLKeygenElementKeytype , + getDOMHTMLKeygenElementKeytype , + setDOMHTMLKeygenElementKeytype , + + +-- ** Labels + DOMHTMLKeygenElementLabelsPropertyInfo , + getDOMHTMLKeygenElementLabels , + + +-- ** Name + DOMHTMLKeygenElementNamePropertyInfo , + constructDOMHTMLKeygenElementName , + getDOMHTMLKeygenElementName , + setDOMHTMLKeygenElementName , + + +-- ** Type + DOMHTMLKeygenElementTypePropertyInfo , + getDOMHTMLKeygenElementType , + + +-- ** ValidationMessage + DOMHTMLKeygenElementValidationMessagePropertyInfo, + getDOMHTMLKeygenElementValidationMessage, + + +-- ** Validity + DOMHTMLKeygenElementValidityPropertyInfo, + getDOMHTMLKeygenElementValidity , + + +-- ** WillValidate + DOMHTMLKeygenElementWillValidatePropertyInfo, + getDOMHTMLKeygenElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLKeygenElement = DOMHTMLKeygenElement (ForeignPtr DOMHTMLKeygenElement) +foreign import ccall "webkit_dom_html_keygen_element_get_type" + c_webkit_dom_html_keygen_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLKeygenElement = DOMHTMLKeygenElementParentTypes +type DOMHTMLKeygenElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLKeygenElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_keygen_element_get_type + + +class GObject o => DOMHTMLKeygenElementK o +instance (GObject o, IsDescendantOf DOMHTMLKeygenElement o) => DOMHTMLKeygenElementK o + +toDOMHTMLKeygenElement :: DOMHTMLKeygenElementK o => o -> IO DOMHTMLKeygenElement +toDOMHTMLKeygenElement = unsafeCastTo DOMHTMLKeygenElement + +noDOMHTMLKeygenElement :: Maybe DOMHTMLKeygenElement +noDOMHTMLKeygenElement = Nothing + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () +setDOMHTMLKeygenElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLKeygenElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLKeygenElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLKeygenElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLKeygenElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementAutofocusPropertyInfo = "DOMHTMLKeygenElement::autofocus" + attrGet _ = getDOMHTMLKeygenElementAutofocus + attrSet _ = setDOMHTMLKeygenElementAutofocus + attrConstruct _ = constructDOMHTMLKeygenElementAutofocus + +-- VVV Prop "challenge" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementChallenge obj = liftIO $ getObjectPropertyString obj "challenge" + +setDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" val + +constructDOMHTMLKeygenElementChallenge :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" val + +data DOMHTMLKeygenElementChallengePropertyInfo +instance AttrInfo DOMHTMLKeygenElementChallengePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementChallengePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementChallengePropertyInfo = "DOMHTMLKeygenElement::challenge" + attrGet _ = getDOMHTMLKeygenElementChallenge + attrSet _ = setDOMHTMLKeygenElementChallenge + attrConstruct _ = constructDOMHTMLKeygenElementChallenge + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () +setDOMHTMLKeygenElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLKeygenElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLKeygenElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLKeygenElementDisabledPropertyInfo +instance AttrInfo DOMHTMLKeygenElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementDisabledPropertyInfo = "DOMHTMLKeygenElement::disabled" + attrGet _ = getDOMHTMLKeygenElementDisabled + attrSet _ = setDOMHTMLKeygenElementDisabled + attrConstruct _ = constructDOMHTMLKeygenElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementForm :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLKeygenElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLKeygenElementFormPropertyInfo +instance AttrInfo DOMHTMLKeygenElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLKeygenElementFormPropertyInfo = "DOMHTMLKeygenElement::form" + attrGet _ = getDOMHTMLKeygenElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "keytype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementKeytype obj = liftIO $ getObjectPropertyString obj "keytype" + +setDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" val + +constructDOMHTMLKeygenElementKeytype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" val + +data DOMHTMLKeygenElementKeytypePropertyInfo +instance AttrInfo DOMHTMLKeygenElementKeytypePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementKeytypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementKeytypePropertyInfo = "DOMHTMLKeygenElement::keytype" + attrGet _ = getDOMHTMLKeygenElementKeytype + attrSet _ = setDOMHTMLKeygenElementKeytype + attrConstruct _ = constructDOMHTMLKeygenElementKeytype + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMNodeList +getDOMHTMLKeygenElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLKeygenElementLabelsPropertyInfo +instance AttrInfo DOMHTMLKeygenElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLKeygenElementLabelsPropertyInfo = "DOMHTMLKeygenElement::labels" + attrGet _ = getDOMHTMLKeygenElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLKeygenElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" val + +data DOMHTMLKeygenElementNamePropertyInfo +instance AttrInfo DOMHTMLKeygenElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementNamePropertyInfo = "DOMHTMLKeygenElement::name" + attrGet _ = getDOMHTMLKeygenElementName + attrSet _ = setDOMHTMLKeygenElementName + attrConstruct _ = constructDOMHTMLKeygenElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLKeygenElementTypePropertyInfo +instance AttrInfo DOMHTMLKeygenElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementTypePropertyInfo = "DOMHTMLKeygenElement::type" + attrGet _ = getDOMHTMLKeygenElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLKeygenElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLKeygenElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementValidationMessagePropertyInfo = "DOMHTMLKeygenElement::validation-message" + attrGet _ = getDOMHTMLKeygenElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMValidityState +getDOMHTMLKeygenElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLKeygenElementValidityPropertyInfo +instance AttrInfo DOMHTMLKeygenElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLKeygenElementValidityPropertyInfo = "DOMHTMLKeygenElement::validity" + attrGet _ = getDOMHTMLKeygenElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementWillValidate :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLKeygenElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLKeygenElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementWillValidatePropertyInfo = "DOMHTMLKeygenElement::will-validate" + attrGet _ = getDOMHTMLKeygenElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLKeygenElement = DOMHTMLKeygenElementAttributeList +type DOMHTMLKeygenElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLKeygenElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("challenge", DOMHTMLKeygenElementChallengePropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLKeygenElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLKeygenElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("keytype", DOMHTMLKeygenElementKeytypePropertyInfo), '("labels", DOMHTMLKeygenElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLKeygenElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLKeygenElementTypePropertyInfo), '("validation-message", DOMHTMLKeygenElementValidationMessagePropertyInfo), '("validity", DOMHTMLKeygenElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLKeygenElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLKeygenElement = DOMHTMLKeygenElementSignalList +type DOMHTMLKeygenElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLKeygenElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_check_validity" webkit_dom_html_keygen_element_check_validity :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CInt + + +dOMHTMLKeygenElementCheckValidity :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m Bool +dOMHTMLKeygenElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_autofocus" webkit_dom_html_keygen_element_get_autofocus :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CInt + + +dOMHTMLKeygenElementGetAutofocus :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m Bool +dOMHTMLKeygenElementGetAutofocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_autofocus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_challenge +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_challenge" webkit_dom_html_keygen_element_get_challenge :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CString + + +dOMHTMLKeygenElementGetChallenge :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m T.Text +dOMHTMLKeygenElementGetChallenge _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_challenge _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_challenge" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_disabled" webkit_dom_html_keygen_element_get_disabled :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CInt + + +dOMHTMLKeygenElementGetDisabled :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m Bool +dOMHTMLKeygenElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_form" webkit_dom_html_keygen_element_get_form :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLKeygenElementGetForm :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLKeygenElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_keytype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_keytype" webkit_dom_html_keygen_element_get_keytype :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CString + + +dOMHTMLKeygenElementGetKeytype :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m T.Text +dOMHTMLKeygenElementGetKeytype _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_keytype _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_keytype" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_labels" webkit_dom_html_keygen_element_get_labels :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO (Ptr DOMNodeList) + + +dOMHTMLKeygenElementGetLabels :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m DOMNodeList +dOMHTMLKeygenElementGetLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_labels _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_labels" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_name" webkit_dom_html_keygen_element_get_name :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CString + + +dOMHTMLKeygenElementGetName :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m T.Text +dOMHTMLKeygenElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_validation_message" webkit_dom_html_keygen_element_get_validation_message :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CString + + +dOMHTMLKeygenElementGetValidationMessage :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m T.Text +dOMHTMLKeygenElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_validity" webkit_dom_html_keygen_element_get_validity :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO (Ptr DOMValidityState) + + +dOMHTMLKeygenElementGetValidity :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLKeygenElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_get_will_validate" webkit_dom_html_keygen_element_get_will_validate :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + IO CInt + + +dOMHTMLKeygenElementGetWillValidate :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + m Bool +dOMHTMLKeygenElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_keygen_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLKeygenElement::set_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_autofocus" webkit_dom_html_keygen_element_set_autofocus :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLKeygenElementSetAutofocus :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLKeygenElementSetAutofocus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_keygen_element_set_autofocus _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLKeygenElement::set_challenge +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_challenge" webkit_dom_html_keygen_element_set_challenge :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLKeygenElementSetChallenge :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLKeygenElementSetChallenge _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_keygen_element_set_challenge _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLKeygenElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_custom_validity" webkit_dom_html_keygen_element_set_custom_validity :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLKeygenElementSetCustomValidity :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLKeygenElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_keygen_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLKeygenElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_disabled" webkit_dom_html_keygen_element_set_disabled :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLKeygenElementSetDisabled :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLKeygenElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_keygen_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLKeygenElement::set_keytype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_keytype" webkit_dom_html_keygen_element_set_keytype :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLKeygenElementSetKeytype :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLKeygenElementSetKeytype _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_keygen_element_set_keytype _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLKeygenElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_keygen_element_set_name" webkit_dom_html_keygen_element_set_name :: + Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLKeygenElementSetName :: + (MonadIO m, DOMHTMLKeygenElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLKeygenElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_keygen_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMHTMLKeygenElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLKeygenElement = DOMHTMLKeygenElement (ForeignPtr DOMHTMLKeygenElement) +instance GObject DOMHTMLKeygenElement where +class GObject o => DOMHTMLKeygenElementK o +instance (GObject o, IsDescendantOf DOMHTMLKeygenElement o) => DOMHTMLKeygenElementK o +data DOMHTMLKeygenElementAutofocusPropertyInfo +data DOMHTMLKeygenElementChallengePropertyInfo +data DOMHTMLKeygenElementDisabledPropertyInfo +data DOMHTMLKeygenElementFormPropertyInfo +data DOMHTMLKeygenElementKeytypePropertyInfo +data DOMHTMLKeygenElementLabelsPropertyInfo +data DOMHTMLKeygenElementNamePropertyInfo +data DOMHTMLKeygenElementTypePropertyInfo +data DOMHTMLKeygenElementValidationMessagePropertyInfo +data DOMHTMLKeygenElementValidityPropertyInfo +data DOMHTMLKeygenElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLLIElement.hs b/GI/WebKit/Objects/DOMHTMLLIElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLIElement.hs @@ -0,0 +1,184 @@ + +{- | +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.WebKit.Objects.DOMHTMLLIElement + ( + +-- * Exported types + DOMHTMLLIElement(..) , + DOMHTMLLIElementK , + toDOMHTMLLIElement , + noDOMHTMLLIElement , + + + -- * Methods +-- ** dOMHTMLLIElementGetValue + dOMHTMLLIElementGetValue , + + +-- ** dOMHTMLLIElementSetValue + dOMHTMLLIElementSetValue , + + + + + -- * Properties +-- ** Type + DOMHTMLLIElementTypePropertyInfo , + constructDOMHTMLLIElementType , + getDOMHTMLLIElementType , + setDOMHTMLLIElementType , + + +-- ** Value + DOMHTMLLIElementValuePropertyInfo , + constructDOMHTMLLIElementValue , + getDOMHTMLLIElementValue , + setDOMHTMLLIElementValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLLIElement = DOMHTMLLIElement (ForeignPtr DOMHTMLLIElement) +foreign import ccall "webkit_dom_htmlli_element_get_type" + c_webkit_dom_htmlli_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_htmlli_element_get_type + + +class GObject o => DOMHTMLLIElementK o +instance (GObject o, IsDescendantOf DOMHTMLLIElement o) => DOMHTMLLIElementK o + +toDOMHTMLLIElement :: DOMHTMLLIElementK o => o -> IO DOMHTMLLIElement +toDOMHTMLLIElement = unsafeCastTo DOMHTMLLIElement + +noDOMHTMLLIElement :: Maybe DOMHTMLLIElement +noDOMHTMLLIElement = Nothing + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m T.Text +getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m () +setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLIElementType val = constructObjectPropertyString "type" val + +data DOMHTMLLIElementTypePropertyInfo +instance AttrInfo DOMHTMLLIElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK + type AttrGetType DOMHTMLLIElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLLIElementTypePropertyInfo = "DOMHTMLLIElement::type" + attrGet _ = getDOMHTMLLIElementType + attrSet _ = setDOMHTMLLIElementType + attrConstruct _ = constructDOMHTMLLIElementType + +-- VVV Prop "value" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m Int64 +getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyInt64 obj "value" + +setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> Int64 -> m () +setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyInt64 obj "value" val + +constructDOMHTMLLIElementValue :: Int64 -> IO ([Char], GValue) +constructDOMHTMLLIElementValue val = constructObjectPropertyInt64 "value" val + +data DOMHTMLLIElementValuePropertyInfo +instance AttrInfo DOMHTMLLIElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK + type AttrGetType DOMHTMLLIElementValuePropertyInfo = Int64 + type AttrLabel DOMHTMLLIElementValuePropertyInfo = "DOMHTMLLIElement::value" + attrGet _ = getDOMHTMLLIElementValue + attrSet _ = setDOMHTMLLIElementValue + attrConstruct _ = constructDOMHTMLLIElementValue + +type instance AttributeList DOMHTMLLIElement = DOMHTMLLIElementAttributeList +type DOMHTMLLIElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLLIElement = DOMHTMLLIElementSignalList +type DOMHTMLLIElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLLIElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlli_element_get_value" webkit_dom_htmlli_element_get_value :: + Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement" + IO Int64 + + +dOMHTMLLIElementGetValue :: + (MonadIO m, DOMHTMLLIElementK a) => + a -> -- _obj + m Int64 +dOMHTMLLIElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlli_element_get_value _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLLIElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlli_element_set_value" webkit_dom_htmlli_element_set_value :: + Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLLIElementSetValue :: + (MonadIO m, DOMHTMLLIElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLLIElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_htmlli_element_set_value _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLLIElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLLIElement = DOMHTMLLIElement (ForeignPtr DOMHTMLLIElement) +instance GObject DOMHTMLLIElement where +class GObject o => DOMHTMLLIElementK o +instance (GObject o, IsDescendantOf DOMHTMLLIElement o) => DOMHTMLLIElementK o +data DOMHTMLLIElementTypePropertyInfo +data DOMHTMLLIElementValuePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLLabelElement.hs b/GI/WebKit/Objects/DOMHTMLLabelElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLabelElement.hs @@ -0,0 +1,264 @@ + +{- | +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.WebKit.Objects.DOMHTMLLabelElement + ( + +-- * Exported types + DOMHTMLLabelElement(..) , + DOMHTMLLabelElementK , + toDOMHTMLLabelElement , + noDOMHTMLLabelElement , + + + -- * Methods +-- ** dOMHTMLLabelElementGetControl + dOMHTMLLabelElementGetControl , + + +-- ** dOMHTMLLabelElementGetForm + dOMHTMLLabelElementGetForm , + + +-- ** dOMHTMLLabelElementGetHtmlFor + dOMHTMLLabelElementGetHtmlFor , + + +-- ** dOMHTMLLabelElementSetHtmlFor + dOMHTMLLabelElementSetHtmlFor , + + + + + -- * Properties +-- ** Control + DOMHTMLLabelElementControlPropertyInfo , + getDOMHTMLLabelElementControl , + + +-- ** Form + DOMHTMLLabelElementFormPropertyInfo , + getDOMHTMLLabelElementForm , + + +-- ** HtmlFor + DOMHTMLLabelElementHtmlForPropertyInfo , + constructDOMHTMLLabelElementHtmlFor , + getDOMHTMLLabelElementHtmlFor , + setDOMHTMLLabelElementHtmlFor , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLLabelElement = DOMHTMLLabelElement (ForeignPtr DOMHTMLLabelElement) +foreign import ccall "webkit_dom_html_label_element_get_type" + c_webkit_dom_html_label_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLLabelElement = DOMHTMLLabelElementParentTypes +type DOMHTMLLabelElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLLabelElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_label_element_get_type + + +class GObject o => DOMHTMLLabelElementK o +instance (GObject o, IsDescendantOf DOMHTMLLabelElement o) => DOMHTMLLabelElementK o + +toDOMHTMLLabelElement :: DOMHTMLLabelElementK o => o -> IO DOMHTMLLabelElement +toDOMHTMLLabelElement = unsafeCastTo DOMHTMLLabelElement + +noDOMHTMLLabelElement :: Maybe DOMHTMLLabelElement +noDOMHTMLLabelElement = Nothing + +-- VVV Prop "control" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement +getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement + +data DOMHTMLLabelElementControlPropertyInfo +instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementControlPropertyInfo = DOMHTMLElement + type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "DOMHTMLLabelElement::control" + attrGet _ = getDOMHTMLLabelElementControl + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLLabelElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLLabelElementFormPropertyInfo +instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLLabelElementFormPropertyInfo = "DOMHTMLLabelElement::form" + attrGet _ = getDOMHTMLLabelElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "html-for" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m T.Text +getDOMHTMLLabelElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" + +setDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> T.Text -> m () +setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val + +constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" val + +data DOMHTMLLabelElementHtmlForPropertyInfo +instance AttrInfo DOMHTMLLabelElementHtmlForPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = T.Text + type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "DOMHTMLLabelElement::html-for" + attrGet _ = getDOMHTMLLabelElementHtmlFor + attrSet _ = setDOMHTMLLabelElementHtmlFor + attrConstruct _ = constructDOMHTMLLabelElementHtmlFor + +type instance AttributeList DOMHTMLLabelElement = DOMHTMLLabelElementAttributeList +type DOMHTMLLabelElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLLabelElement = DOMHTMLLabelElementSignalList +type DOMHTMLLabelElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLLabelElement::get_control +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_label_element_get_control" webkit_dom_html_label_element_get_control :: + Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLLabelElementGetControl :: + (MonadIO m, DOMHTMLLabelElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLLabelElementGetControl _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_label_element_get_control _obj' + checkUnexpectedReturnNULL "webkit_dom_html_label_element_get_control" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLabelElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_label_element_get_form" webkit_dom_html_label_element_get_form :: + Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLLabelElementGetForm :: + (MonadIO m, DOMHTMLLabelElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLLabelElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_label_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_label_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLabelElement::get_html_for +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_label_element_get_html_for" webkit_dom_html_label_element_get_html_for :: + Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement" + IO CString + + +dOMHTMLLabelElementGetHtmlFor :: + (MonadIO m, DOMHTMLLabelElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLabelElementGetHtmlFor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_label_element_get_html_for _obj' + checkUnexpectedReturnNULL "webkit_dom_html_label_element_get_html_for" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLabelElement::set_html_for +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_label_element_set_html_for" webkit_dom_html_label_element_set_html_for :: + Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLabelElementSetHtmlFor :: + (MonadIO m, DOMHTMLLabelElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLabelElementSetHtmlFor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_label_element_set_html_for _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMHTMLLabelElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLLabelElement = DOMHTMLLabelElement (ForeignPtr DOMHTMLLabelElement) +instance GObject DOMHTMLLabelElement where +class GObject o => DOMHTMLLabelElementK o +instance (GObject o, IsDescendantOf DOMHTMLLabelElement o) => DOMHTMLLabelElementK o +data DOMHTMLLabelElementControlPropertyInfo +data DOMHTMLLabelElementFormPropertyInfo +data DOMHTMLLabelElementHtmlForPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLLegendElement.hs b/GI/WebKit/Objects/DOMHTMLLegendElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLegendElement.hs @@ -0,0 +1,211 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLLegendElement + ( + +-- * Exported types + DOMHTMLLegendElement(..) , + DOMHTMLLegendElementK , + toDOMHTMLLegendElement , + noDOMHTMLLegendElement , + + + -- * Methods +-- ** dOMHTMLLegendElementGetAlign + dOMHTMLLegendElementGetAlign , + + +-- ** dOMHTMLLegendElementGetForm + dOMHTMLLegendElementGetForm , + + +-- ** dOMHTMLLegendElementSetAlign + dOMHTMLLegendElementSetAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLLegendElementAlignPropertyInfo , + constructDOMHTMLLegendElementAlign , + getDOMHTMLLegendElementAlign , + setDOMHTMLLegendElementAlign , + + +-- ** Form + DOMHTMLLegendElementFormPropertyInfo , + getDOMHTMLLegendElementForm , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLLegendElement = DOMHTMLLegendElement (ForeignPtr DOMHTMLLegendElement) +foreign import ccall "webkit_dom_html_legend_element_get_type" + c_webkit_dom_html_legend_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLLegendElement = DOMHTMLLegendElementParentTypes +type DOMHTMLLegendElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLLegendElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_legend_element_get_type + + +class GObject o => DOMHTMLLegendElementK o +instance (GObject o, IsDescendantOf DOMHTMLLegendElement o) => DOMHTMLLegendElementK o + +toDOMHTMLLegendElement :: DOMHTMLLegendElementK o => o -> IO DOMHTMLLegendElement +toDOMHTMLLegendElement = unsafeCastTo DOMHTMLLegendElement + +noDOMHTMLLegendElement :: Maybe DOMHTMLLegendElement +noDOMHTMLLegendElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m T.Text +getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m () +setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLLegendElementAlignPropertyInfo +instance AttrInfo DOMHTMLLegendElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLLegendElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = DOMHTMLLegendElementK + type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "DOMHTMLLegendElement::align" + attrGet _ = getDOMHTMLLegendElementAlign + attrSet _ = setDOMHTMLLegendElementAlign + attrConstruct _ = constructDOMHTMLLegendElementAlign + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLLegendElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLLegendElementFormPropertyInfo +instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK + type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLLegendElementFormPropertyInfo = "DOMHTMLLegendElement::form" + attrGet _ = getDOMHTMLLegendElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLLegendElement = DOMHTMLLegendElementAttributeList +type DOMHTMLLegendElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLLegendElement = DOMHTMLLegendElementSignalList +type DOMHTMLLegendElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLLegendElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_legend_element_get_align" webkit_dom_html_legend_element_get_align :: + Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement" + IO CString + + +dOMHTMLLegendElementGetAlign :: + (MonadIO m, DOMHTMLLegendElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLegendElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_legend_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_legend_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLegendElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_legend_element_get_form" webkit_dom_html_legend_element_get_form :: + Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLLegendElementGetForm :: + (MonadIO m, DOMHTMLLegendElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLLegendElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_legend_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_legend_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLegendElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_legend_element_set_align" webkit_dom_html_legend_element_set_align :: + Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLegendElementSetAlign :: + (MonadIO m, DOMHTMLLegendElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLegendElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_legend_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLLegendElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLLegendElement = DOMHTMLLegendElement (ForeignPtr DOMHTMLLegendElement) +instance GObject DOMHTMLLegendElement where +class GObject o => DOMHTMLLegendElementK o +instance (GObject o, IsDescendantOf DOMHTMLLegendElement o) => DOMHTMLLegendElementK o +data DOMHTMLLegendElementAlignPropertyInfo +data DOMHTMLLegendElementFormPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLLinkElement.hs b/GI/WebKit/Objects/DOMHTMLLinkElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLinkElement.hs @@ -0,0 +1,897 @@ + +{- | +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.WebKit.Objects.DOMHTMLLinkElement + ( + +-- * Exported types + DOMHTMLLinkElement(..) , + DOMHTMLLinkElementK , + toDOMHTMLLinkElement , + noDOMHTMLLinkElement , + + + -- * Methods +-- ** dOMHTMLLinkElementGetCharset + dOMHTMLLinkElementGetCharset , + + +-- ** dOMHTMLLinkElementGetDisabled + dOMHTMLLinkElementGetDisabled , + + +-- ** dOMHTMLLinkElementGetHref + dOMHTMLLinkElementGetHref , + + +-- ** dOMHTMLLinkElementGetHreflang + dOMHTMLLinkElementGetHreflang , + + +-- ** dOMHTMLLinkElementGetMedia + dOMHTMLLinkElementGetMedia , + + +-- ** dOMHTMLLinkElementGetRel + dOMHTMLLinkElementGetRel , + + +-- ** dOMHTMLLinkElementGetRev + dOMHTMLLinkElementGetRev , + + +-- ** dOMHTMLLinkElementGetSheet + dOMHTMLLinkElementGetSheet , + + +-- ** dOMHTMLLinkElementGetTarget + dOMHTMLLinkElementGetTarget , + + +-- ** dOMHTMLLinkElementSetCharset + dOMHTMLLinkElementSetCharset , + + +-- ** dOMHTMLLinkElementSetDisabled + dOMHTMLLinkElementSetDisabled , + + +-- ** dOMHTMLLinkElementSetHref + dOMHTMLLinkElementSetHref , + + +-- ** dOMHTMLLinkElementSetHreflang + dOMHTMLLinkElementSetHreflang , + + +-- ** dOMHTMLLinkElementSetMedia + dOMHTMLLinkElementSetMedia , + + +-- ** dOMHTMLLinkElementSetRel + dOMHTMLLinkElementSetRel , + + +-- ** dOMHTMLLinkElementSetRev + dOMHTMLLinkElementSetRev , + + +-- ** dOMHTMLLinkElementSetTarget + dOMHTMLLinkElementSetTarget , + + + + + -- * Properties +-- ** Charset + DOMHTMLLinkElementCharsetPropertyInfo , + constructDOMHTMLLinkElementCharset , + getDOMHTMLLinkElementCharset , + setDOMHTMLLinkElementCharset , + + +-- ** Disabled + DOMHTMLLinkElementDisabledPropertyInfo , + constructDOMHTMLLinkElementDisabled , + getDOMHTMLLinkElementDisabled , + setDOMHTMLLinkElementDisabled , + + +-- ** Href + DOMHTMLLinkElementHrefPropertyInfo , + constructDOMHTMLLinkElementHref , + getDOMHTMLLinkElementHref , + setDOMHTMLLinkElementHref , + + +-- ** Hreflang + DOMHTMLLinkElementHreflangPropertyInfo , + constructDOMHTMLLinkElementHreflang , + getDOMHTMLLinkElementHreflang , + setDOMHTMLLinkElementHreflang , + + +-- ** Media + DOMHTMLLinkElementMediaPropertyInfo , + constructDOMHTMLLinkElementMedia , + getDOMHTMLLinkElementMedia , + setDOMHTMLLinkElementMedia , + + +-- ** Rel + DOMHTMLLinkElementRelPropertyInfo , + constructDOMHTMLLinkElementRel , + getDOMHTMLLinkElementRel , + setDOMHTMLLinkElementRel , + + +-- ** Rev + DOMHTMLLinkElementRevPropertyInfo , + constructDOMHTMLLinkElementRev , + getDOMHTMLLinkElementRev , + setDOMHTMLLinkElementRev , + + +-- ** Sheet + DOMHTMLLinkElementSheetPropertyInfo , + getDOMHTMLLinkElementSheet , + + +-- ** Target + DOMHTMLLinkElementTargetPropertyInfo , + constructDOMHTMLLinkElementTarget , + getDOMHTMLLinkElementTarget , + setDOMHTMLLinkElementTarget , + + +-- ** Type + DOMHTMLLinkElementTypePropertyInfo , + constructDOMHTMLLinkElementType , + getDOMHTMLLinkElementType , + setDOMHTMLLinkElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement) +foreign import ccall "webkit_dom_html_link_element_get_type" + c_webkit_dom_html_link_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLLinkElement = DOMHTMLLinkElementParentTypes +type DOMHTMLLinkElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLLinkElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_link_element_get_type + + +class GObject o => DOMHTMLLinkElementK o +instance (GObject o, IsDescendantOf DOMHTMLLinkElement o) => DOMHTMLLinkElementK o + +toDOMHTMLLinkElement :: DOMHTMLLinkElementK o => o -> IO DOMHTMLLinkElement +toDOMHTMLLinkElement = unsafeCastTo DOMHTMLLinkElement + +noDOMHTMLLinkElement :: Maybe DOMHTMLLinkElement +noDOMHTMLLinkElement = Nothing + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLLinkElementCharsetPropertyInfo +instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "DOMHTMLLinkElement::charset" + attrGet _ = getDOMHTMLLinkElementCharset + attrSet _ = setDOMHTMLLinkElementCharset + attrConstruct _ = constructDOMHTMLLinkElementCharset + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool +getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> Bool -> m () +setDOMHTMLLinkElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLLinkElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLLinkElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLLinkElementDisabledPropertyInfo +instance AttrInfo DOMHTMLLinkElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLLinkElementDisabledPropertyInfo = "DOMHTMLLinkElement::disabled" + attrGet _ = getDOMHTMLLinkElementDisabled + attrSet _ = setDOMHTMLLinkElementDisabled + attrConstruct _ = constructDOMHTMLLinkElementDisabled + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLLinkElementHrefPropertyInfo +instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "DOMHTMLLinkElement::href" + attrGet _ = getDOMHTMLLinkElementHref + attrSet _ = setDOMHTMLLinkElementHref + attrConstruct _ = constructDOMHTMLLinkElementHref + +-- VVV Prop "hreflang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" + +setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val + +constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val + +data DOMHTMLLinkElementHreflangPropertyInfo +instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "DOMHTMLLinkElement::hreflang" + attrGet _ = getDOMHTMLLinkElementHreflang + attrSet _ = setDOMHTMLLinkElementHreflang + attrConstruct _ = constructDOMHTMLLinkElementHreflang + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media" + +setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val + +constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val + +data DOMHTMLLinkElementMediaPropertyInfo +instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "DOMHTMLLinkElement::media" + attrGet _ = getDOMHTMLLinkElementMedia + attrSet _ = setDOMHTMLLinkElementMedia + attrConstruct _ = constructDOMHTMLLinkElementMedia + +-- VVV Prop "rel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel" + +setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val + +constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val + +data DOMHTMLLinkElementRelPropertyInfo +instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "DOMHTMLLinkElement::rel" + attrGet _ = getDOMHTMLLinkElementRel + attrSet _ = setDOMHTMLLinkElementRel + attrConstruct _ = constructDOMHTMLLinkElementRel + +-- VVV Prop "rev" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev" + +setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val + +constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val + +data DOMHTMLLinkElementRevPropertyInfo +instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "DOMHTMLLinkElement::rev" + attrGet _ = getDOMHTMLLinkElementRev + attrSet _ = setDOMHTMLLinkElementRev + attrConstruct _ = constructDOMHTMLLinkElementRev + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet +getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMHTMLLinkElementSheetPropertyInfo +instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "DOMHTMLLinkElement::sheet" + attrGet _ = getDOMHTMLLinkElementSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLLinkElementTargetPropertyInfo +instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "DOMHTMLLinkElement::target" + attrGet _ = getDOMHTMLLinkElementTarget + attrSet _ = setDOMHTMLLinkElementTarget + attrConstruct _ = constructDOMHTMLLinkElementTarget + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val + +data DOMHTMLLinkElementTypePropertyInfo +instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "DOMHTMLLinkElement::type" + attrGet _ = getDOMHTMLLinkElementType + attrSet _ = setDOMHTMLLinkElementType + attrConstruct _ = constructDOMHTMLLinkElementType + +type instance AttributeList DOMHTMLLinkElement = DOMHTMLLinkElementAttributeList +type DOMHTMLLinkElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLLinkElement = DOMHTMLLinkElementSignalList +type DOMHTMLLinkElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLLinkElement::get_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_charset" webkit_dom_html_link_element_get_charset :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetCharset :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_disabled" webkit_dom_html_link_element_get_disabled :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CInt + + +dOMHTMLLinkElementGetDisabled :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m Bool +dOMHTMLLinkElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_href" webkit_dom_html_link_element_get_href :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetHref :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_hreflang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_hreflang" webkit_dom_html_link_element_get_hreflang :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetHreflang :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetHreflang _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_hreflang _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_hreflang" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_media" webkit_dom_html_link_element_get_media :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetMedia :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetMedia _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_media _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_media" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_rel +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_rel" webkit_dom_html_link_element_get_rel :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetRel :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetRel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_rel _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rel" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_rev +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_rev" webkit_dom_html_link_element_get_rev :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetRev :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetRev _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_rev _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rev" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_sheet" webkit_dom_html_link_element_get_sheet :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO (Ptr DOMStyleSheet) + + +dOMHTMLLinkElementGetSheet :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m DOMStyleSheet +dOMHTMLLinkElementGetSheet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_sheet _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_sheet" result + result' <- (wrapObject DOMStyleSheet) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_get_target" webkit_dom_html_link_element_get_target :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + IO CString + + +dOMHTMLLinkElementGetTarget :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + m T.Text +dOMHTMLLinkElementGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_link_element_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLLinkElement::set_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_charset" webkit_dom_html_link_element_set_charset :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetCharset :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetCharset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_charset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_disabled" webkit_dom_html_link_element_set_disabled :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLLinkElementSetDisabled :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLLinkElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_link_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLLinkElement::set_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_href" webkit_dom_html_link_element_set_href :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetHref :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetHref _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_href _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_hreflang +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_hreflang" webkit_dom_html_link_element_set_hreflang :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetHreflang :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetHreflang _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_hreflang _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_media" webkit_dom_html_link_element_set_media :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetMedia :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetMedia _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_media _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_rel +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_rel" webkit_dom_html_link_element_set_rel :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetRel :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetRel _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_rel _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_rev +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_rev" webkit_dom_html_link_element_set_rev :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetRev :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetRev _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_rev _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLLinkElement::set_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_link_element_set_target" webkit_dom_html_link_element_set_target :: + Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLLinkElementSetTarget :: + (MonadIO m, DOMHTMLLinkElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLLinkElementSetTarget _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_link_element_set_target _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.DOMHTMLLinkElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement) +instance GObject DOMHTMLLinkElement where +class GObject o => DOMHTMLLinkElementK o +instance (GObject o, IsDescendantOf DOMHTMLLinkElement o) => DOMHTMLLinkElementK o +data DOMHTMLLinkElementCharsetPropertyInfo +data DOMHTMLLinkElementDisabledPropertyInfo +data DOMHTMLLinkElementHrefPropertyInfo +data DOMHTMLLinkElementHreflangPropertyInfo +data DOMHTMLLinkElementMediaPropertyInfo +data DOMHTMLLinkElementRelPropertyInfo +data DOMHTMLLinkElementRevPropertyInfo +data DOMHTMLLinkElementSheetPropertyInfo +data DOMHTMLLinkElementTargetPropertyInfo +data DOMHTMLLinkElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLMapElement.hs b/GI/WebKit/Objects/DOMHTMLMapElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMapElement.hs @@ -0,0 +1,211 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLMapElement + ( + +-- * Exported types + DOMHTMLMapElement(..) , + DOMHTMLMapElementK , + toDOMHTMLMapElement , + noDOMHTMLMapElement , + + + -- * Methods +-- ** dOMHTMLMapElementGetAreas + dOMHTMLMapElementGetAreas , + + +-- ** dOMHTMLMapElementGetName + dOMHTMLMapElementGetName , + + +-- ** dOMHTMLMapElementSetName + dOMHTMLMapElementSetName , + + + + + -- * Properties +-- ** Areas + DOMHTMLMapElementAreasPropertyInfo , + getDOMHTMLMapElementAreas , + + +-- ** Name + DOMHTMLMapElementNamePropertyInfo , + constructDOMHTMLMapElementName , + getDOMHTMLMapElementName , + setDOMHTMLMapElementName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLMapElement = DOMHTMLMapElement (ForeignPtr DOMHTMLMapElement) +foreign import ccall "webkit_dom_html_map_element_get_type" + c_webkit_dom_html_map_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLMapElement = DOMHTMLMapElementParentTypes +type DOMHTMLMapElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLMapElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_map_element_get_type + + +class GObject o => DOMHTMLMapElementK o +instance (GObject o, IsDescendantOf DOMHTMLMapElement o) => DOMHTMLMapElementK o + +toDOMHTMLMapElement :: DOMHTMLMapElementK o => o -> IO DOMHTMLMapElement +toDOMHTMLMapElement = unsafeCastTo DOMHTMLMapElement + +noDOMHTMLMapElement :: Maybe DOMHTMLMapElement +noDOMHTMLMapElement = Nothing + +-- VVV Prop "areas" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m DOMHTMLCollection +getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection + +data DOMHTMLMapElementAreasPropertyInfo +instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where + type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK + type AttrGetType DOMHTMLMapElementAreasPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "DOMHTMLMapElement::areas" + attrGet _ = getDOMHTMLMapElementAreas + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m T.Text +getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m () +setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMapElementName val = constructObjectPropertyString "name" val + +data DOMHTMLMapElementNamePropertyInfo +instance AttrInfo DOMHTMLMapElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLMapElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMapElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMapElementNamePropertyInfo = DOMHTMLMapElementK + type AttrGetType DOMHTMLMapElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLMapElementNamePropertyInfo = "DOMHTMLMapElement::name" + attrGet _ = getDOMHTMLMapElementName + attrSet _ = setDOMHTMLMapElementName + attrConstruct _ = constructDOMHTMLMapElementName + +type instance AttributeList DOMHTMLMapElement = DOMHTMLMapElementAttributeList +type DOMHTMLMapElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLMapElement = DOMHTMLMapElementSignalList +type DOMHTMLMapElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLMapElement::get_areas +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_map_element_get_areas" webkit_dom_html_map_element_get_areas :: + Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLMapElementGetAreas :: + (MonadIO m, DOMHTMLMapElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLMapElementGetAreas _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_map_element_get_areas _obj' + checkUnexpectedReturnNULL "webkit_dom_html_map_element_get_areas" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMapElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_map_element_get_name" webkit_dom_html_map_element_get_name :: + Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement" + IO CString + + +dOMHTMLMapElementGetName :: + (MonadIO m, DOMHTMLMapElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMapElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_map_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_map_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMapElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_map_element_set_name" webkit_dom_html_map_element_set_name :: + Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMapElementSetName :: + (MonadIO m, DOMHTMLMapElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMapElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_map_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLMapElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLMapElement = DOMHTMLMapElement (ForeignPtr DOMHTMLMapElement) +instance GObject DOMHTMLMapElement where +class GObject o => DOMHTMLMapElementK o +instance (GObject o, IsDescendantOf DOMHTMLMapElement o) => DOMHTMLMapElementK o +data DOMHTMLMapElementAreasPropertyInfo +data DOMHTMLMapElementNamePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs @@ -0,0 +1,1141 @@ + +{- | +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.WebKit.Objects.DOMHTMLMarqueeElement + ( + +-- * Exported types + DOMHTMLMarqueeElement(..) , + DOMHTMLMarqueeElementK , + toDOMHTMLMarqueeElement , + noDOMHTMLMarqueeElement , + + + -- * Methods +-- ** dOMHTMLMarqueeElementGetBehavior + dOMHTMLMarqueeElementGetBehavior , + + +-- ** dOMHTMLMarqueeElementGetBgColor + dOMHTMLMarqueeElementGetBgColor , + + +-- ** dOMHTMLMarqueeElementGetDirection + dOMHTMLMarqueeElementGetDirection , + + +-- ** dOMHTMLMarqueeElementGetHeight + dOMHTMLMarqueeElementGetHeight , + + +-- ** dOMHTMLMarqueeElementGetHspace + dOMHTMLMarqueeElementGetHspace , + + +-- ** dOMHTMLMarqueeElementGetLoop + dOMHTMLMarqueeElementGetLoop , + + +-- ** dOMHTMLMarqueeElementGetScrollAmount + dOMHTMLMarqueeElementGetScrollAmount , + + +-- ** dOMHTMLMarqueeElementGetScrollDelay + dOMHTMLMarqueeElementGetScrollDelay , + + +-- ** dOMHTMLMarqueeElementGetTrueSpeed + dOMHTMLMarqueeElementGetTrueSpeed , + + +-- ** dOMHTMLMarqueeElementGetVspace + dOMHTMLMarqueeElementGetVspace , + + +-- ** dOMHTMLMarqueeElementGetWidth + dOMHTMLMarqueeElementGetWidth , + + +-- ** dOMHTMLMarqueeElementSetBehavior + dOMHTMLMarqueeElementSetBehavior , + + +-- ** dOMHTMLMarqueeElementSetBgColor + dOMHTMLMarqueeElementSetBgColor , + + +-- ** dOMHTMLMarqueeElementSetDirection + dOMHTMLMarqueeElementSetDirection , + + +-- ** dOMHTMLMarqueeElementSetHeight + dOMHTMLMarqueeElementSetHeight , + + +-- ** dOMHTMLMarqueeElementSetHspace + dOMHTMLMarqueeElementSetHspace , + + +-- ** dOMHTMLMarqueeElementSetLoop + dOMHTMLMarqueeElementSetLoop , + + +-- ** dOMHTMLMarqueeElementSetScrollAmount + dOMHTMLMarqueeElementSetScrollAmount , + + +-- ** dOMHTMLMarqueeElementSetScrollDelay + dOMHTMLMarqueeElementSetScrollDelay , + + +-- ** dOMHTMLMarqueeElementSetTrueSpeed + dOMHTMLMarqueeElementSetTrueSpeed , + + +-- ** dOMHTMLMarqueeElementSetVspace + dOMHTMLMarqueeElementSetVspace , + + +-- ** dOMHTMLMarqueeElementSetWidth + dOMHTMLMarqueeElementSetWidth , + + +-- ** dOMHTMLMarqueeElementStart + dOMHTMLMarqueeElementStart , + + +-- ** dOMHTMLMarqueeElementStop + dOMHTMLMarqueeElementStop , + + + + + -- * Properties +-- ** Behavior + DOMHTMLMarqueeElementBehaviorPropertyInfo, + constructDOMHTMLMarqueeElementBehavior , + getDOMHTMLMarqueeElementBehavior , + setDOMHTMLMarqueeElementBehavior , + + +-- ** BgColor + DOMHTMLMarqueeElementBgColorPropertyInfo, + constructDOMHTMLMarqueeElementBgColor , + getDOMHTMLMarqueeElementBgColor , + setDOMHTMLMarqueeElementBgColor , + + +-- ** Direction + DOMHTMLMarqueeElementDirectionPropertyInfo, + constructDOMHTMLMarqueeElementDirection , + getDOMHTMLMarqueeElementDirection , + setDOMHTMLMarqueeElementDirection , + + +-- ** Height + DOMHTMLMarqueeElementHeightPropertyInfo , + constructDOMHTMLMarqueeElementHeight , + getDOMHTMLMarqueeElementHeight , + setDOMHTMLMarqueeElementHeight , + + +-- ** Hspace + DOMHTMLMarqueeElementHspacePropertyInfo , + constructDOMHTMLMarqueeElementHspace , + getDOMHTMLMarqueeElementHspace , + setDOMHTMLMarqueeElementHspace , + + +-- ** Loop + DOMHTMLMarqueeElementLoopPropertyInfo , + constructDOMHTMLMarqueeElementLoop , + getDOMHTMLMarqueeElementLoop , + setDOMHTMLMarqueeElementLoop , + + +-- ** ScrollAmount + DOMHTMLMarqueeElementScrollAmountPropertyInfo, + constructDOMHTMLMarqueeElementScrollAmount, + getDOMHTMLMarqueeElementScrollAmount , + setDOMHTMLMarqueeElementScrollAmount , + + +-- ** ScrollDelay + DOMHTMLMarqueeElementScrollDelayPropertyInfo, + constructDOMHTMLMarqueeElementScrollDelay, + getDOMHTMLMarqueeElementScrollDelay , + setDOMHTMLMarqueeElementScrollDelay , + + +-- ** TrueSpeed + DOMHTMLMarqueeElementTrueSpeedPropertyInfo, + constructDOMHTMLMarqueeElementTrueSpeed , + getDOMHTMLMarqueeElementTrueSpeed , + setDOMHTMLMarqueeElementTrueSpeed , + + +-- ** Vspace + DOMHTMLMarqueeElementVspacePropertyInfo , + constructDOMHTMLMarqueeElementVspace , + getDOMHTMLMarqueeElementVspace , + setDOMHTMLMarqueeElementVspace , + + +-- ** Width + DOMHTMLMarqueeElementWidthPropertyInfo , + constructDOMHTMLMarqueeElementWidth , + getDOMHTMLMarqueeElementWidth , + setDOMHTMLMarqueeElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLMarqueeElement = DOMHTMLMarqueeElement (ForeignPtr DOMHTMLMarqueeElement) +foreign import ccall "webkit_dom_html_marquee_element_get_type" + c_webkit_dom_html_marquee_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLMarqueeElement = DOMHTMLMarqueeElementParentTypes +type DOMHTMLMarqueeElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLMarqueeElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_marquee_element_get_type + + +class GObject o => DOMHTMLMarqueeElementK o +instance (GObject o, IsDescendantOf DOMHTMLMarqueeElement o) => DOMHTMLMarqueeElementK o + +toDOMHTMLMarqueeElement :: DOMHTMLMarqueeElementK o => o -> IO DOMHTMLMarqueeElement +toDOMHTMLMarqueeElement = unsafeCastTo DOMHTMLMarqueeElement + +noDOMHTMLMarqueeElement :: Maybe DOMHTMLMarqueeElement +noDOMHTMLMarqueeElement = Nothing + +-- VVV Prop "behavior" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior" + +setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" val + +constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" val + +data DOMHTMLMarqueeElementBehaviorPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "DOMHTMLMarqueeElement::behavior" + attrGet _ = getDOMHTMLMarqueeElementBehavior + attrSet _ = setDOMHTMLMarqueeElementBehavior + attrConstruct _ = constructDOMHTMLMarqueeElementBehavior + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLMarqueeElementBgColorPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "DOMHTMLMarqueeElement::bg-color" + attrGet _ = getDOMHTMLMarqueeElementBgColor + attrSet _ = setDOMHTMLMarqueeElementBgColor + attrConstruct _ = constructDOMHTMLMarqueeElementBgColor + +-- VVV Prop "direction" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction" + +setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" val + +constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" val + +data DOMHTMLMarqueeElementDirectionPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "DOMHTMLMarqueeElement::direction" + attrGet _ = getDOMHTMLMarqueeElementDirection + attrSet _ = setDOMHTMLMarqueeElementDirection + attrConstruct _ = constructDOMHTMLMarqueeElementDirection + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLMarqueeElementHeightPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "DOMHTMLMarqueeElement::height" + attrGet _ = getDOMHTMLMarqueeElementHeight + attrSet _ = setDOMHTMLMarqueeElementHeight + attrConstruct _ = constructDOMHTMLMarqueeElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 +getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyUInt64 obj "hspace" + +setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () +setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyUInt64 obj "hspace" val + +constructDOMHTMLMarqueeElementHspace :: Word64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyUInt64 "hspace" val + +data DOMHTMLMarqueeElementHspacePropertyInfo +instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = Word64 + type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "DOMHTMLMarqueeElement::hspace" + attrGet _ = getDOMHTMLMarqueeElementHspace + attrSet _ = setDOMHTMLMarqueeElementHspace + attrConstruct _ = constructDOMHTMLMarqueeElementHspace + +-- VVV Prop "loop" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyInt64 obj "loop" + +setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyInt64 obj "loop" val + +constructDOMHTMLMarqueeElementLoop :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyInt64 "loop" val + +data DOMHTMLMarqueeElementLoopPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "DOMHTMLMarqueeElement::loop" + attrGet _ = getDOMHTMLMarqueeElementLoop + attrSet _ = setDOMHTMLMarqueeElementLoop + attrConstruct _ = constructDOMHTMLMarqueeElementLoop + +-- VVV Prop "scroll-amount" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyInt64 obj "scroll-amount" + +setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyInt64 obj "scroll-amount" val + +constructDOMHTMLMarqueeElementScrollAmount :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyInt64 "scroll-amount" val + +data DOMHTMLMarqueeElementScrollAmountPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "DOMHTMLMarqueeElement::scroll-amount" + attrGet _ = getDOMHTMLMarqueeElementScrollAmount + attrSet _ = setDOMHTMLMarqueeElementScrollAmount + attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount + +-- VVV Prop "scroll-delay" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyInt64 obj "scroll-delay" + +setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyInt64 obj "scroll-delay" val + +constructDOMHTMLMarqueeElementScrollDelay :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyInt64 "scroll-delay" val + +data DOMHTMLMarqueeElementScrollDelayPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "DOMHTMLMarqueeElement::scroll-delay" + attrGet _ = getDOMHTMLMarqueeElementScrollDelay + attrSet _ = setDOMHTMLMarqueeElementScrollDelay + attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay + +-- VVV Prop "true-speed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool +getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed" + +setDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Bool -> m () +setDOMHTMLMarqueeElementTrueSpeed obj val = liftIO $ setObjectPropertyBool obj "true-speed" val + +constructDOMHTMLMarqueeElementTrueSpeed :: Bool -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementTrueSpeed val = constructObjectPropertyBool "true-speed" val + +data DOMHTMLMarqueeElementTrueSpeedPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementTrueSpeedPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementTrueSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementTrueSpeedPropertyInfo = Bool + type AttrLabel DOMHTMLMarqueeElementTrueSpeedPropertyInfo = "DOMHTMLMarqueeElement::true-speed" + attrGet _ = getDOMHTMLMarqueeElementTrueSpeed + attrSet _ = setDOMHTMLMarqueeElementTrueSpeed + attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed + +-- VVV Prop "vspace" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 +getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyUInt64 obj "vspace" + +setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () +setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyUInt64 obj "vspace" val + +constructDOMHTMLMarqueeElementVspace :: Word64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyUInt64 "vspace" val + +data DOMHTMLMarqueeElementVspacePropertyInfo +instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = Word64 + type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "DOMHTMLMarqueeElement::vspace" + attrGet _ = getDOMHTMLMarqueeElementVspace + attrSet _ = setDOMHTMLMarqueeElementVspace + attrConstruct _ = constructDOMHTMLMarqueeElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLMarqueeElementWidthPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "DOMHTMLMarqueeElement::width" + attrGet _ = getDOMHTMLMarqueeElementWidth + attrSet _ = setDOMHTMLMarqueeElementWidth + attrConstruct _ = constructDOMHTMLMarqueeElementWidth + +type instance AttributeList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementAttributeList +type DOMHTMLMarqueeElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bg-color", DOMHTMLMarqueeElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-amount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scroll-delay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("true-speed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementSignalList +type DOMHTMLMarqueeElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLMarqueeElement::get_behavior +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_behavior" webkit_dom_html_marquee_element_get_behavior :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CString + + +dOMHTMLMarqueeElementGetBehavior :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMarqueeElementGetBehavior _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_behavior _obj' + checkUnexpectedReturnNULL "webkit_dom_html_marquee_element_get_behavior" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_bg_color" webkit_dom_html_marquee_element_get_bg_color :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CString + + +dOMHTMLMarqueeElementGetBgColor :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMarqueeElementGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_marquee_element_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::get_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_direction" webkit_dom_html_marquee_element_get_direction :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CString + + +dOMHTMLMarqueeElementGetDirection :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMarqueeElementGetDirection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_direction _obj' + checkUnexpectedReturnNULL "webkit_dom_html_marquee_element_get_direction" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_height" webkit_dom_html_marquee_element_get_height :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CString + + +dOMHTMLMarqueeElementGetHeight :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMarqueeElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_marquee_element_get_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::get_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_hspace" webkit_dom_html_marquee_element_get_hspace :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO Word64 + + +dOMHTMLMarqueeElementGetHspace :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Word64 +dOMHTMLMarqueeElementGetHspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_hspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMarqueeElement::get_loop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_loop" webkit_dom_html_marquee_element_get_loop :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO Int64 + + +dOMHTMLMarqueeElementGetLoop :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Int64 +dOMHTMLMarqueeElementGetLoop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_loop _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMarqueeElement::get_scroll_amount +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_scroll_amount" webkit_dom_html_marquee_element_get_scroll_amount :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO Int64 + + +dOMHTMLMarqueeElementGetScrollAmount :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Int64 +dOMHTMLMarqueeElementGetScrollAmount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_scroll_amount _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMarqueeElement::get_scroll_delay +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_scroll_delay" webkit_dom_html_marquee_element_get_scroll_delay :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO Int64 + + +dOMHTMLMarqueeElementGetScrollDelay :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Int64 +dOMHTMLMarqueeElementGetScrollDelay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_scroll_delay _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMarqueeElement::get_true_speed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_true_speed" webkit_dom_html_marquee_element_get_true_speed :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CInt + + +dOMHTMLMarqueeElementGetTrueSpeed :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Bool +dOMHTMLMarqueeElementGetTrueSpeed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_true_speed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::get_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_vspace" webkit_dom_html_marquee_element_get_vspace :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO Word64 + + +dOMHTMLMarqueeElementGetVspace :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m Word64 +dOMHTMLMarqueeElementGetVspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_vspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMarqueeElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_get_width" webkit_dom_html_marquee_element_get_width :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO CString + + +dOMHTMLMarqueeElementGetWidth :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMarqueeElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_marquee_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_marquee_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMarqueeElement::set_behavior +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_behavior" webkit_dom_html_marquee_element_set_behavior :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMarqueeElementSetBehavior :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMarqueeElementSetBehavior _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_marquee_element_set_behavior _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMarqueeElement::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_bg_color" webkit_dom_html_marquee_element_set_bg_color :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMarqueeElementSetBgColor :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMarqueeElementSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_marquee_element_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMarqueeElement::set_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_direction" webkit_dom_html_marquee_element_set_direction :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMarqueeElementSetDirection :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMarqueeElementSetDirection _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_marquee_element_set_direction _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMarqueeElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_height" webkit_dom_html_marquee_element_set_height :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMarqueeElementSetHeight :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMarqueeElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_marquee_element_set_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMarqueeElement::set_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_hspace" webkit_dom_html_marquee_element_set_hspace :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLMarqueeElementSetHspace :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLMarqueeElementSetHspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_marquee_element_set_hspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLMarqueeElement::set_loop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_loop" webkit_dom_html_marquee_element_set_loop :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLMarqueeElementSetLoop :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLMarqueeElementSetLoop _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_marquee_element_set_loop _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLMarqueeElement::set_scroll_amount +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_scroll_amount" webkit_dom_html_marquee_element_set_scroll_amount :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLMarqueeElementSetScrollAmount :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLMarqueeElementSetScrollAmount _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_marquee_element_set_scroll_amount _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLMarqueeElement::set_scroll_delay +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_scroll_delay" webkit_dom_html_marquee_element_set_scroll_delay :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLMarqueeElementSetScrollDelay :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLMarqueeElementSetScrollDelay _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_marquee_element_set_scroll_delay _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLMarqueeElement::set_true_speed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_true_speed" webkit_dom_html_marquee_element_set_true_speed :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMarqueeElementSetTrueSpeed :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMarqueeElementSetTrueSpeed _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_marquee_element_set_true_speed _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMarqueeElement::set_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_vspace" webkit_dom_html_marquee_element_set_vspace :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLMarqueeElementSetVspace :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLMarqueeElementSetVspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_marquee_element_set_vspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLMarqueeElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_set_width" webkit_dom_html_marquee_element_set_width :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMarqueeElementSetWidth :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMarqueeElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_marquee_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMarqueeElement::start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_start" webkit_dom_html_marquee_element_start :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO () + + +dOMHTMLMarqueeElementStart :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m () +dOMHTMLMarqueeElementStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_marquee_element_start _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLMarqueeElement::stop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_marquee_element_stop" webkit_dom_html_marquee_element_stop :: + Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" + IO () + + +dOMHTMLMarqueeElementStop :: + (MonadIO m, DOMHTMLMarqueeElementK a) => + a -> -- _obj + m () +dOMHTMLMarqueeElementStop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_marquee_element_stop _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMHTMLMarqueeElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLMarqueeElement = DOMHTMLMarqueeElement (ForeignPtr DOMHTMLMarqueeElement) +instance GObject DOMHTMLMarqueeElement where +class GObject o => DOMHTMLMarqueeElementK o +instance (GObject o, IsDescendantOf DOMHTMLMarqueeElement o) => DOMHTMLMarqueeElementK o +data DOMHTMLMarqueeElementBehaviorPropertyInfo +data DOMHTMLMarqueeElementBgColorPropertyInfo +data DOMHTMLMarqueeElementDirectionPropertyInfo +data DOMHTMLMarqueeElementHeightPropertyInfo +data DOMHTMLMarqueeElementHspacePropertyInfo +data DOMHTMLMarqueeElementLoopPropertyInfo +data DOMHTMLMarqueeElementScrollAmountPropertyInfo +data DOMHTMLMarqueeElementScrollDelayPropertyInfo +data DOMHTMLMarqueeElementTrueSpeedPropertyInfo +data DOMHTMLMarqueeElementVspacePropertyInfo +data DOMHTMLMarqueeElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLMediaElement.hs b/GI/WebKit/Objects/DOMHTMLMediaElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMediaElement.hs @@ -0,0 +1,2636 @@ + +{- | +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.WebKit.Objects.DOMHTMLMediaElement + ( + +-- * Exported types + DOMHTMLMediaElement(..) , + DOMHTMLMediaElementK , + toDOMHTMLMediaElement , + noDOMHTMLMediaElement , + + + -- * Methods +-- ** dOMHTMLMediaElementAddTextTrack + dOMHTMLMediaElementAddTextTrack , + + +-- ** dOMHTMLMediaElementCanPlayType + dOMHTMLMediaElementCanPlayType , + + +-- ** dOMHTMLMediaElementFastSeek + dOMHTMLMediaElementFastSeek , + + +-- ** dOMHTMLMediaElementGetAudioTracks + dOMHTMLMediaElementGetAudioTracks , + + +-- ** dOMHTMLMediaElementGetAutoplay + dOMHTMLMediaElementGetAutoplay , + + +-- ** dOMHTMLMediaElementGetBuffered + dOMHTMLMediaElementGetBuffered , + + +-- ** dOMHTMLMediaElementGetController + dOMHTMLMediaElementGetController , + + +-- ** dOMHTMLMediaElementGetControls + dOMHTMLMediaElementGetControls , + + +-- ** dOMHTMLMediaElementGetCurrentSrc + dOMHTMLMediaElementGetCurrentSrc , + + +-- ** dOMHTMLMediaElementGetCurrentTime + dOMHTMLMediaElementGetCurrentTime , + + +-- ** dOMHTMLMediaElementGetDefaultMuted + dOMHTMLMediaElementGetDefaultMuted , + + +-- ** dOMHTMLMediaElementGetDefaultPlaybackRate + dOMHTMLMediaElementGetDefaultPlaybackRate, + + +-- ** dOMHTMLMediaElementGetDuration + dOMHTMLMediaElementGetDuration , + + +-- ** dOMHTMLMediaElementGetEnded + dOMHTMLMediaElementGetEnded , + + +-- ** dOMHTMLMediaElementGetError + dOMHTMLMediaElementGetError , + + +-- ** dOMHTMLMediaElementGetInitialTime + dOMHTMLMediaElementGetInitialTime , + + +-- ** dOMHTMLMediaElementGetLoop + dOMHTMLMediaElementGetLoop , + + +-- ** dOMHTMLMediaElementGetMediaGroup + dOMHTMLMediaElementGetMediaGroup , + + +-- ** dOMHTMLMediaElementGetMuted + dOMHTMLMediaElementGetMuted , + + +-- ** dOMHTMLMediaElementGetNetworkState + dOMHTMLMediaElementGetNetworkState , + + +-- ** dOMHTMLMediaElementGetPaused + dOMHTMLMediaElementGetPaused , + + +-- ** dOMHTMLMediaElementGetPlaybackRate + dOMHTMLMediaElementGetPlaybackRate , + + +-- ** dOMHTMLMediaElementGetPlayed + dOMHTMLMediaElementGetPlayed , + + +-- ** dOMHTMLMediaElementGetPreload + dOMHTMLMediaElementGetPreload , + + +-- ** dOMHTMLMediaElementGetReadyState + dOMHTMLMediaElementGetReadyState , + + +-- ** dOMHTMLMediaElementGetSeekable + dOMHTMLMediaElementGetSeekable , + + +-- ** dOMHTMLMediaElementGetSeeking + dOMHTMLMediaElementGetSeeking , + + +-- ** dOMHTMLMediaElementGetSrc + dOMHTMLMediaElementGetSrc , + + +-- ** dOMHTMLMediaElementGetStartTime + dOMHTMLMediaElementGetStartTime , + + +-- ** dOMHTMLMediaElementGetTextTracks + dOMHTMLMediaElementGetTextTracks , + + +-- ** dOMHTMLMediaElementGetVideoTracks + dOMHTMLMediaElementGetVideoTracks , + + +-- ** dOMHTMLMediaElementGetVolume + dOMHTMLMediaElementGetVolume , + + +-- ** dOMHTMLMediaElementGetWebkitAudioDecodedByteCount + dOMHTMLMediaElementGetWebkitAudioDecodedByteCount, + + +-- ** dOMHTMLMediaElementGetWebkitClosedCaptionsVisible + dOMHTMLMediaElementGetWebkitClosedCaptionsVisible, + + +-- ** dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless + dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless, + + +-- ** dOMHTMLMediaElementGetWebkitHasClosedCaptions + dOMHTMLMediaElementGetWebkitHasClosedCaptions, + + +-- ** dOMHTMLMediaElementGetWebkitPreservesPitch + dOMHTMLMediaElementGetWebkitPreservesPitch, + + +-- ** dOMHTMLMediaElementGetWebkitVideoDecodedByteCount + dOMHTMLMediaElementGetWebkitVideoDecodedByteCount, + + +-- ** dOMHTMLMediaElementLoad + dOMHTMLMediaElementLoad , + + +-- ** dOMHTMLMediaElementPause + dOMHTMLMediaElementPause , + + +-- ** dOMHTMLMediaElementPlay + dOMHTMLMediaElementPlay , + + +-- ** dOMHTMLMediaElementSetAutoplay + dOMHTMLMediaElementSetAutoplay , + + +-- ** dOMHTMLMediaElementSetControls + dOMHTMLMediaElementSetControls , + + +-- ** dOMHTMLMediaElementSetCurrentTime + dOMHTMLMediaElementSetCurrentTime , + + +-- ** dOMHTMLMediaElementSetDefaultMuted + dOMHTMLMediaElementSetDefaultMuted , + + +-- ** dOMHTMLMediaElementSetDefaultPlaybackRate + dOMHTMLMediaElementSetDefaultPlaybackRate, + + +-- ** dOMHTMLMediaElementSetLoop + dOMHTMLMediaElementSetLoop , + + +-- ** dOMHTMLMediaElementSetMediaGroup + dOMHTMLMediaElementSetMediaGroup , + + +-- ** dOMHTMLMediaElementSetMuted + dOMHTMLMediaElementSetMuted , + + +-- ** dOMHTMLMediaElementSetPlaybackRate + dOMHTMLMediaElementSetPlaybackRate , + + +-- ** dOMHTMLMediaElementSetPreload + dOMHTMLMediaElementSetPreload , + + +-- ** dOMHTMLMediaElementSetSrc + dOMHTMLMediaElementSetSrc , + + +-- ** dOMHTMLMediaElementSetVolume + dOMHTMLMediaElementSetVolume , + + +-- ** dOMHTMLMediaElementSetWebkitClosedCaptionsVisible + dOMHTMLMediaElementSetWebkitClosedCaptionsVisible, + + +-- ** dOMHTMLMediaElementSetWebkitPreservesPitch + dOMHTMLMediaElementSetWebkitPreservesPitch, + + +-- ** dOMHTMLMediaElementWebkitShowPlaybackTargetPicker + dOMHTMLMediaElementWebkitShowPlaybackTargetPicker, + + + + + -- * Properties +-- ** AudioTracks + DOMHTMLMediaElementAudioTracksPropertyInfo, + getDOMHTMLMediaElementAudioTracks , + + +-- ** Autoplay + DOMHTMLMediaElementAutoplayPropertyInfo , + constructDOMHTMLMediaElementAutoplay , + getDOMHTMLMediaElementAutoplay , + setDOMHTMLMediaElementAutoplay , + + +-- ** Buffered + DOMHTMLMediaElementBufferedPropertyInfo , + getDOMHTMLMediaElementBuffered , + + +-- ** Controller + DOMHTMLMediaElementControllerPropertyInfo, + getDOMHTMLMediaElementController , + + +-- ** Controls + DOMHTMLMediaElementControlsPropertyInfo , + constructDOMHTMLMediaElementControls , + getDOMHTMLMediaElementControls , + setDOMHTMLMediaElementControls , + + +-- ** CurrentSrc + DOMHTMLMediaElementCurrentSrcPropertyInfo, + getDOMHTMLMediaElementCurrentSrc , + + +-- ** CurrentTime + DOMHTMLMediaElementCurrentTimePropertyInfo, + constructDOMHTMLMediaElementCurrentTime , + getDOMHTMLMediaElementCurrentTime , + setDOMHTMLMediaElementCurrentTime , + + +-- ** DefaultMuted + DOMHTMLMediaElementDefaultMutedPropertyInfo, + constructDOMHTMLMediaElementDefaultMuted, + getDOMHTMLMediaElementDefaultMuted , + setDOMHTMLMediaElementDefaultMuted , + + +-- ** DefaultPlaybackRate + DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo, + constructDOMHTMLMediaElementDefaultPlaybackRate, + getDOMHTMLMediaElementDefaultPlaybackRate, + setDOMHTMLMediaElementDefaultPlaybackRate, + + +-- ** Duration + DOMHTMLMediaElementDurationPropertyInfo , + getDOMHTMLMediaElementDuration , + + +-- ** Ended + DOMHTMLMediaElementEndedPropertyInfo , + getDOMHTMLMediaElementEnded , + + +-- ** Error + DOMHTMLMediaElementErrorPropertyInfo , + getDOMHTMLMediaElementError , + + +-- ** Loop + DOMHTMLMediaElementLoopPropertyInfo , + constructDOMHTMLMediaElementLoop , + getDOMHTMLMediaElementLoop , + setDOMHTMLMediaElementLoop , + + +-- ** MediaGroup + DOMHTMLMediaElementMediaGroupPropertyInfo, + constructDOMHTMLMediaElementMediaGroup , + getDOMHTMLMediaElementMediaGroup , + setDOMHTMLMediaElementMediaGroup , + + +-- ** Muted + DOMHTMLMediaElementMutedPropertyInfo , + constructDOMHTMLMediaElementMuted , + getDOMHTMLMediaElementMuted , + setDOMHTMLMediaElementMuted , + + +-- ** NetworkState + DOMHTMLMediaElementNetworkStatePropertyInfo, + getDOMHTMLMediaElementNetworkState , + + +-- ** Paused + DOMHTMLMediaElementPausedPropertyInfo , + getDOMHTMLMediaElementPaused , + + +-- ** PlaybackRate + DOMHTMLMediaElementPlaybackRatePropertyInfo, + constructDOMHTMLMediaElementPlaybackRate, + getDOMHTMLMediaElementPlaybackRate , + setDOMHTMLMediaElementPlaybackRate , + + +-- ** Played + DOMHTMLMediaElementPlayedPropertyInfo , + getDOMHTMLMediaElementPlayed , + + +-- ** Preload + DOMHTMLMediaElementPreloadPropertyInfo , + constructDOMHTMLMediaElementPreload , + getDOMHTMLMediaElementPreload , + setDOMHTMLMediaElementPreload , + + +-- ** ReadyState + DOMHTMLMediaElementReadyStatePropertyInfo, + getDOMHTMLMediaElementReadyState , + + +-- ** Seekable + DOMHTMLMediaElementSeekablePropertyInfo , + getDOMHTMLMediaElementSeekable , + + +-- ** Seeking + DOMHTMLMediaElementSeekingPropertyInfo , + getDOMHTMLMediaElementSeeking , + + +-- ** Src + DOMHTMLMediaElementSrcPropertyInfo , + constructDOMHTMLMediaElementSrc , + getDOMHTMLMediaElementSrc , + setDOMHTMLMediaElementSrc , + + +-- ** TextTracks + DOMHTMLMediaElementTextTracksPropertyInfo, + getDOMHTMLMediaElementTextTracks , + + +-- ** VideoTracks + DOMHTMLMediaElementVideoTracksPropertyInfo, + getDOMHTMLMediaElementVideoTracks , + + +-- ** Volume + DOMHTMLMediaElementVolumePropertyInfo , + constructDOMHTMLMediaElementVolume , + getDOMHTMLMediaElementVolume , + setDOMHTMLMediaElementVolume , + + +-- ** WebkitAudioDecodedByteCount + DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo, + getDOMHTMLMediaElementWebkitAudioDecodedByteCount, + + +-- ** WebkitClosedCaptionsVisible + DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo, + constructDOMHTMLMediaElementWebkitClosedCaptionsVisible, + getDOMHTMLMediaElementWebkitClosedCaptionsVisible, + setDOMHTMLMediaElementWebkitClosedCaptionsVisible, + + +-- ** WebkitCurrentPlaybackTargetIsWireless + DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo, + getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless, + + +-- ** WebkitHasClosedCaptions + DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo, + getDOMHTMLMediaElementWebkitHasClosedCaptions, + + +-- ** WebkitPreservesPitch + DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo, + constructDOMHTMLMediaElementWebkitPreservesPitch, + getDOMHTMLMediaElementWebkitPreservesPitch, + setDOMHTMLMediaElementWebkitPreservesPitch, + + +-- ** WebkitVideoDecodedByteCount + DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo, + getDOMHTMLMediaElementWebkitVideoDecodedByteCount, + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLMediaElement = DOMHTMLMediaElement (ForeignPtr DOMHTMLMediaElement) +foreign import ccall "webkit_dom_html_media_element_get_type" + c_webkit_dom_html_media_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLMediaElement = DOMHTMLMediaElementParentTypes +type DOMHTMLMediaElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLMediaElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_media_element_get_type + + +class GObject o => DOMHTMLMediaElementK o +instance (GObject o, IsDescendantOf DOMHTMLMediaElement o) => DOMHTMLMediaElementK o + +toDOMHTMLMediaElement :: DOMHTMLMediaElementK o => o -> IO DOMHTMLMediaElement +toDOMHTMLMediaElement = unsafeCastTo DOMHTMLMediaElement + +noDOMHTMLMediaElement :: Maybe DOMHTMLMediaElement +noDOMHTMLMediaElement = Nothing + +-- VVV Prop "audio-tracks" + -- Type: TInterface "WebKit" "DOMAudioTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMAudioTrackList +getDOMHTMLMediaElementAudioTracks obj = liftIO $ getObjectPropertyObject obj "audio-tracks" DOMAudioTrackList + +data DOMHTMLMediaElementAudioTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementAudioTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = DOMAudioTrackList + type AttrLabel DOMHTMLMediaElementAudioTracksPropertyInfo = "DOMHTMLMediaElement::audio-tracks" + attrGet _ = getDOMHTMLMediaElementAudioTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "autoplay" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementAutoplay obj = liftIO $ getObjectPropertyBool obj "autoplay" + +setDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementAutoplay obj val = liftIO $ setObjectPropertyBool obj "autoplay" val + +constructDOMHTMLMediaElementAutoplay :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementAutoplay val = constructObjectPropertyBool "autoplay" val + +data DOMHTMLMediaElementAutoplayPropertyInfo +instance AttrInfo DOMHTMLMediaElementAutoplayPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementAutoplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementAutoplayPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementAutoplayPropertyInfo = "DOMHTMLMediaElement::autoplay" + attrGet _ = getDOMHTMLMediaElementAutoplay + attrSet _ = setDOMHTMLMediaElementAutoplay + attrConstruct _ = constructDOMHTMLMediaElementAutoplay + +-- VVV Prop "buffered" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges + +data DOMHTMLMediaElementBufferedPropertyInfo +instance AttrInfo DOMHTMLMediaElementBufferedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementBufferedPropertyInfo = "DOMHTMLMediaElement::buffered" + attrGet _ = getDOMHTMLMediaElementBuffered + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "controller" + -- Type: TInterface "WebKit" "DOMMediaController" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaController +getDOMHTMLMediaElementController obj = liftIO $ getObjectPropertyObject obj "controller" DOMMediaController + +data DOMHTMLMediaElementControllerPropertyInfo +instance AttrInfo DOMHTMLMediaElementControllerPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = DOMMediaController + type AttrLabel DOMHTMLMediaElementControllerPropertyInfo = "DOMHTMLMediaElement::controller" + attrGet _ = getDOMHTMLMediaElementController + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "controls" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementControls obj = liftIO $ getObjectPropertyBool obj "controls" + +setDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementControls obj val = liftIO $ setObjectPropertyBool obj "controls" val + +constructDOMHTMLMediaElementControls :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementControls val = constructObjectPropertyBool "controls" val + +data DOMHTMLMediaElementControlsPropertyInfo +instance AttrInfo DOMHTMLMediaElementControlsPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementControlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementControlsPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementControlsPropertyInfo = "DOMHTMLMediaElement::controls" + attrGet _ = getDOMHTMLMediaElementControls + attrSet _ = setDOMHTMLMediaElementControls + attrConstruct _ = constructDOMHTMLMediaElementControls + +-- VVV Prop "current-src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" + +data DOMHTMLMediaElementCurrentSrcPropertyInfo +instance AttrInfo DOMHTMLMediaElementCurrentSrcPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementCurrentSrcPropertyInfo = "DOMHTMLMediaElement::current-src" + attrGet _ = getDOMHTMLMediaElementCurrentSrc + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" + +setDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val + +constructDOMHTMLMediaElementCurrentTime :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementCurrentTime val = constructObjectPropertyDouble "current-time" val + +data DOMHTMLMediaElementCurrentTimePropertyInfo +instance AttrInfo DOMHTMLMediaElementCurrentTimePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementCurrentTimePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementCurrentTimePropertyInfo = "DOMHTMLMediaElement::current-time" + attrGet _ = getDOMHTMLMediaElementCurrentTime + attrSet _ = setDOMHTMLMediaElementCurrentTime + attrConstruct _ = constructDOMHTMLMediaElementCurrentTime + +-- VVV Prop "default-muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementDefaultMuted obj = liftIO $ getObjectPropertyBool obj "default-muted" + +setDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementDefaultMuted obj val = liftIO $ setObjectPropertyBool obj "default-muted" val + +constructDOMHTMLMediaElementDefaultMuted :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementDefaultMuted val = constructObjectPropertyBool "default-muted" val + +data DOMHTMLMediaElementDefaultMutedPropertyInfo +instance AttrInfo DOMHTMLMediaElementDefaultMutedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDefaultMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDefaultMutedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementDefaultMutedPropertyInfo = "DOMHTMLMediaElement::default-muted" + attrGet _ = getDOMHTMLMediaElementDefaultMuted + attrSet _ = setDOMHTMLMediaElementDefaultMuted + attrConstruct _ = constructDOMHTMLMediaElementDefaultMuted + +-- VVV Prop "default-playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" + +setDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val + +constructDOMHTMLMediaElementDefaultPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val + +data DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo +instance AttrInfo DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = "DOMHTMLMediaElement::default-playback-rate" + attrGet _ = getDOMHTMLMediaElementDefaultPlaybackRate + attrSet _ = setDOMHTMLMediaElementDefaultPlaybackRate + attrConstruct _ = constructDOMHTMLMediaElementDefaultPlaybackRate + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementDuration :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMHTMLMediaElementDurationPropertyInfo +instance AttrInfo DOMHTMLMediaElementDurationPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDurationPropertyInfo = Double + type AttrLabel DOMHTMLMediaElementDurationPropertyInfo = "DOMHTMLMediaElement::duration" + attrGet _ = getDOMHTMLMediaElementDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ended" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementEnded :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementEnded obj = liftIO $ getObjectPropertyBool obj "ended" + +data DOMHTMLMediaElementEndedPropertyInfo +instance AttrInfo DOMHTMLMediaElementEndedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementEndedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementEndedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementEndedPropertyInfo = "DOMHTMLMediaElement::ended" + attrGet _ = getDOMHTMLMediaElementEnded + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "error" + -- Type: TInterface "WebKit" "DOMMediaError" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaError +getDOMHTMLMediaElementError obj = liftIO $ getObjectPropertyObject obj "error" DOMMediaError + +data DOMHTMLMediaElementErrorPropertyInfo +instance AttrInfo DOMHTMLMediaElementErrorPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = DOMMediaError + type AttrLabel DOMHTMLMediaElementErrorPropertyInfo = "DOMHTMLMediaElement::error" + attrGet _ = getDOMHTMLMediaElementError + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "loop" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementLoop obj = liftIO $ getObjectPropertyBool obj "loop" + +setDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val + +constructDOMHTMLMediaElementLoop :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementLoop val = constructObjectPropertyBool "loop" val + +data DOMHTMLMediaElementLoopPropertyInfo +instance AttrInfo DOMHTMLMediaElementLoopPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementLoopPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementLoopPropertyInfo = "DOMHTMLMediaElement::loop" + attrGet _ = getDOMHTMLMediaElementLoop + attrSet _ = setDOMHTMLMediaElementLoop + attrConstruct _ = constructDOMHTMLMediaElementLoop + +-- VVV Prop "media-group" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementMediaGroup obj = liftIO $ getObjectPropertyString obj "media-group" + +setDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" val + +constructDOMHTMLMediaElementMediaGroup :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" val + +data DOMHTMLMediaElementMediaGroupPropertyInfo +instance AttrInfo DOMHTMLMediaElementMediaGroupPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementMediaGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementMediaGroupPropertyInfo = "DOMHTMLMediaElement::media-group" + attrGet _ = getDOMHTMLMediaElementMediaGroup + attrSet _ = setDOMHTMLMediaElementMediaGroup + attrConstruct _ = constructDOMHTMLMediaElementMediaGroup + +-- VVV Prop "muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementMuted obj = liftIO $ getObjectPropertyBool obj "muted" + +setDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val + +constructDOMHTMLMediaElementMuted :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementMuted val = constructObjectPropertyBool "muted" val + +data DOMHTMLMediaElementMutedPropertyInfo +instance AttrInfo DOMHTMLMediaElementMutedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementMutedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementMutedPropertyInfo = "DOMHTMLMediaElement::muted" + attrGet _ = getDOMHTMLMediaElementMuted + attrSet _ = setDOMHTMLMediaElementMuted + attrConstruct _ = constructDOMHTMLMediaElementMuted + +-- VVV Prop "network-state" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementNetworkState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 +getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyCUInt obj "network-state" + +data DOMHTMLMediaElementNetworkStatePropertyInfo +instance AttrInfo DOMHTMLMediaElementNetworkStatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementNetworkStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementNetworkStatePropertyInfo = Word32 + type AttrLabel DOMHTMLMediaElementNetworkStatePropertyInfo = "DOMHTMLMediaElement::network-state" + attrGet _ = getDOMHTMLMediaElementNetworkState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paused" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementPaused :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementPaused obj = liftIO $ getObjectPropertyBool obj "paused" + +data DOMHTMLMediaElementPausedPropertyInfo +instance AttrInfo DOMHTMLMediaElementPausedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPausedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPausedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementPausedPropertyInfo = "DOMHTMLMediaElement::paused" + attrGet _ = getDOMHTMLMediaElementPaused + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" + +setDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val + +constructDOMHTMLMediaElementPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementPlaybackRate val = constructObjectPropertyDouble "playback-rate" val + +data DOMHTMLMediaElementPlaybackRatePropertyInfo +instance AttrInfo DOMHTMLMediaElementPlaybackRatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPlaybackRatePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementPlaybackRatePropertyInfo = "DOMHTMLMediaElement::playback-rate" + attrGet _ = getDOMHTMLMediaElementPlaybackRate + attrSet _ = setDOMHTMLMediaElementPlaybackRate + attrConstruct _ = constructDOMHTMLMediaElementPlaybackRate + +-- VVV Prop "played" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges + +data DOMHTMLMediaElementPlayedPropertyInfo +instance AttrInfo DOMHTMLMediaElementPlayedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementPlayedPropertyInfo = "DOMHTMLMediaElement::played" + attrGet _ = getDOMHTMLMediaElementPlayed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "preload" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementPreload obj = liftIO $ getObjectPropertyString obj "preload" + +setDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" val + +constructDOMHTMLMediaElementPreload :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" val + +data DOMHTMLMediaElementPreloadPropertyInfo +instance AttrInfo DOMHTMLMediaElementPreloadPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementPreloadPropertyInfo = "DOMHTMLMediaElement::preload" + attrGet _ = getDOMHTMLMediaElementPreload + attrSet _ = setDOMHTMLMediaElementPreload + attrConstruct _ = constructDOMHTMLMediaElementPreload + +-- VVV Prop "ready-state" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementReadyState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 +getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyCUInt obj "ready-state" + +data DOMHTMLMediaElementReadyStatePropertyInfo +instance AttrInfo DOMHTMLMediaElementReadyStatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementReadyStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementReadyStatePropertyInfo = Word32 + type AttrLabel DOMHTMLMediaElementReadyStatePropertyInfo = "DOMHTMLMediaElement::ready-state" + attrGet _ = getDOMHTMLMediaElementReadyState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seekable" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges + +data DOMHTMLMediaElementSeekablePropertyInfo +instance AttrInfo DOMHTMLMediaElementSeekablePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementSeekablePropertyInfo = "DOMHTMLMediaElement::seekable" + attrGet _ = getDOMHTMLMediaElementSeekable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seeking" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementSeeking :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementSeeking obj = liftIO $ getObjectPropertyBool obj "seeking" + +data DOMHTMLMediaElementSeekingPropertyInfo +instance AttrInfo DOMHTMLMediaElementSeekingPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSeekingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSeekingPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementSeekingPropertyInfo = "DOMHTMLMediaElement::seeking" + attrGet _ = getDOMHTMLMediaElementSeeking + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLMediaElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLMediaElementSrcPropertyInfo +instance AttrInfo DOMHTMLMediaElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementSrcPropertyInfo = "DOMHTMLMediaElement::src" + attrGet _ = getDOMHTMLMediaElementSrc + attrSet _ = setDOMHTMLMediaElementSrc + attrConstruct _ = constructDOMHTMLMediaElementSrc + +-- VVV Prop "text-tracks" + -- Type: TInterface "WebKit" "DOMTextTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementTextTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTextTrackList +getDOMHTMLMediaElementTextTracks obj = liftIO $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList + +data DOMHTMLMediaElementTextTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementTextTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementTextTracksPropertyInfo = DOMTextTrackList + type AttrLabel DOMHTMLMediaElementTextTracksPropertyInfo = "DOMHTMLMediaElement::text-tracks" + attrGet _ = getDOMHTMLMediaElementTextTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "video-tracks" + -- Type: TInterface "WebKit" "DOMVideoTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementVideoTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMVideoTrackList +getDOMHTMLMediaElementVideoTracks obj = liftIO $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList + +data DOMHTMLMediaElementVideoTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementVideoTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementVideoTracksPropertyInfo = DOMVideoTrackList + type AttrLabel DOMHTMLMediaElementVideoTracksPropertyInfo = "DOMHTMLMediaElement::video-tracks" + attrGet _ = getDOMHTMLMediaElementVideoTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "volume" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementVolume obj = liftIO $ getObjectPropertyDouble obj "volume" + +setDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val + +constructDOMHTMLMediaElementVolume :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementVolume val = constructObjectPropertyDouble "volume" val + +data DOMHTMLMediaElementVolumePropertyInfo +instance AttrInfo DOMHTMLMediaElementVolumePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementVolumePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementVolumePropertyInfo = "DOMHTMLMediaElement::volume" + attrGet _ = getDOMHTMLMediaElementVolume + attrSet _ = setDOMHTMLMediaElementVolume + attrConstruct _ = constructDOMHTMLMediaElementVolume + +-- VVV Prop "webkit-audio-decoded-byte-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 +getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-audio-decoded-byte-count" + +data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = Word64 + type AttrLabel DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-audio-decoded-byte-count" + attrGet _ = getDOMHTMLMediaElementWebkitAudioDecodedByteCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-closed-captions-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitClosedCaptionsVisible obj = liftIO $ getObjectPropertyBool obj "webkit-closed-captions-visible" + +setDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementWebkitClosedCaptionsVisible obj val = liftIO $ setObjectPropertyBool obj "webkit-closed-captions-visible" val + +constructDOMHTMLMediaElementWebkitClosedCaptionsVisible :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementWebkitClosedCaptionsVisible val = constructObjectPropertyBool "webkit-closed-captions-visible" val + +data DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = "DOMHTMLMediaElement::webkit-closed-captions-visible" + attrGet _ = getDOMHTMLMediaElementWebkitClosedCaptionsVisible + attrSet _ = setDOMHTMLMediaElementWebkitClosedCaptionsVisible + attrConstruct _ = constructDOMHTMLMediaElementWebkitClosedCaptionsVisible + +-- VVV Prop "webkit-current-playback-target-is-wireless" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless obj = liftIO $ getObjectPropertyBool obj "webkit-current-playback-target-is-wireless" + +data DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = "DOMHTMLMediaElement::webkit-current-playback-target-is-wireless" + attrGet _ = getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-has-closed-captions" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitHasClosedCaptions :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitHasClosedCaptions obj = liftIO $ getObjectPropertyBool obj "webkit-has-closed-captions" + +data DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = "DOMHTMLMediaElement::webkit-has-closed-captions" + attrGet _ = getDOMHTMLMediaElementWebkitHasClosedCaptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-preserves-pitch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitPreservesPitch obj = liftIO $ getObjectPropertyBool obj "webkit-preserves-pitch" + +setDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementWebkitPreservesPitch obj val = liftIO $ setObjectPropertyBool obj "webkit-preserves-pitch" val + +constructDOMHTMLMediaElementWebkitPreservesPitch :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementWebkitPreservesPitch val = constructObjectPropertyBool "webkit-preserves-pitch" val + +data DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = "DOMHTMLMediaElement::webkit-preserves-pitch" + attrGet _ = getDOMHTMLMediaElementWebkitPreservesPitch + attrSet _ = setDOMHTMLMediaElementWebkitPreservesPitch + attrConstruct _ = constructDOMHTMLMediaElementWebkitPreservesPitch + +-- VVV Prop "webkit-video-decoded-byte-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 +getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-video-decoded-byte-count" + +data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = Word64 + type AttrLabel DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-video-decoded-byte-count" + attrGet _ = getDOMHTMLMediaElementWebkitVideoDecodedByteCount + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLMediaElement = DOMHTMLMediaElementAttributeList +type DOMHTMLMediaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLMediaElement = DOMHTMLMediaElementSignalList +type DOMHTMLMediaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLMediaElement::add_text_track +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrack" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_add_text_track" webkit_dom_html_media_element_add_text_track :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CString -> -- kind : TBasicType TUTF8 + CString -> -- label : TBasicType TUTF8 + CString -> -- language : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMTextTrack) + + +dOMHTMLMediaElementAddTextTrack :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + T.Text -> -- kind + T.Text -> -- label + T.Text -> -- language + m DOMTextTrack +dOMHTMLMediaElementAddTextTrack _obj kind label language = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + kind' <- textToCString kind + label' <- textToCString label + language' <- textToCString language + onException (do + result <- propagateGError $ webkit_dom_html_media_element_add_text_track _obj' kind' label' language' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_add_text_track" result + result' <- (wrapObject DOMTextTrack) result + touchManagedPtr _obj + freeMem kind' + freeMem label' + freeMem language' + return result' + ) (do + freeMem kind' + freeMem label' + freeMem language' + ) + +-- method DOMHTMLMediaElement::can_play_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_can_play_type" webkit_dom_html_media_element_can_play_type :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CString -> -- type : TBasicType TUTF8 + IO CString + + +dOMHTMLMediaElementCanPlayType :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + T.Text -> -- type + m T.Text +dOMHTMLMediaElementCanPlayType _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + type_' <- textToCString type_ + result <- webkit_dom_html_media_element_can_play_type _obj' type_' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_can_play_type" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem type_' + return result' + +-- method DOMHTMLMediaElement::fast_seek +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_fast_seek" webkit_dom_html_media_element_fast_seek :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CDouble -> -- time : TBasicType TDouble + IO () + + +dOMHTMLMediaElementFastSeek :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Double -> -- time + m () +dOMHTMLMediaElementFastSeek _obj time = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let time' = realToFrac time + webkit_dom_html_media_element_fast_seek _obj' time' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::get_audio_tracks +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMAudioTrackList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_audio_tracks" webkit_dom_html_media_element_get_audio_tracks :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMAudioTrackList) + + +dOMHTMLMediaElementGetAudioTracks :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMAudioTrackList +dOMHTMLMediaElementGetAudioTracks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_audio_tracks _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_audio_tracks" result + result' <- (wrapObject DOMAudioTrackList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_autoplay +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_autoplay" webkit_dom_html_media_element_get_autoplay :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetAutoplay :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetAutoplay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_autoplay _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_buffered" webkit_dom_html_media_element_get_buffered :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMTimeRanges) + + +dOMHTMLMediaElementGetBuffered :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMTimeRanges +dOMHTMLMediaElementGetBuffered _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_buffered _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_buffered" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_controller +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMMediaController" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_controller" webkit_dom_html_media_element_get_controller :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMMediaController) + + +dOMHTMLMediaElementGetController :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMMediaController +dOMHTMLMediaElementGetController _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_controller _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_controller" result + result' <- (wrapObject DOMMediaController) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_controls +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_controls" webkit_dom_html_media_element_get_controls :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetControls :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetControls _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_controls _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_current_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_current_src" webkit_dom_html_media_element_get_current_src :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CString + + +dOMHTMLMediaElementGetCurrentSrc :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMediaElementGetCurrentSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_current_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_current_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_current_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_current_time" webkit_dom_html_media_element_get_current_time :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + + +dOMHTMLMediaElementGetCurrentTime :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetCurrentTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_current_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_default_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_default_muted" webkit_dom_html_media_element_get_default_muted :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetDefaultMuted :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetDefaultMuted _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_default_muted _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_default_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_default_playback_rate" webkit_dom_html_media_element_get_default_playback_rate :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + + +dOMHTMLMediaElementGetDefaultPlaybackRate :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetDefaultPlaybackRate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_default_playback_rate _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_duration +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_duration" webkit_dom_html_media_element_get_duration :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + + +dOMHTMLMediaElementGetDuration :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetDuration _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_duration _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_ended +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_ended" webkit_dom_html_media_element_get_ended :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetEnded :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetEnded _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_ended _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_error +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMMediaError" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_error" webkit_dom_html_media_element_get_error :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMMediaError) + + +dOMHTMLMediaElementGetError :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMMediaError +dOMHTMLMediaElementGetError _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_error _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_error" result + result' <- (wrapObject DOMMediaError) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_initial_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_initial_time" webkit_dom_html_media_element_get_initial_time :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + +{-# DEPRECATED dOMHTMLMediaElementGetInitialTime ["(Since version 2.2)"]#-} +dOMHTMLMediaElementGetInitialTime :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetInitialTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_initial_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_loop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_loop" webkit_dom_html_media_element_get_loop :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetLoop :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetLoop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_loop _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_media_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_media_group" webkit_dom_html_media_element_get_media_group :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CString + + +dOMHTMLMediaElementGetMediaGroup :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMediaElementGetMediaGroup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_media_group _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_media_group" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_muted" webkit_dom_html_media_element_get_muted :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetMuted :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetMuted _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_muted _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_network_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_network_state" webkit_dom_html_media_element_get_network_state :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO Word16 + + +dOMHTMLMediaElementGetNetworkState :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Word16 +dOMHTMLMediaElementGetNetworkState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_network_state _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMediaElement::get_paused +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_paused" webkit_dom_html_media_element_get_paused :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetPaused :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetPaused _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_paused _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_playback_rate" webkit_dom_html_media_element_get_playback_rate :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + + +dOMHTMLMediaElementGetPlaybackRate :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetPlaybackRate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_playback_rate _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_played +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_played" webkit_dom_html_media_element_get_played :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMTimeRanges) + + +dOMHTMLMediaElementGetPlayed :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMTimeRanges +dOMHTMLMediaElementGetPlayed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_played _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_played" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_preload +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_preload" webkit_dom_html_media_element_get_preload :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CString + + +dOMHTMLMediaElementGetPreload :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMediaElementGetPreload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_preload _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_preload" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_ready_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_ready_state" webkit_dom_html_media_element_get_ready_state :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO Word16 + + +dOMHTMLMediaElementGetReadyState :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Word16 +dOMHTMLMediaElementGetReadyState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_ready_state _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMediaElement::get_seekable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_seekable" webkit_dom_html_media_element_get_seekable :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMTimeRanges) + + +dOMHTMLMediaElementGetSeekable :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMTimeRanges +dOMHTMLMediaElementGetSeekable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_seekable _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_seekable" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_seeking +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_seeking" webkit_dom_html_media_element_get_seeking :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetSeeking :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetSeeking _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_seeking _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_src" webkit_dom_html_media_element_get_src :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CString + + +dOMHTMLMediaElementGetSrc :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMediaElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_start_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_start_time" webkit_dom_html_media_element_get_start_time :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + +{-# DEPRECATED dOMHTMLMediaElementGetStartTime ["(Since version 2.2)"]#-} +dOMHTMLMediaElementGetStartTime :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetStartTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_start_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_text_tracks +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrackList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_text_tracks" webkit_dom_html_media_element_get_text_tracks :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMTextTrackList) + + +dOMHTMLMediaElementGetTextTracks :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMTextTrackList +dOMHTMLMediaElementGetTextTracks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_text_tracks _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_text_tracks" result + result' <- (newObject DOMTextTrackList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_video_tracks +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMVideoTrackList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_video_tracks" webkit_dom_html_media_element_get_video_tracks :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO (Ptr DOMVideoTrackList) + + +dOMHTMLMediaElementGetVideoTracks :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m DOMVideoTrackList +dOMHTMLMediaElementGetVideoTracks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_video_tracks _obj' + checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_video_tracks" result + result' <- (newObject DOMVideoTrackList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_volume +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_volume" webkit_dom_html_media_element_get_volume :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CDouble + + +dOMHTMLMediaElementGetVolume :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Double +dOMHTMLMediaElementGetVolume _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_volume _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_webkit_audio_decoded_byte_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count" webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO Word64 + + +dOMHTMLMediaElementGetWebkitAudioDecodedByteCount :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Word64 +dOMHTMLMediaElementGetWebkitAudioDecodedByteCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMediaElement::get_webkit_closed_captions_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_closed_captions_visible" webkit_dom_html_media_element_get_webkit_closed_captions_visible :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetWebkitClosedCaptionsVisible :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetWebkitClosedCaptionsVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_closed_captions_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_webkit_current_playback_target_is_wireless +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless" webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_webkit_has_closed_captions +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_has_closed_captions" webkit_dom_html_media_element_get_webkit_has_closed_captions :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetWebkitHasClosedCaptions :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetWebkitHasClosedCaptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_has_closed_captions _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_webkit_preserves_pitch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_preserves_pitch" webkit_dom_html_media_element_get_webkit_preserves_pitch :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO CInt + + +dOMHTMLMediaElementGetWebkitPreservesPitch :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Bool +dOMHTMLMediaElementGetWebkitPreservesPitch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_preserves_pitch _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMediaElement::get_webkit_video_decoded_byte_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_get_webkit_video_decoded_byte_count" webkit_dom_html_media_element_get_webkit_video_decoded_byte_count :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO Word64 + + +dOMHTMLMediaElementGetWebkitVideoDecodedByteCount :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m Word64 +dOMHTMLMediaElementGetWebkitVideoDecodedByteCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_media_element_get_webkit_video_decoded_byte_count _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLMediaElement::load +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_load" webkit_dom_html_media_element_load :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO () + + +dOMHTMLMediaElementLoad :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m () +dOMHTMLMediaElementLoad _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_media_element_load _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::pause +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_pause" webkit_dom_html_media_element_pause :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO () + + +dOMHTMLMediaElementPause :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m () +dOMHTMLMediaElementPause _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_media_element_pause _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::play +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_play" webkit_dom_html_media_element_play :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO () + + +dOMHTMLMediaElementPlay :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m () +dOMHTMLMediaElementPlay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_media_element_play _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_autoplay +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_autoplay" webkit_dom_html_media_element_set_autoplay :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetAutoplay :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetAutoplay _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_autoplay _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_controls +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_controls" webkit_dom_html_media_element_set_controls :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetControls :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetControls _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_controls _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_current_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_current_time" webkit_dom_html_media_element_set_current_time :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLMediaElementSetCurrentTime :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Double -> -- value + m () +dOMHTMLMediaElementSetCurrentTime _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_html_media_element_set_current_time _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLMediaElement::set_default_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_default_muted" webkit_dom_html_media_element_set_default_muted :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetDefaultMuted :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetDefaultMuted _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_default_muted _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_default_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_default_playback_rate" webkit_dom_html_media_element_set_default_playback_rate :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CDouble -> -- value : TBasicType TDouble + IO () + + +dOMHTMLMediaElementSetDefaultPlaybackRate :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Double -> -- value + m () +dOMHTMLMediaElementSetDefaultPlaybackRate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_html_media_element_set_default_playback_rate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_loop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_loop" webkit_dom_html_media_element_set_loop :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetLoop :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetLoop _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_loop _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_media_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_media_group" webkit_dom_html_media_element_set_media_group :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMediaElementSetMediaGroup :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMediaElementSetMediaGroup _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_media_element_set_media_group _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMediaElement::set_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_muted" webkit_dom_html_media_element_set_muted :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetMuted :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetMuted _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_muted _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_playback_rate" webkit_dom_html_media_element_set_playback_rate :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CDouble -> -- value : TBasicType TDouble + IO () + + +dOMHTMLMediaElementSetPlaybackRate :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Double -> -- value + m () +dOMHTMLMediaElementSetPlaybackRate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_html_media_element_set_playback_rate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_preload +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_preload" webkit_dom_html_media_element_set_preload :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMediaElementSetPreload :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMediaElementSetPreload _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_media_element_set_preload _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMediaElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_src" webkit_dom_html_media_element_set_src :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMediaElementSetSrc :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMediaElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_media_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMediaElement::set_volume +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_volume" webkit_dom_html_media_element_set_volume :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLMediaElementSetVolume :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Double -> -- value + m () +dOMHTMLMediaElementSetVolume _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_html_media_element_set_volume _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLMediaElement::set_webkit_closed_captions_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_webkit_closed_captions_visible" webkit_dom_html_media_element_set_webkit_closed_captions_visible :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetWebkitClosedCaptionsVisible :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetWebkitClosedCaptionsVisible _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_webkit_closed_captions_visible _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::set_webkit_preserves_pitch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_set_webkit_preserves_pitch" webkit_dom_html_media_element_set_webkit_preserves_pitch :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMediaElementSetWebkitPreservesPitch :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMediaElementSetWebkitPreservesPitch _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_media_element_set_webkit_preserves_pitch _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLMediaElement::webkit_show_playback_target_picker +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_media_element_webkit_show_playback_target_picker" webkit_dom_html_media_element_webkit_show_playback_target_picker :: + Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" + IO () + + +dOMHTMLMediaElementWebkitShowPlaybackTargetPicker :: + (MonadIO m, DOMHTMLMediaElementK a) => + a -> -- _obj + m () +dOMHTMLMediaElementWebkitShowPlaybackTargetPicker _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_media_element_webkit_show_playback_target_picker _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot @@ -0,0 +1,46 @@ +module GI.WebKit.Objects.DOMHTMLMediaElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLMediaElement = DOMHTMLMediaElement (ForeignPtr DOMHTMLMediaElement) +instance GObject DOMHTMLMediaElement where +class GObject o => DOMHTMLMediaElementK o +instance (GObject o, IsDescendantOf DOMHTMLMediaElement o) => DOMHTMLMediaElementK o +data DOMHTMLMediaElementAudioTracksPropertyInfo +data DOMHTMLMediaElementAutoplayPropertyInfo +data DOMHTMLMediaElementBufferedPropertyInfo +data DOMHTMLMediaElementControllerPropertyInfo +data DOMHTMLMediaElementControlsPropertyInfo +data DOMHTMLMediaElementCurrentSrcPropertyInfo +data DOMHTMLMediaElementCurrentTimePropertyInfo +data DOMHTMLMediaElementDefaultMutedPropertyInfo +data DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo +data DOMHTMLMediaElementDurationPropertyInfo +data DOMHTMLMediaElementEndedPropertyInfo +data DOMHTMLMediaElementErrorPropertyInfo +data DOMHTMLMediaElementLoopPropertyInfo +data DOMHTMLMediaElementMediaGroupPropertyInfo +data DOMHTMLMediaElementMutedPropertyInfo +data DOMHTMLMediaElementNetworkStatePropertyInfo +data DOMHTMLMediaElementPausedPropertyInfo +data DOMHTMLMediaElementPlaybackRatePropertyInfo +data DOMHTMLMediaElementPlayedPropertyInfo +data DOMHTMLMediaElementPreloadPropertyInfo +data DOMHTMLMediaElementReadyStatePropertyInfo +data DOMHTMLMediaElementSeekablePropertyInfo +data DOMHTMLMediaElementSeekingPropertyInfo +data DOMHTMLMediaElementSrcPropertyInfo +data DOMHTMLMediaElementTextTracksPropertyInfo +data DOMHTMLMediaElementVideoTracksPropertyInfo +data DOMHTMLMediaElementVolumePropertyInfo +data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo +data DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo +data DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo +data DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo +data DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo +data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLMenuElement.hs b/GI/WebKit/Objects/DOMHTMLMenuElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMenuElement.hs @@ -0,0 +1,155 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLMenuElement + ( + +-- * Exported types + DOMHTMLMenuElement(..) , + DOMHTMLMenuElementK , + toDOMHTMLMenuElement , + noDOMHTMLMenuElement , + + + -- * Methods +-- ** dOMHTMLMenuElementGetCompact + dOMHTMLMenuElementGetCompact , + + +-- ** dOMHTMLMenuElementSetCompact + dOMHTMLMenuElementSetCompact , + + + + + -- * Properties +-- ** Compact + DOMHTMLMenuElementCompactPropertyInfo , + constructDOMHTMLMenuElementCompact , + getDOMHTMLMenuElementCompact , + setDOMHTMLMenuElementCompact , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLMenuElement = DOMHTMLMenuElement (ForeignPtr DOMHTMLMenuElement) +foreign import ccall "webkit_dom_html_menu_element_get_type" + c_webkit_dom_html_menu_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLMenuElement = DOMHTMLMenuElementParentTypes +type DOMHTMLMenuElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLMenuElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_menu_element_get_type + + +class GObject o => DOMHTMLMenuElementK o +instance (GObject o, IsDescendantOf DOMHTMLMenuElement o) => DOMHTMLMenuElementK o + +toDOMHTMLMenuElement :: DOMHTMLMenuElementK o => o -> IO DOMHTMLMenuElement +toDOMHTMLMenuElement = unsafeCastTo DOMHTMLMenuElement + +noDOMHTMLMenuElement :: Maybe DOMHTMLMenuElement +noDOMHTMLMenuElement = Nothing + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> m Bool +getDOMHTMLMenuElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> Bool -> m () +setDOMHTMLMenuElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLMenuElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLMenuElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLMenuElementCompactPropertyInfo +instance AttrInfo DOMHTMLMenuElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLMenuElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = DOMHTMLMenuElementK + type AttrGetType DOMHTMLMenuElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLMenuElementCompactPropertyInfo = "DOMHTMLMenuElement::compact" + attrGet _ = getDOMHTMLMenuElementCompact + attrSet _ = setDOMHTMLMenuElementCompact + attrConstruct _ = constructDOMHTMLMenuElementCompact + +type instance AttributeList DOMHTMLMenuElement = DOMHTMLMenuElementAttributeList +type DOMHTMLMenuElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLMenuElement = DOMHTMLMenuElementSignalList +type DOMHTMLMenuElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLMenuElement::get_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_menu_element_get_compact" webkit_dom_html_menu_element_get_compact :: + Ptr DOMHTMLMenuElement -> -- _obj : TInterface "WebKit" "DOMHTMLMenuElement" + IO CInt + + +dOMHTMLMenuElementGetCompact :: + (MonadIO m, DOMHTMLMenuElementK a) => + a -> -- _obj + m Bool +dOMHTMLMenuElementGetCompact _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_menu_element_get_compact _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMenuElement::set_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_menu_element_set_compact" webkit_dom_html_menu_element_set_compact :: + Ptr DOMHTMLMenuElement -> -- _obj : TInterface "WebKit" "DOMHTMLMenuElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLMenuElementSetCompact :: + (MonadIO m, DOMHTMLMenuElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLMenuElementSetCompact _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_menu_element_set_compact _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLMenuElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLMenuElement = DOMHTMLMenuElement (ForeignPtr DOMHTMLMenuElement) +instance GObject DOMHTMLMenuElement where +class GObject o => DOMHTMLMenuElementK o +instance (GObject o, IsDescendantOf DOMHTMLMenuElement o) => DOMHTMLMenuElementK o +data DOMHTMLMenuElementCompactPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLMetaElement.hs b/GI/WebKit/Objects/DOMHTMLMetaElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMetaElement.hs @@ -0,0 +1,440 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLMetaElement + ( + +-- * Exported types + DOMHTMLMetaElement(..) , + DOMHTMLMetaElementK , + toDOMHTMLMetaElement , + noDOMHTMLMetaElement , + + + -- * Methods +-- ** dOMHTMLMetaElementGetContent + dOMHTMLMetaElementGetContent , + + +-- ** dOMHTMLMetaElementGetHttpEquiv + dOMHTMLMetaElementGetHttpEquiv , + + +-- ** dOMHTMLMetaElementGetName + dOMHTMLMetaElementGetName , + + +-- ** dOMHTMLMetaElementGetScheme + dOMHTMLMetaElementGetScheme , + + +-- ** dOMHTMLMetaElementSetContent + dOMHTMLMetaElementSetContent , + + +-- ** dOMHTMLMetaElementSetHttpEquiv + dOMHTMLMetaElementSetHttpEquiv , + + +-- ** dOMHTMLMetaElementSetName + dOMHTMLMetaElementSetName , + + +-- ** dOMHTMLMetaElementSetScheme + dOMHTMLMetaElementSetScheme , + + + + + -- * Properties +-- ** Content + DOMHTMLMetaElementContentPropertyInfo , + constructDOMHTMLMetaElementContent , + getDOMHTMLMetaElementContent , + setDOMHTMLMetaElementContent , + + +-- ** HttpEquiv + DOMHTMLMetaElementHttpEquivPropertyInfo , + constructDOMHTMLMetaElementHttpEquiv , + getDOMHTMLMetaElementHttpEquiv , + setDOMHTMLMetaElementHttpEquiv , + + +-- ** Name + DOMHTMLMetaElementNamePropertyInfo , + constructDOMHTMLMetaElementName , + getDOMHTMLMetaElementName , + setDOMHTMLMetaElementName , + + +-- ** Scheme + DOMHTMLMetaElementSchemePropertyInfo , + constructDOMHTMLMetaElementScheme , + getDOMHTMLMetaElementScheme , + setDOMHTMLMetaElementScheme , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLMetaElement = DOMHTMLMetaElement (ForeignPtr DOMHTMLMetaElement) +foreign import ccall "webkit_dom_html_meta_element_get_type" + c_webkit_dom_html_meta_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLMetaElement = DOMHTMLMetaElementParentTypes +type DOMHTMLMetaElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLMetaElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_meta_element_get_type + + +class GObject o => DOMHTMLMetaElementK o +instance (GObject o, IsDescendantOf DOMHTMLMetaElement o) => DOMHTMLMetaElementK o + +toDOMHTMLMetaElement :: DOMHTMLMetaElementK o => o -> IO DOMHTMLMetaElement +toDOMHTMLMetaElement = unsafeCastTo DOMHTMLMetaElement + +noDOMHTMLMetaElement :: Maybe DOMHTMLMetaElement +noDOMHTMLMetaElement = Nothing + +-- VVV Prop "content" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content" + +setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" val + +constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" val + +data DOMHTMLMetaElementContentPropertyInfo +instance AttrInfo DOMHTMLMetaElementContentPropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementContentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementContentPropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementContentPropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "DOMHTMLMetaElement::content" + attrGet _ = getDOMHTMLMetaElementContent + attrSet _ = setDOMHTMLMetaElementContent + attrConstruct _ = constructDOMHTMLMetaElementContent + +-- VVV Prop "http-equiv" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementHttpEquiv obj = liftIO $ getObjectPropertyString obj "http-equiv" + +setDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" val + +constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" val + +data DOMHTMLMetaElementHttpEquivPropertyInfo +instance AttrInfo DOMHTMLMetaElementHttpEquivPropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementHttpEquivPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "DOMHTMLMetaElement::http-equiv" + attrGet _ = getDOMHTMLMetaElementHttpEquiv + attrSet _ = setDOMHTMLMetaElementHttpEquiv + attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" val + +data DOMHTMLMetaElementNamePropertyInfo +instance AttrInfo DOMHTMLMetaElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementNamePropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "DOMHTMLMetaElement::name" + attrGet _ = getDOMHTMLMetaElementName + attrSet _ = setDOMHTMLMetaElementName + attrConstruct _ = constructDOMHTMLMetaElementName + +-- VVV Prop "scheme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme" + +setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" val + +constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" val + +data DOMHTMLMetaElementSchemePropertyInfo +instance AttrInfo DOMHTMLMetaElementSchemePropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "DOMHTMLMetaElement::scheme" + attrGet _ = getDOMHTMLMetaElementScheme + attrSet _ = setDOMHTMLMetaElementScheme + attrConstruct _ = constructDOMHTMLMetaElementScheme + +type instance AttributeList DOMHTMLMetaElement = DOMHTMLMetaElementAttributeList +type DOMHTMLMetaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("http-equiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLMetaElement = DOMHTMLMetaElementSignalList +type DOMHTMLMetaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLMetaElement::get_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_get_content" webkit_dom_html_meta_element_get_content :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + IO CString + + +dOMHTMLMetaElementGetContent :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMetaElementGetContent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_meta_element_get_content _obj' + checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_content" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMetaElement::get_http_equiv +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_get_http_equiv" webkit_dom_html_meta_element_get_http_equiv :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + IO CString + + +dOMHTMLMetaElementGetHttpEquiv :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMetaElementGetHttpEquiv _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_meta_element_get_http_equiv _obj' + checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_http_equiv" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMetaElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_get_name" webkit_dom_html_meta_element_get_name :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + IO CString + + +dOMHTMLMetaElementGetName :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMetaElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_meta_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMetaElement::get_scheme +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_get_scheme" webkit_dom_html_meta_element_get_scheme :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + IO CString + + +dOMHTMLMetaElementGetScheme :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLMetaElementGetScheme _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_meta_element_get_scheme _obj' + checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_scheme" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLMetaElement::set_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_set_content" webkit_dom_html_meta_element_set_content :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMetaElementSetContent :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMetaElementSetContent _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_meta_element_set_content _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMetaElement::set_http_equiv +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_set_http_equiv" webkit_dom_html_meta_element_set_http_equiv :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMetaElementSetHttpEquiv :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMetaElementSetHttpEquiv _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_meta_element_set_http_equiv _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMetaElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_set_name" webkit_dom_html_meta_element_set_name :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMetaElementSetName :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMetaElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_meta_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLMetaElement::set_scheme +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_meta_element_set_scheme" webkit_dom_html_meta_element_set_scheme :: + Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLMetaElementSetScheme :: + (MonadIO m, DOMHTMLMetaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLMetaElementSetScheme _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_meta_element_set_scheme _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMHTMLMetaElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLMetaElement = DOMHTMLMetaElement (ForeignPtr DOMHTMLMetaElement) +instance GObject DOMHTMLMetaElement where +class GObject o => DOMHTMLMetaElementK o +instance (GObject o, IsDescendantOf DOMHTMLMetaElement o) => DOMHTMLMetaElementK o +data DOMHTMLMetaElementContentPropertyInfo +data DOMHTMLMetaElementHttpEquivPropertyInfo +data DOMHTMLMetaElementNamePropertyInfo +data DOMHTMLMetaElementSchemePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLModElement.hs b/GI/WebKit/Objects/DOMHTMLModElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLModElement.hs @@ -0,0 +1,252 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLModElement + ( + +-- * Exported types + DOMHTMLModElement(..) , + DOMHTMLModElementK , + toDOMHTMLModElement , + noDOMHTMLModElement , + + + -- * Methods +-- ** dOMHTMLModElementGetCite + dOMHTMLModElementGetCite , + + +-- ** dOMHTMLModElementGetDateTime + dOMHTMLModElementGetDateTime , + + +-- ** dOMHTMLModElementSetCite + dOMHTMLModElementSetCite , + + +-- ** dOMHTMLModElementSetDateTime + dOMHTMLModElementSetDateTime , + + + + + -- * Properties +-- ** Cite + DOMHTMLModElementCitePropertyInfo , + constructDOMHTMLModElementCite , + getDOMHTMLModElementCite , + setDOMHTMLModElementCite , + + +-- ** DateTime + DOMHTMLModElementDateTimePropertyInfo , + constructDOMHTMLModElementDateTime , + getDOMHTMLModElementDateTime , + setDOMHTMLModElementDateTime , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLModElement = DOMHTMLModElement (ForeignPtr DOMHTMLModElement) +foreign import ccall "webkit_dom_html_mod_element_get_type" + c_webkit_dom_html_mod_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLModElement = DOMHTMLModElementParentTypes +type DOMHTMLModElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLModElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_mod_element_get_type + + +class GObject o => DOMHTMLModElementK o +instance (GObject o, IsDescendantOf DOMHTMLModElement o) => DOMHTMLModElementK o + +toDOMHTMLModElement :: DOMHTMLModElementK o => o -> IO DOMHTMLModElement +toDOMHTMLModElement = unsafeCastTo DOMHTMLModElement + +noDOMHTMLModElement :: Maybe DOMHTMLModElement +noDOMHTMLModElement = Nothing + +-- VVV Prop "cite" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite" + +setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () +setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val + +constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue) +constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" val + +data DOMHTMLModElementCitePropertyInfo +instance AttrInfo DOMHTMLModElementCitePropertyInfo where + type AttrAllowedOps DOMHTMLModElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLModElementCitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLModElementCitePropertyInfo = DOMHTMLModElementK + type AttrGetType DOMHTMLModElementCitePropertyInfo = T.Text + type AttrLabel DOMHTMLModElementCitePropertyInfo = "DOMHTMLModElement::cite" + attrGet _ = getDOMHTMLModElementCite + attrSet _ = setDOMHTMLModElementCite + attrConstruct _ = constructDOMHTMLModElementCite + +-- VVV Prop "date-time" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementDateTime obj = liftIO $ getObjectPropertyString obj "date-time" + +setDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () +setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" val + +constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue) +constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" val + +data DOMHTMLModElementDateTimePropertyInfo +instance AttrInfo DOMHTMLModElementDateTimePropertyInfo where + type AttrAllowedOps DOMHTMLModElementDateTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLModElementDateTimePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLModElementDateTimePropertyInfo = DOMHTMLModElementK + type AttrGetType DOMHTMLModElementDateTimePropertyInfo = T.Text + type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "DOMHTMLModElement::date-time" + attrGet _ = getDOMHTMLModElementDateTime + attrSet _ = setDOMHTMLModElementDateTime + attrConstruct _ = constructDOMHTMLModElementDateTime + +type instance AttributeList DOMHTMLModElement = DOMHTMLModElementAttributeList +type DOMHTMLModElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("date-time", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLModElement = DOMHTMLModElementSignalList +type DOMHTMLModElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLModElement::get_cite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_mod_element_get_cite" webkit_dom_html_mod_element_get_cite :: + Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement" + IO CString + + +dOMHTMLModElementGetCite :: + (MonadIO m, DOMHTMLModElementK a) => + a -> -- _obj + m T.Text +dOMHTMLModElementGetCite _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_mod_element_get_cite _obj' + checkUnexpectedReturnNULL "webkit_dom_html_mod_element_get_cite" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLModElement::get_date_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_mod_element_get_date_time" webkit_dom_html_mod_element_get_date_time :: + Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement" + IO CString + + +dOMHTMLModElementGetDateTime :: + (MonadIO m, DOMHTMLModElementK a) => + a -> -- _obj + m T.Text +dOMHTMLModElementGetDateTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_mod_element_get_date_time _obj' + checkUnexpectedReturnNULL "webkit_dom_html_mod_element_get_date_time" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLModElement::set_cite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_mod_element_set_cite" webkit_dom_html_mod_element_set_cite :: + Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLModElementSetCite :: + (MonadIO m, DOMHTMLModElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLModElementSetCite _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_mod_element_set_cite _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLModElement::set_date_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_mod_element_set_date_time" webkit_dom_html_mod_element_set_date_time :: + Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLModElementSetDateTime :: + (MonadIO m, DOMHTMLModElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLModElementSetDateTime _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_mod_element_set_date_time _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLModElement.hs-boot b/GI/WebKit/Objects/DOMHTMLModElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLModElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLModElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLModElement = DOMHTMLModElement (ForeignPtr DOMHTMLModElement) +instance GObject DOMHTMLModElement where +class GObject o => DOMHTMLModElementK o +instance (GObject o, IsDescendantOf DOMHTMLModElement o) => DOMHTMLModElementK o +data DOMHTMLModElementCitePropertyInfo +data DOMHTMLModElementDateTimePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLOListElement.hs b/GI/WebKit/Objects/DOMHTMLOListElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOListElement.hs @@ -0,0 +1,366 @@ + +{- | +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.WebKit.Objects.DOMHTMLOListElement + ( + +-- * Exported types + DOMHTMLOListElement(..) , + DOMHTMLOListElementK , + toDOMHTMLOListElement , + noDOMHTMLOListElement , + + + -- * Methods +-- ** dOMHTMLOListElementGetCompact + dOMHTMLOListElementGetCompact , + + +-- ** dOMHTMLOListElementGetReversed + dOMHTMLOListElementGetReversed , + + +-- ** dOMHTMLOListElementGetStart + dOMHTMLOListElementGetStart , + + +-- ** dOMHTMLOListElementSetCompact + dOMHTMLOListElementSetCompact , + + +-- ** dOMHTMLOListElementSetReversed + dOMHTMLOListElementSetReversed , + + +-- ** dOMHTMLOListElementSetStart + dOMHTMLOListElementSetStart , + + + + + -- * Properties +-- ** Compact + DOMHTMLOListElementCompactPropertyInfo , + constructDOMHTMLOListElementCompact , + getDOMHTMLOListElementCompact , + setDOMHTMLOListElementCompact , + + +-- ** Reversed + DOMHTMLOListElementReversedPropertyInfo , + constructDOMHTMLOListElementReversed , + getDOMHTMLOListElementReversed , + setDOMHTMLOListElementReversed , + + +-- ** Start + DOMHTMLOListElementStartPropertyInfo , + constructDOMHTMLOListElementStart , + getDOMHTMLOListElementStart , + setDOMHTMLOListElementStart , + + +-- ** Type + DOMHTMLOListElementTypePropertyInfo , + constructDOMHTMLOListElementType , + getDOMHTMLOListElementType , + setDOMHTMLOListElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLOListElement = DOMHTMLOListElement (ForeignPtr DOMHTMLOListElement) +foreign import ccall "webkit_dom_htmlo_list_element_get_type" + c_webkit_dom_htmlo_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_htmlo_list_element_get_type + + +class GObject o => DOMHTMLOListElementK o +instance (GObject o, IsDescendantOf DOMHTMLOListElement o) => DOMHTMLOListElementK o + +toDOMHTMLOListElement :: DOMHTMLOListElementK o => o -> IO DOMHTMLOListElement +toDOMHTMLOListElement = unsafeCastTo DOMHTMLOListElement + +noDOMHTMLOListElement :: Maybe DOMHTMLOListElement +noDOMHTMLOListElement = Nothing + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool +getDOMHTMLOListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () +setDOMHTMLOListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLOListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLOListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLOListElementCompactPropertyInfo +instance AttrInfo DOMHTMLOListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOListElementCompactPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLOListElementCompactPropertyInfo = "DOMHTMLOListElement::compact" + attrGet _ = getDOMHTMLOListElementCompact + attrSet _ = setDOMHTMLOListElementCompact + attrConstruct _ = constructDOMHTMLOListElementCompact + +-- VVV Prop "reversed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool +getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed" + +setDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () +setDOMHTMLOListElementReversed obj val = liftIO $ setObjectPropertyBool obj "reversed" val + +constructDOMHTMLOListElementReversed :: Bool -> IO ([Char], GValue) +constructDOMHTMLOListElementReversed val = constructObjectPropertyBool "reversed" val + +data DOMHTMLOListElementReversedPropertyInfo +instance AttrInfo DOMHTMLOListElementReversedPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementReversedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementReversedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOListElementReversedPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementReversedPropertyInfo = Bool + type AttrLabel DOMHTMLOListElementReversedPropertyInfo = "DOMHTMLOListElement::reversed" + attrGet _ = getDOMHTMLOListElementReversed + attrSet _ = setDOMHTMLOListElementReversed + attrConstruct _ = constructDOMHTMLOListElementReversed + +-- VVV Prop "start" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Int64 +getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyInt64 obj "start" + +setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> Int64 -> m () +setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyInt64 obj "start" val + +constructDOMHTMLOListElementStart :: Int64 -> IO ([Char], GValue) +constructDOMHTMLOListElementStart val = constructObjectPropertyInt64 "start" val + +data DOMHTMLOListElementStartPropertyInfo +instance AttrInfo DOMHTMLOListElementStartPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementStartPropertyInfo = Int64 + type AttrLabel DOMHTMLOListElementStartPropertyInfo = "DOMHTMLOListElement::start" + attrGet _ = getDOMHTMLOListElementStart + attrSet _ = setDOMHTMLOListElementStart + attrConstruct _ = constructDOMHTMLOListElementStart + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m T.Text +getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m () +setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOListElementType val = constructObjectPropertyString "type" val + +data DOMHTMLOListElementTypePropertyInfo +instance AttrInfo DOMHTMLOListElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLOListElementTypePropertyInfo = "DOMHTMLOListElement::type" + attrGet _ = getDOMHTMLOListElementType + attrSet _ = setDOMHTMLOListElementType + attrConstruct _ = constructDOMHTMLOListElementType + +type instance AttributeList DOMHTMLOListElement = DOMHTMLOListElementAttributeList +type DOMHTMLOListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLOListElement = DOMHTMLOListElementSignalList +type DOMHTMLOListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLOListElement::get_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_get_compact" webkit_dom_htmlo_list_element_get_compact :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + IO CInt + + +dOMHTMLOListElementGetCompact :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + m Bool +dOMHTMLOListElementGetCompact _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlo_list_element_get_compact _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOListElement::get_reversed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_get_reversed" webkit_dom_htmlo_list_element_get_reversed :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + IO CInt + + +dOMHTMLOListElementGetReversed :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + m Bool +dOMHTMLOListElementGetReversed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlo_list_element_get_reversed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOListElement::get_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_get_start" webkit_dom_htmlo_list_element_get_start :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + IO Int64 + + +dOMHTMLOListElementGetStart :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + m Int64 +dOMHTMLOListElementGetStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlo_list_element_get_start _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLOListElement::set_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_set_compact" webkit_dom_htmlo_list_element_set_compact :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOListElementSetCompact :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOListElementSetCompact _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_htmlo_list_element_set_compact _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOListElement::set_reversed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_set_reversed" webkit_dom_htmlo_list_element_set_reversed :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOListElementSetReversed :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOListElementSetReversed _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_htmlo_list_element_set_reversed _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOListElement::set_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlo_list_element_set_start" webkit_dom_htmlo_list_element_set_start :: + Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLOListElementSetStart :: + (MonadIO m, DOMHTMLOListElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLOListElementSetStart _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_htmlo_list_element_set_start _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMHTMLOListElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLOListElement = DOMHTMLOListElement (ForeignPtr DOMHTMLOListElement) +instance GObject DOMHTMLOListElement where +class GObject o => DOMHTMLOListElementK o +instance (GObject o, IsDescendantOf DOMHTMLOListElement o) => DOMHTMLOListElementK o +data DOMHTMLOListElementCompactPropertyInfo +data DOMHTMLOListElementReversedPropertyInfo +data DOMHTMLOListElementStartPropertyInfo +data DOMHTMLOListElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLObjectElement.hs b/GI/WebKit/Objects/DOMHTMLObjectElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLObjectElement.hs @@ -0,0 +1,1818 @@ + +{- | +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.WebKit.Objects.DOMHTMLObjectElement + ( + +-- * Exported types + DOMHTMLObjectElement(..) , + DOMHTMLObjectElementK , + toDOMHTMLObjectElement , + noDOMHTMLObjectElement , + + + -- * Methods +-- ** dOMHTMLObjectElementCheckValidity + dOMHTMLObjectElementCheckValidity , + + +-- ** dOMHTMLObjectElementGetAlign + dOMHTMLObjectElementGetAlign , + + +-- ** dOMHTMLObjectElementGetArchive + dOMHTMLObjectElementGetArchive , + + +-- ** dOMHTMLObjectElementGetBorder + dOMHTMLObjectElementGetBorder , + + +-- ** dOMHTMLObjectElementGetCode + dOMHTMLObjectElementGetCode , + + +-- ** dOMHTMLObjectElementGetCodeBase + dOMHTMLObjectElementGetCodeBase , + + +-- ** dOMHTMLObjectElementGetCodeType + dOMHTMLObjectElementGetCodeType , + + +-- ** dOMHTMLObjectElementGetContentDocument + dOMHTMLObjectElementGetContentDocument , + + +-- ** dOMHTMLObjectElementGetData + dOMHTMLObjectElementGetData , + + +-- ** dOMHTMLObjectElementGetDeclare + dOMHTMLObjectElementGetDeclare , + + +-- ** dOMHTMLObjectElementGetForm + dOMHTMLObjectElementGetForm , + + +-- ** dOMHTMLObjectElementGetHeight + dOMHTMLObjectElementGetHeight , + + +-- ** dOMHTMLObjectElementGetHspace + dOMHTMLObjectElementGetHspace , + + +-- ** dOMHTMLObjectElementGetName + dOMHTMLObjectElementGetName , + + +-- ** dOMHTMLObjectElementGetStandby + dOMHTMLObjectElementGetStandby , + + +-- ** dOMHTMLObjectElementGetUseMap + dOMHTMLObjectElementGetUseMap , + + +-- ** dOMHTMLObjectElementGetValidationMessage + dOMHTMLObjectElementGetValidationMessage, + + +-- ** dOMHTMLObjectElementGetValidity + dOMHTMLObjectElementGetValidity , + + +-- ** dOMHTMLObjectElementGetVspace + dOMHTMLObjectElementGetVspace , + + +-- ** dOMHTMLObjectElementGetWidth + dOMHTMLObjectElementGetWidth , + + +-- ** dOMHTMLObjectElementGetWillValidate + dOMHTMLObjectElementGetWillValidate , + + +-- ** dOMHTMLObjectElementSetAlign + dOMHTMLObjectElementSetAlign , + + +-- ** dOMHTMLObjectElementSetArchive + dOMHTMLObjectElementSetArchive , + + +-- ** dOMHTMLObjectElementSetBorder + dOMHTMLObjectElementSetBorder , + + +-- ** dOMHTMLObjectElementSetCode + dOMHTMLObjectElementSetCode , + + +-- ** dOMHTMLObjectElementSetCodeBase + dOMHTMLObjectElementSetCodeBase , + + +-- ** dOMHTMLObjectElementSetCodeType + dOMHTMLObjectElementSetCodeType , + + +-- ** dOMHTMLObjectElementSetCustomValidity + dOMHTMLObjectElementSetCustomValidity , + + +-- ** dOMHTMLObjectElementSetData + dOMHTMLObjectElementSetData , + + +-- ** dOMHTMLObjectElementSetDeclare + dOMHTMLObjectElementSetDeclare , + + +-- ** dOMHTMLObjectElementSetHeight + dOMHTMLObjectElementSetHeight , + + +-- ** dOMHTMLObjectElementSetHspace + dOMHTMLObjectElementSetHspace , + + +-- ** dOMHTMLObjectElementSetName + dOMHTMLObjectElementSetName , + + +-- ** dOMHTMLObjectElementSetStandby + dOMHTMLObjectElementSetStandby , + + +-- ** dOMHTMLObjectElementSetUseMap + dOMHTMLObjectElementSetUseMap , + + +-- ** dOMHTMLObjectElementSetVspace + dOMHTMLObjectElementSetVspace , + + +-- ** dOMHTMLObjectElementSetWidth + dOMHTMLObjectElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLObjectElementAlignPropertyInfo , + constructDOMHTMLObjectElementAlign , + getDOMHTMLObjectElementAlign , + setDOMHTMLObjectElementAlign , + + +-- ** Archive + DOMHTMLObjectElementArchivePropertyInfo , + constructDOMHTMLObjectElementArchive , + getDOMHTMLObjectElementArchive , + setDOMHTMLObjectElementArchive , + + +-- ** Border + DOMHTMLObjectElementBorderPropertyInfo , + constructDOMHTMLObjectElementBorder , + getDOMHTMLObjectElementBorder , + setDOMHTMLObjectElementBorder , + + +-- ** Code + DOMHTMLObjectElementCodePropertyInfo , + constructDOMHTMLObjectElementCode , + getDOMHTMLObjectElementCode , + setDOMHTMLObjectElementCode , + + +-- ** CodeBase + DOMHTMLObjectElementCodeBasePropertyInfo, + constructDOMHTMLObjectElementCodeBase , + getDOMHTMLObjectElementCodeBase , + setDOMHTMLObjectElementCodeBase , + + +-- ** CodeType + DOMHTMLObjectElementCodeTypePropertyInfo, + constructDOMHTMLObjectElementCodeType , + getDOMHTMLObjectElementCodeType , + setDOMHTMLObjectElementCodeType , + + +-- ** ContentDocument + DOMHTMLObjectElementContentDocumentPropertyInfo, + getDOMHTMLObjectElementContentDocument , + + +-- ** Data + DOMHTMLObjectElementDataPropertyInfo , + constructDOMHTMLObjectElementData , + getDOMHTMLObjectElementData , + setDOMHTMLObjectElementData , + + +-- ** Declare + DOMHTMLObjectElementDeclarePropertyInfo , + constructDOMHTMLObjectElementDeclare , + getDOMHTMLObjectElementDeclare , + setDOMHTMLObjectElementDeclare , + + +-- ** Form + DOMHTMLObjectElementFormPropertyInfo , + getDOMHTMLObjectElementForm , + + +-- ** Height + DOMHTMLObjectElementHeightPropertyInfo , + constructDOMHTMLObjectElementHeight , + getDOMHTMLObjectElementHeight , + setDOMHTMLObjectElementHeight , + + +-- ** Hspace + DOMHTMLObjectElementHspacePropertyInfo , + constructDOMHTMLObjectElementHspace , + getDOMHTMLObjectElementHspace , + setDOMHTMLObjectElementHspace , + + +-- ** Name + DOMHTMLObjectElementNamePropertyInfo , + constructDOMHTMLObjectElementName , + getDOMHTMLObjectElementName , + setDOMHTMLObjectElementName , + + +-- ** Standby + DOMHTMLObjectElementStandbyPropertyInfo , + constructDOMHTMLObjectElementStandby , + getDOMHTMLObjectElementStandby , + setDOMHTMLObjectElementStandby , + + +-- ** Type + DOMHTMLObjectElementTypePropertyInfo , + constructDOMHTMLObjectElementType , + getDOMHTMLObjectElementType , + setDOMHTMLObjectElementType , + + +-- ** UseMap + DOMHTMLObjectElementUseMapPropertyInfo , + constructDOMHTMLObjectElementUseMap , + getDOMHTMLObjectElementUseMap , + setDOMHTMLObjectElementUseMap , + + +-- ** ValidationMessage + DOMHTMLObjectElementValidationMessagePropertyInfo, + getDOMHTMLObjectElementValidationMessage, + + +-- ** Validity + DOMHTMLObjectElementValidityPropertyInfo, + getDOMHTMLObjectElementValidity , + + +-- ** Vspace + DOMHTMLObjectElementVspacePropertyInfo , + constructDOMHTMLObjectElementVspace , + getDOMHTMLObjectElementVspace , + setDOMHTMLObjectElementVspace , + + +-- ** Width + DOMHTMLObjectElementWidthPropertyInfo , + constructDOMHTMLObjectElementWidth , + getDOMHTMLObjectElementWidth , + setDOMHTMLObjectElementWidth , + + +-- ** WillValidate + DOMHTMLObjectElementWillValidatePropertyInfo, + getDOMHTMLObjectElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLObjectElement = DOMHTMLObjectElement (ForeignPtr DOMHTMLObjectElement) +foreign import ccall "webkit_dom_html_object_element_get_type" + c_webkit_dom_html_object_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLObjectElement = DOMHTMLObjectElementParentTypes +type DOMHTMLObjectElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLObjectElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_object_element_get_type + + +class GObject o => DOMHTMLObjectElementK o +instance (GObject o, IsDescendantOf DOMHTMLObjectElement o) => DOMHTMLObjectElementK o + +toDOMHTMLObjectElement :: DOMHTMLObjectElementK o => o -> IO DOMHTMLObjectElement +toDOMHTMLObjectElement = unsafeCastTo DOMHTMLObjectElement + +noDOMHTMLObjectElement :: Maybe DOMHTMLObjectElement +noDOMHTMLObjectElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLObjectElementAlignPropertyInfo +instance AttrInfo DOMHTMLObjectElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "DOMHTMLObjectElement::align" + attrGet _ = getDOMHTMLObjectElementAlign + attrSet _ = setDOMHTMLObjectElementAlign + attrConstruct _ = constructDOMHTMLObjectElementAlign + +-- VVV Prop "archive" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive" + +setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val + +constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" val + +data DOMHTMLObjectElementArchivePropertyInfo +instance AttrInfo DOMHTMLObjectElementArchivePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "DOMHTMLObjectElement::archive" + attrGet _ = getDOMHTMLObjectElementArchive + attrSet _ = setDOMHTMLObjectElementArchive + attrConstruct _ = constructDOMHTMLObjectElementArchive + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLObjectElementBorderPropertyInfo +instance AttrInfo DOMHTMLObjectElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "DOMHTMLObjectElement::border" + attrGet _ = getDOMHTMLObjectElementBorder + attrSet _ = setDOMHTMLObjectElementBorder + attrConstruct _ = constructDOMHTMLObjectElementBorder + +-- VVV Prop "code" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code" + +setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" val + +constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" val + +data DOMHTMLObjectElementCodePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "DOMHTMLObjectElement::code" + attrGet _ = getDOMHTMLObjectElementCode + attrSet _ = setDOMHTMLObjectElementCode + attrConstruct _ = constructDOMHTMLObjectElementCode + +-- VVV Prop "code-base" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" + +setDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val + +constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" val + +data DOMHTMLObjectElementCodeBasePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodeBasePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "DOMHTMLObjectElement::code-base" + attrGet _ = getDOMHTMLObjectElementCodeBase + attrSet _ = setDOMHTMLObjectElementCodeBase + attrConstruct _ = constructDOMHTMLObjectElementCodeBase + +-- VVV Prop "code-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeType obj = liftIO $ getObjectPropertyString obj "code-type" + +setDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" val + +constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" val + +data DOMHTMLObjectElementCodeTypePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodeTypePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodeTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "DOMHTMLObjectElement::code-type" + attrGet _ = getDOMHTMLObjectElementCodeType + attrSet _ = setDOMHTMLObjectElementCodeType + attrConstruct _ = constructDOMHTMLObjectElementCodeType + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument +getDOMHTMLObjectElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLObjectElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLObjectElementContentDocumentPropertyInfo = "DOMHTMLObjectElement::content-document" + attrGet _ = getDOMHTMLObjectElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "data" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data" + +setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" val + +constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" val + +data DOMHTMLObjectElementDataPropertyInfo +instance AttrInfo DOMHTMLObjectElementDataPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementDataPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementDataPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementDataPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "DOMHTMLObjectElement::data" + attrGet _ = getDOMHTMLObjectElementData + attrSet _ = setDOMHTMLObjectElementData + attrConstruct _ = constructDOMHTMLObjectElementData + +-- VVV Prop "declare" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool +getDOMHTMLObjectElementDeclare obj = liftIO $ getObjectPropertyBool obj "declare" + +setDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Bool -> m () +setDOMHTMLObjectElementDeclare obj val = liftIO $ setObjectPropertyBool obj "declare" val + +constructDOMHTMLObjectElementDeclare :: Bool -> IO ([Char], GValue) +constructDOMHTMLObjectElementDeclare val = constructObjectPropertyBool "declare" val + +data DOMHTMLObjectElementDeclarePropertyInfo +instance AttrInfo DOMHTMLObjectElementDeclarePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementDeclarePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementDeclarePropertyInfo = Bool + type AttrLabel DOMHTMLObjectElementDeclarePropertyInfo = "DOMHTMLObjectElement::declare" + attrGet _ = getDOMHTMLObjectElementDeclare + attrSet _ = setDOMHTMLObjectElementDeclare + attrConstruct _ = constructDOMHTMLObjectElementDeclare + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLObjectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLObjectElementFormPropertyInfo +instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLObjectElementFormPropertyInfo = "DOMHTMLObjectElement::form" + attrGet _ = getDOMHTMLObjectElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLObjectElementHeightPropertyInfo +instance AttrInfo DOMHTMLObjectElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "DOMHTMLObjectElement::height" + attrGet _ = getDOMHTMLObjectElementHeight + attrSet _ = setDOMHTMLObjectElementHeight + attrConstruct _ = constructDOMHTMLObjectElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 +getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () +setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLObjectElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLObjectElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLObjectElementHspacePropertyInfo +instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "DOMHTMLObjectElement::hspace" + attrGet _ = getDOMHTMLObjectElementHspace + attrSet _ = setDOMHTMLObjectElementHspace + attrConstruct _ = constructDOMHTMLObjectElementHspace + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" val + +data DOMHTMLObjectElementNamePropertyInfo +instance AttrInfo DOMHTMLObjectElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementNamePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "DOMHTMLObjectElement::name" + attrGet _ = getDOMHTMLObjectElementName + attrSet _ = setDOMHTMLObjectElementName + attrConstruct _ = constructDOMHTMLObjectElementName + +-- VVV Prop "standby" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby" + +setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" val + +constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" val + +data DOMHTMLObjectElementStandbyPropertyInfo +instance AttrInfo DOMHTMLObjectElementStandbyPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementStandbyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "DOMHTMLObjectElement::standby" + attrGet _ = getDOMHTMLObjectElementStandby + attrSet _ = setDOMHTMLObjectElementStandby + attrConstruct _ = constructDOMHTMLObjectElementStandby + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" val + +data DOMHTMLObjectElementTypePropertyInfo +instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "DOMHTMLObjectElement::type" + attrGet _ = getDOMHTMLObjectElementType + attrSet _ = setDOMHTMLObjectElementType + attrConstruct _ = constructDOMHTMLObjectElementType + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLObjectElementUseMapPropertyInfo +instance AttrInfo DOMHTMLObjectElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "DOMHTMLObjectElement::use-map" + attrGet _ = getDOMHTMLObjectElementUseMap + attrSet _ = setDOMHTMLObjectElementUseMap + attrConstruct _ = constructDOMHTMLObjectElementUseMap + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLObjectElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "DOMHTMLObjectElement::validation-message" + attrGet _ = getDOMHTMLObjectElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementValidity :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMValidityState +getDOMHTMLObjectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLObjectElementValidityPropertyInfo +instance AttrInfo DOMHTMLObjectElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLObjectElementValidityPropertyInfo = "DOMHTMLObjectElement::validity" + attrGet _ = getDOMHTMLObjectElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 +getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () +setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLObjectElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLObjectElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLObjectElementVspacePropertyInfo +instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "DOMHTMLObjectElement::vspace" + attrGet _ = getDOMHTMLObjectElementVspace + attrSet _ = setDOMHTMLObjectElementVspace + attrConstruct _ = constructDOMHTMLObjectElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLObjectElementWidthPropertyInfo +instance AttrInfo DOMHTMLObjectElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "DOMHTMLObjectElement::width" + attrGet _ = getDOMHTMLObjectElementWidth + attrSet _ = setDOMHTMLObjectElementWidth + attrConstruct _ = constructDOMHTMLObjectElementWidth + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool +getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLObjectElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLObjectElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLObjectElementWillValidatePropertyInfo = "DOMHTMLObjectElement::will-validate" + attrGet _ = getDOMHTMLObjectElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLObjectElement = DOMHTMLObjectElementAttributeList +type DOMHTMLObjectElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("code-base", DOMHTMLObjectElementCodeBasePropertyInfo), '("code-type", DOMHTMLObjectElementCodeTypePropertyInfo), '("content-document", DOMHTMLObjectElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("use-map", DOMHTMLObjectElementUseMapPropertyInfo), '("validation-message", DOMHTMLObjectElementValidationMessagePropertyInfo), '("validity", DOMHTMLObjectElementValidityPropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("will-validate", DOMHTMLObjectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLObjectElement = DOMHTMLObjectElementSignalList +type DOMHTMLObjectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLObjectElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_check_validity" webkit_dom_html_object_element_check_validity :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CInt + + +dOMHTMLObjectElementCheckValidity :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m Bool +dOMHTMLObjectElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_align" webkit_dom_html_object_element_get_align :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetAlign :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_archive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_archive" webkit_dom_html_object_element_get_archive :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetArchive :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetArchive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_archive _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_archive" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_border" webkit_dom_html_object_element_get_border :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetBorder :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_border _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_border" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_code" webkit_dom_html_object_element_get_code :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetCode :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_code _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_code_base +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_code_base" webkit_dom_html_object_element_get_code_base :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetCodeBase :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetCodeBase _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_code_base _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code_base" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_code_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_code_type" webkit_dom_html_object_element_get_code_type :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetCodeType :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetCodeType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_code_type _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code_type" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_content_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_content_document" webkit_dom_html_object_element_get_content_document :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO (Ptr DOMDocument) + + +dOMHTMLObjectElementGetContentDocument :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m DOMDocument +dOMHTMLObjectElementGetContentDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_content_document _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_content_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_data" webkit_dom_html_object_element_get_data :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetData :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_data _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_data" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_declare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_declare" webkit_dom_html_object_element_get_declare :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CInt + + +dOMHTMLObjectElementGetDeclare :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m Bool +dOMHTMLObjectElementGetDeclare _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_declare _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_form" webkit_dom_html_object_element_get_form :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLObjectElementGetForm :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLObjectElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_height" webkit_dom_html_object_element_get_height :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetHeight :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_hspace" webkit_dom_html_object_element_get_hspace :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO Int64 + + +dOMHTMLObjectElementGetHspace :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m Int64 +dOMHTMLObjectElementGetHspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_hspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLObjectElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_name" webkit_dom_html_object_element_get_name :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetName :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_standby +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_standby" webkit_dom_html_object_element_get_standby :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetStandby :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetStandby _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_standby _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_standby" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_use_map" webkit_dom_html_object_element_get_use_map :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetUseMap :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetUseMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_use_map _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_use_map" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_validation_message" webkit_dom_html_object_element_get_validation_message :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetValidationMessage :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_validity" webkit_dom_html_object_element_get_validity :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO (Ptr DOMValidityState) + + +dOMHTMLObjectElementGetValidity :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLObjectElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_vspace" webkit_dom_html_object_element_get_vspace :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO Int64 + + +dOMHTMLObjectElementGetVspace :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m Int64 +dOMHTMLObjectElementGetVspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_vspace _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLObjectElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_width" webkit_dom_html_object_element_get_width :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CString + + +dOMHTMLObjectElementGetWidth :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLObjectElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_get_will_validate" webkit_dom_html_object_element_get_will_validate :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + IO CInt + + +dOMHTMLObjectElementGetWillValidate :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + m Bool +dOMHTMLObjectElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_object_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLObjectElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_align" webkit_dom_html_object_element_set_align :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetAlign :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_archive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_archive" webkit_dom_html_object_element_set_archive :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetArchive :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetArchive _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_archive _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_border" webkit_dom_html_object_element_set_border :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetBorder :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetBorder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_border _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_code" webkit_dom_html_object_element_set_code :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetCode :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetCode _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_code _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_code_base +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_code_base" webkit_dom_html_object_element_set_code_base :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetCodeBase :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetCodeBase _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_code_base _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_code_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_code_type" webkit_dom_html_object_element_set_code_type :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetCodeType :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetCodeType _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_code_type _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_custom_validity" webkit_dom_html_object_element_set_custom_validity :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetCustomValidity :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLObjectElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_object_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLObjectElement::set_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_data" webkit_dom_html_object_element_set_data :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetData :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetData _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_data _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_declare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_declare" webkit_dom_html_object_element_set_declare :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLObjectElementSetDeclare :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLObjectElementSetDeclare _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_object_element_set_declare _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLObjectElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_height" webkit_dom_html_object_element_set_height :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetHeight :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_hspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_hspace" webkit_dom_html_object_element_set_hspace :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLObjectElementSetHspace :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLObjectElementSetHspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_object_element_set_hspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLObjectElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_name" webkit_dom_html_object_element_set_name :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetName :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_standby +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_standby" webkit_dom_html_object_element_set_standby :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetStandby :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetStandby _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_standby _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_use_map +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_use_map" webkit_dom_html_object_element_set_use_map :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetUseMap :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetUseMap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_use_map _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLObjectElement::set_vspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_vspace" webkit_dom_html_object_element_set_vspace :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLObjectElementSetVspace :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLObjectElementSetVspace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_object_element_set_vspace _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLObjectElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_object_element_set_width" webkit_dom_html_object_element_set_width :: + Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLObjectElementSetWidth :: + (MonadIO m, DOMHTMLObjectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLObjectElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_object_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot b/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot @@ -0,0 +1,34 @@ +module GI.WebKit.Objects.DOMHTMLObjectElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLObjectElement = DOMHTMLObjectElement (ForeignPtr DOMHTMLObjectElement) +instance GObject DOMHTMLObjectElement where +class GObject o => DOMHTMLObjectElementK o +instance (GObject o, IsDescendantOf DOMHTMLObjectElement o) => DOMHTMLObjectElementK o +data DOMHTMLObjectElementAlignPropertyInfo +data DOMHTMLObjectElementArchivePropertyInfo +data DOMHTMLObjectElementBorderPropertyInfo +data DOMHTMLObjectElementCodePropertyInfo +data DOMHTMLObjectElementCodeBasePropertyInfo +data DOMHTMLObjectElementCodeTypePropertyInfo +data DOMHTMLObjectElementContentDocumentPropertyInfo +data DOMHTMLObjectElementDataPropertyInfo +data DOMHTMLObjectElementDeclarePropertyInfo +data DOMHTMLObjectElementFormPropertyInfo +data DOMHTMLObjectElementHeightPropertyInfo +data DOMHTMLObjectElementHspacePropertyInfo +data DOMHTMLObjectElementNamePropertyInfo +data DOMHTMLObjectElementStandbyPropertyInfo +data DOMHTMLObjectElementTypePropertyInfo +data DOMHTMLObjectElementUseMapPropertyInfo +data DOMHTMLObjectElementValidationMessagePropertyInfo +data DOMHTMLObjectElementValidityPropertyInfo +data DOMHTMLObjectElementVspacePropertyInfo +data DOMHTMLObjectElementWidthPropertyInfo +data DOMHTMLObjectElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs @@ -0,0 +1,249 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLOptGroupElement + ( + +-- * Exported types + DOMHTMLOptGroupElement(..) , + DOMHTMLOptGroupElementK , + toDOMHTMLOptGroupElement , + noDOMHTMLOptGroupElement , + + + -- * Methods +-- ** dOMHTMLOptGroupElementGetDisabled + dOMHTMLOptGroupElementGetDisabled , + + +-- ** dOMHTMLOptGroupElementGetLabel + dOMHTMLOptGroupElementGetLabel , + + +-- ** dOMHTMLOptGroupElementSetDisabled + dOMHTMLOptGroupElementSetDisabled , + + +-- ** dOMHTMLOptGroupElementSetLabel + dOMHTMLOptGroupElementSetLabel , + + + + + -- * Properties +-- ** Disabled + DOMHTMLOptGroupElementDisabledPropertyInfo, + constructDOMHTMLOptGroupElementDisabled , + getDOMHTMLOptGroupElementDisabled , + setDOMHTMLOptGroupElementDisabled , + + +-- ** Label + DOMHTMLOptGroupElementLabelPropertyInfo , + constructDOMHTMLOptGroupElementLabel , + getDOMHTMLOptGroupElementLabel , + setDOMHTMLOptGroupElementLabel , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLOptGroupElement = DOMHTMLOptGroupElement (ForeignPtr DOMHTMLOptGroupElement) +foreign import ccall "webkit_dom_html_opt_group_element_get_type" + c_webkit_dom_html_opt_group_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLOptGroupElement = DOMHTMLOptGroupElementParentTypes +type DOMHTMLOptGroupElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLOptGroupElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_opt_group_element_get_type + + +class GObject o => DOMHTMLOptGroupElementK o +instance (GObject o, IsDescendantOf DOMHTMLOptGroupElement o) => DOMHTMLOptGroupElementK o + +toDOMHTMLOptGroupElement :: DOMHTMLOptGroupElementK o => o -> IO DOMHTMLOptGroupElement +toDOMHTMLOptGroupElement = unsafeCastTo DOMHTMLOptGroupElement + +noDOMHTMLOptGroupElement :: Maybe DOMHTMLOptGroupElement +noDOMHTMLOptGroupElement = Nothing + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m Bool +getDOMHTMLOptGroupElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> Bool -> m () +setDOMHTMLOptGroupElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLOptGroupElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptGroupElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLOptGroupElementDisabledPropertyInfo +instance AttrInfo DOMHTMLOptGroupElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLOptGroupElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = DOMHTMLOptGroupElementK + type AttrGetType DOMHTMLOptGroupElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLOptGroupElementDisabledPropertyInfo = "DOMHTMLOptGroupElement::disabled" + attrGet _ = getDOMHTMLOptGroupElementDisabled + attrSet _ = setDOMHTMLOptGroupElementDisabled + attrConstruct _ = constructDOMHTMLOptGroupElementDisabled + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m T.Text +getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label" + +setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m () +setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" val + +data DOMHTMLOptGroupElementLabelPropertyInfo +instance AttrInfo DOMHTMLOptGroupElementLabelPropertyInfo where + type AttrAllowedOps DOMHTMLOptGroupElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = DOMHTMLOptGroupElementK + type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = T.Text + type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "DOMHTMLOptGroupElement::label" + attrGet _ = getDOMHTMLOptGroupElementLabel + attrSet _ = setDOMHTMLOptGroupElementLabel + attrConstruct _ = constructDOMHTMLOptGroupElementLabel + +type instance AttributeList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementAttributeList +type DOMHTMLOptGroupElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementSignalList +type DOMHTMLOptGroupElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLOptGroupElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_opt_group_element_get_disabled" webkit_dom_html_opt_group_element_get_disabled :: + Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement" + IO CInt + + +dOMHTMLOptGroupElementGetDisabled :: + (MonadIO m, DOMHTMLOptGroupElementK a) => + a -> -- _obj + m Bool +dOMHTMLOptGroupElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_opt_group_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptGroupElement::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_opt_group_element_get_label" webkit_dom_html_opt_group_element_get_label :: + Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement" + IO CString + + +dOMHTMLOptGroupElementGetLabel :: + (MonadIO m, DOMHTMLOptGroupElementK a) => + a -> -- _obj + m T.Text +dOMHTMLOptGroupElementGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_opt_group_element_get_label _obj' + checkUnexpectedReturnNULL "webkit_dom_html_opt_group_element_get_label" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptGroupElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_opt_group_element_set_disabled" webkit_dom_html_opt_group_element_set_disabled :: + Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOptGroupElementSetDisabled :: + (MonadIO m, DOMHTMLOptGroupElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOptGroupElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_opt_group_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOptGroupElement::set_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_opt_group_element_set_label" webkit_dom_html_opt_group_element_set_label :: + Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLOptGroupElementSetLabel :: + (MonadIO m, DOMHTMLOptGroupElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLOptGroupElementSetLabel _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_opt_group_element_set_label _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLOptGroupElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLOptGroupElement = DOMHTMLOptGroupElement (ForeignPtr DOMHTMLOptGroupElement) +instance GObject DOMHTMLOptGroupElement where +class GObject o => DOMHTMLOptGroupElementK o +instance (GObject o, IsDescendantOf DOMHTMLOptGroupElement o) => DOMHTMLOptGroupElementK o +data DOMHTMLOptGroupElementDisabledPropertyInfo +data DOMHTMLOptGroupElementLabelPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLOptionElement.hs b/GI/WebKit/Objects/DOMHTMLOptionElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptionElement.hs @@ -0,0 +1,683 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLOptionElement + ( + +-- * Exported types + DOMHTMLOptionElement(..) , + DOMHTMLOptionElementK , + toDOMHTMLOptionElement , + noDOMHTMLOptionElement , + + + -- * Methods +-- ** dOMHTMLOptionElementGetDefaultSelected + dOMHTMLOptionElementGetDefaultSelected , + + +-- ** dOMHTMLOptionElementGetDisabled + dOMHTMLOptionElementGetDisabled , + + +-- ** dOMHTMLOptionElementGetForm + dOMHTMLOptionElementGetForm , + + +-- ** dOMHTMLOptionElementGetIndex + dOMHTMLOptionElementGetIndex , + + +-- ** dOMHTMLOptionElementGetLabel + dOMHTMLOptionElementGetLabel , + + +-- ** dOMHTMLOptionElementGetSelected + dOMHTMLOptionElementGetSelected , + + +-- ** dOMHTMLOptionElementGetText + dOMHTMLOptionElementGetText , + + +-- ** dOMHTMLOptionElementGetValue + dOMHTMLOptionElementGetValue , + + +-- ** dOMHTMLOptionElementSetDefaultSelected + dOMHTMLOptionElementSetDefaultSelected , + + +-- ** dOMHTMLOptionElementSetDisabled + dOMHTMLOptionElementSetDisabled , + + +-- ** dOMHTMLOptionElementSetLabel + dOMHTMLOptionElementSetLabel , + + +-- ** dOMHTMLOptionElementSetSelected + dOMHTMLOptionElementSetSelected , + + +-- ** dOMHTMLOptionElementSetValue + dOMHTMLOptionElementSetValue , + + + + + -- * Properties +-- ** DefaultSelected + DOMHTMLOptionElementDefaultSelectedPropertyInfo, + constructDOMHTMLOptionElementDefaultSelected, + getDOMHTMLOptionElementDefaultSelected , + setDOMHTMLOptionElementDefaultSelected , + + +-- ** Disabled + DOMHTMLOptionElementDisabledPropertyInfo, + constructDOMHTMLOptionElementDisabled , + getDOMHTMLOptionElementDisabled , + setDOMHTMLOptionElementDisabled , + + +-- ** Form + DOMHTMLOptionElementFormPropertyInfo , + getDOMHTMLOptionElementForm , + + +-- ** Index + DOMHTMLOptionElementIndexPropertyInfo , + getDOMHTMLOptionElementIndex , + + +-- ** Label + DOMHTMLOptionElementLabelPropertyInfo , + constructDOMHTMLOptionElementLabel , + getDOMHTMLOptionElementLabel , + setDOMHTMLOptionElementLabel , + + +-- ** Selected + DOMHTMLOptionElementSelectedPropertyInfo, + constructDOMHTMLOptionElementSelected , + getDOMHTMLOptionElementSelected , + setDOMHTMLOptionElementSelected , + + +-- ** Text + DOMHTMLOptionElementTextPropertyInfo , + getDOMHTMLOptionElementText , + + +-- ** Value + DOMHTMLOptionElementValuePropertyInfo , + constructDOMHTMLOptionElementValue , + getDOMHTMLOptionElementValue , + setDOMHTMLOptionElementValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLOptionElement = DOMHTMLOptionElement (ForeignPtr DOMHTMLOptionElement) +foreign import ccall "webkit_dom_html_option_element_get_type" + c_webkit_dom_html_option_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLOptionElement = DOMHTMLOptionElementParentTypes +type DOMHTMLOptionElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLOptionElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_option_element_get_type + + +class GObject o => DOMHTMLOptionElementK o +instance (GObject o, IsDescendantOf DOMHTMLOptionElement o) => DOMHTMLOptionElementK o + +toDOMHTMLOptionElement :: DOMHTMLOptionElementK o => o -> IO DOMHTMLOptionElement +toDOMHTMLOptionElement = unsafeCastTo DOMHTMLOptionElement + +noDOMHTMLOptionElement :: Maybe DOMHTMLOptionElement +noDOMHTMLOptionElement = Nothing + +-- VVV Prop "default-selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementDefaultSelected obj = liftIO $ getObjectPropertyBool obj "default-selected" + +setDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementDefaultSelected obj val = liftIO $ setObjectPropertyBool obj "default-selected" val + +constructDOMHTMLOptionElementDefaultSelected :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementDefaultSelected val = constructObjectPropertyBool "default-selected" val + +data DOMHTMLOptionElementDefaultSelectedPropertyInfo +instance AttrInfo DOMHTMLOptionElementDefaultSelectedPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementDefaultSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementDefaultSelectedPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementDefaultSelectedPropertyInfo = "DOMHTMLOptionElement::default-selected" + attrGet _ = getDOMHTMLOptionElementDefaultSelected + attrSet _ = setDOMHTMLOptionElementDefaultSelected + attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLOptionElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLOptionElementDisabledPropertyInfo +instance AttrInfo DOMHTMLOptionElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementDisabledPropertyInfo = "DOMHTMLOptionElement::disabled" + attrGet _ = getDOMHTMLOptionElementDisabled + attrSet _ = setDOMHTMLOptionElementDisabled + attrConstruct _ = constructDOMHTMLOptionElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLOptionElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLOptionElementFormPropertyInfo +instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLOptionElementFormPropertyInfo = "DOMHTMLOptionElement::form" + attrGet _ = getDOMHTMLOptionElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Int64 +getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyInt64 obj "index" + +data DOMHTMLOptionElementIndexPropertyInfo +instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "DOMHTMLOptionElement::index" + attrGet _ = getDOMHTMLOptionElementIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label" + +setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () +setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" val + +data DOMHTMLOptionElementLabelPropertyInfo +instance AttrInfo DOMHTMLOptionElementLabelPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "DOMHTMLOptionElement::label" + attrGet _ = getDOMHTMLOptionElementLabel + attrSet _ = setDOMHTMLOptionElementLabel + attrConstruct _ = constructDOMHTMLOptionElementLabel + +-- VVV Prop "selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementSelected obj = liftIO $ getObjectPropertyBool obj "selected" + +setDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val + +constructDOMHTMLOptionElementSelected :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementSelected val = constructObjectPropertyBool "selected" val + +data DOMHTMLOptionElementSelectedPropertyInfo +instance AttrInfo DOMHTMLOptionElementSelectedPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementSelectedPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementSelectedPropertyInfo = "DOMHTMLOptionElement::selected" + attrGet _ = getDOMHTMLOptionElementSelected + attrSet _ = setDOMHTMLOptionElementSelected + attrConstruct _ = constructDOMHTMLOptionElementSelected + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMHTMLOptionElementTextPropertyInfo +instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "DOMHTMLOptionElement::text" + attrGet _ = getDOMHTMLOptionElementText + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () +setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLOptionElementValuePropertyInfo +instance AttrInfo DOMHTMLOptionElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptionElementValuePropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "DOMHTMLOptionElement::value" + attrGet _ = getDOMHTMLOptionElementValue + attrSet _ = setDOMHTMLOptionElementValue + attrConstruct _ = constructDOMHTMLOptionElementValue + +type instance AttributeList DOMHTMLOptionElement = DOMHTMLOptionElementAttributeList +type DOMHTMLOptionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-selected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLOptionElement = DOMHTMLOptionElementSignalList +type DOMHTMLOptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLOptionElement::get_default_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_default_selected" webkit_dom_html_option_element_get_default_selected :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CInt + + +dOMHTMLOptionElementGetDefaultSelected :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m Bool +dOMHTMLOptionElementGetDefaultSelected _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_default_selected _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_disabled" webkit_dom_html_option_element_get_disabled :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CInt + + +dOMHTMLOptionElementGetDisabled :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m Bool +dOMHTMLOptionElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_form" webkit_dom_html_option_element_get_form :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLOptionElementGetForm :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLOptionElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_index" webkit_dom_html_option_element_get_index :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO Int64 + + +dOMHTMLOptionElementGetIndex :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m Int64 +dOMHTMLOptionElementGetIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLOptionElement::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_label" webkit_dom_html_option_element_get_label :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CString + + +dOMHTMLOptionElementGetLabel :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLOptionElementGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_label _obj' + checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_label" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_selected" webkit_dom_html_option_element_get_selected :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CInt + + +dOMHTMLOptionElementGetSelected :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m Bool +dOMHTMLOptionElementGetSelected _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_selected _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_text" webkit_dom_html_option_element_get_text :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CString + + +dOMHTMLOptionElementGetText :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLOptionElementGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_get_value" webkit_dom_html_option_element_get_value :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + IO CString + + +dOMHTMLOptionElementGetValue :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLOptionElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_option_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLOptionElement::set_default_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_set_default_selected" webkit_dom_html_option_element_set_default_selected :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOptionElementSetDefaultSelected :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOptionElementSetDefaultSelected _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_option_element_set_default_selected _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOptionElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_set_disabled" webkit_dom_html_option_element_set_disabled :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOptionElementSetDisabled :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOptionElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_option_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOptionElement::set_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_set_label" webkit_dom_html_option_element_set_label :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLOptionElementSetLabel :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLOptionElementSetLabel _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_option_element_set_label _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLOptionElement::set_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_set_selected" webkit_dom_html_option_element_set_selected :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLOptionElementSetSelected :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLOptionElementSetSelected _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_option_element_set_selected _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLOptionElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_option_element_set_value" webkit_dom_html_option_element_set_value :: + Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLOptionElementSetValue :: + (MonadIO m, DOMHTMLOptionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLOptionElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_option_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.DOMHTMLOptionElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLOptionElement = DOMHTMLOptionElement (ForeignPtr DOMHTMLOptionElement) +instance GObject DOMHTMLOptionElement where +class GObject o => DOMHTMLOptionElementK o +instance (GObject o, IsDescendantOf DOMHTMLOptionElement o) => DOMHTMLOptionElementK o +data DOMHTMLOptionElementDefaultSelectedPropertyInfo +data DOMHTMLOptionElementDisabledPropertyInfo +data DOMHTMLOptionElementFormPropertyInfo +data DOMHTMLOptionElementIndexPropertyInfo +data DOMHTMLOptionElementLabelPropertyInfo +data DOMHTMLOptionElementSelectedPropertyInfo +data DOMHTMLOptionElementTextPropertyInfo +data DOMHTMLOptionElementValuePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs @@ -0,0 +1,238 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLOptionsCollection + ( + +-- * Exported types + DOMHTMLOptionsCollection(..) , + DOMHTMLOptionsCollectionK , + toDOMHTMLOptionsCollection , + noDOMHTMLOptionsCollection , + + + -- * Methods +-- ** dOMHTMLOptionsCollectionGetLength + dOMHTMLOptionsCollectionGetLength , + + +-- ** dOMHTMLOptionsCollectionGetSelectedIndex + dOMHTMLOptionsCollectionGetSelectedIndex, + + +-- ** dOMHTMLOptionsCollectionNamedItem + dOMHTMLOptionsCollectionNamedItem , + + +-- ** dOMHTMLOptionsCollectionSetSelectedIndex + dOMHTMLOptionsCollectionSetSelectedIndex, + + + + + -- * Properties +-- ** Length + DOMHTMLOptionsCollectionLengthPropertyInfo, + getDOMHTMLOptionsCollectionLength , + + +-- ** SelectedIndex + DOMHTMLOptionsCollectionSelectedIndexPropertyInfo, + constructDOMHTMLOptionsCollectionSelectedIndex, + getDOMHTMLOptionsCollectionSelectedIndex, + setDOMHTMLOptionsCollectionSelectedIndex, + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLOptionsCollection = DOMHTMLOptionsCollection (ForeignPtr DOMHTMLOptionsCollection) +foreign import ccall "webkit_dom_html_options_collection_get_type" + c_webkit_dom_html_options_collection_get_type :: IO GType + +type instance ParentTypes DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionParentTypes +type DOMHTMLOptionsCollectionParentTypes = '[DOMHTMLCollection, DOMObject, GObject.Object] + +instance GObject DOMHTMLOptionsCollection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_options_collection_get_type + + +class GObject o => DOMHTMLOptionsCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLOptionsCollection o) => DOMHTMLOptionsCollectionK o + +toDOMHTMLOptionsCollection :: DOMHTMLOptionsCollectionK o => o -> IO DOMHTMLOptionsCollection +toDOMHTMLOptionsCollection = unsafeCastTo DOMHTMLOptionsCollection + +noDOMHTMLOptionsCollection :: Maybe DOMHTMLOptionsCollection +noDOMHTMLOptionsCollection = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Word64 +getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLOptionsCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK + type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "DOMHTMLOptionsCollection::length" + attrGet _ = getDOMHTMLOptionsCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Int64 +getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" + +setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> Int64 -> m () +setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val + +constructDOMHTMLOptionsCollectionSelectedIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyInt64 "selected-index" val + +data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo +instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where + type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK + type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "DOMHTMLOptionsCollection::selected-index" + attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex + attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex + attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex + +type instance AttributeList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionAttributeList +type DOMHTMLOptionsCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selected-index", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionSignalList +type DOMHTMLOptionsCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLOptionsCollection::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_options_collection_get_length" webkit_dom_html_options_collection_get_length :: + Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" + IO Word64 + + +dOMHTMLOptionsCollectionGetLength :: + (MonadIO m, DOMHTMLOptionsCollectionK a) => + a -> -- _obj + m Word64 +dOMHTMLOptionsCollectionGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_options_collection_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLOptionsCollection::get_selected_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_options_collection_get_selected_index" webkit_dom_html_options_collection_get_selected_index :: + Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" + IO Int64 + + +dOMHTMLOptionsCollectionGetSelectedIndex :: + (MonadIO m, DOMHTMLOptionsCollectionK a) => + a -> -- _obj + m Int64 +dOMHTMLOptionsCollectionGetSelectedIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_options_collection_get_selected_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLOptionsCollection::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_options_collection_named_item" webkit_dom_html_options_collection_named_item :: + Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNode) + + +dOMHTMLOptionsCollectionNamedItem :: + (MonadIO m, DOMHTMLOptionsCollectionK a) => + a -> -- _obj + T.Text -> -- name + m DOMNode +dOMHTMLOptionsCollectionNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_html_options_collection_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_html_options_collection_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMHTMLOptionsCollection::set_selected_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_options_collection_set_selected_index" webkit_dom_html_options_collection_set_selected_index :: + Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLOptionsCollectionSetSelectedIndex :: + (MonadIO m, DOMHTMLOptionsCollectionK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLOptionsCollectionSetSelectedIndex _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_options_collection_set_selected_index _obj' value + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLOptionsCollection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLOptionsCollection = DOMHTMLOptionsCollection (ForeignPtr DOMHTMLOptionsCollection) +instance GObject DOMHTMLOptionsCollection where +class GObject o => DOMHTMLOptionsCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLOptionsCollection o) => DOMHTMLOptionsCollectionK o +data DOMHTMLOptionsCollectionLengthPropertyInfo +data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLParagraphElement + ( + +-- * Exported types + DOMHTMLParagraphElement(..) , + DOMHTMLParagraphElementK , + toDOMHTMLParagraphElement , + noDOMHTMLParagraphElement , + + + -- * Methods +-- ** dOMHTMLParagraphElementGetAlign + dOMHTMLParagraphElementGetAlign , + + +-- ** dOMHTMLParagraphElementSetAlign + dOMHTMLParagraphElementSetAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLParagraphElementAlignPropertyInfo, + constructDOMHTMLParagraphElementAlign , + getDOMHTMLParagraphElementAlign , + setDOMHTMLParagraphElementAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLParagraphElement = DOMHTMLParagraphElement (ForeignPtr DOMHTMLParagraphElement) +foreign import ccall "webkit_dom_html_paragraph_element_get_type" + c_webkit_dom_html_paragraph_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLParagraphElement = DOMHTMLParagraphElementParentTypes +type DOMHTMLParagraphElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLParagraphElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_paragraph_element_get_type + + +class GObject o => DOMHTMLParagraphElementK o +instance (GObject o, IsDescendantOf DOMHTMLParagraphElement o) => DOMHTMLParagraphElementK o + +toDOMHTMLParagraphElement :: DOMHTMLParagraphElementK o => o -> IO DOMHTMLParagraphElement +toDOMHTMLParagraphElement = unsafeCastTo DOMHTMLParagraphElement + +noDOMHTMLParagraphElement :: Maybe DOMHTMLParagraphElement +noDOMHTMLParagraphElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m T.Text +getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m () +setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLParagraphElementAlignPropertyInfo +instance AttrInfo DOMHTMLParagraphElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLParagraphElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = DOMHTMLParagraphElementK + type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "DOMHTMLParagraphElement::align" + attrGet _ = getDOMHTMLParagraphElementAlign + attrSet _ = setDOMHTMLParagraphElementAlign + attrConstruct _ = constructDOMHTMLParagraphElementAlign + +type instance AttributeList DOMHTMLParagraphElement = DOMHTMLParagraphElementAttributeList +type DOMHTMLParagraphElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLParagraphElement = DOMHTMLParagraphElementSignalList +type DOMHTMLParagraphElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLParagraphElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_paragraph_element_get_align" webkit_dom_html_paragraph_element_get_align :: + Ptr DOMHTMLParagraphElement -> -- _obj : TInterface "WebKit" "DOMHTMLParagraphElement" + IO CString + + +dOMHTMLParagraphElementGetAlign :: + (MonadIO m, DOMHTMLParagraphElementK a) => + a -> -- _obj + m T.Text +dOMHTMLParagraphElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_paragraph_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_paragraph_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLParagraphElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_paragraph_element_set_align" webkit_dom_html_paragraph_element_set_align :: + Ptr DOMHTMLParagraphElement -> -- _obj : TInterface "WebKit" "DOMHTMLParagraphElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLParagraphElementSetAlign :: + (MonadIO m, DOMHTMLParagraphElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLParagraphElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_paragraph_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLParagraphElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLParagraphElement = DOMHTMLParagraphElement (ForeignPtr DOMHTMLParagraphElement) +instance GObject DOMHTMLParagraphElement where +class GObject o => DOMHTMLParagraphElementK o +instance (GObject o, IsDescendantOf DOMHTMLParagraphElement o) => DOMHTMLParagraphElementK o +data DOMHTMLParagraphElementAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLParamElement.hs b/GI/WebKit/Objects/DOMHTMLParamElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLParamElement.hs @@ -0,0 +1,377 @@ + +{- | +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.WebKit.Objects.DOMHTMLParamElement + ( + +-- * Exported types + DOMHTMLParamElement(..) , + DOMHTMLParamElementK , + toDOMHTMLParamElement , + noDOMHTMLParamElement , + + + -- * Methods +-- ** dOMHTMLParamElementGetName + dOMHTMLParamElementGetName , + + +-- ** dOMHTMLParamElementGetValue + dOMHTMLParamElementGetValue , + + +-- ** dOMHTMLParamElementGetValueType + dOMHTMLParamElementGetValueType , + + +-- ** dOMHTMLParamElementSetName + dOMHTMLParamElementSetName , + + +-- ** dOMHTMLParamElementSetValue + dOMHTMLParamElementSetValue , + + +-- ** dOMHTMLParamElementSetValueType + dOMHTMLParamElementSetValueType , + + + + + -- * Properties +-- ** Name + DOMHTMLParamElementNamePropertyInfo , + constructDOMHTMLParamElementName , + getDOMHTMLParamElementName , + setDOMHTMLParamElementName , + + +-- ** Type + DOMHTMLParamElementTypePropertyInfo , + constructDOMHTMLParamElementType , + getDOMHTMLParamElementType , + setDOMHTMLParamElementType , + + +-- ** Value + DOMHTMLParamElementValuePropertyInfo , + constructDOMHTMLParamElementValue , + getDOMHTMLParamElementValue , + setDOMHTMLParamElementValue , + + +-- ** ValueType + DOMHTMLParamElementValueTypePropertyInfo, + constructDOMHTMLParamElementValueType , + getDOMHTMLParamElementValueType , + setDOMHTMLParamElementValueType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLParamElement = DOMHTMLParamElement (ForeignPtr DOMHTMLParamElement) +foreign import ccall "webkit_dom_html_param_element_get_type" + c_webkit_dom_html_param_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLParamElement = DOMHTMLParamElementParentTypes +type DOMHTMLParamElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLParamElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_param_element_get_type + + +class GObject o => DOMHTMLParamElementK o +instance (GObject o, IsDescendantOf DOMHTMLParamElement o) => DOMHTMLParamElementK o + +toDOMHTMLParamElement :: DOMHTMLParamElementK o => o -> IO DOMHTMLParamElement +toDOMHTMLParamElement = unsafeCastTo DOMHTMLParamElement + +noDOMHTMLParamElement :: Maybe DOMHTMLParamElement +noDOMHTMLParamElement = Nothing + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementName val = constructObjectPropertyString "name" val + +data DOMHTMLParamElementNamePropertyInfo +instance AttrInfo DOMHTMLParamElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementNamePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementNamePropertyInfo = "DOMHTMLParamElement::name" + attrGet _ = getDOMHTMLParamElementName + attrSet _ = setDOMHTMLParamElementName + attrConstruct _ = constructDOMHTMLParamElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementType val = constructObjectPropertyString "type" val + +data DOMHTMLParamElementTypePropertyInfo +instance AttrInfo DOMHTMLParamElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementTypePropertyInfo = "DOMHTMLParamElement::type" + attrGet _ = getDOMHTMLParamElementType + attrSet _ = setDOMHTMLParamElementType + attrConstruct _ = constructDOMHTMLParamElementType + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLParamElementValuePropertyInfo +instance AttrInfo DOMHTMLParamElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementValuePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementValuePropertyInfo = "DOMHTMLParamElement::value" + attrGet _ = getDOMHTMLParamElementValue + attrSet _ = setDOMHTMLParamElementValue + attrConstruct _ = constructDOMHTMLParamElementValue + +-- VVV Prop "value-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValueType obj = liftIO $ getObjectPropertyString obj "value-type" + +setDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" val + +constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" val + +data DOMHTMLParamElementValueTypePropertyInfo +instance AttrInfo DOMHTMLParamElementValueTypePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementValueTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "DOMHTMLParamElement::value-type" + attrGet _ = getDOMHTMLParamElementValueType + attrSet _ = setDOMHTMLParamElementValueType + attrConstruct _ = constructDOMHTMLParamElementValueType + +type instance AttributeList DOMHTMLParamElement = DOMHTMLParamElementAttributeList +type DOMHTMLParamElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("value-type", DOMHTMLParamElementValueTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLParamElement = DOMHTMLParamElementSignalList +type DOMHTMLParamElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLParamElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_get_name" webkit_dom_html_param_element_get_name :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + IO CString + + +dOMHTMLParamElementGetName :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + m T.Text +dOMHTMLParamElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_param_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLParamElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_get_value" webkit_dom_html_param_element_get_value :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + IO CString + + +dOMHTMLParamElementGetValue :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + m T.Text +dOMHTMLParamElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_param_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLParamElement::get_value_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_get_value_type" webkit_dom_html_param_element_get_value_type :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + IO CString + + +dOMHTMLParamElementGetValueType :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + m T.Text +dOMHTMLParamElementGetValueType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_param_element_get_value_type _obj' + checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_value_type" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLParamElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_set_name" webkit_dom_html_param_element_set_name :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLParamElementSetName :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLParamElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_param_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLParamElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_set_value" webkit_dom_html_param_element_set_value :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLParamElementSetValue :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLParamElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_param_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLParamElement::set_value_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_param_element_set_value_type" webkit_dom_html_param_element_set_value_type :: + Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLParamElementSetValueType :: + (MonadIO m, DOMHTMLParamElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLParamElementSetValueType _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_param_element_set_value_type _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot b/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMHTMLParamElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLParamElement = DOMHTMLParamElement (ForeignPtr DOMHTMLParamElement) +instance GObject DOMHTMLParamElement where +class GObject o => DOMHTMLParamElementK o +instance (GObject o, IsDescendantOf DOMHTMLParamElement o) => DOMHTMLParamElementK o +data DOMHTMLParamElementNamePropertyInfo +data DOMHTMLParamElementTypePropertyInfo +data DOMHTMLParamElementValuePropertyInfo +data DOMHTMLParamElementValueTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLPreElement.hs b/GI/WebKit/Objects/DOMHTMLPreElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLPreElement.hs @@ -0,0 +1,244 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLPreElement + ( + +-- * Exported types + DOMHTMLPreElement(..) , + DOMHTMLPreElementK , + toDOMHTMLPreElement , + noDOMHTMLPreElement , + + + -- * Methods +-- ** dOMHTMLPreElementGetWidth + dOMHTMLPreElementGetWidth , + + +-- ** dOMHTMLPreElementGetWrap + dOMHTMLPreElementGetWrap , + + +-- ** dOMHTMLPreElementSetWidth + dOMHTMLPreElementSetWidth , + + +-- ** dOMHTMLPreElementSetWrap + dOMHTMLPreElementSetWrap , + + + + + -- * Properties +-- ** Width + DOMHTMLPreElementWidthPropertyInfo , + constructDOMHTMLPreElementWidth , + getDOMHTMLPreElementWidth , + setDOMHTMLPreElementWidth , + + +-- ** Wrap + DOMHTMLPreElementWrapPropertyInfo , + constructDOMHTMLPreElementWrap , + getDOMHTMLPreElementWrap , + setDOMHTMLPreElementWrap , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLPreElement = DOMHTMLPreElement (ForeignPtr DOMHTMLPreElement) +foreign import ccall "webkit_dom_html_pre_element_get_type" + c_webkit_dom_html_pre_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLPreElement = DOMHTMLPreElementParentTypes +type DOMHTMLPreElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLPreElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_pre_element_get_type + + +class GObject o => DOMHTMLPreElementK o +instance (GObject o, IsDescendantOf DOMHTMLPreElement o) => DOMHTMLPreElementK o + +toDOMHTMLPreElement :: DOMHTMLPreElementK o => o -> IO DOMHTMLPreElement +toDOMHTMLPreElement = unsafeCastTo DOMHTMLPreElement + +noDOMHTMLPreElement :: Maybe DOMHTMLPreElement +noDOMHTMLPreElement = Nothing + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Int64 +getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> Int64 -> m () +setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLPreElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLPreElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLPreElementWidthPropertyInfo +instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK + type AttrGetType DOMHTMLPreElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "DOMHTMLPreElement::width" + attrGet _ = getDOMHTMLPreElementWidth + attrSet _ = setDOMHTMLPreElementWidth + attrConstruct _ = constructDOMHTMLPreElementWidth + +-- VVV Prop "wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Bool +getDOMHTMLPreElementWrap obj = liftIO $ getObjectPropertyBool obj "wrap" + +setDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> Bool -> m () +setDOMHTMLPreElementWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val + +constructDOMHTMLPreElementWrap :: Bool -> IO ([Char], GValue) +constructDOMHTMLPreElementWrap val = constructObjectPropertyBool "wrap" val + +data DOMHTMLPreElementWrapPropertyInfo +instance AttrInfo DOMHTMLPreElementWrapPropertyInfo where + type AttrAllowedOps DOMHTMLPreElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPreElementWrapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLPreElementWrapPropertyInfo = DOMHTMLPreElementK + type AttrGetType DOMHTMLPreElementWrapPropertyInfo = Bool + type AttrLabel DOMHTMLPreElementWrapPropertyInfo = "DOMHTMLPreElement::wrap" + attrGet _ = getDOMHTMLPreElementWrap + attrSet _ = setDOMHTMLPreElementWrap + attrConstruct _ = constructDOMHTMLPreElementWrap + +type instance AttributeList DOMHTMLPreElement = DOMHTMLPreElementAttributeList +type DOMHTMLPreElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLPreElement = DOMHTMLPreElementSignalList +type DOMHTMLPreElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLPreElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_pre_element_get_width" webkit_dom_html_pre_element_get_width :: + Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" + IO Int64 + + +dOMHTMLPreElementGetWidth :: + (MonadIO m, DOMHTMLPreElementK a) => + a -> -- _obj + m Int64 +dOMHTMLPreElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_pre_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLPreElement::get_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_pre_element_get_wrap" webkit_dom_html_pre_element_get_wrap :: + Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" + IO CInt + + +dOMHTMLPreElementGetWrap :: + (MonadIO m, DOMHTMLPreElementK a) => + a -> -- _obj + m Bool +dOMHTMLPreElementGetWrap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_pre_element_get_wrap _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLPreElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_pre_element_set_width" webkit_dom_html_pre_element_set_width :: + Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLPreElementSetWidth :: + (MonadIO m, DOMHTMLPreElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLPreElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_pre_element_set_width _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLPreElement::set_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_pre_element_set_wrap" webkit_dom_html_pre_element_set_wrap :: + Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLPreElementSetWrap :: + (MonadIO m, DOMHTMLPreElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLPreElementSetWrap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_pre_element_set_wrap _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot b/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLPreElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLPreElement = DOMHTMLPreElement (ForeignPtr DOMHTMLPreElement) +instance GObject DOMHTMLPreElement where +class GObject o => DOMHTMLPreElementK o +instance (GObject o, IsDescendantOf DOMHTMLPreElement o) => DOMHTMLPreElementK o +data DOMHTMLPreElementWidthPropertyInfo +data DOMHTMLPreElementWrapPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs @@ -0,0 +1,224 @@ + +{- | +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.WebKit.Objects.DOMHTMLPropertiesCollection + ( + +-- * Exported types + DOMHTMLPropertiesCollection(..) , + DOMHTMLPropertiesCollectionK , + toDOMHTMLPropertiesCollection , + noDOMHTMLPropertiesCollection , + + + -- * Methods +-- ** dOMHTMLPropertiesCollectionGetLength + dOMHTMLPropertiesCollectionGetLength , + + +-- ** dOMHTMLPropertiesCollectionGetNames + dOMHTMLPropertiesCollectionGetNames , + + +-- ** dOMHTMLPropertiesCollectionItem + dOMHTMLPropertiesCollectionItem , + + +-- ** dOMHTMLPropertiesCollectionNamedItem + dOMHTMLPropertiesCollectionNamedItem , + + + + + -- * Properties +-- ** Length + DOMHTMLPropertiesCollectionLengthPropertyInfo, + getDOMHTMLPropertiesCollectionLength , + + +-- ** Names + DOMHTMLPropertiesCollectionNamesPropertyInfo, + getDOMHTMLPropertiesCollectionNames , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollection (ForeignPtr DOMHTMLPropertiesCollection) +foreign import ccall "webkit_dom_html_properties_collection_get_type" + c_webkit_dom_html_properties_collection_get_type :: IO GType + +type instance ParentTypes DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionParentTypes +type DOMHTMLPropertiesCollectionParentTypes = '[DOMHTMLCollection, DOMObject, GObject.Object] + +instance GObject DOMHTMLPropertiesCollection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_properties_collection_get_type + + +class GObject o => DOMHTMLPropertiesCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLPropertiesCollection o) => DOMHTMLPropertiesCollectionK o + +toDOMHTMLPropertiesCollection :: DOMHTMLPropertiesCollectionK o => o -> IO DOMHTMLPropertiesCollection +toDOMHTMLPropertiesCollection = unsafeCastTo DOMHTMLPropertiesCollection + +noDOMHTMLPropertiesCollection :: Maybe DOMHTMLPropertiesCollection +noDOMHTMLPropertiesCollection = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m Word64 +getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLPropertiesCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLPropertiesCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLPropertiesCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = DOMHTMLPropertiesCollectionK + type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLPropertiesCollectionLengthPropertyInfo = "DOMHTMLPropertiesCollection::length" + attrGet _ = getDOMHTMLPropertiesCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "names" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m DOMDOMStringList +getDOMHTMLPropertiesCollectionNames obj = liftIO $ getObjectPropertyObject obj "names" DOMDOMStringList + +data DOMHTMLPropertiesCollectionNamesPropertyInfo +instance AttrInfo DOMHTMLPropertiesCollectionNamesPropertyInfo where + type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMHTMLPropertiesCollectionK + type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMDOMStringList + type AttrLabel DOMHTMLPropertiesCollectionNamesPropertyInfo = "DOMHTMLPropertiesCollection::names" + attrGet _ = getDOMHTMLPropertiesCollectionNames + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionAttributeList +type DOMHTMLPropertiesCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLPropertiesCollectionLengthPropertyInfo), '("names", DOMHTMLPropertiesCollectionNamesPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionSignalList +type DOMHTMLPropertiesCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLPropertiesCollection::get_length +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_properties_collection_get_length" webkit_dom_html_properties_collection_get_length :: + Ptr () -> -- self : TBasicType TVoid + IO Word64 + +{-# DEPRECATED dOMHTMLPropertiesCollectionGetLength ["(Since version 2.2)"]#-} +dOMHTMLPropertiesCollectionGetLength :: + (MonadIO m) => + Ptr () -> -- self + m Word64 +dOMHTMLPropertiesCollectionGetLength self = liftIO $ do + result <- webkit_dom_html_properties_collection_get_length self + return result + +-- method DOMHTMLPropertiesCollection::get_names +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMStringList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_properties_collection_get_names" webkit_dom_html_properties_collection_get_names :: + Ptr () -> -- self : TBasicType TVoid + IO (Ptr DOMDOMStringList) + +{-# DEPRECATED dOMHTMLPropertiesCollectionGetNames ["(Since version 2.2)"]#-} +dOMHTMLPropertiesCollectionGetNames :: + (MonadIO m) => + Ptr () -> -- self + m DOMDOMStringList +dOMHTMLPropertiesCollectionGetNames self = liftIO $ do + result <- webkit_dom_html_properties_collection_get_names self + checkUnexpectedReturnNULL "webkit_dom_html_properties_collection_get_names" result + result' <- (newObject DOMDOMStringList) result + return result' + +-- method DOMHTMLPropertiesCollection::item +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_properties_collection_item" webkit_dom_html_properties_collection_item :: + Ptr () -> -- self : TBasicType TVoid + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + +{-# DEPRECATED dOMHTMLPropertiesCollectionItem ["(Since version 2.2)"]#-} +dOMHTMLPropertiesCollectionItem :: + (MonadIO m) => + Ptr () -> -- self + Word64 -> -- index + m DOMNode +dOMHTMLPropertiesCollectionItem self index = liftIO $ do + result <- webkit_dom_html_properties_collection_item self index + checkUnexpectedReturnNULL "webkit_dom_html_properties_collection_item" result + result' <- (newObject DOMNode) result + return result' + +-- method DOMHTMLPropertiesCollection::named_item +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_properties_collection_named_item" webkit_dom_html_properties_collection_named_item :: + Ptr () -> -- self : TBasicType TVoid + CString -> -- name : TBasicType TUTF8 + IO () + +{-# DEPRECATED dOMHTMLPropertiesCollectionNamedItem ["(Since version 2.2)"]#-} +dOMHTMLPropertiesCollectionNamedItem :: + (MonadIO m) => + Ptr () -> -- self + T.Text -> -- name + m () +dOMHTMLPropertiesCollectionNamedItem self name = liftIO $ do + name' <- textToCString name + webkit_dom_html_properties_collection_named_item self name' + freeMem name' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLPropertiesCollection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollection (ForeignPtr DOMHTMLPropertiesCollection) +instance GObject DOMHTMLPropertiesCollection where +class GObject o => DOMHTMLPropertiesCollectionK o +instance (GObject o, IsDescendantOf DOMHTMLPropertiesCollection o) => DOMHTMLPropertiesCollectionK o +data DOMHTMLPropertiesCollectionLengthPropertyInfo +data DOMHTMLPropertiesCollectionNamesPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLQuoteElement + ( + +-- * Exported types + DOMHTMLQuoteElement(..) , + DOMHTMLQuoteElementK , + toDOMHTMLQuoteElement , + noDOMHTMLQuoteElement , + + + -- * Methods +-- ** dOMHTMLQuoteElementGetCite + dOMHTMLQuoteElementGetCite , + + +-- ** dOMHTMLQuoteElementSetCite + dOMHTMLQuoteElementSetCite , + + + + + -- * Properties +-- ** Cite + DOMHTMLQuoteElementCitePropertyInfo , + constructDOMHTMLQuoteElementCite , + getDOMHTMLQuoteElementCite , + setDOMHTMLQuoteElementCite , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLQuoteElement = DOMHTMLQuoteElement (ForeignPtr DOMHTMLQuoteElement) +foreign import ccall "webkit_dom_html_quote_element_get_type" + c_webkit_dom_html_quote_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLQuoteElement = DOMHTMLQuoteElementParentTypes +type DOMHTMLQuoteElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLQuoteElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_quote_element_get_type + + +class GObject o => DOMHTMLQuoteElementK o +instance (GObject o, IsDescendantOf DOMHTMLQuoteElement o) => DOMHTMLQuoteElementK o + +toDOMHTMLQuoteElement :: DOMHTMLQuoteElementK o => o -> IO DOMHTMLQuoteElement +toDOMHTMLQuoteElement = unsafeCastTo DOMHTMLQuoteElement + +noDOMHTMLQuoteElement :: Maybe DOMHTMLQuoteElement +noDOMHTMLQuoteElement = Nothing + +-- VVV Prop "cite" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m T.Text +getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite" + +setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m () +setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val + +constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue) +constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" val + +data DOMHTMLQuoteElementCitePropertyInfo +instance AttrInfo DOMHTMLQuoteElementCitePropertyInfo where + type AttrAllowedOps DOMHTMLQuoteElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = DOMHTMLQuoteElementK + type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = T.Text + type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "DOMHTMLQuoteElement::cite" + attrGet _ = getDOMHTMLQuoteElementCite + attrSet _ = setDOMHTMLQuoteElementCite + attrConstruct _ = constructDOMHTMLQuoteElementCite + +type instance AttributeList DOMHTMLQuoteElement = DOMHTMLQuoteElementAttributeList +type DOMHTMLQuoteElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLQuoteElement = DOMHTMLQuoteElementSignalList +type DOMHTMLQuoteElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLQuoteElement::get_cite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_quote_element_get_cite" webkit_dom_html_quote_element_get_cite :: + Ptr DOMHTMLQuoteElement -> -- _obj : TInterface "WebKit" "DOMHTMLQuoteElement" + IO CString + + +dOMHTMLQuoteElementGetCite :: + (MonadIO m, DOMHTMLQuoteElementK a) => + a -> -- _obj + m T.Text +dOMHTMLQuoteElementGetCite _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_quote_element_get_cite _obj' + checkUnexpectedReturnNULL "webkit_dom_html_quote_element_get_cite" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLQuoteElement::set_cite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_quote_element_set_cite" webkit_dom_html_quote_element_set_cite :: + Ptr DOMHTMLQuoteElement -> -- _obj : TInterface "WebKit" "DOMHTMLQuoteElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLQuoteElementSetCite :: + (MonadIO m, DOMHTMLQuoteElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLQuoteElementSetCite _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_quote_element_set_cite _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLQuoteElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLQuoteElement = DOMHTMLQuoteElement (ForeignPtr DOMHTMLQuoteElement) +instance GObject DOMHTMLQuoteElement where +class GObject o => DOMHTMLQuoteElementK o +instance (GObject o, IsDescendantOf DOMHTMLQuoteElement o) => DOMHTMLQuoteElementK o +data DOMHTMLQuoteElementCitePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLScriptElement.hs b/GI/WebKit/Objects/DOMHTMLScriptElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLScriptElement.hs @@ -0,0 +1,935 @@ + +{- | +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.WebKit.Objects.DOMHTMLScriptElement + ( + +-- * Exported types + DOMHTMLScriptElement(..) , + DOMHTMLScriptElementK , + toDOMHTMLScriptElement , + noDOMHTMLScriptElement , + + + -- * Methods +-- ** dOMHTMLScriptElementGetAsync + dOMHTMLScriptElementGetAsync , + + +-- ** dOMHTMLScriptElementGetCharset + dOMHTMLScriptElementGetCharset , + + +-- ** dOMHTMLScriptElementGetCrossOrigin + dOMHTMLScriptElementGetCrossOrigin , + + +-- ** dOMHTMLScriptElementGetDefer + dOMHTMLScriptElementGetDefer , + + +-- ** dOMHTMLScriptElementGetEvent + dOMHTMLScriptElementGetEvent , + + +-- ** dOMHTMLScriptElementGetHtmlFor + dOMHTMLScriptElementGetHtmlFor , + + +-- ** dOMHTMLScriptElementGetNonce + dOMHTMLScriptElementGetNonce , + + +-- ** dOMHTMLScriptElementGetSrc + dOMHTMLScriptElementGetSrc , + + +-- ** dOMHTMLScriptElementGetText + dOMHTMLScriptElementGetText , + + +-- ** dOMHTMLScriptElementSetAsync + dOMHTMLScriptElementSetAsync , + + +-- ** dOMHTMLScriptElementSetCharset + dOMHTMLScriptElementSetCharset , + + +-- ** dOMHTMLScriptElementSetCrossOrigin + dOMHTMLScriptElementSetCrossOrigin , + + +-- ** dOMHTMLScriptElementSetDefer + dOMHTMLScriptElementSetDefer , + + +-- ** dOMHTMLScriptElementSetEvent + dOMHTMLScriptElementSetEvent , + + +-- ** dOMHTMLScriptElementSetHtmlFor + dOMHTMLScriptElementSetHtmlFor , + + +-- ** dOMHTMLScriptElementSetNonce + dOMHTMLScriptElementSetNonce , + + +-- ** dOMHTMLScriptElementSetSrc + dOMHTMLScriptElementSetSrc , + + +-- ** dOMHTMLScriptElementSetText + dOMHTMLScriptElementSetText , + + + + + -- * Properties +-- ** Async + DOMHTMLScriptElementAsyncPropertyInfo , + constructDOMHTMLScriptElementAsync , + getDOMHTMLScriptElementAsync , + setDOMHTMLScriptElementAsync , + + +-- ** Charset + DOMHTMLScriptElementCharsetPropertyInfo , + constructDOMHTMLScriptElementCharset , + getDOMHTMLScriptElementCharset , + setDOMHTMLScriptElementCharset , + + +-- ** CrossOrigin + DOMHTMLScriptElementCrossOriginPropertyInfo, + constructDOMHTMLScriptElementCrossOrigin, + getDOMHTMLScriptElementCrossOrigin , + setDOMHTMLScriptElementCrossOrigin , + + +-- ** Defer + DOMHTMLScriptElementDeferPropertyInfo , + constructDOMHTMLScriptElementDefer , + getDOMHTMLScriptElementDefer , + setDOMHTMLScriptElementDefer , + + +-- ** Event + DOMHTMLScriptElementEventPropertyInfo , + constructDOMHTMLScriptElementEvent , + getDOMHTMLScriptElementEvent , + setDOMHTMLScriptElementEvent , + + +-- ** HtmlFor + DOMHTMLScriptElementHtmlForPropertyInfo , + constructDOMHTMLScriptElementHtmlFor , + getDOMHTMLScriptElementHtmlFor , + setDOMHTMLScriptElementHtmlFor , + + +-- ** Nonce + DOMHTMLScriptElementNoncePropertyInfo , + constructDOMHTMLScriptElementNonce , + getDOMHTMLScriptElementNonce , + setDOMHTMLScriptElementNonce , + + +-- ** Src + DOMHTMLScriptElementSrcPropertyInfo , + constructDOMHTMLScriptElementSrc , + getDOMHTMLScriptElementSrc , + setDOMHTMLScriptElementSrc , + + +-- ** Text + DOMHTMLScriptElementTextPropertyInfo , + constructDOMHTMLScriptElementText , + getDOMHTMLScriptElementText , + setDOMHTMLScriptElementText , + + +-- ** Type + DOMHTMLScriptElementTypePropertyInfo , + constructDOMHTMLScriptElementType , + getDOMHTMLScriptElementType , + setDOMHTMLScriptElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLScriptElement = DOMHTMLScriptElement (ForeignPtr DOMHTMLScriptElement) +foreign import ccall "webkit_dom_html_script_element_get_type" + c_webkit_dom_html_script_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLScriptElement = DOMHTMLScriptElementParentTypes +type DOMHTMLScriptElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLScriptElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_script_element_get_type + + +class GObject o => DOMHTMLScriptElementK o +instance (GObject o, IsDescendantOf DOMHTMLScriptElement o) => DOMHTMLScriptElementK o + +toDOMHTMLScriptElement :: DOMHTMLScriptElementK o => o -> IO DOMHTMLScriptElement +toDOMHTMLScriptElement = unsafeCastTo DOMHTMLScriptElement + +noDOMHTMLScriptElement :: Maybe DOMHTMLScriptElement +noDOMHTMLScriptElement = Nothing + +-- VVV Prop "async" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool +getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async" + +setDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () +setDOMHTMLScriptElementAsync obj val = liftIO $ setObjectPropertyBool obj "async" val + +constructDOMHTMLScriptElementAsync :: Bool -> IO ([Char], GValue) +constructDOMHTMLScriptElementAsync val = constructObjectPropertyBool "async" val + +data DOMHTMLScriptElementAsyncPropertyInfo +instance AttrInfo DOMHTMLScriptElementAsyncPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementAsyncPropertyInfo = Bool + type AttrLabel DOMHTMLScriptElementAsyncPropertyInfo = "DOMHTMLScriptElement::async" + attrGet _ = getDOMHTMLScriptElementAsync + attrSet _ = setDOMHTMLScriptElementAsync + attrConstruct _ = constructDOMHTMLScriptElementAsync + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLScriptElementCharsetPropertyInfo +instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "DOMHTMLScriptElement::charset" + attrGet _ = getDOMHTMLScriptElementCharset + attrSet _ = setDOMHTMLScriptElementCharset + attrConstruct _ = constructDOMHTMLScriptElementCharset + +-- VVV Prop "cross-origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" + +setDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val + +constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" val + +data DOMHTMLScriptElementCrossOriginPropertyInfo +instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "DOMHTMLScriptElement::cross-origin" + attrGet _ = getDOMHTMLScriptElementCrossOrigin + attrSet _ = setDOMHTMLScriptElementCrossOrigin + attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin + +-- VVV Prop "defer" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool +getDOMHTMLScriptElementDefer obj = liftIO $ getObjectPropertyBool obj "defer" + +setDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () +setDOMHTMLScriptElementDefer obj val = liftIO $ setObjectPropertyBool obj "defer" val + +constructDOMHTMLScriptElementDefer :: Bool -> IO ([Char], GValue) +constructDOMHTMLScriptElementDefer val = constructObjectPropertyBool "defer" val + +data DOMHTMLScriptElementDeferPropertyInfo +instance AttrInfo DOMHTMLScriptElementDeferPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementDeferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementDeferPropertyInfo = Bool + type AttrLabel DOMHTMLScriptElementDeferPropertyInfo = "DOMHTMLScriptElement::defer" + attrGet _ = getDOMHTMLScriptElementDefer + attrSet _ = setDOMHTMLScriptElementDefer + attrConstruct _ = constructDOMHTMLScriptElementDefer + +-- VVV Prop "event" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event" + +setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" val + +constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" val + +data DOMHTMLScriptElementEventPropertyInfo +instance AttrInfo DOMHTMLScriptElementEventPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementEventPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementEventPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementEventPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementEventPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "DOMHTMLScriptElement::event" + attrGet _ = getDOMHTMLScriptElementEvent + attrSet _ = setDOMHTMLScriptElementEvent + attrConstruct _ = constructDOMHTMLScriptElementEvent + +-- VVV Prop "html-for" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" + +setDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val + +constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" val + +data DOMHTMLScriptElementHtmlForPropertyInfo +instance AttrInfo DOMHTMLScriptElementHtmlForPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "DOMHTMLScriptElement::html-for" + attrGet _ = getDOMHTMLScriptElementHtmlFor + attrSet _ = setDOMHTMLScriptElementHtmlFor + attrConstruct _ = constructDOMHTMLScriptElementHtmlFor + +-- VVV Prop "nonce" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce" + +setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" val + +constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" val + +data DOMHTMLScriptElementNoncePropertyInfo +instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "DOMHTMLScriptElement::nonce" + attrGet _ = getDOMHTMLScriptElementNonce + attrSet _ = setDOMHTMLScriptElementNonce + attrConstruct _ = constructDOMHTMLScriptElementNonce + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLScriptElementSrcPropertyInfo +instance AttrInfo DOMHTMLScriptElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "DOMHTMLScriptElement::src" + attrGet _ = getDOMHTMLScriptElementSrc + attrSet _ = setDOMHTMLScriptElementSrc + attrConstruct _ = constructDOMHTMLScriptElementSrc + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" val + +data DOMHTMLScriptElementTextPropertyInfo +instance AttrInfo DOMHTMLScriptElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementTextPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "DOMHTMLScriptElement::text" + attrGet _ = getDOMHTMLScriptElementText + attrSet _ = setDOMHTMLScriptElementText + attrConstruct _ = constructDOMHTMLScriptElementText + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" val + +data DOMHTMLScriptElementTypePropertyInfo +instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "DOMHTMLScriptElement::type" + attrGet _ = getDOMHTMLScriptElementType + attrSet _ = setDOMHTMLScriptElementType + attrConstruct _ = constructDOMHTMLScriptElementType + +type instance AttributeList DOMHTMLScriptElement = DOMHTMLScriptElementAttributeList +type DOMHTMLScriptElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLScriptElement = DOMHTMLScriptElementSignalList +type DOMHTMLScriptElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLScriptElement::get_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_async" webkit_dom_html_script_element_get_async :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CInt + + +dOMHTMLScriptElementGetAsync :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m Bool +dOMHTMLScriptElementGetAsync _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_async _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_charset" webkit_dom_html_script_element_get_charset :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetCharset :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetCharset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_charset _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_charset" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_cross_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_cross_origin" webkit_dom_html_script_element_get_cross_origin :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetCrossOrigin :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetCrossOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_cross_origin _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_cross_origin" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_defer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_defer" webkit_dom_html_script_element_get_defer :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CInt + + +dOMHTMLScriptElementGetDefer :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m Bool +dOMHTMLScriptElementGetDefer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_defer _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_event" webkit_dom_html_script_element_get_event :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetEvent :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetEvent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_event _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_event" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_html_for +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_html_for" webkit_dom_html_script_element_get_html_for :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetHtmlFor :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetHtmlFor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_html_for _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_html_for" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_nonce +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_nonce" webkit_dom_html_script_element_get_nonce :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetNonce :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetNonce _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_nonce _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_nonce" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_src" webkit_dom_html_script_element_get_src :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetSrc :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetSrc _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_src _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_src" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_get_text" webkit_dom_html_script_element_get_text :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + IO CString + + +dOMHTMLScriptElementGetText :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + m T.Text +dOMHTMLScriptElementGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_script_element_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLScriptElement::set_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_async" webkit_dom_html_script_element_set_async :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLScriptElementSetAsync :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLScriptElementSetAsync _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_script_element_set_async _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLScriptElement::set_charset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_charset" webkit_dom_html_script_element_set_charset :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetCharset :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetCharset _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_charset _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_cross_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_cross_origin" webkit_dom_html_script_element_set_cross_origin :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetCrossOrigin :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetCrossOrigin _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_cross_origin _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_defer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_defer" webkit_dom_html_script_element_set_defer :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLScriptElementSetDefer :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLScriptElementSetDefer _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_script_element_set_defer _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLScriptElement::set_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_event" webkit_dom_html_script_element_set_event :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetEvent :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetEvent _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_event _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_html_for +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_html_for" webkit_dom_html_script_element_set_html_for :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetHtmlFor :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetHtmlFor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_html_for _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_nonce +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_nonce" webkit_dom_html_script_element_set_nonce :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetNonce :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetNonce _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_nonce _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_src +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_src" webkit_dom_html_script_element_set_src :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetSrc :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetSrc _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_src _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLScriptElement::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_script_element_set_text" webkit_dom_html_script_element_set_text :: + Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLScriptElementSetText :: + (MonadIO m, DOMHTMLScriptElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLScriptElementSetText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_script_element_set_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot b/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.DOMHTMLScriptElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLScriptElement = DOMHTMLScriptElement (ForeignPtr DOMHTMLScriptElement) +instance GObject DOMHTMLScriptElement where +class GObject o => DOMHTMLScriptElementK o +instance (GObject o, IsDescendantOf DOMHTMLScriptElement o) => DOMHTMLScriptElementK o +data DOMHTMLScriptElementAsyncPropertyInfo +data DOMHTMLScriptElementCharsetPropertyInfo +data DOMHTMLScriptElementCrossOriginPropertyInfo +data DOMHTMLScriptElementDeferPropertyInfo +data DOMHTMLScriptElementEventPropertyInfo +data DOMHTMLScriptElementHtmlForPropertyInfo +data DOMHTMLScriptElementNoncePropertyInfo +data DOMHTMLScriptElementSrcPropertyInfo +data DOMHTMLScriptElementTextPropertyInfo +data DOMHTMLScriptElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLSelectElement.hs b/GI/WebKit/Objects/DOMHTMLSelectElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLSelectElement.hs @@ -0,0 +1,1480 @@ + +{- | +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.WebKit.Objects.DOMHTMLSelectElement + ( + +-- * Exported types + DOMHTMLSelectElement(..) , + DOMHTMLSelectElementK , + toDOMHTMLSelectElement , + noDOMHTMLSelectElement , + + + -- * Methods +-- ** dOMHTMLSelectElementAdd + dOMHTMLSelectElementAdd , + + +-- ** dOMHTMLSelectElementCheckValidity + dOMHTMLSelectElementCheckValidity , + + +-- ** dOMHTMLSelectElementGetAutofocus + dOMHTMLSelectElementGetAutofocus , + + +-- ** dOMHTMLSelectElementGetDisabled + dOMHTMLSelectElementGetDisabled , + + +-- ** dOMHTMLSelectElementGetForm + dOMHTMLSelectElementGetForm , + + +-- ** dOMHTMLSelectElementGetLabels + dOMHTMLSelectElementGetLabels , + + +-- ** dOMHTMLSelectElementGetLength + dOMHTMLSelectElementGetLength , + + +-- ** dOMHTMLSelectElementGetMultiple + dOMHTMLSelectElementGetMultiple , + + +-- ** dOMHTMLSelectElementGetName + dOMHTMLSelectElementGetName , + + +-- ** dOMHTMLSelectElementGetOptions + dOMHTMLSelectElementGetOptions , + + +-- ** dOMHTMLSelectElementGetRequired + dOMHTMLSelectElementGetRequired , + + +-- ** dOMHTMLSelectElementGetSelectedIndex + dOMHTMLSelectElementGetSelectedIndex , + + +-- ** dOMHTMLSelectElementGetSelectedOptions + dOMHTMLSelectElementGetSelectedOptions , + + +-- ** dOMHTMLSelectElementGetSize + dOMHTMLSelectElementGetSize , + + +-- ** dOMHTMLSelectElementGetValidationMessage + dOMHTMLSelectElementGetValidationMessage, + + +-- ** dOMHTMLSelectElementGetValidity + dOMHTMLSelectElementGetValidity , + + +-- ** dOMHTMLSelectElementGetValue + dOMHTMLSelectElementGetValue , + + +-- ** dOMHTMLSelectElementGetWillValidate + dOMHTMLSelectElementGetWillValidate , + + +-- ** dOMHTMLSelectElementItem + dOMHTMLSelectElementItem , + + +-- ** dOMHTMLSelectElementNamedItem + dOMHTMLSelectElementNamedItem , + + +-- ** dOMHTMLSelectElementRemove + dOMHTMLSelectElementRemove , + + +-- ** dOMHTMLSelectElementSetAutofocus + dOMHTMLSelectElementSetAutofocus , + + +-- ** dOMHTMLSelectElementSetCustomValidity + dOMHTMLSelectElementSetCustomValidity , + + +-- ** dOMHTMLSelectElementSetDisabled + dOMHTMLSelectElementSetDisabled , + + +-- ** dOMHTMLSelectElementSetLength + dOMHTMLSelectElementSetLength , + + +-- ** dOMHTMLSelectElementSetMultiple + dOMHTMLSelectElementSetMultiple , + + +-- ** dOMHTMLSelectElementSetName + dOMHTMLSelectElementSetName , + + +-- ** dOMHTMLSelectElementSetRequired + dOMHTMLSelectElementSetRequired , + + +-- ** dOMHTMLSelectElementSetSelectedIndex + dOMHTMLSelectElementSetSelectedIndex , + + +-- ** dOMHTMLSelectElementSetSize + dOMHTMLSelectElementSetSize , + + +-- ** dOMHTMLSelectElementSetValue + dOMHTMLSelectElementSetValue , + + + + + -- * Properties +-- ** Autofocus + DOMHTMLSelectElementAutofocusPropertyInfo, + constructDOMHTMLSelectElementAutofocus , + getDOMHTMLSelectElementAutofocus , + setDOMHTMLSelectElementAutofocus , + + +-- ** Disabled + DOMHTMLSelectElementDisabledPropertyInfo, + constructDOMHTMLSelectElementDisabled , + getDOMHTMLSelectElementDisabled , + setDOMHTMLSelectElementDisabled , + + +-- ** Form + DOMHTMLSelectElementFormPropertyInfo , + getDOMHTMLSelectElementForm , + + +-- ** Labels + DOMHTMLSelectElementLabelsPropertyInfo , + getDOMHTMLSelectElementLabels , + + +-- ** Length + DOMHTMLSelectElementLengthPropertyInfo , + constructDOMHTMLSelectElementLength , + getDOMHTMLSelectElementLength , + setDOMHTMLSelectElementLength , + + +-- ** Multiple + DOMHTMLSelectElementMultiplePropertyInfo, + constructDOMHTMLSelectElementMultiple , + getDOMHTMLSelectElementMultiple , + setDOMHTMLSelectElementMultiple , + + +-- ** Name + DOMHTMLSelectElementNamePropertyInfo , + constructDOMHTMLSelectElementName , + getDOMHTMLSelectElementName , + setDOMHTMLSelectElementName , + + +-- ** Options + DOMHTMLSelectElementOptionsPropertyInfo , + getDOMHTMLSelectElementOptions , + + +-- ** Required + DOMHTMLSelectElementRequiredPropertyInfo, + constructDOMHTMLSelectElementRequired , + getDOMHTMLSelectElementRequired , + setDOMHTMLSelectElementRequired , + + +-- ** SelectedIndex + DOMHTMLSelectElementSelectedIndexPropertyInfo, + constructDOMHTMLSelectElementSelectedIndex, + getDOMHTMLSelectElementSelectedIndex , + setDOMHTMLSelectElementSelectedIndex , + + +-- ** SelectedOptions + DOMHTMLSelectElementSelectedOptionsPropertyInfo, + getDOMHTMLSelectElementSelectedOptions , + + +-- ** Size + DOMHTMLSelectElementSizePropertyInfo , + constructDOMHTMLSelectElementSize , + getDOMHTMLSelectElementSize , + setDOMHTMLSelectElementSize , + + +-- ** Type + DOMHTMLSelectElementTypePropertyInfo , + getDOMHTMLSelectElementType , + + +-- ** ValidationMessage + DOMHTMLSelectElementValidationMessagePropertyInfo, + getDOMHTMLSelectElementValidationMessage, + + +-- ** Validity + DOMHTMLSelectElementValidityPropertyInfo, + getDOMHTMLSelectElementValidity , + + +-- ** Value + DOMHTMLSelectElementValuePropertyInfo , + constructDOMHTMLSelectElementValue , + getDOMHTMLSelectElementValue , + setDOMHTMLSelectElementValue , + + +-- ** WillValidate + DOMHTMLSelectElementWillValidatePropertyInfo, + getDOMHTMLSelectElementWillValidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLSelectElement = DOMHTMLSelectElement (ForeignPtr DOMHTMLSelectElement) +foreign import ccall "webkit_dom_html_select_element_get_type" + c_webkit_dom_html_select_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLSelectElement = DOMHTMLSelectElementParentTypes +type DOMHTMLSelectElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLSelectElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_select_element_get_type + + +class GObject o => DOMHTMLSelectElementK o +instance (GObject o, IsDescendantOf DOMHTMLSelectElement o) => DOMHTMLSelectElementK o + +toDOMHTMLSelectElement :: DOMHTMLSelectElementK o => o -> IO DOMHTMLSelectElement +toDOMHTMLSelectElement = unsafeCastTo DOMHTMLSelectElement + +noDOMHTMLSelectElement :: Maybe DOMHTMLSelectElement +noDOMHTMLSelectElement = Nothing + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLSelectElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLSelectElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLSelectElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementAutofocusPropertyInfo = "DOMHTMLSelectElement::autofocus" + attrGet _ = getDOMHTMLSelectElementAutofocus + attrSet _ = setDOMHTMLSelectElementAutofocus + attrConstruct _ = constructDOMHTMLSelectElementAutofocus + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLSelectElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLSelectElementDisabledPropertyInfo +instance AttrInfo DOMHTMLSelectElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementDisabledPropertyInfo = "DOMHTMLSelectElement::disabled" + attrGet _ = getDOMHTMLSelectElementDisabled + attrSet _ = setDOMHTMLSelectElementDisabled + attrConstruct _ = constructDOMHTMLSelectElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLSelectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLSelectElementFormPropertyInfo +instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLSelectElementFormPropertyInfo = "DOMHTMLSelectElement::form" + attrGet _ = getDOMHTMLSelectElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMNodeList +getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLSelectElementLabelsPropertyInfo +instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "DOMHTMLSelectElement::labels" + attrGet _ = getDOMHTMLSelectElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Word64 +getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Word64 -> m () +setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyUInt64 obj "length" val + +constructDOMHTMLSelectElementLength :: Word64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementLength val = constructObjectPropertyUInt64 "length" val + +data DOMHTMLSelectElementLengthPropertyInfo +instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "DOMHTMLSelectElement::length" + attrGet _ = getDOMHTMLSelectElementLength + attrSet _ = setDOMHTMLSelectElementLength + attrConstruct _ = constructDOMHTMLSelectElementLength + +-- VVV Prop "multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" + +setDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val + +constructDOMHTMLSelectElementMultiple :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementMultiple val = constructObjectPropertyBool "multiple" val + +data DOMHTMLSelectElementMultiplePropertyInfo +instance AttrInfo DOMHTMLSelectElementMultiplePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementMultiplePropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementMultiplePropertyInfo = "DOMHTMLSelectElement::multiple" + attrGet _ = getDOMHTMLSelectElementMultiple + attrSet _ = setDOMHTMLSelectElementMultiple + attrConstruct _ = constructDOMHTMLSelectElementMultiple + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () +setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" val + +data DOMHTMLSelectElementNamePropertyInfo +instance AttrInfo DOMHTMLSelectElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLSelectElementNamePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "DOMHTMLSelectElement::name" + attrGet _ = getDOMHTMLSelectElementName + attrSet _ = setDOMHTMLSelectElementName + attrConstruct _ = constructDOMHTMLSelectElementName + +-- VVV Prop "options" + -- Type: TInterface "WebKit" "DOMHTMLOptionsCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLOptionsCollection +getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection + +data DOMHTMLSelectElementOptionsPropertyInfo +instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLOptionsCollection + type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "DOMHTMLSelectElement::options" + attrGet _ = getDOMHTMLSelectElementOptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLSelectElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLSelectElementRequiredPropertyInfo +instance AttrInfo DOMHTMLSelectElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementRequiredPropertyInfo = "DOMHTMLSelectElement::required" + attrGet _ = getDOMHTMLSelectElementRequired + attrSet _ = setDOMHTMLSelectElementRequired + attrConstruct _ = constructDOMHTMLSelectElementRequired + +-- VVV Prop "selected-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 +getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" + +setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () +setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val + +constructDOMHTMLSelectElementSelectedIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyInt64 "selected-index" val + +data DOMHTMLSelectElementSelectedIndexPropertyInfo +instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "DOMHTMLSelectElement::selected-index" + attrGet _ = getDOMHTMLSelectElementSelectedIndex + attrSet _ = setDOMHTMLSelectElementSelectedIndex + attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex + +-- VVV Prop "selected-options" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLCollection +getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection + +data DOMHTMLSelectElementSelectedOptionsPropertyInfo +instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "DOMHTMLSelectElement::selected-options" + attrGet _ = getDOMHTMLSelectElementSelectedOptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 +getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () +setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMHTMLSelectElementSize :: Int64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementSize val = constructObjectPropertyInt64 "size" val + +data DOMHTMLSelectElementSizePropertyInfo +instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSizePropertyInfo = Int64 + type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "DOMHTMLSelectElement::size" + attrGet _ = getDOMHTMLSelectElementSize + attrSet _ = setDOMHTMLSelectElementSize + attrConstruct _ = constructDOMHTMLSelectElementSize + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLSelectElementTypePropertyInfo +instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "DOMHTMLSelectElement::type" + attrGet _ = getDOMHTMLSelectElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLSelectElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "DOMHTMLSelectElement::validation-message" + attrGet _ = getDOMHTMLSelectElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementValidity :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMValidityState +getDOMHTMLSelectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLSelectElementValidityPropertyInfo +instance AttrInfo DOMHTMLSelectElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLSelectElementValidityPropertyInfo = "DOMHTMLSelectElement::validity" + attrGet _ = getDOMHTMLSelectElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () +setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLSelectElementValuePropertyInfo +instance AttrInfo DOMHTMLSelectElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLSelectElementValuePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "DOMHTMLSelectElement::value" + attrGet _ = getDOMHTMLSelectElementValue + attrSet _ = setDOMHTMLSelectElementValue + attrConstruct _ = constructDOMHTMLSelectElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementWillValidate :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLSelectElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLSelectElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementWillValidatePropertyInfo = "DOMHTMLSelectElement::will-validate" + attrGet _ = getDOMHTMLSelectElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLSelectElement = DOMHTMLSelectElementAttributeList +type DOMHTMLSelectElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected-index", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selected-options", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validation-message", DOMHTMLSelectElementValidationMessagePropertyInfo), '("validity", DOMHTMLSelectElementValidityPropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLSelectElement = DOMHTMLSelectElementSignalList +type DOMHTMLSelectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLSelectElement::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_add" webkit_dom_html_select_element_add :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Ptr DOMHTMLElement -> -- element : TInterface "WebKit" "DOMHTMLElement" + Ptr DOMHTMLElement -> -- before : TInterface "WebKit" "DOMHTMLElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLSelectElementAdd :: + (MonadIO m, DOMHTMLSelectElementK a, DOMHTMLElementK b, DOMHTMLElementK c) => + a -> -- _obj + b -> -- element + c -> -- before + m () +dOMHTMLSelectElementAdd _obj element before = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let element' = unsafeManagedPtrCastPtr element + let before' = unsafeManagedPtrCastPtr before + onException (do + propagateGError $ webkit_dom_html_select_element_add _obj' element' before' + touchManagedPtr _obj + touchManagedPtr element + touchManagedPtr before + return () + ) (do + return () + ) + +-- method DOMHTMLSelectElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_check_validity" webkit_dom_html_select_element_check_validity :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementCheckValidity :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_autofocus" webkit_dom_html_select_element_get_autofocus :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementGetAutofocus :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementGetAutofocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_autofocus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_disabled" webkit_dom_html_select_element_get_disabled :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementGetDisabled :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_form" webkit_dom_html_select_element_get_form :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLSelectElementGetForm :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLSelectElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_labels" webkit_dom_html_select_element_get_labels :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO (Ptr DOMNodeList) + + +dOMHTMLSelectElementGetLabels :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m DOMNodeList +dOMHTMLSelectElementGetLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_labels _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_labels" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_length" webkit_dom_html_select_element_get_length :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO Word64 + + +dOMHTMLSelectElementGetLength :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Word64 +dOMHTMLSelectElementGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLSelectElement::get_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_multiple" webkit_dom_html_select_element_get_multiple :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementGetMultiple :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementGetMultiple _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_multiple _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_name" webkit_dom_html_select_element_get_name :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CString + + +dOMHTMLSelectElementGetName :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLSelectElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_options +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLOptionsCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_options" webkit_dom_html_select_element_get_options :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO (Ptr DOMHTMLOptionsCollection) + + +dOMHTMLSelectElementGetOptions :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m DOMHTMLOptionsCollection +dOMHTMLSelectElementGetOptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_options _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_options" result + result' <- (wrapObject DOMHTMLOptionsCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_required" webkit_dom_html_select_element_get_required :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementGetRequired :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementGetRequired _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_required _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_selected_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_selected_index" webkit_dom_html_select_element_get_selected_index :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO Int64 + + +dOMHTMLSelectElementGetSelectedIndex :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Int64 +dOMHTMLSelectElementGetSelectedIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_selected_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLSelectElement::get_selected_options +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_selected_options" webkit_dom_html_select_element_get_selected_options :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLSelectElementGetSelectedOptions :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLSelectElementGetSelectedOptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_selected_options _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_selected_options" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_size" webkit_dom_html_select_element_get_size :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO Int64 + + +dOMHTMLSelectElementGetSize :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Int64 +dOMHTMLSelectElementGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_size _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLSelectElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_validation_message" webkit_dom_html_select_element_get_validation_message :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CString + + +dOMHTMLSelectElementGetValidationMessage :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLSelectElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_validity" webkit_dom_html_select_element_get_validity :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO (Ptr DOMValidityState) + + +dOMHTMLSelectElementGetValidity :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLSelectElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_value" webkit_dom_html_select_element_get_value :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CString + + +dOMHTMLSelectElementGetValue :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m T.Text +dOMHTMLSelectElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_get_will_validate" webkit_dom_html_select_element_get_will_validate :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + IO CInt + + +dOMHTMLSelectElementGetWillValidate :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + m Bool +dOMHTMLSelectElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_item" webkit_dom_html_select_element_item :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + + +dOMHTMLSelectElementItem :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Word64 -> -- index + m DOMNode +dOMHTMLSelectElementItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_select_element_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_html_select_element_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLSelectElement::named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_named_item" webkit_dom_html_select_element_named_item :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNode) + + +dOMHTMLSelectElementNamedItem :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + T.Text -> -- name + m DOMNode +dOMHTMLSelectElementNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_html_select_element_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_html_select_element_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMHTMLSelectElement::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_remove" webkit_dom_html_select_element_remove :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Int64 -> -- index : TBasicType TInt64 + IO () + + +dOMHTMLSelectElementRemove :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Int64 -> -- index + m () +dOMHTMLSelectElementRemove _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_select_element_remove _obj' index + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_autofocus" webkit_dom_html_select_element_set_autofocus :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLSelectElementSetAutofocus :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLSelectElementSetAutofocus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_select_element_set_autofocus _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_custom_validity" webkit_dom_html_select_element_set_custom_validity :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLSelectElementSetCustomValidity :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLSelectElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_select_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLSelectElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_disabled" webkit_dom_html_select_element_set_disabled :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLSelectElementSetDisabled :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLSelectElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_select_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_length" webkit_dom_html_select_element_set_length :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Word64 -> -- value : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLSelectElementSetLength :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLSelectElementSetLength _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_select_element_set_length _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLSelectElement::set_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_multiple" webkit_dom_html_select_element_set_multiple :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLSelectElementSetMultiple :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLSelectElementSetMultiple _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_select_element_set_multiple _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_name" webkit_dom_html_select_element_set_name :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLSelectElementSetName :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLSelectElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_select_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLSelectElement::set_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_required" webkit_dom_html_select_element_set_required :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLSelectElementSetRequired :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLSelectElementSetRequired _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_select_element_set_required _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_selected_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_selected_index" webkit_dom_html_select_element_set_selected_index :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLSelectElementSetSelectedIndex :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLSelectElementSetSelectedIndex _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_select_element_set_selected_index _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_size" webkit_dom_html_select_element_set_size :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLSelectElementSetSize :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLSelectElementSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_select_element_set_size _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLSelectElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_select_element_set_value" webkit_dom_html_select_element_set_value :: + Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLSelectElementSetValue :: + (MonadIO m, DOMHTMLSelectElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLSelectElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_select_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot b/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot @@ -0,0 +1,30 @@ +module GI.WebKit.Objects.DOMHTMLSelectElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLSelectElement = DOMHTMLSelectElement (ForeignPtr DOMHTMLSelectElement) +instance GObject DOMHTMLSelectElement where +class GObject o => DOMHTMLSelectElementK o +instance (GObject o, IsDescendantOf DOMHTMLSelectElement o) => DOMHTMLSelectElementK o +data DOMHTMLSelectElementAutofocusPropertyInfo +data DOMHTMLSelectElementDisabledPropertyInfo +data DOMHTMLSelectElementFormPropertyInfo +data DOMHTMLSelectElementLabelsPropertyInfo +data DOMHTMLSelectElementLengthPropertyInfo +data DOMHTMLSelectElementMultiplePropertyInfo +data DOMHTMLSelectElementNamePropertyInfo +data DOMHTMLSelectElementOptionsPropertyInfo +data DOMHTMLSelectElementRequiredPropertyInfo +data DOMHTMLSelectElementSelectedIndexPropertyInfo +data DOMHTMLSelectElementSelectedOptionsPropertyInfo +data DOMHTMLSelectElementSizePropertyInfo +data DOMHTMLSelectElementTypePropertyInfo +data DOMHTMLSelectElementValidationMessagePropertyInfo +data DOMHTMLSelectElementValidityPropertyInfo +data DOMHTMLSelectElementValuePropertyInfo +data DOMHTMLSelectElementWillValidatePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLStyleElement.hs b/GI/WebKit/Objects/DOMHTMLStyleElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLStyleElement.hs @@ -0,0 +1,393 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLStyleElement + ( + +-- * Exported types + DOMHTMLStyleElement(..) , + DOMHTMLStyleElementK , + toDOMHTMLStyleElement , + noDOMHTMLStyleElement , + + + -- * Methods +-- ** dOMHTMLStyleElementGetDisabled + dOMHTMLStyleElementGetDisabled , + + +-- ** dOMHTMLStyleElementGetMedia + dOMHTMLStyleElementGetMedia , + + +-- ** dOMHTMLStyleElementGetScoped + dOMHTMLStyleElementGetScoped , + + +-- ** dOMHTMLStyleElementGetSheet + dOMHTMLStyleElementGetSheet , + + +-- ** dOMHTMLStyleElementSetDisabled + dOMHTMLStyleElementSetDisabled , + + +-- ** dOMHTMLStyleElementSetMedia + dOMHTMLStyleElementSetMedia , + + +-- ** dOMHTMLStyleElementSetScoped + dOMHTMLStyleElementSetScoped , + + + + + -- * Properties +-- ** Disabled + DOMHTMLStyleElementDisabledPropertyInfo , + constructDOMHTMLStyleElementDisabled , + getDOMHTMLStyleElementDisabled , + setDOMHTMLStyleElementDisabled , + + +-- ** Media + DOMHTMLStyleElementMediaPropertyInfo , + constructDOMHTMLStyleElementMedia , + getDOMHTMLStyleElementMedia , + setDOMHTMLStyleElementMedia , + + +-- ** Sheet + DOMHTMLStyleElementSheetPropertyInfo , + getDOMHTMLStyleElementSheet , + + +-- ** Type + DOMHTMLStyleElementTypePropertyInfo , + constructDOMHTMLStyleElementType , + getDOMHTMLStyleElementType , + setDOMHTMLStyleElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLStyleElement = DOMHTMLStyleElement (ForeignPtr DOMHTMLStyleElement) +foreign import ccall "webkit_dom_html_style_element_get_type" + c_webkit_dom_html_style_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLStyleElement = DOMHTMLStyleElementParentTypes +type DOMHTMLStyleElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLStyleElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_style_element_get_type + + +class GObject o => DOMHTMLStyleElementK o +instance (GObject o, IsDescendantOf DOMHTMLStyleElement o) => DOMHTMLStyleElementK o + +toDOMHTMLStyleElement :: DOMHTMLStyleElementK o => o -> IO DOMHTMLStyleElement +toDOMHTMLStyleElement = unsafeCastTo DOMHTMLStyleElement + +noDOMHTMLStyleElement :: Maybe DOMHTMLStyleElement +noDOMHTMLStyleElement = Nothing + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m Bool +getDOMHTMLStyleElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> Bool -> m () +setDOMHTMLStyleElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLStyleElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLStyleElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLStyleElementDisabledPropertyInfo +instance AttrInfo DOMHTMLStyleElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLStyleElementDisabledPropertyInfo = "DOMHTMLStyleElement::disabled" + attrGet _ = getDOMHTMLStyleElementDisabled + attrSet _ = setDOMHTMLStyleElementDisabled + attrConstruct _ = constructDOMHTMLStyleElementDisabled + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media" + +setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () +setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val + +constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue) +constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" val + +data DOMHTMLStyleElementMediaPropertyInfo +instance AttrInfo DOMHTMLStyleElementMediaPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = T.Text + type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "DOMHTMLStyleElement::media" + attrGet _ = getDOMHTMLStyleElementMedia + attrSet _ = setDOMHTMLStyleElementMedia + attrConstruct _ = constructDOMHTMLStyleElementMedia + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m DOMStyleSheet +getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMHTMLStyleElementSheetPropertyInfo +instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "DOMHTMLStyleElement::sheet" + attrGet _ = getDOMHTMLStyleElementSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () +setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" val + +data DOMHTMLStyleElementTypePropertyInfo +instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "DOMHTMLStyleElement::type" + attrGet _ = getDOMHTMLStyleElementType + attrSet _ = setDOMHTMLStyleElementType + attrConstruct _ = constructDOMHTMLStyleElementType + +type instance AttributeList DOMHTMLStyleElement = DOMHTMLStyleElementAttributeList +type DOMHTMLStyleElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLStyleElement = DOMHTMLStyleElementSignalList +type DOMHTMLStyleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLStyleElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_get_disabled" webkit_dom_html_style_element_get_disabled :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + IO CInt + + +dOMHTMLStyleElementGetDisabled :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + m Bool +dOMHTMLStyleElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_style_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLStyleElement::get_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_get_media" webkit_dom_html_style_element_get_media :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + IO CString + + +dOMHTMLStyleElementGetMedia :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + m T.Text +dOMHTMLStyleElementGetMedia _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_style_element_get_media _obj' + checkUnexpectedReturnNULL "webkit_dom_html_style_element_get_media" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLStyleElement::get_scoped +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_get_scoped" webkit_dom_html_style_element_get_scoped :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + IO CInt + +{-# DEPRECATED dOMHTMLStyleElementGetScoped ["(Since version 2.2)"]#-} +dOMHTMLStyleElementGetScoped :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + m Bool +dOMHTMLStyleElementGetScoped _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_style_element_get_scoped _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLStyleElement::get_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_get_sheet" webkit_dom_html_style_element_get_sheet :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + IO (Ptr DOMStyleSheet) + + +dOMHTMLStyleElementGetSheet :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + m DOMStyleSheet +dOMHTMLStyleElementGetSheet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_style_element_get_sheet _obj' + checkUnexpectedReturnNULL "webkit_dom_html_style_element_get_sheet" result + result' <- (wrapObject DOMStyleSheet) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLStyleElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_set_disabled" webkit_dom_html_style_element_set_disabled :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLStyleElementSetDisabled :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLStyleElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_style_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLStyleElement::set_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_set_media" webkit_dom_html_style_element_set_media :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLStyleElementSetMedia :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLStyleElementSetMedia _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_style_element_set_media _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLStyleElement::set_scoped +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_style_element_set_scoped" webkit_dom_html_style_element_set_scoped :: + Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement" + CInt -> -- value : TBasicType TBoolean + IO () + +{-# DEPRECATED dOMHTMLStyleElementSetScoped ["(Since version 2.2)"]#-} +dOMHTMLStyleElementSetScoped :: + (MonadIO m, DOMHTMLStyleElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLStyleElementSetScoped _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_style_element_set_scoped _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot b/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMHTMLStyleElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLStyleElement = DOMHTMLStyleElement (ForeignPtr DOMHTMLStyleElement) +instance GObject DOMHTMLStyleElement where +class GObject o => DOMHTMLStyleElementK o +instance (GObject o, IsDescendantOf DOMHTMLStyleElement o) => DOMHTMLStyleElementK o +data DOMHTMLStyleElementDisabledPropertyInfo +data DOMHTMLStyleElementMediaPropertyInfo +data DOMHTMLStyleElementSheetPropertyInfo +data DOMHTMLStyleElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTableCaptionElement + ( + +-- * Exported types + DOMHTMLTableCaptionElement(..) , + DOMHTMLTableCaptionElementK , + toDOMHTMLTableCaptionElement , + noDOMHTMLTableCaptionElement , + + + -- * Methods +-- ** dOMHTMLTableCaptionElementGetAlign + dOMHTMLTableCaptionElementGetAlign , + + +-- ** dOMHTMLTableCaptionElementSetAlign + dOMHTMLTableCaptionElementSetAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLTableCaptionElementAlignPropertyInfo, + constructDOMHTMLTableCaptionElementAlign, + getDOMHTMLTableCaptionElementAlign , + setDOMHTMLTableCaptionElementAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElement (ForeignPtr DOMHTMLTableCaptionElement) +foreign import ccall "webkit_dom_html_table_caption_element_get_type" + c_webkit_dom_html_table_caption_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementParentTypes +type DOMHTMLTableCaptionElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableCaptionElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_caption_element_get_type + + +class GObject o => DOMHTMLTableCaptionElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableCaptionElement o) => DOMHTMLTableCaptionElementK o + +toDOMHTMLTableCaptionElement :: DOMHTMLTableCaptionElementK o => o -> IO DOMHTMLTableCaptionElement +toDOMHTMLTableCaptionElement = unsafeCastTo DOMHTMLTableCaptionElement + +noDOMHTMLTableCaptionElement :: Maybe DOMHTMLTableCaptionElement +noDOMHTMLTableCaptionElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m T.Text +getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m () +setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableCaptionElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableCaptionElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCaptionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = DOMHTMLTableCaptionElementK + type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "DOMHTMLTableCaptionElement::align" + attrGet _ = getDOMHTMLTableCaptionElementAlign + attrSet _ = setDOMHTMLTableCaptionElementAlign + attrConstruct _ = constructDOMHTMLTableCaptionElementAlign + +type instance AttributeList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementAttributeList +type DOMHTMLTableCaptionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementSignalList +type DOMHTMLTableCaptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableCaptionElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_caption_element_get_align" webkit_dom_html_table_caption_element_get_align :: + Ptr DOMHTMLTableCaptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCaptionElement" + IO CString + + +dOMHTMLTableCaptionElementGetAlign :: + (MonadIO m, DOMHTMLTableCaptionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCaptionElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_caption_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_caption_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCaptionElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_caption_element_set_align" webkit_dom_html_table_caption_element_set_align :: + Ptr DOMHTMLTableCaptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCaptionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCaptionElementSetAlign :: + (MonadIO m, DOMHTMLTableCaptionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCaptionElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_caption_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLTableCaptionElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElement (ForeignPtr DOMHTMLTableCaptionElement) +instance GObject DOMHTMLTableCaptionElement where +class GObject o => DOMHTMLTableCaptionElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableCaptionElement o) => DOMHTMLTableCaptionElementK o +data DOMHTMLTableCaptionElementAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs @@ -0,0 +1,1418 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTableCellElement + ( + +-- * Exported types + DOMHTMLTableCellElement(..) , + DOMHTMLTableCellElementK , + toDOMHTMLTableCellElement , + noDOMHTMLTableCellElement , + + + -- * Methods +-- ** dOMHTMLTableCellElementGetAbbr + dOMHTMLTableCellElementGetAbbr , + + +-- ** dOMHTMLTableCellElementGetAlign + dOMHTMLTableCellElementGetAlign , + + +-- ** dOMHTMLTableCellElementGetAxis + dOMHTMLTableCellElementGetAxis , + + +-- ** dOMHTMLTableCellElementGetBgColor + dOMHTMLTableCellElementGetBgColor , + + +-- ** dOMHTMLTableCellElementGetCellIndex + dOMHTMLTableCellElementGetCellIndex , + + +-- ** dOMHTMLTableCellElementGetCh + dOMHTMLTableCellElementGetCh , + + +-- ** dOMHTMLTableCellElementGetChOff + dOMHTMLTableCellElementGetChOff , + + +-- ** dOMHTMLTableCellElementGetColSpan + dOMHTMLTableCellElementGetColSpan , + + +-- ** dOMHTMLTableCellElementGetHeaders + dOMHTMLTableCellElementGetHeaders , + + +-- ** dOMHTMLTableCellElementGetHeight + dOMHTMLTableCellElementGetHeight , + + +-- ** dOMHTMLTableCellElementGetNoWrap + dOMHTMLTableCellElementGetNoWrap , + + +-- ** dOMHTMLTableCellElementGetRowSpan + dOMHTMLTableCellElementGetRowSpan , + + +-- ** dOMHTMLTableCellElementGetScope + dOMHTMLTableCellElementGetScope , + + +-- ** dOMHTMLTableCellElementGetVAlign + dOMHTMLTableCellElementGetVAlign , + + +-- ** dOMHTMLTableCellElementGetWidth + dOMHTMLTableCellElementGetWidth , + + +-- ** dOMHTMLTableCellElementSetAbbr + dOMHTMLTableCellElementSetAbbr , + + +-- ** dOMHTMLTableCellElementSetAlign + dOMHTMLTableCellElementSetAlign , + + +-- ** dOMHTMLTableCellElementSetAxis + dOMHTMLTableCellElementSetAxis , + + +-- ** dOMHTMLTableCellElementSetBgColor + dOMHTMLTableCellElementSetBgColor , + + +-- ** dOMHTMLTableCellElementSetCh + dOMHTMLTableCellElementSetCh , + + +-- ** dOMHTMLTableCellElementSetChOff + dOMHTMLTableCellElementSetChOff , + + +-- ** dOMHTMLTableCellElementSetColSpan + dOMHTMLTableCellElementSetColSpan , + + +-- ** dOMHTMLTableCellElementSetHeaders + dOMHTMLTableCellElementSetHeaders , + + +-- ** dOMHTMLTableCellElementSetHeight + dOMHTMLTableCellElementSetHeight , + + +-- ** dOMHTMLTableCellElementSetNoWrap + dOMHTMLTableCellElementSetNoWrap , + + +-- ** dOMHTMLTableCellElementSetRowSpan + dOMHTMLTableCellElementSetRowSpan , + + +-- ** dOMHTMLTableCellElementSetScope + dOMHTMLTableCellElementSetScope , + + +-- ** dOMHTMLTableCellElementSetVAlign + dOMHTMLTableCellElementSetVAlign , + + +-- ** dOMHTMLTableCellElementSetWidth + dOMHTMLTableCellElementSetWidth , + + + + + -- * Properties +-- ** Abbr + DOMHTMLTableCellElementAbbrPropertyInfo , + constructDOMHTMLTableCellElementAbbr , + getDOMHTMLTableCellElementAbbr , + setDOMHTMLTableCellElementAbbr , + + +-- ** Align + DOMHTMLTableCellElementAlignPropertyInfo, + constructDOMHTMLTableCellElementAlign , + getDOMHTMLTableCellElementAlign , + setDOMHTMLTableCellElementAlign , + + +-- ** Axis + DOMHTMLTableCellElementAxisPropertyInfo , + constructDOMHTMLTableCellElementAxis , + getDOMHTMLTableCellElementAxis , + setDOMHTMLTableCellElementAxis , + + +-- ** BgColor + DOMHTMLTableCellElementBgColorPropertyInfo, + constructDOMHTMLTableCellElementBgColor , + getDOMHTMLTableCellElementBgColor , + setDOMHTMLTableCellElementBgColor , + + +-- ** CellIndex + DOMHTMLTableCellElementCellIndexPropertyInfo, + getDOMHTMLTableCellElementCellIndex , + + +-- ** Ch + DOMHTMLTableCellElementChPropertyInfo , + constructDOMHTMLTableCellElementCh , + getDOMHTMLTableCellElementCh , + setDOMHTMLTableCellElementCh , + + +-- ** ChOff + DOMHTMLTableCellElementChOffPropertyInfo, + constructDOMHTMLTableCellElementChOff , + getDOMHTMLTableCellElementChOff , + setDOMHTMLTableCellElementChOff , + + +-- ** ColSpan + DOMHTMLTableCellElementColSpanPropertyInfo, + constructDOMHTMLTableCellElementColSpan , + getDOMHTMLTableCellElementColSpan , + setDOMHTMLTableCellElementColSpan , + + +-- ** Headers + DOMHTMLTableCellElementHeadersPropertyInfo, + constructDOMHTMLTableCellElementHeaders , + getDOMHTMLTableCellElementHeaders , + setDOMHTMLTableCellElementHeaders , + + +-- ** Height + DOMHTMLTableCellElementHeightPropertyInfo, + constructDOMHTMLTableCellElementHeight , + getDOMHTMLTableCellElementHeight , + setDOMHTMLTableCellElementHeight , + + +-- ** NoWrap + DOMHTMLTableCellElementNoWrapPropertyInfo, + constructDOMHTMLTableCellElementNoWrap , + getDOMHTMLTableCellElementNoWrap , + setDOMHTMLTableCellElementNoWrap , + + +-- ** RowSpan + DOMHTMLTableCellElementRowSpanPropertyInfo, + constructDOMHTMLTableCellElementRowSpan , + getDOMHTMLTableCellElementRowSpan , + setDOMHTMLTableCellElementRowSpan , + + +-- ** Scope + DOMHTMLTableCellElementScopePropertyInfo, + constructDOMHTMLTableCellElementScope , + getDOMHTMLTableCellElementScope , + setDOMHTMLTableCellElementScope , + + +-- ** VAlign + DOMHTMLTableCellElementVAlignPropertyInfo, + constructDOMHTMLTableCellElementVAlign , + getDOMHTMLTableCellElementVAlign , + setDOMHTMLTableCellElementVAlign , + + +-- ** Width + DOMHTMLTableCellElementWidthPropertyInfo, + constructDOMHTMLTableCellElementWidth , + getDOMHTMLTableCellElementWidth , + setDOMHTMLTableCellElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableCellElement = DOMHTMLTableCellElement (ForeignPtr DOMHTMLTableCellElement) +foreign import ccall "webkit_dom_html_table_cell_element_get_type" + c_webkit_dom_html_table_cell_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableCellElement = DOMHTMLTableCellElementParentTypes +type DOMHTMLTableCellElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableCellElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_cell_element_get_type + + +class GObject o => DOMHTMLTableCellElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableCellElement o) => DOMHTMLTableCellElementK o + +toDOMHTMLTableCellElement :: DOMHTMLTableCellElementK o => o -> IO DOMHTMLTableCellElement +toDOMHTMLTableCellElement = unsafeCastTo DOMHTMLTableCellElement + +noDOMHTMLTableCellElement :: Maybe DOMHTMLTableCellElement +noDOMHTMLTableCellElement = Nothing + +-- VVV Prop "abbr" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr" + +setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" val + +constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" val + +data DOMHTMLTableCellElementAbbrPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAbbrPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAbbrPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "DOMHTMLTableCellElement::abbr" + attrGet _ = getDOMHTMLTableCellElementAbbr + attrSet _ = setDOMHTMLTableCellElementAbbr + attrConstruct _ = constructDOMHTMLTableCellElementAbbr + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableCellElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "DOMHTMLTableCellElement::align" + attrGet _ = getDOMHTMLTableCellElementAlign + attrSet _ = setDOMHTMLTableCellElementAlign + attrConstruct _ = constructDOMHTMLTableCellElementAlign + +-- VVV Prop "axis" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis" + +setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" val + +constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" val + +data DOMHTMLTableCellElementAxisPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAxisPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAxisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "DOMHTMLTableCellElement::axis" + attrGet _ = getDOMHTMLTableCellElementAxis + attrSet _ = setDOMHTMLTableCellElementAxis + attrConstruct _ = constructDOMHTMLTableCellElementAxis + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableCellElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableCellElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "DOMHTMLTableCellElement::bg-color" + attrGet _ = getDOMHTMLTableCellElementBgColor + attrSet _ = setDOMHTMLTableCellElementBgColor + attrConstruct _ = constructDOMHTMLTableCellElementBgColor + +-- VVV Prop "cell-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyInt64 obj "cell-index" + +data DOMHTMLTableCellElementCellIndexPropertyInfo +instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "DOMHTMLTableCellElement::cell-index" + attrGet _ = getDOMHTMLTableCellElementCellIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableCellElementChPropertyInfo +instance AttrInfo DOMHTMLTableCellElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementChPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "DOMHTMLTableCellElement::ch" + attrGet _ = getDOMHTMLTableCellElementCh + attrSet _ = setDOMHTMLTableCellElementCh + attrConstruct _ = constructDOMHTMLTableCellElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableCellElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableCellElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "DOMHTMLTableCellElement::ch-off" + attrGet _ = getDOMHTMLTableCellElementChOff + attrSet _ = setDOMHTMLTableCellElementChOff + attrConstruct _ = constructDOMHTMLTableCellElementChOff + +-- VVV Prop "col-span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyInt64 obj "col-span" + +setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () +setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyInt64 obj "col-span" val + +constructDOMHTMLTableCellElementColSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyInt64 "col-span" val + +data DOMHTMLTableCellElementColSpanPropertyInfo +instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "DOMHTMLTableCellElement::col-span" + attrGet _ = getDOMHTMLTableCellElementColSpan + attrSet _ = setDOMHTMLTableCellElementColSpan + attrConstruct _ = constructDOMHTMLTableCellElementColSpan + +-- VVV Prop "headers" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers" + +setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" val + +constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" val + +data DOMHTMLTableCellElementHeadersPropertyInfo +instance AttrInfo DOMHTMLTableCellElementHeadersPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "DOMHTMLTableCellElement::headers" + attrGet _ = getDOMHTMLTableCellElementHeaders + attrSet _ = setDOMHTMLTableCellElementHeaders + attrConstruct _ = constructDOMHTMLTableCellElementHeaders + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLTableCellElementHeightPropertyInfo +instance AttrInfo DOMHTMLTableCellElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "DOMHTMLTableCellElement::height" + attrGet _ = getDOMHTMLTableCellElementHeight + attrSet _ = setDOMHTMLTableCellElementHeight + attrConstruct _ = constructDOMHTMLTableCellElementHeight + +-- VVV Prop "no-wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Bool +getDOMHTMLTableCellElementNoWrap obj = liftIO $ getObjectPropertyBool obj "no-wrap" + +setDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Bool -> m () +setDOMHTMLTableCellElementNoWrap obj val = liftIO $ setObjectPropertyBool obj "no-wrap" val + +constructDOMHTMLTableCellElementNoWrap :: Bool -> IO ([Char], GValue) +constructDOMHTMLTableCellElementNoWrap val = constructObjectPropertyBool "no-wrap" val + +data DOMHTMLTableCellElementNoWrapPropertyInfo +instance AttrInfo DOMHTMLTableCellElementNoWrapPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementNoWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementNoWrapPropertyInfo = Bool + type AttrLabel DOMHTMLTableCellElementNoWrapPropertyInfo = "DOMHTMLTableCellElement::no-wrap" + attrGet _ = getDOMHTMLTableCellElementNoWrap + attrSet _ = setDOMHTMLTableCellElementNoWrap + attrConstruct _ = constructDOMHTMLTableCellElementNoWrap + +-- VVV Prop "row-span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyInt64 obj "row-span" + +setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () +setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyInt64 obj "row-span" val + +constructDOMHTMLTableCellElementRowSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyInt64 "row-span" val + +data DOMHTMLTableCellElementRowSpanPropertyInfo +instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "DOMHTMLTableCellElement::row-span" + attrGet _ = getDOMHTMLTableCellElementRowSpan + attrSet _ = setDOMHTMLTableCellElementRowSpan + attrConstruct _ = constructDOMHTMLTableCellElementRowSpan + +-- VVV Prop "scope" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope" + +setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" val + +constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" val + +data DOMHTMLTableCellElementScopePropertyInfo +instance AttrInfo DOMHTMLTableCellElementScopePropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "DOMHTMLTableCellElement::scope" + attrGet _ = getDOMHTMLTableCellElementScope + attrSet _ = setDOMHTMLTableCellElementScope + attrConstruct _ = constructDOMHTMLTableCellElementScope + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableCellElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableCellElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "DOMHTMLTableCellElement::v-align" + attrGet _ = getDOMHTMLTableCellElementVAlign + attrSet _ = setDOMHTMLTableCellElementVAlign + attrConstruct _ = constructDOMHTMLTableCellElementVAlign + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableCellElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableCellElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "DOMHTMLTableCellElement::width" + attrGet _ = getDOMHTMLTableCellElementWidth + attrSet _ = setDOMHTMLTableCellElementWidth + attrConstruct _ = constructDOMHTMLTableCellElementWidth + +type instance AttributeList DOMHTMLTableCellElement = DOMHTMLTableCellElementAttributeList +type DOMHTMLTableCellElementAttributeList = ('[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableCellElementBgColorPropertyInfo), '("cell-index", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("ch-off", DOMHTMLTableCellElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("col-span", DOMHTMLTableCellElementColSpanPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-wrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-span", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableCellElement = DOMHTMLTableCellElementSignalList +type DOMHTMLTableCellElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableCellElement::get_abbr +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_abbr" webkit_dom_html_table_cell_element_get_abbr :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetAbbr :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetAbbr _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_abbr _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_abbr" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_align" webkit_dom_html_table_cell_element_get_align :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetAlign :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_axis +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_axis" webkit_dom_html_table_cell_element_get_axis :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetAxis :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetAxis _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_axis _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_axis" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_bg_color" webkit_dom_html_table_cell_element_get_bg_color :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetBgColor :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_cell_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_cell_index" webkit_dom_html_table_cell_element_get_cell_index :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO Int64 + + +dOMHTMLTableCellElementGetCellIndex :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableCellElementGetCellIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_cell_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableCellElement::get_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_ch" webkit_dom_html_table_cell_element_get_ch :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetCh :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetCh _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_ch _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_ch" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_ch_off" webkit_dom_html_table_cell_element_get_ch_off :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetChOff :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetChOff _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_ch_off _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_ch_off" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_col_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_col_span" webkit_dom_html_table_cell_element_get_col_span :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO Int64 + + +dOMHTMLTableCellElementGetColSpan :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableCellElementGetColSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_col_span _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableCellElement::get_headers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_headers" webkit_dom_html_table_cell_element_get_headers :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetHeaders :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetHeaders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_headers _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_headers" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_height" webkit_dom_html_table_cell_element_get_height :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetHeight :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_height _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_height" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_no_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_no_wrap" webkit_dom_html_table_cell_element_get_no_wrap :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CInt + + +dOMHTMLTableCellElementGetNoWrap :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m Bool +dOMHTMLTableCellElementGetNoWrap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_no_wrap _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_row_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_row_span" webkit_dom_html_table_cell_element_get_row_span :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO Int64 + + +dOMHTMLTableCellElementGetRowSpan :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableCellElementGetRowSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_row_span _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableCellElement::get_scope +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_scope" webkit_dom_html_table_cell_element_get_scope :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetScope :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetScope _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_scope _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_scope" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_v_align" webkit_dom_html_table_cell_element_get_v_align :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetVAlign :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetVAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_v_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_v_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_get_width" webkit_dom_html_table_cell_element_get_width :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + IO CString + + +dOMHTMLTableCellElementGetWidth :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableCellElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_cell_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableCellElement::set_abbr +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_abbr" webkit_dom_html_table_cell_element_set_abbr :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetAbbr :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetAbbr _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_abbr _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_align" webkit_dom_html_table_cell_element_set_align :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetAlign :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_axis +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_axis" webkit_dom_html_table_cell_element_set_axis :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetAxis :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetAxis _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_axis _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_bg_color" webkit_dom_html_table_cell_element_set_bg_color :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetBgColor :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_ch" webkit_dom_html_table_cell_element_set_ch :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetCh :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetCh _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_ch _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_ch_off" webkit_dom_html_table_cell_element_set_ch_off :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetChOff :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetChOff _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_ch_off _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_col_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_col_span" webkit_dom_html_table_cell_element_set_col_span :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTableCellElementSetColSpan :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTableCellElementSetColSpan _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_cell_element_set_col_span _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTableCellElement::set_headers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_headers" webkit_dom_html_table_cell_element_set_headers :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetHeaders :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetHeaders _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_headers _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_height" webkit_dom_html_table_cell_element_set_height :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetHeight :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_height _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_no_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_no_wrap" webkit_dom_html_table_cell_element_set_no_wrap :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTableCellElementSetNoWrap :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTableCellElementSetNoWrap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_table_cell_element_set_no_wrap _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTableCellElement::set_row_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_row_span" webkit_dom_html_table_cell_element_set_row_span :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTableCellElementSetRowSpan :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTableCellElementSetRowSpan _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_cell_element_set_row_span _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTableCellElement::set_scope +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_scope" webkit_dom_html_table_cell_element_set_scope :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetScope :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetScope _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_scope _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_v_align" webkit_dom_html_table_cell_element_set_v_align :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetVAlign :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetVAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_v_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableCellElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_cell_element_set_width" webkit_dom_html_table_cell_element_set_width :: + Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableCellElementSetWidth :: + (MonadIO m, DOMHTMLTableCellElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableCellElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_cell_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot @@ -0,0 +1,28 @@ +module GI.WebKit.Objects.DOMHTMLTableCellElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableCellElement = DOMHTMLTableCellElement (ForeignPtr DOMHTMLTableCellElement) +instance GObject DOMHTMLTableCellElement where +class GObject o => DOMHTMLTableCellElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableCellElement o) => DOMHTMLTableCellElementK o +data DOMHTMLTableCellElementAbbrPropertyInfo +data DOMHTMLTableCellElementAlignPropertyInfo +data DOMHTMLTableCellElementAxisPropertyInfo +data DOMHTMLTableCellElementBgColorPropertyInfo +data DOMHTMLTableCellElementCellIndexPropertyInfo +data DOMHTMLTableCellElementChPropertyInfo +data DOMHTMLTableCellElementChOffPropertyInfo +data DOMHTMLTableCellElementColSpanPropertyInfo +data DOMHTMLTableCellElementHeadersPropertyInfo +data DOMHTMLTableCellElementHeightPropertyInfo +data DOMHTMLTableCellElementNoWrapPropertyInfo +data DOMHTMLTableCellElementRowSpanPropertyInfo +data DOMHTMLTableCellElementScopePropertyInfo +data DOMHTMLTableCellElementVAlignPropertyInfo +data DOMHTMLTableCellElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableColElement.hs b/GI/WebKit/Objects/DOMHTMLTableColElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableColElement.hs @@ -0,0 +1,623 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTableColElement + ( + +-- * Exported types + DOMHTMLTableColElement(..) , + DOMHTMLTableColElementK , + toDOMHTMLTableColElement , + noDOMHTMLTableColElement , + + + -- * Methods +-- ** dOMHTMLTableColElementGetAlign + dOMHTMLTableColElementGetAlign , + + +-- ** dOMHTMLTableColElementGetCh + dOMHTMLTableColElementGetCh , + + +-- ** dOMHTMLTableColElementGetChOff + dOMHTMLTableColElementGetChOff , + + +-- ** dOMHTMLTableColElementGetSpan + dOMHTMLTableColElementGetSpan , + + +-- ** dOMHTMLTableColElementGetVAlign + dOMHTMLTableColElementGetVAlign , + + +-- ** dOMHTMLTableColElementGetWidth + dOMHTMLTableColElementGetWidth , + + +-- ** dOMHTMLTableColElementSetAlign + dOMHTMLTableColElementSetAlign , + + +-- ** dOMHTMLTableColElementSetCh + dOMHTMLTableColElementSetCh , + + +-- ** dOMHTMLTableColElementSetChOff + dOMHTMLTableColElementSetChOff , + + +-- ** dOMHTMLTableColElementSetSpan + dOMHTMLTableColElementSetSpan , + + +-- ** dOMHTMLTableColElementSetVAlign + dOMHTMLTableColElementSetVAlign , + + +-- ** dOMHTMLTableColElementSetWidth + dOMHTMLTableColElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLTableColElementAlignPropertyInfo , + constructDOMHTMLTableColElementAlign , + getDOMHTMLTableColElementAlign , + setDOMHTMLTableColElementAlign , + + +-- ** Ch + DOMHTMLTableColElementChPropertyInfo , + constructDOMHTMLTableColElementCh , + getDOMHTMLTableColElementCh , + setDOMHTMLTableColElementCh , + + +-- ** ChOff + DOMHTMLTableColElementChOffPropertyInfo , + constructDOMHTMLTableColElementChOff , + getDOMHTMLTableColElementChOff , + setDOMHTMLTableColElementChOff , + + +-- ** Span + DOMHTMLTableColElementSpanPropertyInfo , + constructDOMHTMLTableColElementSpan , + getDOMHTMLTableColElementSpan , + setDOMHTMLTableColElementSpan , + + +-- ** VAlign + DOMHTMLTableColElementVAlignPropertyInfo, + constructDOMHTMLTableColElementVAlign , + getDOMHTMLTableColElementVAlign , + setDOMHTMLTableColElementVAlign , + + +-- ** Width + DOMHTMLTableColElementWidthPropertyInfo , + constructDOMHTMLTableColElementWidth , + getDOMHTMLTableColElementWidth , + setDOMHTMLTableColElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableColElement = DOMHTMLTableColElement (ForeignPtr DOMHTMLTableColElement) +foreign import ccall "webkit_dom_html_table_col_element_get_type" + c_webkit_dom_html_table_col_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableColElement = DOMHTMLTableColElementParentTypes +type DOMHTMLTableColElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableColElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_col_element_get_type + + +class GObject o => DOMHTMLTableColElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableColElement o) => DOMHTMLTableColElementK o + +toDOMHTMLTableColElement :: DOMHTMLTableColElementK o => o -> IO DOMHTMLTableColElement +toDOMHTMLTableColElement = unsafeCastTo DOMHTMLTableColElement + +noDOMHTMLTableColElement :: Maybe DOMHTMLTableColElement +noDOMHTMLTableColElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableColElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableColElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "DOMHTMLTableColElement::align" + attrGet _ = getDOMHTMLTableColElementAlign + attrSet _ = setDOMHTMLTableColElementAlign + attrConstruct _ = constructDOMHTMLTableColElementAlign + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableColElementChPropertyInfo +instance AttrInfo DOMHTMLTableColElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementChPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementChPropertyInfo = "DOMHTMLTableColElement::ch" + attrGet _ = getDOMHTMLTableColElementCh + attrSet _ = setDOMHTMLTableColElementCh + attrConstruct _ = constructDOMHTMLTableColElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableColElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableColElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "DOMHTMLTableColElement::ch-off" + attrGet _ = getDOMHTMLTableColElementChOff + attrSet _ = setDOMHTMLTableColElementChOff + attrConstruct _ = constructDOMHTMLTableColElementChOff + +-- VVV Prop "span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m Int64 +getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyInt64 obj "span" + +setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> Int64 -> m () +setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyInt64 obj "span" val + +constructDOMHTMLTableColElementSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableColElementSpan val = constructObjectPropertyInt64 "span" val + +data DOMHTMLTableColElementSpanPropertyInfo +instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "DOMHTMLTableColElement::span" + attrGet _ = getDOMHTMLTableColElementSpan + attrSet _ = setDOMHTMLTableColElementSpan + attrConstruct _ = constructDOMHTMLTableColElementSpan + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableColElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableColElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "DOMHTMLTableColElement::v-align" + attrGet _ = getDOMHTMLTableColElementVAlign + attrSet _ = setDOMHTMLTableColElementVAlign + attrConstruct _ = constructDOMHTMLTableColElementVAlign + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableColElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableColElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "DOMHTMLTableColElement::width" + attrGet _ = getDOMHTMLTableColElementWidth + attrSet _ = setDOMHTMLTableColElementWidth + attrConstruct _ = constructDOMHTMLTableColElementWidth + +type instance AttributeList DOMHTMLTableColElement = DOMHTMLTableColElementAttributeList +type DOMHTMLTableColElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("ch-off", DOMHTMLTableColElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableColElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableColElement = DOMHTMLTableColElementSignalList +type DOMHTMLTableColElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableColElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_align" webkit_dom_html_table_col_element_get_align :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO CString + + +dOMHTMLTableColElementGetAlign :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableColElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableColElement::get_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_ch" webkit_dom_html_table_col_element_get_ch :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO CString + + +dOMHTMLTableColElementGetCh :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableColElementGetCh _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_ch _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_ch" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableColElement::get_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_ch_off" webkit_dom_html_table_col_element_get_ch_off :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO CString + + +dOMHTMLTableColElementGetChOff :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableColElementGetChOff _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_ch_off _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_ch_off" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableColElement::get_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_span" webkit_dom_html_table_col_element_get_span :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO Int64 + + +dOMHTMLTableColElementGetSpan :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableColElementGetSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_span _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableColElement::get_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_v_align" webkit_dom_html_table_col_element_get_v_align :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO CString + + +dOMHTMLTableColElementGetVAlign :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableColElementGetVAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_v_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_v_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableColElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_get_width" webkit_dom_html_table_col_element_get_width :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + IO CString + + +dOMHTMLTableColElementGetWidth :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableColElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_col_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableColElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_align" webkit_dom_html_table_col_element_set_align :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableColElementSetAlign :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableColElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_col_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableColElement::set_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_ch" webkit_dom_html_table_col_element_set_ch :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableColElementSetCh :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableColElementSetCh _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_col_element_set_ch _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableColElement::set_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_ch_off" webkit_dom_html_table_col_element_set_ch_off :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableColElementSetChOff :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableColElementSetChOff _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_col_element_set_ch_off _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableColElement::set_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_span" webkit_dom_html_table_col_element_set_span :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTableColElementSetSpan :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTableColElementSetSpan _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_col_element_set_span _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTableColElement::set_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_v_align" webkit_dom_html_table_col_element_set_v_align :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableColElementSetVAlign :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableColElementSetVAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_col_element_set_v_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableColElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_col_element_set_width" webkit_dom_html_table_col_element_set_width :: + Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableColElementSetWidth :: + (MonadIO m, DOMHTMLTableColElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableColElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_col_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.DOMHTMLTableColElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableColElement = DOMHTMLTableColElement (ForeignPtr DOMHTMLTableColElement) +instance GObject DOMHTMLTableColElement where +class GObject o => DOMHTMLTableColElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableColElement o) => DOMHTMLTableColElementK o +data DOMHTMLTableColElementAlignPropertyInfo +data DOMHTMLTableColElementChPropertyInfo +data DOMHTMLTableColElementChOffPropertyInfo +data DOMHTMLTableColElementSpanPropertyInfo +data DOMHTMLTableColElementVAlignPropertyInfo +data DOMHTMLTableColElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableElement.hs b/GI/WebKit/Objects/DOMHTMLTableElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableElement.hs @@ -0,0 +1,1562 @@ + +{- | +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.WebKit.Objects.DOMHTMLTableElement + ( + +-- * Exported types + DOMHTMLTableElement(..) , + DOMHTMLTableElementK , + toDOMHTMLTableElement , + noDOMHTMLTableElement , + + + -- * Methods +-- ** dOMHTMLTableElementCreateCaption + dOMHTMLTableElementCreateCaption , + + +-- ** dOMHTMLTableElementCreateTBody + dOMHTMLTableElementCreateTBody , + + +-- ** dOMHTMLTableElementCreateTFoot + dOMHTMLTableElementCreateTFoot , + + +-- ** dOMHTMLTableElementCreateTHead + dOMHTMLTableElementCreateTHead , + + +-- ** dOMHTMLTableElementDeleteCaption + dOMHTMLTableElementDeleteCaption , + + +-- ** dOMHTMLTableElementDeleteRow + dOMHTMLTableElementDeleteRow , + + +-- ** dOMHTMLTableElementDeleteTFoot + dOMHTMLTableElementDeleteTFoot , + + +-- ** dOMHTMLTableElementDeleteTHead + dOMHTMLTableElementDeleteTHead , + + +-- ** dOMHTMLTableElementGetAlign + dOMHTMLTableElementGetAlign , + + +-- ** dOMHTMLTableElementGetBgColor + dOMHTMLTableElementGetBgColor , + + +-- ** dOMHTMLTableElementGetBorder + dOMHTMLTableElementGetBorder , + + +-- ** dOMHTMLTableElementGetCaption + dOMHTMLTableElementGetCaption , + + +-- ** dOMHTMLTableElementGetCellPadding + dOMHTMLTableElementGetCellPadding , + + +-- ** dOMHTMLTableElementGetCellSpacing + dOMHTMLTableElementGetCellSpacing , + + +-- ** dOMHTMLTableElementGetFrame + dOMHTMLTableElementGetFrame , + + +-- ** dOMHTMLTableElementGetRows + dOMHTMLTableElementGetRows , + + +-- ** dOMHTMLTableElementGetRules + dOMHTMLTableElementGetRules , + + +-- ** dOMHTMLTableElementGetSummary + dOMHTMLTableElementGetSummary , + + +-- ** dOMHTMLTableElementGetTBodies + dOMHTMLTableElementGetTBodies , + + +-- ** dOMHTMLTableElementGetTFoot + dOMHTMLTableElementGetTFoot , + + +-- ** dOMHTMLTableElementGetTHead + dOMHTMLTableElementGetTHead , + + +-- ** dOMHTMLTableElementGetWidth + dOMHTMLTableElementGetWidth , + + +-- ** dOMHTMLTableElementInsertRow + dOMHTMLTableElementInsertRow , + + +-- ** dOMHTMLTableElementSetAlign + dOMHTMLTableElementSetAlign , + + +-- ** dOMHTMLTableElementSetBgColor + dOMHTMLTableElementSetBgColor , + + +-- ** dOMHTMLTableElementSetBorder + dOMHTMLTableElementSetBorder , + + +-- ** dOMHTMLTableElementSetCaption + dOMHTMLTableElementSetCaption , + + +-- ** dOMHTMLTableElementSetCellPadding + dOMHTMLTableElementSetCellPadding , + + +-- ** dOMHTMLTableElementSetCellSpacing + dOMHTMLTableElementSetCellSpacing , + + +-- ** dOMHTMLTableElementSetFrame + dOMHTMLTableElementSetFrame , + + +-- ** dOMHTMLTableElementSetRules + dOMHTMLTableElementSetRules , + + +-- ** dOMHTMLTableElementSetSummary + dOMHTMLTableElementSetSummary , + + +-- ** dOMHTMLTableElementSetTFoot + dOMHTMLTableElementSetTFoot , + + +-- ** dOMHTMLTableElementSetTHead + dOMHTMLTableElementSetTHead , + + +-- ** dOMHTMLTableElementSetWidth + dOMHTMLTableElementSetWidth , + + + + + -- * Properties +-- ** Align + DOMHTMLTableElementAlignPropertyInfo , + constructDOMHTMLTableElementAlign , + getDOMHTMLTableElementAlign , + setDOMHTMLTableElementAlign , + + +-- ** BgColor + DOMHTMLTableElementBgColorPropertyInfo , + constructDOMHTMLTableElementBgColor , + getDOMHTMLTableElementBgColor , + setDOMHTMLTableElementBgColor , + + +-- ** Border + DOMHTMLTableElementBorderPropertyInfo , + constructDOMHTMLTableElementBorder , + getDOMHTMLTableElementBorder , + setDOMHTMLTableElementBorder , + + +-- ** Caption + DOMHTMLTableElementCaptionPropertyInfo , + getDOMHTMLTableElementCaption , + + +-- ** CellPadding + DOMHTMLTableElementCellPaddingPropertyInfo, + constructDOMHTMLTableElementCellPadding , + getDOMHTMLTableElementCellPadding , + setDOMHTMLTableElementCellPadding , + + +-- ** CellSpacing + DOMHTMLTableElementCellSpacingPropertyInfo, + constructDOMHTMLTableElementCellSpacing , + getDOMHTMLTableElementCellSpacing , + setDOMHTMLTableElementCellSpacing , + + +-- ** Frame + DOMHTMLTableElementFramePropertyInfo , + constructDOMHTMLTableElementFrame , + getDOMHTMLTableElementFrame , + setDOMHTMLTableElementFrame , + + +-- ** Rows + DOMHTMLTableElementRowsPropertyInfo , + getDOMHTMLTableElementRows , + + +-- ** Rules + DOMHTMLTableElementRulesPropertyInfo , + constructDOMHTMLTableElementRules , + getDOMHTMLTableElementRules , + setDOMHTMLTableElementRules , + + +-- ** Summary + DOMHTMLTableElementSummaryPropertyInfo , + constructDOMHTMLTableElementSummary , + getDOMHTMLTableElementSummary , + setDOMHTMLTableElementSummary , + + +-- ** TBodies + DOMHTMLTableElementTBodiesPropertyInfo , + getDOMHTMLTableElementTBodies , + + +-- ** TFoot + DOMHTMLTableElementTFootPropertyInfo , + getDOMHTMLTableElementTFoot , + + +-- ** THead + DOMHTMLTableElementTHeadPropertyInfo , + getDOMHTMLTableElementTHead , + + +-- ** Width + DOMHTMLTableElementWidthPropertyInfo , + constructDOMHTMLTableElementWidth , + getDOMHTMLTableElementWidth , + setDOMHTMLTableElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableElement = DOMHTMLTableElement (ForeignPtr DOMHTMLTableElement) +foreign import ccall "webkit_dom_html_table_element_get_type" + c_webkit_dom_html_table_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableElement = DOMHTMLTableElementParentTypes +type DOMHTMLTableElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_element_get_type + + +class GObject o => DOMHTMLTableElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableElement o) => DOMHTMLTableElementK o + +toDOMHTMLTableElement :: DOMHTMLTableElementK o => o -> IO DOMHTMLTableElement +toDOMHTMLTableElement = unsafeCastTo DOMHTMLTableElement + +noDOMHTMLTableElement :: Maybe DOMHTMLTableElement +noDOMHTMLTableElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementAlignPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "DOMHTMLTableElement::align" + attrGet _ = getDOMHTMLTableElementAlign + attrSet _ = setDOMHTMLTableElementAlign + attrConstruct _ = constructDOMHTMLTableElementAlign + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "DOMHTMLTableElement::bg-color" + attrGet _ = getDOMHTMLTableElementBgColor + attrSet _ = setDOMHTMLTableElementBgColor + attrConstruct _ = constructDOMHTMLTableElementBgColor + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLTableElementBorderPropertyInfo +instance AttrInfo DOMHTMLTableElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementBorderPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "DOMHTMLTableElement::border" + attrGet _ = getDOMHTMLTableElementBorder + attrSet _ = setDOMHTMLTableElementBorder + attrConstruct _ = constructDOMHTMLTableElementBorder + +-- VVV Prop "caption" + -- Type: TInterface "WebKit" "DOMHTMLTableCaptionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement +getDOMHTMLTableElementCaption obj = liftIO $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement + +data DOMHTMLTableElementCaptionPropertyInfo +instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement + type AttrLabel DOMHTMLTableElementCaptionPropertyInfo = "DOMHTMLTableElement::caption" + attrGet _ = getDOMHTMLTableElementCaption + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cell-padding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellPadding obj = liftIO $ getObjectPropertyString obj "cell-padding" + +setDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" val + +constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" val + +data DOMHTMLTableElementCellPaddingPropertyInfo +instance AttrInfo DOMHTMLTableElementCellPaddingPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCellPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "DOMHTMLTableElement::cell-padding" + attrGet _ = getDOMHTMLTableElementCellPadding + attrSet _ = setDOMHTMLTableElementCellPadding + attrConstruct _ = constructDOMHTMLTableElementCellPadding + +-- VVV Prop "cell-spacing" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellSpacing obj = liftIO $ getObjectPropertyString obj "cell-spacing" + +setDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" val + +constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" val + +data DOMHTMLTableElementCellSpacingPropertyInfo +instance AttrInfo DOMHTMLTableElementCellSpacingPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCellSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "DOMHTMLTableElement::cell-spacing" + attrGet _ = getDOMHTMLTableElementCellSpacing + attrSet _ = setDOMHTMLTableElementCellSpacing + attrConstruct _ = constructDOMHTMLTableElementCellSpacing + +-- VVV Prop "frame" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame" + +setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" val + +constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" val + +data DOMHTMLTableElementFramePropertyInfo +instance AttrInfo DOMHTMLTableElementFramePropertyInfo where + type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementFramePropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementFramePropertyInfo = "DOMHTMLTableElement::frame" + attrGet _ = getDOMHTMLTableElementFrame + attrSet _ = setDOMHTMLTableElementFrame + attrConstruct _ = constructDOMHTMLTableElementFrame + +-- VVV Prop "rows" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection + +data DOMHTMLTableElementRowsPropertyInfo +instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementRowsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "DOMHTMLTableElement::rows" + attrGet _ = getDOMHTMLTableElementRows + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "rules" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules" + +setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" val + +constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" val + +data DOMHTMLTableElementRulesPropertyInfo +instance AttrInfo DOMHTMLTableElementRulesPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementRulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementRulesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementRulesPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementRulesPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "DOMHTMLTableElement::rules" + attrGet _ = getDOMHTMLTableElementRules + attrSet _ = setDOMHTMLTableElementRules + attrConstruct _ = constructDOMHTMLTableElementRules + +-- VVV Prop "summary" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary" + +setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" val + +constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" val + +data DOMHTMLTableElementSummaryPropertyInfo +instance AttrInfo DOMHTMLTableElementSummaryPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "DOMHTMLTableElement::summary" + attrGet _ = getDOMHTMLTableElementSummary + attrSet _ = setDOMHTMLTableElementSummary + attrConstruct _ = constructDOMHTMLTableElementSummary + +-- VVV Prop "t-bodies" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection + +data DOMHTMLTableElementTBodiesPropertyInfo +instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "DOMHTMLTableElement::t-bodies" + attrGet _ = getDOMHTMLTableElementTBodies + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "t-foot" + -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement +getDOMHTMLTableElementTFoot obj = liftIO $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement + +data DOMHTMLTableElementTFootPropertyInfo +instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement + type AttrLabel DOMHTMLTableElementTFootPropertyInfo = "DOMHTMLTableElement::t-foot" + attrGet _ = getDOMHTMLTableElementTFoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "t-head" + -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement +getDOMHTMLTableElementTHead obj = liftIO $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement + +data DOMHTMLTableElementTHeadPropertyInfo +instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement + type AttrLabel DOMHTMLTableElementTHeadPropertyInfo = "DOMHTMLTableElement::t-head" + attrGet _ = getDOMHTMLTableElementTHead + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementWidthPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "DOMHTMLTableElement::width" + attrGet _ = getDOMHTMLTableElementWidth + attrSet _ = setDOMHTMLTableElementWidth + attrConstruct _ = constructDOMHTMLTableElementWidth + +type instance AttributeList DOMHTMLTableElement = DOMHTMLTableElementAttributeList +type DOMHTMLTableElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cell-padding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cell-spacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("t-bodies", DOMHTMLTableElementTBodiesPropertyInfo), '("t-foot", DOMHTMLTableElementTFootPropertyInfo), '("t-head", DOMHTMLTableElementTHeadPropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableElement = DOMHTMLTableElementSignalList +type DOMHTMLTableElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableElement::create_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_create_caption" webkit_dom_html_table_element_create_caption :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableElementCreateCaption :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLTableElementCreateCaption _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_create_caption _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_caption" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::create_t_body +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_create_t_body" webkit_dom_html_table_element_create_t_body :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableElementCreateTBody :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLTableElementCreateTBody _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_create_t_body _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_t_body" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::create_t_foot +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_create_t_foot" webkit_dom_html_table_element_create_t_foot :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableElementCreateTFoot :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLTableElementCreateTFoot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_create_t_foot _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_t_foot" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::create_t_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_create_t_head" webkit_dom_html_table_element_create_t_head :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableElementCreateTHead :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLElement +dOMHTMLTableElementCreateTHead _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_create_t_head _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_t_head" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::delete_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_delete_caption" webkit_dom_html_table_element_delete_caption :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO () + + +dOMHTMLTableElementDeleteCaption :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m () +dOMHTMLTableElementDeleteCaption _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_element_delete_caption _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLTableElement::delete_row +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_delete_row" webkit_dom_html_table_element_delete_row :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableElementDeleteRow :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + Int64 -> -- index + m () +dOMHTMLTableElementDeleteRow _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_table_element_delete_row _obj' index + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLTableElement::delete_t_foot +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_delete_t_foot" webkit_dom_html_table_element_delete_t_foot :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO () + + +dOMHTMLTableElementDeleteTFoot :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m () +dOMHTMLTableElementDeleteTFoot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_element_delete_t_foot _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLTableElement::delete_t_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_delete_t_head" webkit_dom_html_table_element_delete_t_head :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO () + + +dOMHTMLTableElementDeleteTHead :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m () +dOMHTMLTableElementDeleteTHead _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_table_element_delete_t_head _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLTableElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_align" webkit_dom_html_table_element_get_align :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetAlign :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_bg_color" webkit_dom_html_table_element_get_bg_color :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetBgColor :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_border" webkit_dom_html_table_element_get_border :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetBorder :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_border _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_border" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLTableCaptionElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_caption" webkit_dom_html_table_element_get_caption :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLTableCaptionElement) + + +dOMHTMLTableElementGetCaption :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLTableCaptionElement +dOMHTMLTableElementGetCaption _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_caption _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_caption" result + result' <- (newObject DOMHTMLTableCaptionElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_cell_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_cell_padding" webkit_dom_html_table_element_get_cell_padding :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetCellPadding :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetCellPadding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_cell_padding _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_cell_padding" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_cell_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_cell_spacing" webkit_dom_html_table_element_get_cell_spacing :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetCellSpacing :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetCellSpacing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_cell_spacing _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_cell_spacing" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_frame" webkit_dom_html_table_element_get_frame :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetFrame :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_frame _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_frame" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_rows" webkit_dom_html_table_element_get_rows :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLTableElementGetRows :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLTableElementGetRows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_rows _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_rows" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_rules +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_rules" webkit_dom_html_table_element_get_rules :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetRules :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetRules _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_rules _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_rules" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_summary" webkit_dom_html_table_element_get_summary :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetSummary :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetSummary _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_summary _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_summary" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_t_bodies +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_t_bodies" webkit_dom_html_table_element_get_t_bodies :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLTableElementGetTBodies :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLTableElementGetTBodies _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_t_bodies _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_bodies" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_t_foot +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_t_foot" webkit_dom_html_table_element_get_t_foot :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLTableSectionElement) + + +dOMHTMLTableElementGetTFoot :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLTableSectionElement +dOMHTMLTableElementGetTFoot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_t_foot _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_foot" result + result' <- (newObject DOMHTMLTableSectionElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_t_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_t_head" webkit_dom_html_table_element_get_t_head :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO (Ptr DOMHTMLTableSectionElement) + + +dOMHTMLTableElementGetTHead :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m DOMHTMLTableSectionElement +dOMHTMLTableElementGetTHead _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_t_head _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_head" result + result' <- (newObject DOMHTMLTableSectionElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_get_width" webkit_dom_html_table_element_get_width :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + IO CString + + +dOMHTMLTableElementGetWidth :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_element_get_width _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_width" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableElement::insert_row +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_insert_row" webkit_dom_html_table_element_insert_row :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableElementInsertRow :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + Int64 -> -- index + m DOMHTMLElement +dOMHTMLTableElementInsertRow _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_html_table_element_insert_row _obj' index + checkUnexpectedReturnNULL "webkit_dom_html_table_element_insert_row" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMHTMLTableElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_align" webkit_dom_html_table_element_set_align :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetAlign :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_bg_color" webkit_dom_html_table_element_set_bg_color :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetBgColor :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_border +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_border" webkit_dom_html_table_element_set_border :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetBorder :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetBorder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_border _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_caption" webkit_dom_html_table_element_set_caption :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + Ptr DOMHTMLTableCaptionElement -> -- value : TInterface "WebKit" "DOMHTMLTableCaptionElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableElementSetCaption :: + (MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableCaptionElementK b) => + a -> -- _obj + b -> -- value + m () +dOMHTMLTableElementSetCaption _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + onException (do + propagateGError $ webkit_dom_html_table_element_set_caption _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + ) (do + return () + ) + +-- method DOMHTMLTableElement::set_cell_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_cell_padding" webkit_dom_html_table_element_set_cell_padding :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetCellPadding :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetCellPadding _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_cell_padding _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_cell_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_cell_spacing" webkit_dom_html_table_element_set_cell_spacing :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetCellSpacing :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetCellSpacing _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_cell_spacing _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_frame" webkit_dom_html_table_element_set_frame :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetFrame :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetFrame _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_frame _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_rules +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_rules" webkit_dom_html_table_element_set_rules :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetRules :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetRules _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_rules _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_summary" webkit_dom_html_table_element_set_summary :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetSummary :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetSummary _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_summary _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableElement::set_t_foot +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_t_foot" webkit_dom_html_table_element_set_t_foot :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + Ptr DOMHTMLTableSectionElement -> -- value : TInterface "WebKit" "DOMHTMLTableSectionElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableElementSetTFoot :: + (MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) => + a -> -- _obj + b -> -- value + m () +dOMHTMLTableElementSetTFoot _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + onException (do + propagateGError $ webkit_dom_html_table_element_set_t_foot _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + ) (do + return () + ) + +-- method DOMHTMLTableElement::set_t_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_t_head" webkit_dom_html_table_element_set_t_head :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + Ptr DOMHTMLTableSectionElement -> -- value : TInterface "WebKit" "DOMHTMLTableSectionElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableElementSetTHead :: + (MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) => + a -> -- _obj + b -> -- value + m () +dOMHTMLTableElementSetTHead _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + onException (do + propagateGError $ webkit_dom_html_table_element_set_t_head _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + ) (do + return () + ) + +-- method DOMHTMLTableElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_element_set_width" webkit_dom_html_table_element_set_width :: + Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableElementSetWidth :: + (MonadIO m, DOMHTMLTableElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_element_set_width _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot @@ -0,0 +1,27 @@ +module GI.WebKit.Objects.DOMHTMLTableElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableElement = DOMHTMLTableElement (ForeignPtr DOMHTMLTableElement) +instance GObject DOMHTMLTableElement where +class GObject o => DOMHTMLTableElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableElement o) => DOMHTMLTableElementK o +data DOMHTMLTableElementAlignPropertyInfo +data DOMHTMLTableElementBgColorPropertyInfo +data DOMHTMLTableElementBorderPropertyInfo +data DOMHTMLTableElementCaptionPropertyInfo +data DOMHTMLTableElementCellPaddingPropertyInfo +data DOMHTMLTableElementCellSpacingPropertyInfo +data DOMHTMLTableElementFramePropertyInfo +data DOMHTMLTableElementRowsPropertyInfo +data DOMHTMLTableElementRulesPropertyInfo +data DOMHTMLTableElementSummaryPropertyInfo +data DOMHTMLTableElementTBodiesPropertyInfo +data DOMHTMLTableElementTFootPropertyInfo +data DOMHTMLTableElementTHeadPropertyInfo +data DOMHTMLTableElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs @@ -0,0 +1,761 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTableRowElement + ( + +-- * Exported types + DOMHTMLTableRowElement(..) , + DOMHTMLTableRowElementK , + toDOMHTMLTableRowElement , + noDOMHTMLTableRowElement , + + + -- * Methods +-- ** dOMHTMLTableRowElementDeleteCell + dOMHTMLTableRowElementDeleteCell , + + +-- ** dOMHTMLTableRowElementGetAlign + dOMHTMLTableRowElementGetAlign , + + +-- ** dOMHTMLTableRowElementGetBgColor + dOMHTMLTableRowElementGetBgColor , + + +-- ** dOMHTMLTableRowElementGetCells + dOMHTMLTableRowElementGetCells , + + +-- ** dOMHTMLTableRowElementGetCh + dOMHTMLTableRowElementGetCh , + + +-- ** dOMHTMLTableRowElementGetChOff + dOMHTMLTableRowElementGetChOff , + + +-- ** dOMHTMLTableRowElementGetRowIndex + dOMHTMLTableRowElementGetRowIndex , + + +-- ** dOMHTMLTableRowElementGetSectionRowIndex + dOMHTMLTableRowElementGetSectionRowIndex, + + +-- ** dOMHTMLTableRowElementGetVAlign + dOMHTMLTableRowElementGetVAlign , + + +-- ** dOMHTMLTableRowElementInsertCell + dOMHTMLTableRowElementInsertCell , + + +-- ** dOMHTMLTableRowElementSetAlign + dOMHTMLTableRowElementSetAlign , + + +-- ** dOMHTMLTableRowElementSetBgColor + dOMHTMLTableRowElementSetBgColor , + + +-- ** dOMHTMLTableRowElementSetCh + dOMHTMLTableRowElementSetCh , + + +-- ** dOMHTMLTableRowElementSetChOff + dOMHTMLTableRowElementSetChOff , + + +-- ** dOMHTMLTableRowElementSetVAlign + dOMHTMLTableRowElementSetVAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLTableRowElementAlignPropertyInfo , + constructDOMHTMLTableRowElementAlign , + getDOMHTMLTableRowElementAlign , + setDOMHTMLTableRowElementAlign , + + +-- ** BgColor + DOMHTMLTableRowElementBgColorPropertyInfo, + constructDOMHTMLTableRowElementBgColor , + getDOMHTMLTableRowElementBgColor , + setDOMHTMLTableRowElementBgColor , + + +-- ** Cells + DOMHTMLTableRowElementCellsPropertyInfo , + getDOMHTMLTableRowElementCells , + + +-- ** Ch + DOMHTMLTableRowElementChPropertyInfo , + constructDOMHTMLTableRowElementCh , + getDOMHTMLTableRowElementCh , + setDOMHTMLTableRowElementCh , + + +-- ** ChOff + DOMHTMLTableRowElementChOffPropertyInfo , + constructDOMHTMLTableRowElementChOff , + getDOMHTMLTableRowElementChOff , + setDOMHTMLTableRowElementChOff , + + +-- ** RowIndex + DOMHTMLTableRowElementRowIndexPropertyInfo, + getDOMHTMLTableRowElementRowIndex , + + +-- ** SectionRowIndex + DOMHTMLTableRowElementSectionRowIndexPropertyInfo, + getDOMHTMLTableRowElementSectionRowIndex, + + +-- ** VAlign + DOMHTMLTableRowElementVAlignPropertyInfo, + constructDOMHTMLTableRowElementVAlign , + getDOMHTMLTableRowElementVAlign , + setDOMHTMLTableRowElementVAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableRowElement = DOMHTMLTableRowElement (ForeignPtr DOMHTMLTableRowElement) +foreign import ccall "webkit_dom_html_table_row_element_get_type" + c_webkit_dom_html_table_row_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableRowElement = DOMHTMLTableRowElementParentTypes +type DOMHTMLTableRowElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableRowElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_row_element_get_type + + +class GObject o => DOMHTMLTableRowElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableRowElement o) => DOMHTMLTableRowElementK o + +toDOMHTMLTableRowElement :: DOMHTMLTableRowElementK o => o -> IO DOMHTMLTableRowElement +toDOMHTMLTableRowElement = unsafeCastTo DOMHTMLTableRowElement + +noDOMHTMLTableRowElement :: Maybe DOMHTMLTableRowElement +noDOMHTMLTableRowElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableRowElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableRowElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "DOMHTMLTableRowElement::align" + attrGet _ = getDOMHTMLTableRowElementAlign + attrSet _ = setDOMHTMLTableRowElementAlign + attrConstruct _ = constructDOMHTMLTableRowElementAlign + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableRowElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableRowElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "DOMHTMLTableRowElement::bg-color" + attrGet _ = getDOMHTMLTableRowElementBgColor + attrSet _ = setDOMHTMLTableRowElementBgColor + attrConstruct _ = constructDOMHTMLTableRowElementBgColor + +-- VVV Prop "cells" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection + +data DOMHTMLTableRowElementCellsPropertyInfo +instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "DOMHTMLTableRowElement::cells" + attrGet _ = getDOMHTMLTableRowElementCells + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableRowElementChPropertyInfo +instance AttrInfo DOMHTMLTableRowElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementChPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "DOMHTMLTableRowElement::ch" + attrGet _ = getDOMHTMLTableRowElementCh + attrSet _ = setDOMHTMLTableRowElementCh + attrConstruct _ = constructDOMHTMLTableRowElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableRowElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableRowElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "DOMHTMLTableRowElement::ch-off" + attrGet _ = getDOMHTMLTableRowElementChOff + attrSet _ = setDOMHTMLTableRowElementChOff + attrConstruct _ = constructDOMHTMLTableRowElementChOff + +-- VVV Prop "row-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 +getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyInt64 obj "row-index" + +data DOMHTMLTableRowElementRowIndexPropertyInfo +instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "DOMHTMLTableRowElement::row-index" + attrGet _ = getDOMHTMLTableRowElementRowIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "section-row-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 +getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyInt64 obj "section-row-index" + +data DOMHTMLTableRowElementSectionRowIndexPropertyInfo +instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "DOMHTMLTableRowElement::section-row-index" + attrGet _ = getDOMHTMLTableRowElementSectionRowIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableRowElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableRowElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "DOMHTMLTableRowElement::v-align" + attrGet _ = getDOMHTMLTableRowElementVAlign + attrSet _ = setDOMHTMLTableRowElementVAlign + attrConstruct _ = constructDOMHTMLTableRowElementVAlign + +type instance AttributeList DOMHTMLTableRowElement = DOMHTMLTableRowElementAttributeList +type DOMHTMLTableRowElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("ch-off", DOMHTMLTableRowElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-index", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("section-row-index", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableRowElement = DOMHTMLTableRowElementSignalList +type DOMHTMLTableRowElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableRowElement::delete_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_delete_cell" webkit_dom_html_table_row_element_delete_cell :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableRowElementDeleteCell :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + Int64 -> -- index + m () +dOMHTMLTableRowElementDeleteCell _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_table_row_element_delete_cell _obj' index + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLTableRowElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_align" webkit_dom_html_table_row_element_get_align :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO CString + + +dOMHTMLTableRowElementGetAlign :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableRowElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::get_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_bg_color" webkit_dom_html_table_row_element_get_bg_color :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO CString + + +dOMHTMLTableRowElementGetBgColor :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableRowElementGetBgColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_bg_color _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_bg_color" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::get_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_cells" webkit_dom_html_table_row_element_get_cells :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLTableRowElementGetCells :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLTableRowElementGetCells _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_cells _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_cells" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::get_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_ch" webkit_dom_html_table_row_element_get_ch :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO CString + + +dOMHTMLTableRowElementGetCh :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableRowElementGetCh _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_ch _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_ch" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::get_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_ch_off" webkit_dom_html_table_row_element_get_ch_off :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO CString + + +dOMHTMLTableRowElementGetChOff :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableRowElementGetChOff _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_ch_off _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_ch_off" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::get_row_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_row_index" webkit_dom_html_table_row_element_get_row_index :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO Int64 + + +dOMHTMLTableRowElementGetRowIndex :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableRowElementGetRowIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_row_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableRowElement::get_section_row_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_section_row_index" webkit_dom_html_table_row_element_get_section_row_index :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO Int64 + + +dOMHTMLTableRowElementGetSectionRowIndex :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTableRowElementGetSectionRowIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_section_row_index _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTableRowElement::get_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_get_v_align" webkit_dom_html_table_row_element_get_v_align :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + IO CString + + +dOMHTMLTableRowElementGetVAlign :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableRowElementGetVAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_row_element_get_v_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_v_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableRowElement::insert_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_insert_cell" webkit_dom_html_table_row_element_insert_cell :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableRowElementInsertCell :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + Int64 -> -- index + m DOMHTMLElement +dOMHTMLTableRowElementInsertCell _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_html_table_row_element_insert_cell _obj' index + checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_insert_cell" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMHTMLTableRowElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_set_align" webkit_dom_html_table_row_element_set_align :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableRowElementSetAlign :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableRowElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_row_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableRowElement::set_bg_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_set_bg_color" webkit_dom_html_table_row_element_set_bg_color :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableRowElementSetBgColor :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableRowElementSetBgColor _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_row_element_set_bg_color _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableRowElement::set_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_set_ch" webkit_dom_html_table_row_element_set_ch :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableRowElementSetCh :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableRowElementSetCh _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_row_element_set_ch _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableRowElement::set_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_set_ch_off" webkit_dom_html_table_row_element_set_ch_off :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableRowElementSetChOff :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableRowElementSetChOff _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_row_element_set_ch_off _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableRowElement::set_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_row_element_set_v_align" webkit_dom_html_table_row_element_set_v_align :: + Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableRowElementSetVAlign :: + (MonadIO m, DOMHTMLTableRowElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableRowElementSetVAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_row_element_set_v_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.DOMHTMLTableRowElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableRowElement = DOMHTMLTableRowElement (ForeignPtr DOMHTMLTableRowElement) +instance GObject DOMHTMLTableRowElement where +class GObject o => DOMHTMLTableRowElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableRowElement o) => DOMHTMLTableRowElementK o +data DOMHTMLTableRowElementAlignPropertyInfo +data DOMHTMLTableRowElementBgColorPropertyInfo +data DOMHTMLTableRowElementCellsPropertyInfo +data DOMHTMLTableRowElementChPropertyInfo +data DOMHTMLTableRowElementChOffPropertyInfo +data DOMHTMLTableRowElementRowIndexPropertyInfo +data DOMHTMLTableRowElementSectionRowIndexPropertyInfo +data DOMHTMLTableRowElementVAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs @@ -0,0 +1,565 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTableSectionElement + ( + +-- * Exported types + DOMHTMLTableSectionElement(..) , + DOMHTMLTableSectionElementK , + toDOMHTMLTableSectionElement , + noDOMHTMLTableSectionElement , + + + -- * Methods +-- ** dOMHTMLTableSectionElementDeleteRow + dOMHTMLTableSectionElementDeleteRow , + + +-- ** dOMHTMLTableSectionElementGetAlign + dOMHTMLTableSectionElementGetAlign , + + +-- ** dOMHTMLTableSectionElementGetCh + dOMHTMLTableSectionElementGetCh , + + +-- ** dOMHTMLTableSectionElementGetChOff + dOMHTMLTableSectionElementGetChOff , + + +-- ** dOMHTMLTableSectionElementGetRows + dOMHTMLTableSectionElementGetRows , + + +-- ** dOMHTMLTableSectionElementGetVAlign + dOMHTMLTableSectionElementGetVAlign , + + +-- ** dOMHTMLTableSectionElementInsertRow + dOMHTMLTableSectionElementInsertRow , + + +-- ** dOMHTMLTableSectionElementSetAlign + dOMHTMLTableSectionElementSetAlign , + + +-- ** dOMHTMLTableSectionElementSetCh + dOMHTMLTableSectionElementSetCh , + + +-- ** dOMHTMLTableSectionElementSetChOff + dOMHTMLTableSectionElementSetChOff , + + +-- ** dOMHTMLTableSectionElementSetVAlign + dOMHTMLTableSectionElementSetVAlign , + + + + + -- * Properties +-- ** Align + DOMHTMLTableSectionElementAlignPropertyInfo, + constructDOMHTMLTableSectionElementAlign, + getDOMHTMLTableSectionElementAlign , + setDOMHTMLTableSectionElementAlign , + + +-- ** Ch + DOMHTMLTableSectionElementChPropertyInfo, + constructDOMHTMLTableSectionElementCh , + getDOMHTMLTableSectionElementCh , + setDOMHTMLTableSectionElementCh , + + +-- ** ChOff + DOMHTMLTableSectionElementChOffPropertyInfo, + constructDOMHTMLTableSectionElementChOff, + getDOMHTMLTableSectionElementChOff , + setDOMHTMLTableSectionElementChOff , + + +-- ** Rows + DOMHTMLTableSectionElementRowsPropertyInfo, + getDOMHTMLTableSectionElementRows , + + +-- ** VAlign + DOMHTMLTableSectionElementVAlignPropertyInfo, + constructDOMHTMLTableSectionElementVAlign, + getDOMHTMLTableSectionElementVAlign , + setDOMHTMLTableSectionElementVAlign , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement) +foreign import ccall "webkit_dom_html_table_section_element_get_type" + c_webkit_dom_html_table_section_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTableSectionElement = DOMHTMLTableSectionElementParentTypes +type DOMHTMLTableSectionElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTableSectionElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_table_section_element_get_type + + +class GObject o => DOMHTMLTableSectionElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableSectionElement o) => DOMHTMLTableSectionElementK o + +toDOMHTMLTableSectionElement :: DOMHTMLTableSectionElementK o => o -> IO DOMHTMLTableSectionElement +toDOMHTMLTableSectionElement = unsafeCastTo DOMHTMLTableSectionElement + +noDOMHTMLTableSectionElement :: Maybe DOMHTMLTableSectionElement +noDOMHTMLTableSectionElement = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableSectionElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "DOMHTMLTableSectionElement::align" + attrGet _ = getDOMHTMLTableSectionElementAlign + attrSet _ = setDOMHTMLTableSectionElementAlign + attrConstruct _ = constructDOMHTMLTableSectionElementAlign + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableSectionElementChPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "DOMHTMLTableSectionElement::ch" + attrGet _ = getDOMHTMLTableSectionElementCh + attrSet _ = setDOMHTMLTableSectionElementCh + attrConstruct _ = constructDOMHTMLTableSectionElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableSectionElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "DOMHTMLTableSectionElement::ch-off" + attrGet _ = getDOMHTMLTableSectionElementChOff + attrSet _ = setDOMHTMLTableSectionElementChOff + attrConstruct _ = constructDOMHTMLTableSectionElementChOff + +-- VVV Prop "rows" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection + +data DOMHTMLTableSectionElementRowsPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "DOMHTMLTableSectionElement::rows" + attrGet _ = getDOMHTMLTableSectionElementRows + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableSectionElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "DOMHTMLTableSectionElement::v-align" + attrGet _ = getDOMHTMLTableSectionElementVAlign + attrSet _ = setDOMHTMLTableSectionElementVAlign + attrConstruct _ = constructDOMHTMLTableSectionElementVAlign + +type instance AttributeList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementAttributeList +type DOMHTMLTableSectionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("ch-off", DOMHTMLTableSectionElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementSignalList +type DOMHTMLTableSectionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTableSectionElement::delete_row +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_delete_row" webkit_dom_html_table_section_element_delete_row :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTableSectionElementDeleteRow :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + Int64 -> -- index + m () +dOMHTMLTableSectionElementDeleteRow _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_table_section_element_delete_row _obj' index + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLTableSectionElement::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_get_align" webkit_dom_html_table_section_element_get_align :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + IO CString + + +dOMHTMLTableSectionElementGetAlign :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableSectionElementGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_section_element_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableSectionElement::get_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_get_ch" webkit_dom_html_table_section_element_get_ch :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + IO CString + + +dOMHTMLTableSectionElementGetCh :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableSectionElementGetCh _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_section_element_get_ch _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableSectionElement::get_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_get_ch_off" webkit_dom_html_table_section_element_get_ch_off :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + IO CString + + +dOMHTMLTableSectionElementGetChOff :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableSectionElementGetChOff _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_section_element_get_ch_off _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch_off" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableSectionElement::get_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_get_rows" webkit_dom_html_table_section_element_get_rows :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + IO (Ptr DOMHTMLCollection) + + +dOMHTMLTableSectionElementGetRows :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + m DOMHTMLCollection +dOMHTMLTableSectionElementGetRows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_section_element_get_rows _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_rows" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableSectionElement::get_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_get_v_align" webkit_dom_html_table_section_element_get_v_align :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + IO CString + + +dOMHTMLTableSectionElementGetVAlign :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTableSectionElementGetVAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_table_section_element_get_v_align _obj' + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_v_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTableSectionElement::insert_row +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLElement" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_insert_row" webkit_dom_html_table_section_element_insert_row :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + Int64 -> -- index : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMHTMLElement) + + +dOMHTMLTableSectionElementInsertRow :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + Int64 -> -- index + m DOMHTMLElement +dOMHTMLTableSectionElementInsertRow _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_html_table_section_element_insert_row _obj' index + checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_insert_row" result + result' <- (newObject DOMHTMLElement) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMHTMLTableSectionElement::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_set_align" webkit_dom_html_table_section_element_set_align :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableSectionElementSetAlign :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableSectionElementSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_section_element_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableSectionElement::set_ch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_set_ch" webkit_dom_html_table_section_element_set_ch :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableSectionElementSetCh :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableSectionElementSetCh _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_section_element_set_ch _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableSectionElement::set_ch_off +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_set_ch_off" webkit_dom_html_table_section_element_set_ch_off :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableSectionElementSetChOff :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableSectionElementSetChOff _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_section_element_set_ch_off _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTableSectionElement::set_v_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_table_section_element_set_v_align" webkit_dom_html_table_section_element_set_v_align :: + Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTableSectionElementSetVAlign :: + (MonadIO m, DOMHTMLTableSectionElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTableSectionElementSetVAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_table_section_element_set_v_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMHTMLTableSectionElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement) +instance GObject DOMHTMLTableSectionElement where +class GObject o => DOMHTMLTableSectionElementK o +instance (GObject o, IsDescendantOf DOMHTMLTableSectionElement o) => DOMHTMLTableSectionElementK o +data DOMHTMLTableSectionElementAlignPropertyInfo +data DOMHTMLTableSectionElementChPropertyInfo +data DOMHTMLTableSectionElementChOffPropertyInfo +data DOMHTMLTableSectionElementRowsPropertyInfo +data DOMHTMLTableSectionElementVAlignPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs @@ -0,0 +1,2260 @@ + +{- | +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.WebKit.Objects.DOMHTMLTextAreaElement + ( + +-- * Exported types + DOMHTMLTextAreaElement(..) , + DOMHTMLTextAreaElementK , + toDOMHTMLTextAreaElement , + noDOMHTMLTextAreaElement , + + + -- * Methods +-- ** dOMHTMLTextAreaElementCheckValidity + dOMHTMLTextAreaElementCheckValidity , + + +-- ** dOMHTMLTextAreaElementGetAutocapitalize + dOMHTMLTextAreaElementGetAutocapitalize , + + +-- ** dOMHTMLTextAreaElementGetAutocorrect + dOMHTMLTextAreaElementGetAutocorrect , + + +-- ** dOMHTMLTextAreaElementGetAutofocus + dOMHTMLTextAreaElementGetAutofocus , + + +-- ** dOMHTMLTextAreaElementGetCols + dOMHTMLTextAreaElementGetCols , + + +-- ** dOMHTMLTextAreaElementGetDefaultValue + dOMHTMLTextAreaElementGetDefaultValue , + + +-- ** dOMHTMLTextAreaElementGetDirName + dOMHTMLTextAreaElementGetDirName , + + +-- ** dOMHTMLTextAreaElementGetDisabled + dOMHTMLTextAreaElementGetDisabled , + + +-- ** dOMHTMLTextAreaElementGetForm + dOMHTMLTextAreaElementGetForm , + + +-- ** dOMHTMLTextAreaElementGetLabels + dOMHTMLTextAreaElementGetLabels , + + +-- ** dOMHTMLTextAreaElementGetMaxLength + dOMHTMLTextAreaElementGetMaxLength , + + +-- ** dOMHTMLTextAreaElementGetName + dOMHTMLTextAreaElementGetName , + + +-- ** dOMHTMLTextAreaElementGetPlaceholder + dOMHTMLTextAreaElementGetPlaceholder , + + +-- ** dOMHTMLTextAreaElementGetReadOnly + dOMHTMLTextAreaElementGetReadOnly , + + +-- ** dOMHTMLTextAreaElementGetRequired + dOMHTMLTextAreaElementGetRequired , + + +-- ** dOMHTMLTextAreaElementGetRows + dOMHTMLTextAreaElementGetRows , + + +-- ** dOMHTMLTextAreaElementGetSelectionDirection + dOMHTMLTextAreaElementGetSelectionDirection, + + +-- ** dOMHTMLTextAreaElementGetSelectionEnd + dOMHTMLTextAreaElementGetSelectionEnd , + + +-- ** dOMHTMLTextAreaElementGetSelectionStart + dOMHTMLTextAreaElementGetSelectionStart , + + +-- ** dOMHTMLTextAreaElementGetTextLength + dOMHTMLTextAreaElementGetTextLength , + + +-- ** dOMHTMLTextAreaElementGetValidationMessage + dOMHTMLTextAreaElementGetValidationMessage, + + +-- ** dOMHTMLTextAreaElementGetValidity + dOMHTMLTextAreaElementGetValidity , + + +-- ** dOMHTMLTextAreaElementGetValue + dOMHTMLTextAreaElementGetValue , + + +-- ** dOMHTMLTextAreaElementGetWillValidate + dOMHTMLTextAreaElementGetWillValidate , + + +-- ** dOMHTMLTextAreaElementGetWrap + dOMHTMLTextAreaElementGetWrap , + + +-- ** dOMHTMLTextAreaElementIsEdited + dOMHTMLTextAreaElementIsEdited , + + +-- ** dOMHTMLTextAreaElementSelect + dOMHTMLTextAreaElementSelect , + + +-- ** dOMHTMLTextAreaElementSetAutocapitalize + dOMHTMLTextAreaElementSetAutocapitalize , + + +-- ** dOMHTMLTextAreaElementSetAutocorrect + dOMHTMLTextAreaElementSetAutocorrect , + + +-- ** dOMHTMLTextAreaElementSetAutofocus + dOMHTMLTextAreaElementSetAutofocus , + + +-- ** dOMHTMLTextAreaElementSetCols + dOMHTMLTextAreaElementSetCols , + + +-- ** dOMHTMLTextAreaElementSetCustomValidity + dOMHTMLTextAreaElementSetCustomValidity , + + +-- ** dOMHTMLTextAreaElementSetDefaultValue + dOMHTMLTextAreaElementSetDefaultValue , + + +-- ** dOMHTMLTextAreaElementSetDirName + dOMHTMLTextAreaElementSetDirName , + + +-- ** dOMHTMLTextAreaElementSetDisabled + dOMHTMLTextAreaElementSetDisabled , + + +-- ** dOMHTMLTextAreaElementSetMaxLength + dOMHTMLTextAreaElementSetMaxLength , + + +-- ** dOMHTMLTextAreaElementSetName + dOMHTMLTextAreaElementSetName , + + +-- ** dOMHTMLTextAreaElementSetPlaceholder + dOMHTMLTextAreaElementSetPlaceholder , + + +-- ** dOMHTMLTextAreaElementSetRangeText + dOMHTMLTextAreaElementSetRangeText , + + +-- ** dOMHTMLTextAreaElementSetReadOnly + dOMHTMLTextAreaElementSetReadOnly , + + +-- ** dOMHTMLTextAreaElementSetRequired + dOMHTMLTextAreaElementSetRequired , + + +-- ** dOMHTMLTextAreaElementSetRows + dOMHTMLTextAreaElementSetRows , + + +-- ** dOMHTMLTextAreaElementSetSelectionDirection + dOMHTMLTextAreaElementSetSelectionDirection, + + +-- ** dOMHTMLTextAreaElementSetSelectionEnd + dOMHTMLTextAreaElementSetSelectionEnd , + + +-- ** dOMHTMLTextAreaElementSetSelectionRange + dOMHTMLTextAreaElementSetSelectionRange , + + +-- ** dOMHTMLTextAreaElementSetSelectionStart + dOMHTMLTextAreaElementSetSelectionStart , + + +-- ** dOMHTMLTextAreaElementSetValue + dOMHTMLTextAreaElementSetValue , + + +-- ** dOMHTMLTextAreaElementSetWrap + dOMHTMLTextAreaElementSetWrap , + + + + + -- * Properties +-- ** Autocapitalize + DOMHTMLTextAreaElementAutocapitalizePropertyInfo, + constructDOMHTMLTextAreaElementAutocapitalize, + getDOMHTMLTextAreaElementAutocapitalize , + setDOMHTMLTextAreaElementAutocapitalize , + + +-- ** Autocorrect + DOMHTMLTextAreaElementAutocorrectPropertyInfo, + constructDOMHTMLTextAreaElementAutocorrect, + getDOMHTMLTextAreaElementAutocorrect , + setDOMHTMLTextAreaElementAutocorrect , + + +-- ** Autofocus + DOMHTMLTextAreaElementAutofocusPropertyInfo, + constructDOMHTMLTextAreaElementAutofocus, + getDOMHTMLTextAreaElementAutofocus , + setDOMHTMLTextAreaElementAutofocus , + + +-- ** Cols + DOMHTMLTextAreaElementColsPropertyInfo , + constructDOMHTMLTextAreaElementCols , + getDOMHTMLTextAreaElementCols , + setDOMHTMLTextAreaElementCols , + + +-- ** DefaultValue + DOMHTMLTextAreaElementDefaultValuePropertyInfo, + constructDOMHTMLTextAreaElementDefaultValue, + getDOMHTMLTextAreaElementDefaultValue , + setDOMHTMLTextAreaElementDefaultValue , + + +-- ** DirName + DOMHTMLTextAreaElementDirNamePropertyInfo, + constructDOMHTMLTextAreaElementDirName , + getDOMHTMLTextAreaElementDirName , + setDOMHTMLTextAreaElementDirName , + + +-- ** Disabled + DOMHTMLTextAreaElementDisabledPropertyInfo, + constructDOMHTMLTextAreaElementDisabled , + getDOMHTMLTextAreaElementDisabled , + setDOMHTMLTextAreaElementDisabled , + + +-- ** Form + DOMHTMLTextAreaElementFormPropertyInfo , + getDOMHTMLTextAreaElementForm , + + +-- ** Labels + DOMHTMLTextAreaElementLabelsPropertyInfo, + getDOMHTMLTextAreaElementLabels , + + +-- ** MaxLength + DOMHTMLTextAreaElementMaxLengthPropertyInfo, + constructDOMHTMLTextAreaElementMaxLength, + getDOMHTMLTextAreaElementMaxLength , + setDOMHTMLTextAreaElementMaxLength , + + +-- ** Name + DOMHTMLTextAreaElementNamePropertyInfo , + constructDOMHTMLTextAreaElementName , + getDOMHTMLTextAreaElementName , + setDOMHTMLTextAreaElementName , + + +-- ** Placeholder + DOMHTMLTextAreaElementPlaceholderPropertyInfo, + constructDOMHTMLTextAreaElementPlaceholder, + getDOMHTMLTextAreaElementPlaceholder , + setDOMHTMLTextAreaElementPlaceholder , + + +-- ** ReadOnly + DOMHTMLTextAreaElementReadOnlyPropertyInfo, + constructDOMHTMLTextAreaElementReadOnly , + getDOMHTMLTextAreaElementReadOnly , + setDOMHTMLTextAreaElementReadOnly , + + +-- ** Required + DOMHTMLTextAreaElementRequiredPropertyInfo, + constructDOMHTMLTextAreaElementRequired , + getDOMHTMLTextAreaElementRequired , + setDOMHTMLTextAreaElementRequired , + + +-- ** Rows + DOMHTMLTextAreaElementRowsPropertyInfo , + constructDOMHTMLTextAreaElementRows , + getDOMHTMLTextAreaElementRows , + setDOMHTMLTextAreaElementRows , + + +-- ** SelectionDirection + DOMHTMLTextAreaElementSelectionDirectionPropertyInfo, + constructDOMHTMLTextAreaElementSelectionDirection, + getDOMHTMLTextAreaElementSelectionDirection, + setDOMHTMLTextAreaElementSelectionDirection, + + +-- ** SelectionEnd + DOMHTMLTextAreaElementSelectionEndPropertyInfo, + constructDOMHTMLTextAreaElementSelectionEnd, + getDOMHTMLTextAreaElementSelectionEnd , + setDOMHTMLTextAreaElementSelectionEnd , + + +-- ** SelectionStart + DOMHTMLTextAreaElementSelectionStartPropertyInfo, + constructDOMHTMLTextAreaElementSelectionStart, + getDOMHTMLTextAreaElementSelectionStart , + setDOMHTMLTextAreaElementSelectionStart , + + +-- ** TextLength + DOMHTMLTextAreaElementTextLengthPropertyInfo, + getDOMHTMLTextAreaElementTextLength , + + +-- ** Type + DOMHTMLTextAreaElementTypePropertyInfo , + getDOMHTMLTextAreaElementType , + + +-- ** ValidationMessage + DOMHTMLTextAreaElementValidationMessagePropertyInfo, + getDOMHTMLTextAreaElementValidationMessage, + + +-- ** Validity + DOMHTMLTextAreaElementValidityPropertyInfo, + getDOMHTMLTextAreaElementValidity , + + +-- ** Value + DOMHTMLTextAreaElementValuePropertyInfo , + constructDOMHTMLTextAreaElementValue , + getDOMHTMLTextAreaElementValue , + setDOMHTMLTextAreaElementValue , + + +-- ** WillValidate + DOMHTMLTextAreaElementWillValidatePropertyInfo, + getDOMHTMLTextAreaElementWillValidate , + + +-- ** Wrap + DOMHTMLTextAreaElementWrapPropertyInfo , + constructDOMHTMLTextAreaElementWrap , + getDOMHTMLTextAreaElementWrap , + setDOMHTMLTextAreaElementWrap , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTextAreaElement = DOMHTMLTextAreaElement (ForeignPtr DOMHTMLTextAreaElement) +foreign import ccall "webkit_dom_html_text_area_element_get_type" + c_webkit_dom_html_text_area_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTextAreaElement = DOMHTMLTextAreaElementParentTypes +type DOMHTMLTextAreaElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTextAreaElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_text_area_element_get_type + + +class GObject o => DOMHTMLTextAreaElementK o +instance (GObject o, IsDescendantOf DOMHTMLTextAreaElement o) => DOMHTMLTextAreaElementK o + +toDOMHTMLTextAreaElement :: DOMHTMLTextAreaElementK o => o -> IO DOMHTMLTextAreaElement +toDOMHTMLTextAreaElement = unsafeCastTo DOMHTMLTextAreaElement + +noDOMHTMLTextAreaElement :: Maybe DOMHTMLTextAreaElement +noDOMHTMLTextAreaElement = Nothing + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLTextAreaElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "DOMHTMLTextAreaElement::autocapitalize" + attrGet _ = getDOMHTMLTextAreaElementAutocapitalize + attrSet _ = setDOMHTMLTextAreaElementAutocapitalize + attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLTextAreaElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLTextAreaElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementAutocorrectPropertyInfo = "DOMHTMLTextAreaElement::autocorrect" + attrGet _ = getDOMHTMLTextAreaElementAutocorrect + attrSet _ = setDOMHTMLTextAreaElementAutocorrect + attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLTextAreaElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLTextAreaElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementAutofocusPropertyInfo = "DOMHTMLTextAreaElement::autofocus" + attrGet _ = getDOMHTMLTextAreaElementAutofocus + attrSet _ = setDOMHTMLTextAreaElementAutofocus + attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus + +-- VVV Prop "cols" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyInt64 obj "cols" + +setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyInt64 obj "cols" val + +constructDOMHTMLTextAreaElementCols :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementCols val = constructObjectPropertyInt64 "cols" val + +data DOMHTMLTextAreaElementColsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "DOMHTMLTextAreaElement::cols" + attrGet _ = getDOMHTMLTextAreaElementCols + attrSet _ = setDOMHTMLTextAreaElementCols + attrConstruct _ = constructDOMHTMLTextAreaElementCols + +-- VVV Prop "default-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" + +setDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val + +constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" val + +data DOMHTMLTextAreaElementDefaultValuePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDefaultValuePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "DOMHTMLTextAreaElement::default-value" + attrGet _ = getDOMHTMLTextAreaElementDefaultValue + attrSet _ = setDOMHTMLTextAreaElementDefaultValue + attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue + +-- VVV Prop "dir-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" + +setDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val + +constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" val + +data DOMHTMLTextAreaElementDirNamePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "DOMHTMLTextAreaElement::dir-name" + attrGet _ = getDOMHTMLTextAreaElementDirName + attrSet _ = setDOMHTMLTextAreaElementDirName + attrConstruct _ = constructDOMHTMLTextAreaElementDirName + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLTextAreaElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLTextAreaElementDisabledPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementDisabledPropertyInfo = "DOMHTMLTextAreaElement::disabled" + attrGet _ = getDOMHTMLTextAreaElementDisabled + attrSet _ = setDOMHTMLTextAreaElementDisabled + attrConstruct _ = constructDOMHTMLTextAreaElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLTextAreaElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLTextAreaElementFormPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLTextAreaElementFormPropertyInfo = "DOMHTMLTextAreaElement::form" + attrGet _ = getDOMHTMLTextAreaElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMNodeList +getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLTextAreaElementLabelsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "DOMHTMLTextAreaElement::labels" + attrGet _ = getDOMHTMLTextAreaElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "max-length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" + +setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val + +constructDOMHTMLTextAreaElementMaxLength :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyInt64 "max-length" val + +data DOMHTMLTextAreaElementMaxLengthPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "DOMHTMLTextAreaElement::max-length" + attrGet _ = getDOMHTMLTextAreaElementMaxLength + attrSet _ = setDOMHTMLTextAreaElementMaxLength + attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" val + +data DOMHTMLTextAreaElementNamePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "DOMHTMLTextAreaElement::name" + attrGet _ = getDOMHTMLTextAreaElementName + attrSet _ = setDOMHTMLTextAreaElementName + attrConstruct _ = constructDOMHTMLTextAreaElementName + +-- VVV Prop "placeholder" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" + +setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val + +constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" val + +data DOMHTMLTextAreaElementPlaceholderPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "DOMHTMLTextAreaElement::placeholder" + attrGet _ = getDOMHTMLTextAreaElementPlaceholder + attrSet _ = setDOMHTMLTextAreaElementPlaceholder + attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder + +-- VVV Prop "read-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" + +setDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val + +constructDOMHTMLTextAreaElementReadOnly :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementReadOnly val = constructObjectPropertyBool "read-only" val + +data DOMHTMLTextAreaElementReadOnlyPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementReadOnlyPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementReadOnlyPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementReadOnlyPropertyInfo = "DOMHTMLTextAreaElement::read-only" + attrGet _ = getDOMHTMLTextAreaElementReadOnly + attrSet _ = setDOMHTMLTextAreaElementReadOnly + attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLTextAreaElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLTextAreaElementRequiredPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementRequiredPropertyInfo = "DOMHTMLTextAreaElement::required" + attrGet _ = getDOMHTMLTextAreaElementRequired + attrSet _ = setDOMHTMLTextAreaElementRequired + attrConstruct _ = constructDOMHTMLTextAreaElementRequired + +-- VVV Prop "rows" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyInt64 obj "rows" + +setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyInt64 obj "rows" val + +constructDOMHTMLTextAreaElementRows :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementRows val = constructObjectPropertyInt64 "rows" val + +data DOMHTMLTextAreaElementRowsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "DOMHTMLTextAreaElement::rows" + attrGet _ = getDOMHTMLTextAreaElementRows + attrSet _ = setDOMHTMLTextAreaElementRows + attrConstruct _ = constructDOMHTMLTextAreaElementRows + +-- VVV Prop "selection-direction" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ getObjectPropertyString obj "selection-direction" + +setDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" val + +constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" val + +data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "DOMHTMLTextAreaElement::selection-direction" + attrGet _ = getDOMHTMLTextAreaElementSelectionDirection + attrSet _ = setDOMHTMLTextAreaElementSelectionDirection + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection + +-- VVV Prop "selection-end" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyInt64 obj "selection-end" + +setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyInt64 obj "selection-end" val + +constructDOMHTMLTextAreaElementSelectionEnd :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyInt64 "selection-end" val + +data DOMHTMLTextAreaElementSelectionEndPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "DOMHTMLTextAreaElement::selection-end" + attrGet _ = getDOMHTMLTextAreaElementSelectionEnd + attrSet _ = setDOMHTMLTextAreaElementSelectionEnd + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd + +-- VVV Prop "selection-start" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyInt64 obj "selection-start" + +setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyInt64 obj "selection-start" val + +constructDOMHTMLTextAreaElementSelectionStart :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyInt64 "selection-start" val + +data DOMHTMLTextAreaElementSelectionStartPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "DOMHTMLTextAreaElement::selection-start" + attrGet _ = getDOMHTMLTextAreaElementSelectionStart + attrSet _ = setDOMHTMLTextAreaElementSelectionStart + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart + +-- VVV Prop "text-length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Word64 +getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyUInt64 obj "text-length" + +data DOMHTMLTextAreaElementTextLengthPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "DOMHTMLTextAreaElement::text-length" + attrGet _ = getDOMHTMLTextAreaElementTextLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLTextAreaElementTypePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "DOMHTMLTextAreaElement::type" + attrGet _ = getDOMHTMLTextAreaElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLTextAreaElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "DOMHTMLTextAreaElement::validation-message" + attrGet _ = getDOMHTMLTextAreaElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementValidity :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMValidityState +getDOMHTMLTextAreaElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLTextAreaElementValidityPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLTextAreaElementValidityPropertyInfo = "DOMHTMLTextAreaElement::validity" + attrGet _ = getDOMHTMLTextAreaElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLTextAreaElementValuePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "DOMHTMLTextAreaElement::value" + attrGet _ = getDOMHTMLTextAreaElementValue + attrSet _ = setDOMHTMLTextAreaElementValue + attrConstruct _ = constructDOMHTMLTextAreaElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementWillValidate :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLTextAreaElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementWillValidatePropertyInfo = "DOMHTMLTextAreaElement::will-validate" + attrGet _ = getDOMHTMLTextAreaElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wrap" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap" + +setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" val + +constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" val + +data DOMHTMLTextAreaElementWrapPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "DOMHTMLTextAreaElement::wrap" + attrGet _ = getDOMHTMLTextAreaElementWrap + attrSet _ = setDOMHTMLTextAreaElementWrap + attrConstruct _ = constructDOMHTMLTextAreaElementWrap + +type instance AttributeList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementAttributeList +type DOMHTMLTextAreaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-value", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max-length", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selection-direction", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selection-end", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selection-start", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-length", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validation-message", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("validity", DOMHTMLTextAreaElementValidityPropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementSignalList +type DOMHTMLTextAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTextAreaElement::check_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_check_validity" webkit_dom_html_text_area_element_check_validity :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementCheckValidity :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementCheckValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_check_validity _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_autocapitalize" webkit_dom_html_text_area_element_get_autocapitalize :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetAutocapitalize :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetAutocapitalize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_autocapitalize _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_autocapitalize" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_autocorrect" webkit_dom_html_text_area_element_get_autocorrect :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetAutocorrect :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetAutocorrect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_autocorrect _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_autofocus" webkit_dom_html_text_area_element_get_autofocus :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetAutofocus :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetAutofocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_autofocus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_cols +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_cols" webkit_dom_html_text_area_element_get_cols :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Int64 + + +dOMHTMLTextAreaElementGetCols :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTextAreaElementGetCols _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_cols _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_default_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_default_value" webkit_dom_html_text_area_element_get_default_value :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetDefaultValue :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetDefaultValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_default_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_default_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_dir_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_dir_name" webkit_dom_html_text_area_element_get_dir_name :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetDirName :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetDirName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_dir_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_dir_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_disabled" webkit_dom_html_text_area_element_get_disabled :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetDisabled :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_form" webkit_dom_html_text_area_element_get_form :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO (Ptr DOMHTMLFormElement) + + +dOMHTMLTextAreaElementGetForm :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m DOMHTMLFormElement +dOMHTMLTextAreaElementGetForm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_form _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_form" result + result' <- (newObject DOMHTMLFormElement) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_labels" webkit_dom_html_text_area_element_get_labels :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO (Ptr DOMNodeList) + + +dOMHTMLTextAreaElementGetLabels :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m DOMNodeList +dOMHTMLTextAreaElementGetLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_labels _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_labels" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_max_length" webkit_dom_html_text_area_element_get_max_length :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Int64 + + +dOMHTMLTextAreaElementGetMaxLength :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTextAreaElementGetMaxLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_max_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_name" webkit_dom_html_text_area_element_get_name :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetName :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_placeholder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_placeholder" webkit_dom_html_text_area_element_get_placeholder :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetPlaceholder :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetPlaceholder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_placeholder _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_placeholder" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_read_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_read_only" webkit_dom_html_text_area_element_get_read_only :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetReadOnly :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetReadOnly _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_read_only _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_required" webkit_dom_html_text_area_element_get_required :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetRequired :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetRequired _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_required _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_rows" webkit_dom_html_text_area_element_get_rows :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Int64 + + +dOMHTMLTextAreaElementGetRows :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTextAreaElementGetRows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_rows _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_selection_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_selection_direction" webkit_dom_html_text_area_element_get_selection_direction :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetSelectionDirection :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetSelectionDirection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_selection_direction _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_selection_direction" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_selection_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_selection_end" webkit_dom_html_text_area_element_get_selection_end :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Int64 + + +dOMHTMLTextAreaElementGetSelectionEnd :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTextAreaElementGetSelectionEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_selection_end _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_selection_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_selection_start" webkit_dom_html_text_area_element_get_selection_start :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Int64 + + +dOMHTMLTextAreaElementGetSelectionStart :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Int64 +dOMHTMLTextAreaElementGetSelectionStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_selection_start _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_text_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_text_length" webkit_dom_html_text_area_element_get_text_length :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO Word64 + + +dOMHTMLTextAreaElementGetTextLength :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Word64 +dOMHTMLTextAreaElementGetTextLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_text_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLTextAreaElement::get_validation_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_validation_message" webkit_dom_html_text_area_element_get_validation_message :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetValidationMessage :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetValidationMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_validation_message _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_validation_message" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMValidityState" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_validity" webkit_dom_html_text_area_element_get_validity :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO (Ptr DOMValidityState) + + +dOMHTMLTextAreaElementGetValidity :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m DOMValidityState +dOMHTMLTextAreaElementGetValidity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_validity _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_validity" result + result' <- (wrapObject DOMValidityState) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_value" webkit_dom_html_text_area_element_get_value :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetValue :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_value _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_will_validate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_will_validate" webkit_dom_html_text_area_element_get_will_validate :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementGetWillValidate :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementGetWillValidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_will_validate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::get_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_get_wrap" webkit_dom_html_text_area_element_get_wrap :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CString + + +dOMHTMLTextAreaElementGetWrap :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTextAreaElementGetWrap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_get_wrap _obj' + checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_wrap" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::is_edited +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_is_edited" webkit_dom_html_text_area_element_is_edited :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO CInt + + +dOMHTMLTextAreaElementIsEdited :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m Bool +dOMHTMLTextAreaElementIsEdited _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_text_area_element_is_edited _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTextAreaElement::select +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_select" webkit_dom_html_text_area_element_select :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + IO () + + +dOMHTMLTextAreaElementSelect :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + m () +dOMHTMLTextAreaElementSelect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_text_area_element_select _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_autocapitalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_autocapitalize" webkit_dom_html_text_area_element_set_autocapitalize :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetAutocapitalize :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetAutocapitalize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_autocapitalize _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_autocorrect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_autocorrect" webkit_dom_html_text_area_element_set_autocorrect :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTextAreaElementSetAutocorrect :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTextAreaElementSetAutocorrect _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_text_area_element_set_autocorrect _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_autofocus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_autofocus" webkit_dom_html_text_area_element_set_autofocus :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTextAreaElementSetAutofocus :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTextAreaElementSetAutofocus _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_text_area_element_set_autofocus _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_cols +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_cols" webkit_dom_html_text_area_element_set_cols :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTextAreaElementSetCols :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTextAreaElementSetCols _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_text_area_element_set_cols _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_custom_validity +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_custom_validity" webkit_dom_html_text_area_element_set_custom_validity :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- error : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetCustomValidity :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- error + m () +dOMHTMLTextAreaElementSetCustomValidity _obj error_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + error_' <- textToCString error_ + webkit_dom_html_text_area_element_set_custom_validity _obj' error_' + touchManagedPtr _obj + freeMem error_' + return () + +-- method DOMHTMLTextAreaElement::set_default_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_default_value" webkit_dom_html_text_area_element_set_default_value :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetDefaultValue :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetDefaultValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_default_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_dir_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_dir_name" webkit_dom_html_text_area_element_set_dir_name :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetDirName :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetDirName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_dir_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_disabled" webkit_dom_html_text_area_element_set_disabled :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTextAreaElementSetDisabled :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTextAreaElementSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_text_area_element_set_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_max_length" webkit_dom_html_text_area_element_set_max_length :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTextAreaElementSetMaxLength :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTextAreaElementSetMaxLength _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_text_area_element_set_max_length _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLTextAreaElement::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_name" webkit_dom_html_text_area_element_set_name :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetName :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetName _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_name _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_placeholder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_placeholder" webkit_dom_html_text_area_element_set_placeholder :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetPlaceholder :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetPlaceholder _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_placeholder _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_range_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_range_text" webkit_dom_html_text_area_element_set_range_text :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- replacement : TBasicType TUTF8 + Word64 -> -- start : TBasicType TUInt64 + Word64 -> -- end : TBasicType TUInt64 + CString -> -- selectionMode : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLTextAreaElementSetRangeText :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- replacement + Word64 -> -- start + Word64 -> -- end + T.Text -> -- selectionMode + m () +dOMHTMLTextAreaElementSetRangeText _obj replacement start end selectionMode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + replacement' <- textToCString replacement + selectionMode' <- textToCString selectionMode + onException (do + propagateGError $ webkit_dom_html_text_area_element_set_range_text _obj' replacement' start end selectionMode' + touchManagedPtr _obj + freeMem replacement' + freeMem selectionMode' + return () + ) (do + freeMem replacement' + freeMem selectionMode' + ) + +-- method DOMHTMLTextAreaElement::set_read_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_read_only" webkit_dom_html_text_area_element_set_read_only :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTextAreaElementSetReadOnly :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTextAreaElementSetReadOnly _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_text_area_element_set_read_only _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_required +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_required" webkit_dom_html_text_area_element_set_required :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLTextAreaElementSetRequired :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLTextAreaElementSetRequired _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_text_area_element_set_required _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_rows" webkit_dom_html_text_area_element_set_rows :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTextAreaElementSetRows :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTextAreaElementSetRows _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_text_area_element_set_rows _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_selection_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_selection_direction" webkit_dom_html_text_area_element_set_selection_direction :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetSelectionDirection :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetSelectionDirection _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_selection_direction _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_selection_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_selection_end" webkit_dom_html_text_area_element_set_selection_end :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTextAreaElementSetSelectionEnd :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTextAreaElementSetSelectionEnd _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_text_area_element_set_selection_end _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_selection_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_selection_range" webkit_dom_html_text_area_element_set_selection_range :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- start : TBasicType TInt64 + Int64 -> -- end : TBasicType TInt64 + CString -> -- direction : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetSelectionRange :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- start + Int64 -> -- end + T.Text -> -- direction + m () +dOMHTMLTextAreaElementSetSelectionRange _obj start end direction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + direction' <- textToCString direction + webkit_dom_html_text_area_element_set_selection_range _obj' start end direction' + touchManagedPtr _obj + freeMem direction' + return () + +-- method DOMHTMLTextAreaElement::set_selection_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_selection_start" webkit_dom_html_text_area_element_set_selection_start :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + Int64 -> -- value : TBasicType TInt64 + IO () + + +dOMHTMLTextAreaElementSetSelectionStart :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMHTMLTextAreaElementSetSelectionStart _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_text_area_element_set_selection_start _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLTextAreaElement::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_value" webkit_dom_html_text_area_element_set_value :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetValue :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLTextAreaElement::set_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_text_area_element_set_wrap" webkit_dom_html_text_area_element_set_wrap :: + Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTextAreaElementSetWrap :: + (MonadIO m, DOMHTMLTextAreaElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTextAreaElementSetWrap _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_text_area_element_set_wrap _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot @@ -0,0 +1,38 @@ +module GI.WebKit.Objects.DOMHTMLTextAreaElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTextAreaElement = DOMHTMLTextAreaElement (ForeignPtr DOMHTMLTextAreaElement) +instance GObject DOMHTMLTextAreaElement where +class GObject o => DOMHTMLTextAreaElementK o +instance (GObject o, IsDescendantOf DOMHTMLTextAreaElement o) => DOMHTMLTextAreaElementK o +data DOMHTMLTextAreaElementAutocapitalizePropertyInfo +data DOMHTMLTextAreaElementAutocorrectPropertyInfo +data DOMHTMLTextAreaElementAutofocusPropertyInfo +data DOMHTMLTextAreaElementColsPropertyInfo +data DOMHTMLTextAreaElementDefaultValuePropertyInfo +data DOMHTMLTextAreaElementDirNamePropertyInfo +data DOMHTMLTextAreaElementDisabledPropertyInfo +data DOMHTMLTextAreaElementFormPropertyInfo +data DOMHTMLTextAreaElementLabelsPropertyInfo +data DOMHTMLTextAreaElementMaxLengthPropertyInfo +data DOMHTMLTextAreaElementNamePropertyInfo +data DOMHTMLTextAreaElementPlaceholderPropertyInfo +data DOMHTMLTextAreaElementReadOnlyPropertyInfo +data DOMHTMLTextAreaElementRequiredPropertyInfo +data DOMHTMLTextAreaElementRowsPropertyInfo +data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo +data DOMHTMLTextAreaElementSelectionEndPropertyInfo +data DOMHTMLTextAreaElementSelectionStartPropertyInfo +data DOMHTMLTextAreaElementTextLengthPropertyInfo +data DOMHTMLTextAreaElementTypePropertyInfo +data DOMHTMLTextAreaElementValidationMessagePropertyInfo +data DOMHTMLTextAreaElementValidityPropertyInfo +data DOMHTMLTextAreaElementValuePropertyInfo +data DOMHTMLTextAreaElementWillValidatePropertyInfo +data DOMHTMLTextAreaElementWrapPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLTitleElement.hs b/GI/WebKit/Objects/DOMHTMLTitleElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTitleElement.hs @@ -0,0 +1,158 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMHTMLTitleElement + ( + +-- * Exported types + DOMHTMLTitleElement(..) , + DOMHTMLTitleElementK , + toDOMHTMLTitleElement , + noDOMHTMLTitleElement , + + + -- * Methods +-- ** dOMHTMLTitleElementGetText + dOMHTMLTitleElementGetText , + + +-- ** dOMHTMLTitleElementSetText + dOMHTMLTitleElementSetText , + + + + + -- * Properties +-- ** Text + DOMHTMLTitleElementTextPropertyInfo , + constructDOMHTMLTitleElementText , + getDOMHTMLTitleElementText , + setDOMHTMLTitleElementText , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLTitleElement = DOMHTMLTitleElement (ForeignPtr DOMHTMLTitleElement) +foreign import ccall "webkit_dom_html_title_element_get_type" + c_webkit_dom_html_title_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLTitleElement = DOMHTMLTitleElementParentTypes +type DOMHTMLTitleElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLTitleElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_title_element_get_type + + +class GObject o => DOMHTMLTitleElementK o +instance (GObject o, IsDescendantOf DOMHTMLTitleElement o) => DOMHTMLTitleElementK o + +toDOMHTMLTitleElement :: DOMHTMLTitleElementK o => o -> IO DOMHTMLTitleElement +toDOMHTMLTitleElement = unsafeCastTo DOMHTMLTitleElement + +noDOMHTMLTitleElement :: Maybe DOMHTMLTitleElement +noDOMHTMLTitleElement = Nothing + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m T.Text +getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m () +setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" val + +data DOMHTMLTitleElementTextPropertyInfo +instance AttrInfo DOMHTMLTitleElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLTitleElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTitleElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTitleElementTextPropertyInfo = DOMHTMLTitleElementK + type AttrGetType DOMHTMLTitleElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "DOMHTMLTitleElement::text" + attrGet _ = getDOMHTMLTitleElementText + attrSet _ = setDOMHTMLTitleElementText + attrConstruct _ = constructDOMHTMLTitleElementText + +type instance AttributeList DOMHTMLTitleElement = DOMHTMLTitleElementAttributeList +type DOMHTMLTitleElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLTitleElement = DOMHTMLTitleElementSignalList +type DOMHTMLTitleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLTitleElement::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_title_element_get_text" webkit_dom_html_title_element_get_text :: + Ptr DOMHTMLTitleElement -> -- _obj : TInterface "WebKit" "DOMHTMLTitleElement" + IO CString + + +dOMHTMLTitleElementGetText :: + (MonadIO m, DOMHTMLTitleElementK a) => + a -> -- _obj + m T.Text +dOMHTMLTitleElementGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_title_element_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_html_title_element_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLTitleElement::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_title_element_set_text" webkit_dom_html_title_element_set_text :: + Ptr DOMHTMLTitleElement -> -- _obj : TInterface "WebKit" "DOMHTMLTitleElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLTitleElementSetText :: + (MonadIO m, DOMHTMLTitleElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLTitleElementSetText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_title_element_set_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHTMLTitleElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLTitleElement = DOMHTMLTitleElement (ForeignPtr DOMHTMLTitleElement) +instance GObject DOMHTMLTitleElement where +class GObject o => DOMHTMLTitleElementK o +instance (GObject o, IsDescendantOf DOMHTMLTitleElement o) => DOMHTMLTitleElementK o +data DOMHTMLTitleElementTextPropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLUListElement.hs b/GI/WebKit/Objects/DOMHTMLUListElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLUListElement.hs @@ -0,0 +1,186 @@ + +{- | +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.WebKit.Objects.DOMHTMLUListElement + ( + +-- * Exported types + DOMHTMLUListElement(..) , + DOMHTMLUListElementK , + toDOMHTMLUListElement , + noDOMHTMLUListElement , + + + -- * Methods +-- ** dOMHTMLUListElementGetCompact + dOMHTMLUListElementGetCompact , + + +-- ** dOMHTMLUListElementSetCompact + dOMHTMLUListElementSetCompact , + + + + + -- * Properties +-- ** Compact + DOMHTMLUListElementCompactPropertyInfo , + constructDOMHTMLUListElementCompact , + getDOMHTMLUListElementCompact , + setDOMHTMLUListElementCompact , + + +-- ** Type + DOMHTMLUListElementTypePropertyInfo , + constructDOMHTMLUListElementType , + getDOMHTMLUListElementType , + setDOMHTMLUListElementType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLUListElement = DOMHTMLUListElement (ForeignPtr DOMHTMLUListElement) +foreign import ccall "webkit_dom_htmlu_list_element_get_type" + c_webkit_dom_htmlu_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_htmlu_list_element_get_type + + +class GObject o => DOMHTMLUListElementK o +instance (GObject o, IsDescendantOf DOMHTMLUListElement o) => DOMHTMLUListElementK o + +toDOMHTMLUListElement :: DOMHTMLUListElementK o => o -> IO DOMHTMLUListElement +toDOMHTMLUListElement = unsafeCastTo DOMHTMLUListElement + +noDOMHTMLUListElement :: Maybe DOMHTMLUListElement +noDOMHTMLUListElement = Nothing + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> m Bool +getDOMHTMLUListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> Bool -> m () +setDOMHTMLUListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLUListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLUListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLUListElementCompactPropertyInfo +instance AttrInfo DOMHTMLUListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLUListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLUListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLUListElementCompactPropertyInfo = DOMHTMLUListElementK + type AttrGetType DOMHTMLUListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLUListElementCompactPropertyInfo = "DOMHTMLUListElement::compact" + attrGet _ = getDOMHTMLUListElementCompact + attrSet _ = setDOMHTMLUListElementCompact + attrConstruct _ = constructDOMHTMLUListElementCompact + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m T.Text +getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m () +setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLUListElementType val = constructObjectPropertyString "type" val + +data DOMHTMLUListElementTypePropertyInfo +instance AttrInfo DOMHTMLUListElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK + type AttrGetType DOMHTMLUListElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLUListElementTypePropertyInfo = "DOMHTMLUListElement::type" + attrGet _ = getDOMHTMLUListElementType + attrSet _ = setDOMHTMLUListElementType + attrConstruct _ = constructDOMHTMLUListElementType + +type instance AttributeList DOMHTMLUListElement = DOMHTMLUListElementAttributeList +type DOMHTMLUListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLUListElement = DOMHTMLUListElementSignalList +type DOMHTMLUListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLUListElement::get_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlu_list_element_get_compact" webkit_dom_htmlu_list_element_get_compact :: + Ptr DOMHTMLUListElement -> -- _obj : TInterface "WebKit" "DOMHTMLUListElement" + IO CInt + + +dOMHTMLUListElementGetCompact :: + (MonadIO m, DOMHTMLUListElementK a) => + a -> -- _obj + m Bool +dOMHTMLUListElementGetCompact _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_htmlu_list_element_get_compact _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLUListElement::set_compact +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_htmlu_list_element_set_compact" webkit_dom_htmlu_list_element_set_compact :: + Ptr DOMHTMLUListElement -> -- _obj : TInterface "WebKit" "DOMHTMLUListElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLUListElementSetCompact :: + (MonadIO m, DOMHTMLUListElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLUListElementSetCompact _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_htmlu_list_element_set_compact _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMHTMLUListElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLUListElement = DOMHTMLUListElement (ForeignPtr DOMHTMLUListElement) +instance GObject DOMHTMLUListElement where +class GObject o => DOMHTMLUListElementK o +instance (GObject o, IsDescendantOf DOMHTMLUListElement o) => DOMHTMLUListElementK o +data DOMHTMLUListElementCompactPropertyInfo +data DOMHTMLUListElementTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMHTMLVideoElement.hs b/GI/WebKit/Objects/DOMHTMLVideoElement.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLVideoElement.hs @@ -0,0 +1,857 @@ + +{- | +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.WebKit.Objects.DOMHTMLVideoElement + ( + +-- * Exported types + DOMHTMLVideoElement(..) , + DOMHTMLVideoElementK , + toDOMHTMLVideoElement , + noDOMHTMLVideoElement , + + + -- * Methods +-- ** dOMHTMLVideoElementGetHeight + dOMHTMLVideoElementGetHeight , + + +-- ** dOMHTMLVideoElementGetPoster + dOMHTMLVideoElementGetPoster , + + +-- ** dOMHTMLVideoElementGetVideoHeight + dOMHTMLVideoElementGetVideoHeight , + + +-- ** dOMHTMLVideoElementGetVideoWidth + dOMHTMLVideoElementGetVideoWidth , + + +-- ** dOMHTMLVideoElementGetWebkitDecodedFrameCount + dOMHTMLVideoElementGetWebkitDecodedFrameCount, + + +-- ** dOMHTMLVideoElementGetWebkitDisplayingFullscreen + dOMHTMLVideoElementGetWebkitDisplayingFullscreen, + + +-- ** dOMHTMLVideoElementGetWebkitDroppedFrameCount + dOMHTMLVideoElementGetWebkitDroppedFrameCount, + + +-- ** dOMHTMLVideoElementGetWebkitSupportsFullscreen + dOMHTMLVideoElementGetWebkitSupportsFullscreen, + + +-- ** dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled + dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled, + + +-- ** dOMHTMLVideoElementGetWidth + dOMHTMLVideoElementGetWidth , + + +-- ** dOMHTMLVideoElementSetHeight + dOMHTMLVideoElementSetHeight , + + +-- ** dOMHTMLVideoElementSetPoster + dOMHTMLVideoElementSetPoster , + + +-- ** dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled + dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled, + + +-- ** dOMHTMLVideoElementSetWidth + dOMHTMLVideoElementSetWidth , + + +-- ** dOMHTMLVideoElementWebkitEnterFullScreen + dOMHTMLVideoElementWebkitEnterFullScreen, + + +-- ** dOMHTMLVideoElementWebkitEnterFullscreen + dOMHTMLVideoElementWebkitEnterFullscreen, + + +-- ** dOMHTMLVideoElementWebkitExitFullScreen + dOMHTMLVideoElementWebkitExitFullScreen , + + +-- ** dOMHTMLVideoElementWebkitExitFullscreen + dOMHTMLVideoElementWebkitExitFullscreen , + + + + + -- * Properties +-- ** Height + DOMHTMLVideoElementHeightPropertyInfo , + constructDOMHTMLVideoElementHeight , + getDOMHTMLVideoElementHeight , + setDOMHTMLVideoElementHeight , + + +-- ** Poster + DOMHTMLVideoElementPosterPropertyInfo , + constructDOMHTMLVideoElementPoster , + getDOMHTMLVideoElementPoster , + setDOMHTMLVideoElementPoster , + + +-- ** VideoHeight + DOMHTMLVideoElementVideoHeightPropertyInfo, + getDOMHTMLVideoElementVideoHeight , + + +-- ** VideoWidth + DOMHTMLVideoElementVideoWidthPropertyInfo, + getDOMHTMLVideoElementVideoWidth , + + +-- ** WebkitDecodedFrameCount + DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo, + getDOMHTMLVideoElementWebkitDecodedFrameCount, + + +-- ** WebkitDisplayingFullscreen + DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo, + getDOMHTMLVideoElementWebkitDisplayingFullscreen, + + +-- ** WebkitDroppedFrameCount + DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo, + getDOMHTMLVideoElementWebkitDroppedFrameCount, + + +-- ** WebkitSupportsFullscreen + DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo, + getDOMHTMLVideoElementWebkitSupportsFullscreen, + + +-- ** WebkitWirelessVideoPlaybackDisabled + DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo, + constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, + getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, + setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, + + +-- ** Width + DOMHTMLVideoElementWidthPropertyInfo , + constructDOMHTMLVideoElementWidth , + getDOMHTMLVideoElementWidth , + setDOMHTMLVideoElementWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHTMLVideoElement = DOMHTMLVideoElement (ForeignPtr DOMHTMLVideoElement) +foreign import ccall "webkit_dom_html_video_element_get_type" + c_webkit_dom_html_video_element_get_type :: IO GType + +type instance ParentTypes DOMHTMLVideoElement = DOMHTMLVideoElementParentTypes +type DOMHTMLVideoElementParentTypes = '[DOMHTMLMediaElement, DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMHTMLVideoElement where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_html_video_element_get_type + + +class GObject o => DOMHTMLVideoElementK o +instance (GObject o, IsDescendantOf DOMHTMLVideoElement o) => DOMHTMLVideoElementK o + +toDOMHTMLVideoElement :: DOMHTMLVideoElementK o => o -> IO DOMHTMLVideoElement +toDOMHTMLVideoElement = unsafeCastTo DOMHTMLVideoElement + +noDOMHTMLVideoElement :: Maybe DOMHTMLVideoElement +noDOMHTMLVideoElement = Nothing + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +setDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () +setDOMHTMLVideoElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val + +constructDOMHTMLVideoElementHeight :: Word64 -> IO ([Char], GValue) +constructDOMHTMLVideoElementHeight val = constructObjectPropertyUInt64 "height" val + +data DOMHTMLVideoElementHeightPropertyInfo +instance AttrInfo DOMHTMLVideoElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementHeightPropertyInfo = "DOMHTMLVideoElement::height" + attrGet _ = getDOMHTMLVideoElementHeight + attrSet _ = setDOMHTMLVideoElementHeight + attrConstruct _ = constructDOMHTMLVideoElementHeight + +-- VVV Prop "poster" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m T.Text +getDOMHTMLVideoElementPoster obj = liftIO $ getObjectPropertyString obj "poster" + +setDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> T.Text -> m () +setDOMHTMLVideoElementPoster obj val = liftIO $ setObjectPropertyString obj "poster" val + +constructDOMHTMLVideoElementPoster :: T.Text -> IO ([Char], GValue) +constructDOMHTMLVideoElementPoster val = constructObjectPropertyString "poster" val + +data DOMHTMLVideoElementPosterPropertyInfo +instance AttrInfo DOMHTMLVideoElementPosterPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementPosterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementPosterPropertyInfo = T.Text + type AttrLabel DOMHTMLVideoElementPosterPropertyInfo = "DOMHTMLVideoElement::poster" + attrGet _ = getDOMHTMLVideoElementPoster + attrSet _ = setDOMHTMLVideoElementPoster + attrConstruct _ = constructDOMHTMLVideoElementPoster + +-- VVV Prop "video-height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementVideoHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementVideoHeight obj = liftIO $ getObjectPropertyUInt64 obj "video-height" + +data DOMHTMLVideoElementVideoHeightPropertyInfo +instance AttrInfo DOMHTMLVideoElementVideoHeightPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementVideoHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementVideoHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementVideoHeightPropertyInfo = "DOMHTMLVideoElement::video-height" + attrGet _ = getDOMHTMLVideoElementVideoHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "video-width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementVideoWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementVideoWidth obj = liftIO $ getObjectPropertyUInt64 obj "video-width" + +data DOMHTMLVideoElementVideoWidthPropertyInfo +instance AttrInfo DOMHTMLVideoElementVideoWidthPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementVideoWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementVideoWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementVideoWidthPropertyInfo = "DOMHTMLVideoElement::video-width" + attrGet _ = getDOMHTMLVideoElementVideoWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-decoded-frame-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWebkitDecodedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-decoded-frame-count" + +data DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-decoded-frame-count" + attrGet _ = getDOMHTMLVideoElementWebkitDecodedFrameCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-displaying-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDisplayingFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitDisplayingFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-displaying-fullscreen" + +data DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-displaying-fullscreen" + attrGet _ = getDOMHTMLVideoElementWebkitDisplayingFullscreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-dropped-frame-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWebkitDroppedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-dropped-frame-count" + +data DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-dropped-frame-count" + attrGet _ = getDOMHTMLVideoElementWebkitDroppedFrameCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-supports-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitSupportsFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitSupportsFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-supports-fullscreen" + +data DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-supports-fullscreen" + attrGet _ = getDOMHTMLVideoElementWebkitSupportsFullscreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-wireless-video-playback-disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj = liftIO $ getObjectPropertyBool obj "webkit-wireless-video-playback-disabled" + +setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Bool -> m () +setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj val = liftIO $ setObjectPropertyBool obj "webkit-wireless-video-playback-disabled" val + +constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled val = constructObjectPropertyBool "webkit-wireless-video-playback-disabled" val + +data DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = "DOMHTMLVideoElement::webkit-wireless-video-playback-disabled" + attrGet _ = getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + attrSet _ = setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + attrConstruct _ = constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +setDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () +setDOMHTMLVideoElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val + +constructDOMHTMLVideoElementWidth :: Word64 -> IO ([Char], GValue) +constructDOMHTMLVideoElementWidth val = constructObjectPropertyUInt64 "width" val + +data DOMHTMLVideoElementWidthPropertyInfo +instance AttrInfo DOMHTMLVideoElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWidthPropertyInfo = "DOMHTMLVideoElement::width" + attrGet _ = getDOMHTMLVideoElementWidth + attrSet _ = setDOMHTMLVideoElementWidth + attrConstruct _ = constructDOMHTMLVideoElementWidth + +type instance AttributeList DOMHTMLVideoElement = DOMHTMLVideoElementAttributeList +type DOMHTMLVideoElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLVideoElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("poster", DOMHTMLVideoElementPosterPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-height", DOMHTMLVideoElementVideoHeightPropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("video-width", DOMHTMLVideoElementVideoWidthPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-decoded-frame-count", DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo), '("webkit-displaying-fullscreen", DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo), '("webkit-dropped-frame-count", DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-supports-fullscreen", DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkit-wireless-video-playback-disabled", DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLVideoElementWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHTMLVideoElement = DOMHTMLVideoElementSignalList +type DOMHTMLVideoElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHTMLVideoElement::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_height" webkit_dom_html_video_element_get_height :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetHeight :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::get_poster +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_poster" webkit_dom_html_video_element_get_poster :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO CString + + +dOMHTMLVideoElementGetPoster :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m T.Text +dOMHTMLVideoElementGetPoster _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_poster _obj' + checkUnexpectedReturnNULL "webkit_dom_html_video_element_get_poster" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMHTMLVideoElement::get_video_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_video_height" webkit_dom_html_video_element_get_video_height :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetVideoHeight :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetVideoHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_video_height _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::get_video_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_video_width" webkit_dom_html_video_element_get_video_width :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetVideoWidth :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetVideoWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_video_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::get_webkit_decoded_frame_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_webkit_decoded_frame_count" webkit_dom_html_video_element_get_webkit_decoded_frame_count :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetWebkitDecodedFrameCount :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetWebkitDecodedFrameCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_webkit_decoded_frame_count _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::get_webkit_displaying_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_webkit_displaying_fullscreen" webkit_dom_html_video_element_get_webkit_displaying_fullscreen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO CInt + + +dOMHTMLVideoElementGetWebkitDisplayingFullscreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Bool +dOMHTMLVideoElementGetWebkitDisplayingFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_webkit_displaying_fullscreen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLVideoElement::get_webkit_dropped_frame_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_webkit_dropped_frame_count" webkit_dom_html_video_element_get_webkit_dropped_frame_count :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetWebkitDroppedFrameCount :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetWebkitDroppedFrameCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_webkit_dropped_frame_count _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::get_webkit_supports_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_webkit_supports_fullscreen" webkit_dom_html_video_element_get_webkit_supports_fullscreen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO CInt + + +dOMHTMLVideoElementGetWebkitSupportsFullscreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Bool +dOMHTMLVideoElementGetWebkitSupportsFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_webkit_supports_fullscreen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLVideoElement::get_webkit_wireless_video_playback_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled" webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO CInt + + +dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Bool +dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMHTMLVideoElement::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_get_width" webkit_dom_html_video_element_get_width :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO Word64 + + +dOMHTMLVideoElementGetWidth :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m Word64 +dOMHTMLVideoElementGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_html_video_element_get_width _obj' + touchManagedPtr _obj + return result + +-- method DOMHTMLVideoElement::set_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_set_height" webkit_dom_html_video_element_set_height :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLVideoElementSetHeight :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLVideoElementSetHeight _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_video_element_set_height _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLVideoElement::set_poster +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_set_poster" webkit_dom_html_video_element_set_poster :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMHTMLVideoElementSetPoster :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMHTMLVideoElementSetPoster _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_html_video_element_set_poster _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMHTMLVideoElement::set_webkit_wireless_video_playback_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled" webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + Bool -> -- value + m () +dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled _obj' value' + touchManagedPtr _obj + return () + +-- method DOMHTMLVideoElement::set_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_set_width" webkit_dom_html_video_element_set_width :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + Word64 -> -- value : TBasicType TUInt64 + IO () + + +dOMHTMLVideoElementSetWidth :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + Word64 -> -- value + m () +dOMHTMLVideoElementSetWidth _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_video_element_set_width _obj' value + touchManagedPtr _obj + return () + +-- method DOMHTMLVideoElement::webkit_enter_full_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_webkit_enter_full_screen" webkit_dom_html_video_element_webkit_enter_full_screen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLVideoElementWebkitEnterFullScreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m () +dOMHTMLVideoElementWebkitEnterFullScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_video_element_webkit_enter_full_screen _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLVideoElement::webkit_enter_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_webkit_enter_fullscreen" webkit_dom_html_video_element_webkit_enter_fullscreen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + Ptr (Ptr GError) -> -- error + IO () + + +dOMHTMLVideoElementWebkitEnterFullscreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m () +dOMHTMLVideoElementWebkitEnterFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_html_video_element_webkit_enter_fullscreen _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMHTMLVideoElement::webkit_exit_full_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_webkit_exit_full_screen" webkit_dom_html_video_element_webkit_exit_full_screen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO () + + +dOMHTMLVideoElementWebkitExitFullScreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m () +dOMHTMLVideoElementWebkitExitFullScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_video_element_webkit_exit_full_screen _obj' + touchManagedPtr _obj + return () + +-- method DOMHTMLVideoElement::webkit_exit_fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_html_video_element_webkit_exit_fullscreen" webkit_dom_html_video_element_webkit_exit_fullscreen :: + Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" + IO () + + +dOMHTMLVideoElementWebkitExitFullscreen :: + (MonadIO m, DOMHTMLVideoElementK a) => + a -> -- _obj + m () +dOMHTMLVideoElementWebkitExitFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_html_video_element_webkit_exit_fullscreen _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot b/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.DOMHTMLVideoElement where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHTMLVideoElement = DOMHTMLVideoElement (ForeignPtr DOMHTMLVideoElement) +instance GObject DOMHTMLVideoElement where +class GObject o => DOMHTMLVideoElementK o +instance (GObject o, IsDescendantOf DOMHTMLVideoElement o) => DOMHTMLVideoElementK o +data DOMHTMLVideoElementHeightPropertyInfo +data DOMHTMLVideoElementPosterPropertyInfo +data DOMHTMLVideoElementVideoHeightPropertyInfo +data DOMHTMLVideoElementVideoWidthPropertyInfo +data DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo +data DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo +data DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo +data DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo +data DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo +data DOMHTMLVideoElementWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMHistory.hs b/GI/WebKit/Objects/DOMHistory.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHistory.hs @@ -0,0 +1,201 @@ + +{- | +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.WebKit.Objects.DOMHistory + ( + +-- * Exported types + DOMHistory(..) , + DOMHistoryK , + toDOMHistory , + noDOMHistory , + + + -- * Methods +-- ** dOMHistoryBack + dOMHistoryBack , + + +-- ** dOMHistoryForward + dOMHistoryForward , + + +-- ** dOMHistoryGetLength + dOMHistoryGetLength , + + +-- ** dOMHistoryGo + dOMHistoryGo , + + + + + -- * Properties +-- ** Length + DOMHistoryLengthPropertyInfo , + getDOMHistoryLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMHistory = DOMHistory (ForeignPtr DOMHistory) +foreign import ccall "webkit_dom_history_get_type" + c_webkit_dom_history_get_type :: IO GType + +type instance ParentTypes DOMHistory = DOMHistoryParentTypes +type DOMHistoryParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMHistory where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_history_get_type + + +class GObject o => DOMHistoryK o +instance (GObject o, IsDescendantOf DOMHistory o) => DOMHistoryK o + +toDOMHistory :: DOMHistoryK o => o -> IO DOMHistory +toDOMHistory = unsafeCastTo DOMHistory + +noDOMHistory :: Maybe DOMHistory +noDOMHistory = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m Word64 +getDOMHistoryLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHistoryLengthPropertyInfo +instance AttrInfo DOMHistoryLengthPropertyInfo where + type AttrAllowedOps DOMHistoryLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHistoryLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHistoryLengthPropertyInfo = DOMHistoryK + type AttrGetType DOMHistoryLengthPropertyInfo = Word64 + type AttrLabel DOMHistoryLengthPropertyInfo = "DOMHistory::length" + attrGet _ = getDOMHistoryLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHistory = DOMHistoryAttributeList +type DOMHistoryAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHistoryLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMHistory = DOMHistorySignalList +type DOMHistorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMHistory::back +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_history_back" webkit_dom_history_back :: + Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" + IO () + + +dOMHistoryBack :: + (MonadIO m, DOMHistoryK a) => + a -> -- _obj + m () +dOMHistoryBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_history_back _obj' + touchManagedPtr _obj + return () + +-- method DOMHistory::forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_history_forward" webkit_dom_history_forward :: + Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" + IO () + + +dOMHistoryForward :: + (MonadIO m, DOMHistoryK a) => + a -> -- _obj + m () +dOMHistoryForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_history_forward _obj' + touchManagedPtr _obj + return () + +-- method DOMHistory::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_history_get_length" webkit_dom_history_get_length :: + Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" + IO Word64 + + +dOMHistoryGetLength :: + (MonadIO m, DOMHistoryK a) => + a -> -- _obj + m Word64 +dOMHistoryGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_history_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMHistory::go +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_history_go" webkit_dom_history_go :: + Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" + Int64 -> -- distance : TBasicType TInt64 + IO () + + +dOMHistoryGo :: + (MonadIO m, DOMHistoryK a) => + a -> -- _obj + Int64 -> -- distance + m () +dOMHistoryGo _obj distance = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_history_go _obj' distance + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMHistory.hs-boot b/GI/WebKit/Objects/DOMHistory.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMHistory.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMHistory where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMHistory = DOMHistory (ForeignPtr DOMHistory) +instance GObject DOMHistory where +class GObject o => DOMHistoryK o +instance (GObject o, IsDescendantOf DOMHistory o) => DOMHistoryK o +data DOMHistoryLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMKeyboardEvent.hs b/GI/WebKit/Objects/DOMKeyboardEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMKeyboardEvent.hs @@ -0,0 +1,525 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMKeyboardEvent + ( + +-- * Exported types + DOMKeyboardEvent(..) , + DOMKeyboardEventK , + toDOMKeyboardEvent , + noDOMKeyboardEvent , + + + -- * Methods +-- ** dOMKeyboardEventGetAltGraphKey + dOMKeyboardEventGetAltGraphKey , + + +-- ** dOMKeyboardEventGetAltKey + dOMKeyboardEventGetAltKey , + + +-- ** dOMKeyboardEventGetCtrlKey + dOMKeyboardEventGetCtrlKey , + + +-- ** dOMKeyboardEventGetKeyIdentifier + dOMKeyboardEventGetKeyIdentifier , + + +-- ** dOMKeyboardEventGetKeyLocation + dOMKeyboardEventGetKeyLocation , + + +-- ** dOMKeyboardEventGetMetaKey + dOMKeyboardEventGetMetaKey , + + +-- ** dOMKeyboardEventGetModifierState + dOMKeyboardEventGetModifierState , + + +-- ** dOMKeyboardEventGetShiftKey + dOMKeyboardEventGetShiftKey , + + +-- ** dOMKeyboardEventInitKeyboardEvent + dOMKeyboardEventInitKeyboardEvent , + + + + + -- * Properties +-- ** AltGraphKey + DOMKeyboardEventAltGraphKeyPropertyInfo , + getDOMKeyboardEventAltGraphKey , + + +-- ** AltKey + DOMKeyboardEventAltKeyPropertyInfo , + getDOMKeyboardEventAltKey , + + +-- ** CtrlKey + DOMKeyboardEventCtrlKeyPropertyInfo , + getDOMKeyboardEventCtrlKey , + + +-- ** KeyIdentifier + DOMKeyboardEventKeyIdentifierPropertyInfo, + getDOMKeyboardEventKeyIdentifier , + + +-- ** KeyLocation + DOMKeyboardEventKeyLocationPropertyInfo , + getDOMKeyboardEventKeyLocation , + + +-- ** MetaKey + DOMKeyboardEventMetaKeyPropertyInfo , + getDOMKeyboardEventMetaKey , + + +-- ** ShiftKey + DOMKeyboardEventShiftKeyPropertyInfo , + getDOMKeyboardEventShiftKey , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent) +foreign import ccall "webkit_dom_keyboard_event_get_type" + c_webkit_dom_keyboard_event_get_type :: IO GType + +type instance ParentTypes DOMKeyboardEvent = DOMKeyboardEventParentTypes +type DOMKeyboardEventParentTypes = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object] + +instance GObject DOMKeyboardEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_keyboard_event_get_type + + +class GObject o => DOMKeyboardEventK o +instance (GObject o, IsDescendantOf DOMKeyboardEvent o) => DOMKeyboardEventK o + +toDOMKeyboardEvent :: DOMKeyboardEventK o => o -> IO DOMKeyboardEvent +toDOMKeyboardEvent = unsafeCastTo DOMKeyboardEvent + +noDOMKeyboardEvent :: Maybe DOMKeyboardEvent +noDOMKeyboardEvent = Nothing + +-- VVV Prop "alt-graph-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key" + +data DOMKeyboardEventAltGraphKeyPropertyInfo +instance AttrInfo DOMKeyboardEventAltGraphKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventAltGraphKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventAltGraphKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventAltGraphKeyPropertyInfo = "DOMKeyboardEvent::alt-graph-key" + attrGet _ = getDOMKeyboardEventAltGraphKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "alt-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" + +data DOMKeyboardEventAltKeyPropertyInfo +instance AttrInfo DOMKeyboardEventAltKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventAltKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventAltKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventAltKeyPropertyInfo = "DOMKeyboardEvent::alt-key" + attrGet _ = getDOMKeyboardEventAltKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ctrl-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" + +data DOMKeyboardEventCtrlKeyPropertyInfo +instance AttrInfo DOMKeyboardEventCtrlKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventCtrlKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventCtrlKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventCtrlKeyPropertyInfo = "DOMKeyboardEvent::ctrl-key" + attrGet _ = getDOMKeyboardEventCtrlKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-identifier" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text +getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier" + +data DOMKeyboardEventKeyIdentifierPropertyInfo +instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where + type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text + type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "DOMKeyboardEvent::key-identifier" + attrGet _ = getDOMKeyboardEventKeyIdentifier + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-location" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64 +getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location" + +data DOMKeyboardEventKeyLocationPropertyInfo +instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where + type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64 + type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "DOMKeyboardEvent::key-location" + attrGet _ = getDOMKeyboardEventKeyLocation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "meta-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" + +data DOMKeyboardEventMetaKeyPropertyInfo +instance AttrInfo DOMKeyboardEventMetaKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventMetaKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventMetaKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventMetaKeyPropertyInfo = "DOMKeyboardEvent::meta-key" + attrGet _ = getDOMKeyboardEventMetaKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shift-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" + +data DOMKeyboardEventShiftKeyPropertyInfo +instance AttrInfo DOMKeyboardEventShiftKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventShiftKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventShiftKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventShiftKeyPropertyInfo = "DOMKeyboardEvent::shift-key" + attrGet _ = getDOMKeyboardEventShiftKey + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMKeyboardEvent = DOMKeyboardEventAttributeList +type DOMKeyboardEventAttributeList = ('[ '("alt-graph-key", DOMKeyboardEventAltGraphKeyPropertyInfo), '("alt-key", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMKeyboardEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("key-identifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("key-location", DOMKeyboardEventKeyLocationPropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMKeyboardEventMetaKeyPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("shift-key", DOMKeyboardEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMKeyboardEvent = DOMKeyboardEventSignalList +type DOMKeyboardEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMKeyboardEvent::get_alt_graph_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_alt_graph_key" webkit_dom_keyboard_event_get_alt_graph_key :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CInt + + +dOMKeyboardEventGetAltGraphKey :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Bool +dOMKeyboardEventGetAltGraphKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_alt_graph_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::get_alt_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_alt_key" webkit_dom_keyboard_event_get_alt_key :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CInt + + +dOMKeyboardEventGetAltKey :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Bool +dOMKeyboardEventGetAltKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_alt_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::get_ctrl_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_ctrl_key" webkit_dom_keyboard_event_get_ctrl_key :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CInt + + +dOMKeyboardEventGetCtrlKey :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Bool +dOMKeyboardEventGetCtrlKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_ctrl_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::get_key_identifier +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_key_identifier" webkit_dom_keyboard_event_get_key_identifier :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CString + + +dOMKeyboardEventGetKeyIdentifier :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m T.Text +dOMKeyboardEventGetKeyIdentifier _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_key_identifier _obj' + checkUnexpectedReturnNULL "webkit_dom_keyboard_event_get_key_identifier" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::get_key_location +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_key_location" webkit_dom_keyboard_event_get_key_location :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO Word64 + + +dOMKeyboardEventGetKeyLocation :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Word64 +dOMKeyboardEventGetKeyLocation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_key_location _obj' + touchManagedPtr _obj + return result + +-- method DOMKeyboardEvent::get_meta_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_meta_key" webkit_dom_keyboard_event_get_meta_key :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CInt + + +dOMKeyboardEventGetMetaKey :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Bool +dOMKeyboardEventGetMetaKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_meta_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::get_modifier_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifierArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifierArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_modifier_state" webkit_dom_keyboard_event_get_modifier_state :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + CString -> -- keyIdentifierArg : TBasicType TUTF8 + IO CInt + + +dOMKeyboardEventGetModifierState :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + T.Text -> -- keyIdentifierArg + m Bool +dOMKeyboardEventGetModifierState _obj keyIdentifierArg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + keyIdentifierArg' <- textToCString keyIdentifierArg + result <- webkit_dom_keyboard_event_get_modifier_state _obj' keyIdentifierArg' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem keyIdentifierArg' + return result' + +-- method DOMKeyboardEvent::get_shift_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_get_shift_key" webkit_dom_keyboard_event_get_shift_key :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + IO CInt + + +dOMKeyboardEventGetShiftKey :: + (MonadIO m, DOMKeyboardEventK a) => + a -> -- _obj + m Bool +dOMKeyboardEventGetShiftKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_keyboard_event_get_shift_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMKeyboardEvent::init_keyboard_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_keyboard_event_init_keyboard_event" webkit_dom_keyboard_event_init_keyboard_event :: + Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" + CString -> -- type : TBasicType TUTF8 + CInt -> -- canBubble : TBasicType TBoolean + CInt -> -- cancelable : TBasicType TBoolean + Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" + CString -> -- keyIdentifier : TBasicType TUTF8 + Word64 -> -- location : TBasicType TUInt64 + CInt -> -- ctrlKey : TBasicType TBoolean + CInt -> -- altKey : TBasicType TBoolean + CInt -> -- shiftKey : TBasicType TBoolean + CInt -> -- metaKey : TBasicType TBoolean + CInt -> -- altGraphKey : TBasicType TBoolean + IO () + + +dOMKeyboardEventInitKeyboardEvent :: + (MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) => + a -> -- _obj + T.Text -> -- type + Bool -> -- canBubble + Bool -> -- cancelable + b -> -- view + T.Text -> -- keyIdentifier + Word64 -> -- location + Bool -> -- ctrlKey + Bool -> -- altKey + Bool -> -- shiftKey + Bool -> -- metaKey + Bool -> -- altGraphKey + m () +dOMKeyboardEventInitKeyboardEvent _obj type_ canBubble cancelable view keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + type_' <- textToCString type_ + let canBubble' = (fromIntegral . fromEnum) canBubble + let cancelable' = (fromIntegral . fromEnum) cancelable + let view' = unsafeManagedPtrCastPtr view + keyIdentifier' <- textToCString keyIdentifier + let ctrlKey' = (fromIntegral . fromEnum) ctrlKey + let altKey' = (fromIntegral . fromEnum) altKey + let shiftKey' = (fromIntegral . fromEnum) shiftKey + let metaKey' = (fromIntegral . fromEnum) metaKey + let altGraphKey' = (fromIntegral . fromEnum) altGraphKey + webkit_dom_keyboard_event_init_keyboard_event _obj' type_' canBubble' cancelable' view' keyIdentifier' location ctrlKey' altKey' shiftKey' metaKey' altGraphKey' + touchManagedPtr _obj + touchManagedPtr view + freeMem type_' + freeMem keyIdentifier' + return () + + diff --git a/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot b/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.DOMKeyboardEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent) +instance GObject DOMKeyboardEvent where +class GObject o => DOMKeyboardEventK o +instance (GObject o, IsDescendantOf DOMKeyboardEvent o) => DOMKeyboardEventK o +data DOMKeyboardEventAltGraphKeyPropertyInfo +data DOMKeyboardEventAltKeyPropertyInfo +data DOMKeyboardEventCtrlKeyPropertyInfo +data DOMKeyboardEventKeyIdentifierPropertyInfo +data DOMKeyboardEventKeyLocationPropertyInfo +data DOMKeyboardEventMetaKeyPropertyInfo +data DOMKeyboardEventShiftKeyPropertyInfo diff --git a/GI/WebKit/Objects/DOMLocation.hs b/GI/WebKit/Objects/DOMLocation.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMLocation.hs @@ -0,0 +1,603 @@ + +{- | +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.WebKit.Objects.DOMLocation + ( + +-- * Exported types + DOMLocation(..) , + DOMLocationK , + toDOMLocation , + noDOMLocation , + + + -- * Methods +-- ** dOMLocationGetAncestorOrigins + dOMLocationGetAncestorOrigins , + + +-- ** dOMLocationGetHash + dOMLocationGetHash , + + +-- ** dOMLocationGetHost + dOMLocationGetHost , + + +-- ** dOMLocationGetHostname + dOMLocationGetHostname , + + +-- ** dOMLocationGetHref + dOMLocationGetHref , + + +-- ** dOMLocationGetOrigin + dOMLocationGetOrigin , + + +-- ** dOMLocationGetPathname + dOMLocationGetPathname , + + +-- ** dOMLocationGetPort + dOMLocationGetPort , + + +-- ** dOMLocationGetProtocol + dOMLocationGetProtocol , + + +-- ** dOMLocationGetSearch + dOMLocationGetSearch , + + + + + -- * Properties +-- ** AncestorOrigins + DOMLocationAncestorOriginsPropertyInfo , + getDOMLocationAncestorOrigins , + + +-- ** Hash + DOMLocationHashPropertyInfo , + getDOMLocationHash , + + +-- ** Host + DOMLocationHostPropertyInfo , + getDOMLocationHost , + + +-- ** Hostname + DOMLocationHostnamePropertyInfo , + getDOMLocationHostname , + + +-- ** Href + DOMLocationHrefPropertyInfo , + getDOMLocationHref , + + +-- ** Origin + DOMLocationOriginPropertyInfo , + getDOMLocationOrigin , + + +-- ** Pathname + DOMLocationPathnamePropertyInfo , + getDOMLocationPathname , + + +-- ** Port + DOMLocationPortPropertyInfo , + getDOMLocationPort , + + +-- ** Protocol + DOMLocationProtocolPropertyInfo , + getDOMLocationProtocol , + + +-- ** Search + DOMLocationSearchPropertyInfo , + getDOMLocationSearch , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMLocation = DOMLocation (ForeignPtr DOMLocation) +foreign import ccall "webkit_dom_location_get_type" + c_webkit_dom_location_get_type :: IO GType + +type instance ParentTypes DOMLocation = DOMLocationParentTypes +type DOMLocationParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMLocation where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_location_get_type + + +class GObject o => DOMLocationK o +instance (GObject o, IsDescendantOf DOMLocation o) => DOMLocationK o + +toDOMLocation :: DOMLocationK o => o -> IO DOMLocation +toDOMLocation = unsafeCastTo DOMLocation + +noDOMLocation :: Maybe DOMLocation +noDOMLocation = Nothing + +-- VVV Prop "ancestor-origins" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMLocationAncestorOrigins :: (MonadIO m, DOMLocationK o) => o -> m DOMDOMStringList +getDOMLocationAncestorOrigins obj = liftIO $ getObjectPropertyObject obj "ancestor-origins" DOMDOMStringList + +data DOMLocationAncestorOriginsPropertyInfo +instance AttrInfo DOMLocationAncestorOriginsPropertyInfo where + type AttrAllowedOps DOMLocationAncestorOriginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationAncestorOriginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationAncestorOriginsPropertyInfo = DOMLocationK + type AttrGetType DOMLocationAncestorOriginsPropertyInfo = DOMDOMStringList + type AttrLabel DOMLocationAncestorOriginsPropertyInfo = "DOMLocation::ancestor-origins" + attrGet _ = getDOMLocationAncestorOrigins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHash :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHash obj = liftIO $ getObjectPropertyString obj "hash" + +data DOMLocationHashPropertyInfo +instance AttrInfo DOMLocationHashPropertyInfo where + type AttrAllowedOps DOMLocationHashPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHashPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHashPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHashPropertyInfo = T.Text + type AttrLabel DOMLocationHashPropertyInfo = "DOMLocation::hash" + attrGet _ = getDOMLocationHash + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHost :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHost obj = liftIO $ getObjectPropertyString obj "host" + +data DOMLocationHostPropertyInfo +instance AttrInfo DOMLocationHostPropertyInfo where + type AttrAllowedOps DOMLocationHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHostPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHostPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHostPropertyInfo = T.Text + type AttrLabel DOMLocationHostPropertyInfo = "DOMLocation::host" + attrGet _ = getDOMLocationHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHostname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +data DOMLocationHostnamePropertyInfo +instance AttrInfo DOMLocationHostnamePropertyInfo where + type AttrAllowedOps DOMLocationHostnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHostnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHostnamePropertyInfo = DOMLocationK + type AttrGetType DOMLocationHostnamePropertyInfo = T.Text + type AttrLabel DOMLocationHostnamePropertyInfo = "DOMLocation::hostname" + attrGet _ = getDOMLocationHostname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHref :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHref obj = liftIO $ getObjectPropertyString obj "href" + +data DOMLocationHrefPropertyInfo +instance AttrInfo DOMLocationHrefPropertyInfo where + type AttrAllowedOps DOMLocationHrefPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHrefPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHrefPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHrefPropertyInfo = T.Text + type AttrLabel DOMLocationHrefPropertyInfo = "DOMLocation::href" + attrGet _ = getDOMLocationHref + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationOrigin :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationOrigin obj = liftIO $ getObjectPropertyString obj "origin" + +data DOMLocationOriginPropertyInfo +instance AttrInfo DOMLocationOriginPropertyInfo where + type AttrAllowedOps DOMLocationOriginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationOriginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationOriginPropertyInfo = DOMLocationK + type AttrGetType DOMLocationOriginPropertyInfo = T.Text + type AttrLabel DOMLocationOriginPropertyInfo = "DOMLocation::origin" + attrGet _ = getDOMLocationOrigin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationPathname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +data DOMLocationPathnamePropertyInfo +instance AttrInfo DOMLocationPathnamePropertyInfo where + type AttrAllowedOps DOMLocationPathnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationPathnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationPathnamePropertyInfo = DOMLocationK + type AttrGetType DOMLocationPathnamePropertyInfo = T.Text + type AttrLabel DOMLocationPathnamePropertyInfo = "DOMLocation::pathname" + attrGet _ = getDOMLocationPathname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationPort :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPort obj = liftIO $ getObjectPropertyString obj "port" + +data DOMLocationPortPropertyInfo +instance AttrInfo DOMLocationPortPropertyInfo where + type AttrAllowedOps DOMLocationPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationPortPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationPortPropertyInfo = DOMLocationK + type AttrGetType DOMLocationPortPropertyInfo = T.Text + type AttrLabel DOMLocationPortPropertyInfo = "DOMLocation::port" + attrGet _ = getDOMLocationPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationProtocol :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data DOMLocationProtocolPropertyInfo +instance AttrInfo DOMLocationProtocolPropertyInfo where + type AttrAllowedOps DOMLocationProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationProtocolPropertyInfo = DOMLocationK + type AttrGetType DOMLocationProtocolPropertyInfo = T.Text + type AttrLabel DOMLocationProtocolPropertyInfo = "DOMLocation::protocol" + attrGet _ = getDOMLocationProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationSearch :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationSearch obj = liftIO $ getObjectPropertyString obj "search" + +data DOMLocationSearchPropertyInfo +instance AttrInfo DOMLocationSearchPropertyInfo where + type AttrAllowedOps DOMLocationSearchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationSearchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationSearchPropertyInfo = DOMLocationK + type AttrGetType DOMLocationSearchPropertyInfo = T.Text + type AttrLabel DOMLocationSearchPropertyInfo = "DOMLocation::search" + attrGet _ = getDOMLocationSearch + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMLocation = DOMLocationAttributeList +type DOMLocationAttributeList = ('[ '("ancestor-origins", DOMLocationAncestorOriginsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("hash", DOMLocationHashPropertyInfo), '("host", DOMLocationHostPropertyInfo), '("hostname", DOMLocationHostnamePropertyInfo), '("href", DOMLocationHrefPropertyInfo), '("origin", DOMLocationOriginPropertyInfo), '("pathname", DOMLocationPathnamePropertyInfo), '("port", DOMLocationPortPropertyInfo), '("protocol", DOMLocationProtocolPropertyInfo), '("search", DOMLocationSearchPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMLocation = DOMLocationSignalList +type DOMLocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMLocation::get_ancestor_origins +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMStringList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_ancestor_origins" webkit_dom_location_get_ancestor_origins :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO (Ptr DOMDOMStringList) + + +dOMLocationGetAncestorOrigins :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m DOMDOMStringList +dOMLocationGetAncestorOrigins _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_ancestor_origins _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_ancestor_origins" result + result' <- (wrapObject DOMDOMStringList) result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_hash" webkit_dom_location_get_hash :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetHash :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_hash _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_hash" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_host" webkit_dom_location_get_host :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetHost :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_host _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_host" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_hostname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_hostname" webkit_dom_location_get_hostname :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetHostname :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetHostname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_hostname _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_hostname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_href" webkit_dom_location_get_href :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetHref :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_origin" webkit_dom_location_get_origin :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetOrigin :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_origin _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_origin" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_pathname +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_pathname" webkit_dom_location_get_pathname :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetPathname :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetPathname _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_pathname _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_pathname" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_port" webkit_dom_location_get_port :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetPort :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_port _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_port" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_protocol" webkit_dom_location_get_protocol :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetProtocol :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetProtocol _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_protocol _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_protocol" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMLocation::get_search +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_location_get_search" webkit_dom_location_get_search :: + Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation" + IO CString + + +dOMLocationGetSearch :: + (MonadIO m, DOMLocationK a) => + a -> -- _obj + m T.Text +dOMLocationGetSearch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_location_get_search _obj' + checkUnexpectedReturnNULL "webkit_dom_location_get_search" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMLocation.hs-boot b/GI/WebKit/Objects/DOMLocation.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMLocation.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.DOMLocation where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMLocation = DOMLocation (ForeignPtr DOMLocation) +instance GObject DOMLocation where +class GObject o => DOMLocationK o +instance (GObject o, IsDescendantOf DOMLocation o) => DOMLocationK o +data DOMLocationAncestorOriginsPropertyInfo +data DOMLocationHashPropertyInfo +data DOMLocationHostPropertyInfo +data DOMLocationHostnamePropertyInfo +data DOMLocationHrefPropertyInfo +data DOMLocationOriginPropertyInfo +data DOMLocationPathnamePropertyInfo +data DOMLocationPortPropertyInfo +data DOMLocationProtocolPropertyInfo +data DOMLocationSearchPropertyInfo diff --git a/GI/WebKit/Objects/DOMMediaController.hs b/GI/WebKit/Objects/DOMMediaController.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaController.hs @@ -0,0 +1,925 @@ + +{- | +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.WebKit.Objects.DOMMediaController + ( + +-- * Exported types + DOMMediaController(..) , + DOMMediaControllerK , + toDOMMediaController , + noDOMMediaController , + + + -- * Methods +-- ** dOMMediaControllerGetBuffered + dOMMediaControllerGetBuffered , + + +-- ** dOMMediaControllerGetCurrentTime + dOMMediaControllerGetCurrentTime , + + +-- ** dOMMediaControllerGetDefaultPlaybackRate + dOMMediaControllerGetDefaultPlaybackRate, + + +-- ** dOMMediaControllerGetDuration + dOMMediaControllerGetDuration , + + +-- ** dOMMediaControllerGetMuted + dOMMediaControllerGetMuted , + + +-- ** dOMMediaControllerGetPaused + dOMMediaControllerGetPaused , + + +-- ** dOMMediaControllerGetPlaybackRate + dOMMediaControllerGetPlaybackRate , + + +-- ** dOMMediaControllerGetPlaybackState + dOMMediaControllerGetPlaybackState , + + +-- ** dOMMediaControllerGetPlayed + dOMMediaControllerGetPlayed , + + +-- ** dOMMediaControllerGetSeekable + dOMMediaControllerGetSeekable , + + +-- ** dOMMediaControllerGetVolume + dOMMediaControllerGetVolume , + + +-- ** dOMMediaControllerPause + dOMMediaControllerPause , + + +-- ** dOMMediaControllerPlay + dOMMediaControllerPlay , + + +-- ** dOMMediaControllerSetCurrentTime + dOMMediaControllerSetCurrentTime , + + +-- ** dOMMediaControllerSetDefaultPlaybackRate + dOMMediaControllerSetDefaultPlaybackRate, + + +-- ** dOMMediaControllerSetMuted + dOMMediaControllerSetMuted , + + +-- ** dOMMediaControllerSetPlaybackRate + dOMMediaControllerSetPlaybackRate , + + +-- ** dOMMediaControllerSetVolume + dOMMediaControllerSetVolume , + + +-- ** dOMMediaControllerUnpause + dOMMediaControllerUnpause , + + + + + -- * Properties +-- ** Buffered + DOMMediaControllerBufferedPropertyInfo , + getDOMMediaControllerBuffered , + + +-- ** CurrentTime + DOMMediaControllerCurrentTimePropertyInfo, + constructDOMMediaControllerCurrentTime , + getDOMMediaControllerCurrentTime , + setDOMMediaControllerCurrentTime , + + +-- ** DefaultPlaybackRate + DOMMediaControllerDefaultPlaybackRatePropertyInfo, + constructDOMMediaControllerDefaultPlaybackRate, + getDOMMediaControllerDefaultPlaybackRate, + setDOMMediaControllerDefaultPlaybackRate, + + +-- ** Duration + DOMMediaControllerDurationPropertyInfo , + getDOMMediaControllerDuration , + + +-- ** Muted + DOMMediaControllerMutedPropertyInfo , + constructDOMMediaControllerMuted , + getDOMMediaControllerMuted , + setDOMMediaControllerMuted , + + +-- ** Paused + DOMMediaControllerPausedPropertyInfo , + getDOMMediaControllerPaused , + + +-- ** PlaybackRate + DOMMediaControllerPlaybackRatePropertyInfo, + constructDOMMediaControllerPlaybackRate , + getDOMMediaControllerPlaybackRate , + setDOMMediaControllerPlaybackRate , + + +-- ** PlaybackState + DOMMediaControllerPlaybackStatePropertyInfo, + getDOMMediaControllerPlaybackState , + + +-- ** Played + DOMMediaControllerPlayedPropertyInfo , + getDOMMediaControllerPlayed , + + +-- ** Seekable + DOMMediaControllerSeekablePropertyInfo , + getDOMMediaControllerSeekable , + + +-- ** Volume + DOMMediaControllerVolumePropertyInfo , + constructDOMMediaControllerVolume , + getDOMMediaControllerVolume , + setDOMMediaControllerVolume , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMediaController = DOMMediaController (ForeignPtr DOMMediaController) +foreign import ccall "webkit_dom_media_controller_get_type" + c_webkit_dom_media_controller_get_type :: IO GType + +type instance ParentTypes DOMMediaController = DOMMediaControllerParentTypes +type DOMMediaControllerParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMMediaController where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_media_controller_get_type + + +class GObject o => DOMMediaControllerK o +instance (GObject o, IsDescendantOf DOMMediaController o) => DOMMediaControllerK o + +toDOMMediaController :: DOMMediaControllerK o => o -> IO DOMMediaController +toDOMMediaController = unsafeCastTo DOMMediaController + +noDOMMediaController :: Maybe DOMMediaController +noDOMMediaController = Nothing + +-- VVV Prop "buffered" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerBuffered :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges + +data DOMMediaControllerBufferedPropertyInfo +instance AttrInfo DOMMediaControllerBufferedPropertyInfo where + type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerBufferedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerBufferedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerBufferedPropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerBufferedPropertyInfo = "DOMMediaController::buffered" + attrGet _ = getDOMMediaControllerBuffered + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" + +setDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val + +constructDOMMediaControllerCurrentTime :: Double -> IO ([Char], GValue) +constructDOMMediaControllerCurrentTime val = constructObjectPropertyDouble "current-time" val + +data DOMMediaControllerCurrentTimePropertyInfo +instance AttrInfo DOMMediaControllerCurrentTimePropertyInfo where + type AttrAllowedOps DOMMediaControllerCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerCurrentTimePropertyInfo = Double + type AttrLabel DOMMediaControllerCurrentTimePropertyInfo = "DOMMediaController::current-time" + attrGet _ = getDOMMediaControllerCurrentTime + attrSet _ = setDOMMediaControllerCurrentTime + attrConstruct _ = constructDOMMediaControllerCurrentTime + +-- VVV Prop "default-playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" + +setDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val + +constructDOMMediaControllerDefaultPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMMediaControllerDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val + +data DOMMediaControllerDefaultPlaybackRatePropertyInfo +instance AttrInfo DOMMediaControllerDefaultPlaybackRatePropertyInfo where + type AttrAllowedOps DOMMediaControllerDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerDefaultPlaybackRatePropertyInfo = Double + type AttrLabel DOMMediaControllerDefaultPlaybackRatePropertyInfo = "DOMMediaController::default-playback-rate" + attrGet _ = getDOMMediaControllerDefaultPlaybackRate + attrSet _ = setDOMMediaControllerDefaultPlaybackRate + attrConstruct _ = constructDOMMediaControllerDefaultPlaybackRate + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMMediaControllerDuration :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMMediaControllerDurationPropertyInfo +instance AttrInfo DOMMediaControllerDurationPropertyInfo where + type AttrAllowedOps DOMMediaControllerDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerDurationPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerDurationPropertyInfo = Double + type AttrLabel DOMMediaControllerDurationPropertyInfo = "DOMMediaController::duration" + attrGet _ = getDOMMediaControllerDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool +getDOMMediaControllerMuted obj = liftIO $ getObjectPropertyBool obj "muted" + +setDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> Bool -> m () +setDOMMediaControllerMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val + +constructDOMMediaControllerMuted :: Bool -> IO ([Char], GValue) +constructDOMMediaControllerMuted val = constructObjectPropertyBool "muted" val + +data DOMMediaControllerMutedPropertyInfo +instance AttrInfo DOMMediaControllerMutedPropertyInfo where + type AttrAllowedOps DOMMediaControllerMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMMediaControllerMutedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerMutedPropertyInfo = Bool + type AttrLabel DOMMediaControllerMutedPropertyInfo = "DOMMediaController::muted" + attrGet _ = getDOMMediaControllerMuted + attrSet _ = setDOMMediaControllerMuted + attrConstruct _ = constructDOMMediaControllerMuted + +-- VVV Prop "paused" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMediaControllerPaused :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool +getDOMMediaControllerPaused obj = liftIO $ getObjectPropertyBool obj "paused" + +data DOMMediaControllerPausedPropertyInfo +instance AttrInfo DOMMediaControllerPausedPropertyInfo where + type AttrAllowedOps DOMMediaControllerPausedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPausedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPausedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPausedPropertyInfo = Bool + type AttrLabel DOMMediaControllerPausedPropertyInfo = "DOMMediaController::paused" + attrGet _ = getDOMMediaControllerPaused + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" + +setDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val + +constructDOMMediaControllerPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMMediaControllerPlaybackRate val = constructObjectPropertyDouble "playback-rate" val + +data DOMMediaControllerPlaybackRatePropertyInfo +instance AttrInfo DOMMediaControllerPlaybackRatePropertyInfo where + type AttrAllowedOps DOMMediaControllerPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlaybackRatePropertyInfo = Double + type AttrLabel DOMMediaControllerPlaybackRatePropertyInfo = "DOMMediaController::playback-rate" + attrGet _ = getDOMMediaControllerPlaybackRate + attrSet _ = setDOMMediaControllerPlaybackRate + attrConstruct _ = constructDOMMediaControllerPlaybackRate + +-- VVV Prop "playback-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMMediaControllerPlaybackState :: (MonadIO m, DOMMediaControllerK o) => o -> m T.Text +getDOMMediaControllerPlaybackState obj = liftIO $ getObjectPropertyString obj "playback-state" + +data DOMMediaControllerPlaybackStatePropertyInfo +instance AttrInfo DOMMediaControllerPlaybackStatePropertyInfo where + type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = T.Text + type AttrLabel DOMMediaControllerPlaybackStatePropertyInfo = "DOMMediaController::playback-state" + attrGet _ = getDOMMediaControllerPlaybackState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "played" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerPlayed :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges + +data DOMMediaControllerPlayedPropertyInfo +instance AttrInfo DOMMediaControllerPlayedPropertyInfo where + type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlayedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPlayedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlayedPropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerPlayedPropertyInfo = "DOMMediaController::played" + attrGet _ = getDOMMediaControllerPlayed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seekable" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerSeekable :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges + +data DOMMediaControllerSeekablePropertyInfo +instance AttrInfo DOMMediaControllerSeekablePropertyInfo where + type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerSeekablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerSeekablePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerSeekablePropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerSeekablePropertyInfo = "DOMMediaController::seekable" + attrGet _ = getDOMMediaControllerSeekable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "volume" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerVolume obj = liftIO $ getObjectPropertyDouble obj "volume" + +setDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val + +constructDOMMediaControllerVolume :: Double -> IO ([Char], GValue) +constructDOMMediaControllerVolume val = constructObjectPropertyDouble "volume" val + +data DOMMediaControllerVolumePropertyInfo +instance AttrInfo DOMMediaControllerVolumePropertyInfo where + type AttrAllowedOps DOMMediaControllerVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerVolumePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerVolumePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerVolumePropertyInfo = Double + type AttrLabel DOMMediaControllerVolumePropertyInfo = "DOMMediaController::volume" + attrGet _ = getDOMMediaControllerVolume + attrSet _ = setDOMMediaControllerVolume + attrConstruct _ = constructDOMMediaControllerVolume + +type instance AttributeList DOMMediaController = DOMMediaControllerAttributeList +type DOMMediaControllerAttributeList = ('[ '("buffered", DOMMediaControllerBufferedPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-time", DOMMediaControllerCurrentTimePropertyInfo), '("default-playback-rate", DOMMediaControllerDefaultPlaybackRatePropertyInfo), '("duration", DOMMediaControllerDurationPropertyInfo), '("muted", DOMMediaControllerMutedPropertyInfo), '("paused", DOMMediaControllerPausedPropertyInfo), '("playback-rate", DOMMediaControllerPlaybackRatePropertyInfo), '("playback-state", DOMMediaControllerPlaybackStatePropertyInfo), '("played", DOMMediaControllerPlayedPropertyInfo), '("seekable", DOMMediaControllerSeekablePropertyInfo), '("volume", DOMMediaControllerVolumePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMediaController = DOMMediaControllerSignalList +type DOMMediaControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMediaController::get_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_buffered" webkit_dom_media_controller_get_buffered :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO (Ptr DOMTimeRanges) + + +dOMMediaControllerGetBuffered :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m DOMTimeRanges +dOMMediaControllerGetBuffered _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_buffered _obj' + checkUnexpectedReturnNULL "webkit_dom_media_controller_get_buffered" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_current_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_current_time" webkit_dom_media_controller_get_current_time :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CDouble + + +dOMMediaControllerGetCurrentTime :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Double +dOMMediaControllerGetCurrentTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_current_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_default_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_default_playback_rate" webkit_dom_media_controller_get_default_playback_rate :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CDouble + + +dOMMediaControllerGetDefaultPlaybackRate :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Double +dOMMediaControllerGetDefaultPlaybackRate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_default_playback_rate _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_duration +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_duration" webkit_dom_media_controller_get_duration :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CDouble + + +dOMMediaControllerGetDuration :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Double +dOMMediaControllerGetDuration _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_duration _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_muted" webkit_dom_media_controller_get_muted :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CInt + + +dOMMediaControllerGetMuted :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Bool +dOMMediaControllerGetMuted _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_muted _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_paused +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_paused" webkit_dom_media_controller_get_paused :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CInt + + +dOMMediaControllerGetPaused :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Bool +dOMMediaControllerGetPaused _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_paused _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_playback_rate" webkit_dom_media_controller_get_playback_rate :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CDouble + + +dOMMediaControllerGetPlaybackRate :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Double +dOMMediaControllerGetPlaybackRate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_playback_rate _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_playback_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_playback_state" webkit_dom_media_controller_get_playback_state :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CString + + +dOMMediaControllerGetPlaybackState :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m T.Text +dOMMediaControllerGetPlaybackState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_playback_state _obj' + checkUnexpectedReturnNULL "webkit_dom_media_controller_get_playback_state" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_played +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_played" webkit_dom_media_controller_get_played :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO (Ptr DOMTimeRanges) + + +dOMMediaControllerGetPlayed :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m DOMTimeRanges +dOMMediaControllerGetPlayed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_played _obj' + checkUnexpectedReturnNULL "webkit_dom_media_controller_get_played" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_seekable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTimeRanges" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_seekable" webkit_dom_media_controller_get_seekable :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO (Ptr DOMTimeRanges) + + +dOMMediaControllerGetSeekable :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m DOMTimeRanges +dOMMediaControllerGetSeekable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_seekable _obj' + checkUnexpectedReturnNULL "webkit_dom_media_controller_get_seekable" result + result' <- (wrapObject DOMTimeRanges) result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::get_volume +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_get_volume" webkit_dom_media_controller_get_volume :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO CDouble + + +dOMMediaControllerGetVolume :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m Double +dOMMediaControllerGetVolume _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_controller_get_volume _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMMediaController::pause +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_pause" webkit_dom_media_controller_pause :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO () + + +dOMMediaControllerPause :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m () +dOMMediaControllerPause _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_media_controller_pause _obj' + touchManagedPtr _obj + return () + +-- method DOMMediaController::play +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_play" webkit_dom_media_controller_play :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO () + + +dOMMediaControllerPlay :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m () +dOMMediaControllerPlay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_media_controller_play _obj' + touchManagedPtr _obj + return () + +-- method DOMMediaController::set_current_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_set_current_time" webkit_dom_media_controller_set_current_time :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + CDouble -> -- value : TBasicType TDouble + IO () + + +dOMMediaControllerSetCurrentTime :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + Double -> -- value + m () +dOMMediaControllerSetCurrentTime _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_media_controller_set_current_time _obj' value' + touchManagedPtr _obj + return () + +-- method DOMMediaController::set_default_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_set_default_playback_rate" webkit_dom_media_controller_set_default_playback_rate :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + CDouble -> -- value : TBasicType TDouble + IO () + + +dOMMediaControllerSetDefaultPlaybackRate :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + Double -> -- value + m () +dOMMediaControllerSetDefaultPlaybackRate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_media_controller_set_default_playback_rate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMMediaController::set_muted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_set_muted" webkit_dom_media_controller_set_muted :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMMediaControllerSetMuted :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + Bool -> -- value + m () +dOMMediaControllerSetMuted _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_media_controller_set_muted _obj' value' + touchManagedPtr _obj + return () + +-- method DOMMediaController::set_playback_rate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_set_playback_rate" webkit_dom_media_controller_set_playback_rate :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + CDouble -> -- value : TBasicType TDouble + IO () + + +dOMMediaControllerSetPlaybackRate :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + Double -> -- value + m () +dOMMediaControllerSetPlaybackRate _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_media_controller_set_playback_rate _obj' value' + touchManagedPtr _obj + return () + +-- method DOMMediaController::set_volume +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_set_volume" webkit_dom_media_controller_set_volume :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMMediaControllerSetVolume :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + Double -> -- value + m () +dOMMediaControllerSetVolume _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_media_controller_set_volume _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMMediaController::unpause +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_controller_unpause" webkit_dom_media_controller_unpause :: + Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController" + IO () + + +dOMMediaControllerUnpause :: + (MonadIO m, DOMMediaControllerK a) => + a -> -- _obj + m () +dOMMediaControllerUnpause _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_media_controller_unpause _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMMediaController.hs-boot b/GI/WebKit/Objects/DOMMediaController.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaController.hs-boot @@ -0,0 +1,24 @@ +module GI.WebKit.Objects.DOMMediaController where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMediaController = DOMMediaController (ForeignPtr DOMMediaController) +instance GObject DOMMediaController where +class GObject o => DOMMediaControllerK o +instance (GObject o, IsDescendantOf DOMMediaController o) => DOMMediaControllerK o +data DOMMediaControllerBufferedPropertyInfo +data DOMMediaControllerCurrentTimePropertyInfo +data DOMMediaControllerDefaultPlaybackRatePropertyInfo +data DOMMediaControllerDurationPropertyInfo +data DOMMediaControllerMutedPropertyInfo +data DOMMediaControllerPausedPropertyInfo +data DOMMediaControllerPlaybackRatePropertyInfo +data DOMMediaControllerPlaybackStatePropertyInfo +data DOMMediaControllerPlayedPropertyInfo +data DOMMediaControllerSeekablePropertyInfo +data DOMMediaControllerVolumePropertyInfo diff --git a/GI/WebKit/Objects/DOMMediaError.hs b/GI/WebKit/Objects/DOMMediaError.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaError.hs @@ -0,0 +1,115 @@ + +{- | +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.WebKit.Objects.DOMMediaError + ( + +-- * Exported types + DOMMediaError(..) , + DOMMediaErrorK , + toDOMMediaError , + noDOMMediaError , + + + -- * Methods +-- ** dOMMediaErrorGetCode + dOMMediaErrorGetCode , + + + + + -- * Properties +-- ** Code + DOMMediaErrorCodePropertyInfo , + getDOMMediaErrorCode , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMediaError = DOMMediaError (ForeignPtr DOMMediaError) +foreign import ccall "webkit_dom_media_error_get_type" + c_webkit_dom_media_error_get_type :: IO GType + +type instance ParentTypes DOMMediaError = DOMMediaErrorParentTypes +type DOMMediaErrorParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMMediaError where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_media_error_get_type + + +class GObject o => DOMMediaErrorK o +instance (GObject o, IsDescendantOf DOMMediaError o) => DOMMediaErrorK o + +toDOMMediaError :: DOMMediaErrorK o => o -> IO DOMMediaError +toDOMMediaError = unsafeCastTo DOMMediaError + +noDOMMediaError :: Maybe DOMMediaError +noDOMMediaError = Nothing + +-- VVV Prop "code" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMMediaErrorCode :: (MonadIO m, DOMMediaErrorK o) => o -> m Word32 +getDOMMediaErrorCode obj = liftIO $ getObjectPropertyCUInt obj "code" + +data DOMMediaErrorCodePropertyInfo +instance AttrInfo DOMMediaErrorCodePropertyInfo where + type AttrAllowedOps DOMMediaErrorCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaErrorCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaErrorCodePropertyInfo = DOMMediaErrorK + type AttrGetType DOMMediaErrorCodePropertyInfo = Word32 + type AttrLabel DOMMediaErrorCodePropertyInfo = "DOMMediaError::code" + attrGet _ = getDOMMediaErrorCode + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMediaError = DOMMediaErrorAttributeList +type DOMMediaErrorAttributeList = ('[ '("code", DOMMediaErrorCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMediaError = DOMMediaErrorSignalList +type DOMMediaErrorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMediaError::get_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaError", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaError", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_error_get_code" webkit_dom_media_error_get_code :: + Ptr DOMMediaError -> -- _obj : TInterface "WebKit" "DOMMediaError" + IO Word16 + + +dOMMediaErrorGetCode :: + (MonadIO m, DOMMediaErrorK a) => + a -> -- _obj + m Word16 +dOMMediaErrorGetCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_error_get_code _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMMediaError.hs-boot b/GI/WebKit/Objects/DOMMediaError.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaError.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMMediaError where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMediaError = DOMMediaError (ForeignPtr DOMMediaError) +instance GObject DOMMediaError where +class GObject o => DOMMediaErrorK o +instance (GObject o, IsDescendantOf DOMMediaError o) => DOMMediaErrorK o +data DOMMediaErrorCodePropertyInfo diff --git a/GI/WebKit/Objects/DOMMediaList.hs b/GI/WebKit/Objects/DOMMediaList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaList.hs @@ -0,0 +1,321 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMMediaList + ( + +-- * Exported types + DOMMediaList(..) , + DOMMediaListK , + toDOMMediaList , + noDOMMediaList , + + + -- * Methods +-- ** dOMMediaListAppendMedium + dOMMediaListAppendMedium , + + +-- ** dOMMediaListDeleteMedium + dOMMediaListDeleteMedium , + + +-- ** dOMMediaListGetLength + dOMMediaListGetLength , + + +-- ** dOMMediaListGetMediaText + dOMMediaListGetMediaText , + + +-- ** dOMMediaListItem + dOMMediaListItem , + + +-- ** dOMMediaListSetMediaText + dOMMediaListSetMediaText , + + + + + -- * Properties +-- ** Length + DOMMediaListLengthPropertyInfo , + getDOMMediaListLength , + + +-- ** MediaText + DOMMediaListMediaTextPropertyInfo , + constructDOMMediaListMediaText , + getDOMMediaListMediaText , + setDOMMediaListMediaText , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMediaList = DOMMediaList (ForeignPtr DOMMediaList) +foreign import ccall "webkit_dom_media_list_get_type" + c_webkit_dom_media_list_get_type :: IO GType + +type instance ParentTypes DOMMediaList = DOMMediaListParentTypes +type DOMMediaListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMMediaList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_media_list_get_type + + +class GObject o => DOMMediaListK o +instance (GObject o, IsDescendantOf DOMMediaList o) => DOMMediaListK o + +toDOMMediaList :: DOMMediaListK o => o -> IO DOMMediaList +toDOMMediaList = unsafeCastTo DOMMediaList + +noDOMMediaList :: Maybe DOMMediaList +noDOMMediaList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m Word64 +getDOMMediaListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMMediaListLengthPropertyInfo +instance AttrInfo DOMMediaListLengthPropertyInfo where + type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK + type AttrGetType DOMMediaListLengthPropertyInfo = Word64 + type AttrLabel DOMMediaListLengthPropertyInfo = "DOMMediaList::length" + attrGet _ = getDOMMediaListLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m T.Text +getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text" + +setDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> T.Text -> m () +setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" val + +constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue) +constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" val + +data DOMMediaListMediaTextPropertyInfo +instance AttrInfo DOMMediaListMediaTextPropertyInfo where + type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK + type AttrGetType DOMMediaListMediaTextPropertyInfo = T.Text + type AttrLabel DOMMediaListMediaTextPropertyInfo = "DOMMediaList::media-text" + attrGet _ = getDOMMediaListMediaText + attrSet _ = setDOMMediaListMediaText + attrConstruct _ = constructDOMMediaListMediaText + +type instance AttributeList DOMMediaList = DOMMediaListAttributeList +type DOMMediaListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("media-text", DOMMediaListMediaTextPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMediaList = DOMMediaListSignalList +type DOMMediaListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMediaList::append_medium +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_append_medium" webkit_dom_media_list_append_medium :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + CString -> -- newMedium : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMMediaListAppendMedium :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + T.Text -> -- newMedium + m () +dOMMediaListAppendMedium _obj newMedium = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + newMedium' <- textToCString newMedium + onException (do + propagateGError $ webkit_dom_media_list_append_medium _obj' newMedium' + touchManagedPtr _obj + freeMem newMedium' + return () + ) (do + freeMem newMedium' + ) + +-- method DOMMediaList::delete_medium +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_delete_medium" webkit_dom_media_list_delete_medium :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + CString -> -- oldMedium : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMMediaListDeleteMedium :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + T.Text -> -- oldMedium + m () +dOMMediaListDeleteMedium _obj oldMedium = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + oldMedium' <- textToCString oldMedium + onException (do + propagateGError $ webkit_dom_media_list_delete_medium _obj' oldMedium' + touchManagedPtr _obj + freeMem oldMedium' + return () + ) (do + freeMem oldMedium' + ) + +-- method DOMMediaList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_get_length" webkit_dom_media_list_get_length :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + IO Word64 + + +dOMMediaListGetLength :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + m Word64 +dOMMediaListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMMediaList::get_media_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_get_media_text" webkit_dom_media_list_get_media_text :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + IO CString + + +dOMMediaListGetMediaText :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + m T.Text +dOMMediaListGetMediaText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_list_get_media_text _obj' + checkUnexpectedReturnNULL "webkit_dom_media_list_get_media_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMMediaList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_item" webkit_dom_media_list_item :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + Word64 -> -- index : TBasicType TUInt64 + IO CString + + +dOMMediaListItem :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + Word64 -> -- index + m T.Text +dOMMediaListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_media_list_item" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMMediaList::set_media_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_media_list_set_media_text" webkit_dom_media_list_set_media_text :: + Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMMediaListSetMediaText :: + (MonadIO m, DOMMediaListK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMMediaListSetMediaText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_media_list_set_media_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMMediaList.hs-boot b/GI/WebKit/Objects/DOMMediaList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaList.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMMediaList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMediaList = DOMMediaList (ForeignPtr DOMMediaList) +instance GObject DOMMediaList where +class GObject o => DOMMediaListK o +instance (GObject o, IsDescendantOf DOMMediaList o) => DOMMediaListK o +data DOMMediaListLengthPropertyInfo +data DOMMediaListMediaTextPropertyInfo diff --git a/GI/WebKit/Objects/DOMMediaQueryList.hs b/GI/WebKit/Objects/DOMMediaQueryList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaQueryList.hs @@ -0,0 +1,170 @@ + +{- | +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.WebKit.Objects.DOMMediaQueryList + ( + +-- * Exported types + DOMMediaQueryList(..) , + DOMMediaQueryListK , + toDOMMediaQueryList , + noDOMMediaQueryList , + + + -- * Methods +-- ** dOMMediaQueryListGetMatches + dOMMediaQueryListGetMatches , + + +-- ** dOMMediaQueryListGetMedia + dOMMediaQueryListGetMedia , + + + + + -- * Properties +-- ** Matches + DOMMediaQueryListMatchesPropertyInfo , + getDOMMediaQueryListMatches , + + +-- ** Media + DOMMediaQueryListMediaPropertyInfo , + getDOMMediaQueryListMedia , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMediaQueryList = DOMMediaQueryList (ForeignPtr DOMMediaQueryList) +foreign import ccall "webkit_dom_media_query_list_get_type" + c_webkit_dom_media_query_list_get_type :: IO GType + +type instance ParentTypes DOMMediaQueryList = DOMMediaQueryListParentTypes +type DOMMediaQueryListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMMediaQueryList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_media_query_list_get_type + + +class GObject o => DOMMediaQueryListK o +instance (GObject o, IsDescendantOf DOMMediaQueryList o) => DOMMediaQueryListK o + +toDOMMediaQueryList :: DOMMediaQueryListK o => o -> IO DOMMediaQueryList +toDOMMediaQueryList = unsafeCastTo DOMMediaQueryList + +noDOMMediaQueryList :: Maybe DOMMediaQueryList +noDOMMediaQueryList = Nothing + +-- VVV Prop "matches" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMediaQueryListMatches :: (MonadIO m, DOMMediaQueryListK o) => o -> m Bool +getDOMMediaQueryListMatches obj = liftIO $ getObjectPropertyBool obj "matches" + +data DOMMediaQueryListMatchesPropertyInfo +instance AttrInfo DOMMediaQueryListMatchesPropertyInfo where + type AttrAllowedOps DOMMediaQueryListMatchesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaQueryListMatchesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaQueryListMatchesPropertyInfo = DOMMediaQueryListK + type AttrGetType DOMMediaQueryListMatchesPropertyInfo = Bool + type AttrLabel DOMMediaQueryListMatchesPropertyInfo = "DOMMediaQueryList::matches" + attrGet _ = getDOMMediaQueryListMatches + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m T.Text +getDOMMediaQueryListMedia obj = liftIO $ getObjectPropertyString obj "media" + +data DOMMediaQueryListMediaPropertyInfo +instance AttrInfo DOMMediaQueryListMediaPropertyInfo where + type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaQueryListMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaQueryListMediaPropertyInfo = DOMMediaQueryListK + type AttrGetType DOMMediaQueryListMediaPropertyInfo = T.Text + type AttrLabel DOMMediaQueryListMediaPropertyInfo = "DOMMediaQueryList::media" + attrGet _ = getDOMMediaQueryListMedia + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMediaQueryList = DOMMediaQueryListAttributeList +type DOMMediaQueryListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("matches", DOMMediaQueryListMatchesPropertyInfo), '("media", DOMMediaQueryListMediaPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMediaQueryList = DOMMediaQueryListSignalList +type DOMMediaQueryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMediaQueryList::get_matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_query_list_get_matches" webkit_dom_media_query_list_get_matches :: + Ptr DOMMediaQueryList -> -- _obj : TInterface "WebKit" "DOMMediaQueryList" + IO CInt + + +dOMMediaQueryListGetMatches :: + (MonadIO m, DOMMediaQueryListK a) => + a -> -- _obj + m Bool +dOMMediaQueryListGetMatches _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_query_list_get_matches _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMediaQueryList::get_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_media_query_list_get_media" webkit_dom_media_query_list_get_media :: + Ptr DOMMediaQueryList -> -- _obj : TInterface "WebKit" "DOMMediaQueryList" + IO CString + + +dOMMediaQueryListGetMedia :: + (MonadIO m, DOMMediaQueryListK a) => + a -> -- _obj + m T.Text +dOMMediaQueryListGetMedia _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_media_query_list_get_media _obj' + checkUnexpectedReturnNULL "webkit_dom_media_query_list_get_media" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMMediaQueryList.hs-boot b/GI/WebKit/Objects/DOMMediaQueryList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMediaQueryList.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMMediaQueryList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMediaQueryList = DOMMediaQueryList (ForeignPtr DOMMediaQueryList) +instance GObject DOMMediaQueryList where +class GObject o => DOMMediaQueryListK o +instance (GObject o, IsDescendantOf DOMMediaQueryList o) => DOMMediaQueryListK o +data DOMMediaQueryListMatchesPropertyInfo +data DOMMediaQueryListMediaPropertyInfo diff --git a/GI/WebKit/Objects/DOMMemoryInfo.hs b/GI/WebKit/Objects/DOMMemoryInfo.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMemoryInfo.hs @@ -0,0 +1,211 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMMemoryInfo + ( + +-- * Exported types + DOMMemoryInfo(..) , + DOMMemoryInfoK , + toDOMMemoryInfo , + noDOMMemoryInfo , + + + -- * Methods +-- ** dOMMemoryInfoGetJsHeapSizeLimit + dOMMemoryInfoGetJsHeapSizeLimit , + + +-- ** dOMMemoryInfoGetTotalJsHeapSize + dOMMemoryInfoGetTotalJsHeapSize , + + +-- ** dOMMemoryInfoGetUsedJsHeapSize + dOMMemoryInfoGetUsedJsHeapSize , + + + + + -- * Properties +-- ** JsHeapSizeLimit + DOMMemoryInfoJsHeapSizeLimitPropertyInfo, + getDOMMemoryInfoJsHeapSizeLimit , + + +-- ** TotalJsHeapSize + DOMMemoryInfoTotalJsHeapSizePropertyInfo, + getDOMMemoryInfoTotalJsHeapSize , + + +-- ** UsedJsHeapSize + DOMMemoryInfoUsedJsHeapSizePropertyInfo , + getDOMMemoryInfoUsedJsHeapSize , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMemoryInfo = DOMMemoryInfo (ForeignPtr DOMMemoryInfo) +foreign import ccall "webkit_dom_memory_info_get_type" + c_webkit_dom_memory_info_get_type :: IO GType + +type instance ParentTypes DOMMemoryInfo = DOMMemoryInfoParentTypes +type DOMMemoryInfoParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMMemoryInfo where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_memory_info_get_type + + +class GObject o => DOMMemoryInfoK o +instance (GObject o, IsDescendantOf DOMMemoryInfo o) => DOMMemoryInfoK o + +toDOMMemoryInfo :: DOMMemoryInfoK o => o -> IO DOMMemoryInfo +toDOMMemoryInfo = unsafeCastTo DOMMemoryInfo + +noDOMMemoryInfo :: Maybe DOMMemoryInfo +noDOMMemoryInfo = Nothing + +-- VVV Prop "js-heap-size-limit" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoJsHeapSizeLimit :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoJsHeapSizeLimit obj = liftIO $ getObjectPropertyUInt64 obj "js-heap-size-limit" + +data DOMMemoryInfoJsHeapSizeLimitPropertyInfo +instance AttrInfo DOMMemoryInfoJsHeapSizeLimitPropertyInfo where + type AttrAllowedOps DOMMemoryInfoJsHeapSizeLimitPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoJsHeapSizeLimitPropertyInfo = Word64 + type AttrLabel DOMMemoryInfoJsHeapSizeLimitPropertyInfo = "DOMMemoryInfo::js-heap-size-limit" + attrGet _ = getDOMMemoryInfoJsHeapSizeLimit + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-js-heap-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoTotalJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoTotalJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "total-js-heap-size" + +data DOMMemoryInfoTotalJsHeapSizePropertyInfo +instance AttrInfo DOMMemoryInfoTotalJsHeapSizePropertyInfo where + type AttrAllowedOps DOMMemoryInfoTotalJsHeapSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoTotalJsHeapSizePropertyInfo = Word64 + type AttrLabel DOMMemoryInfoTotalJsHeapSizePropertyInfo = "DOMMemoryInfo::total-js-heap-size" + attrGet _ = getDOMMemoryInfoTotalJsHeapSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "used-js-heap-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoUsedJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoUsedJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "used-js-heap-size" + +data DOMMemoryInfoUsedJsHeapSizePropertyInfo +instance AttrInfo DOMMemoryInfoUsedJsHeapSizePropertyInfo where + type AttrAllowedOps DOMMemoryInfoUsedJsHeapSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoUsedJsHeapSizePropertyInfo = Word64 + type AttrLabel DOMMemoryInfoUsedJsHeapSizePropertyInfo = "DOMMemoryInfo::used-js-heap-size" + attrGet _ = getDOMMemoryInfoUsedJsHeapSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMemoryInfo = DOMMemoryInfoAttributeList +type DOMMemoryInfoAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("js-heap-size-limit", DOMMemoryInfoJsHeapSizeLimitPropertyInfo), '("total-js-heap-size", DOMMemoryInfoTotalJsHeapSizePropertyInfo), '("used-js-heap-size", DOMMemoryInfoUsedJsHeapSizePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMemoryInfo = DOMMemoryInfoSignalList +type DOMMemoryInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMemoryInfo::get_js_heap_size_limit +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_memory_info_get_js_heap_size_limit" webkit_dom_memory_info_get_js_heap_size_limit :: + Ptr () -> -- self : TBasicType TVoid + IO Word64 + +{-# DEPRECATED dOMMemoryInfoGetJsHeapSizeLimit ["(Since version 2.2)"]#-} +dOMMemoryInfoGetJsHeapSizeLimit :: + (MonadIO m) => + Ptr () -> -- self + m Word64 +dOMMemoryInfoGetJsHeapSizeLimit self = liftIO $ do + result <- webkit_dom_memory_info_get_js_heap_size_limit self + return result + +-- method DOMMemoryInfo::get_total_js_heap_size +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_memory_info_get_total_js_heap_size" webkit_dom_memory_info_get_total_js_heap_size :: + Ptr () -> -- self : TBasicType TVoid + IO Word64 + +{-# DEPRECATED dOMMemoryInfoGetTotalJsHeapSize ["(Since version 2.2)"]#-} +dOMMemoryInfoGetTotalJsHeapSize :: + (MonadIO m) => + Ptr () -> -- self + m Word64 +dOMMemoryInfoGetTotalJsHeapSize self = liftIO $ do + result <- webkit_dom_memory_info_get_total_js_heap_size self + return result + +-- method DOMMemoryInfo::get_used_js_heap_size +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_memory_info_get_used_js_heap_size" webkit_dom_memory_info_get_used_js_heap_size :: + Ptr () -> -- self : TBasicType TVoid + IO Word64 + +{-# DEPRECATED dOMMemoryInfoGetUsedJsHeapSize ["(Since version 2.2)"]#-} +dOMMemoryInfoGetUsedJsHeapSize :: + (MonadIO m) => + Ptr () -> -- self + m Word64 +dOMMemoryInfoGetUsedJsHeapSize self = liftIO $ do + result <- webkit_dom_memory_info_get_used_js_heap_size self + return result + + diff --git a/GI/WebKit/Objects/DOMMemoryInfo.hs-boot b/GI/WebKit/Objects/DOMMemoryInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMemoryInfo.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMMemoryInfo where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMemoryInfo = DOMMemoryInfo (ForeignPtr DOMMemoryInfo) +instance GObject DOMMemoryInfo where +class GObject o => DOMMemoryInfoK o +instance (GObject o, IsDescendantOf DOMMemoryInfo o) => DOMMemoryInfoK o +data DOMMemoryInfoJsHeapSizeLimitPropertyInfo +data DOMMemoryInfoTotalJsHeapSizePropertyInfo +data DOMMemoryInfoUsedJsHeapSizePropertyInfo diff --git a/GI/WebKit/Objects/DOMMessagePort.hs b/GI/WebKit/Objects/DOMMessagePort.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMessagePort.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMMessagePort + ( + +-- * Exported types + DOMMessagePort(..) , + DOMMessagePortK , + toDOMMessagePort , + noDOMMessagePort , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMessagePort = DOMMessagePort (ForeignPtr DOMMessagePort) +foreign import ccall "webkit_dom_message_port_get_type" + c_webkit_dom_message_port_get_type :: IO GType + +type instance ParentTypes DOMMessagePort = DOMMessagePortParentTypes +type DOMMessagePortParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMMessagePort where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_message_port_get_type + + +class GObject o => DOMMessagePortK o +instance (GObject o, IsDescendantOf DOMMessagePort o) => DOMMessagePortK o + +toDOMMessagePort :: DOMMessagePortK o => o -> IO DOMMessagePort +toDOMMessagePort = unsafeCastTo DOMMessagePort + +noDOMMessagePort :: Maybe DOMMessagePort +noDOMMessagePort = Nothing + +type instance AttributeList DOMMessagePort = DOMMessagePortAttributeList +type DOMMessagePortAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMessagePort = DOMMessagePortSignalList +type DOMMessagePortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMMessagePort.hs-boot b/GI/WebKit/Objects/DOMMessagePort.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMessagePort.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMMessagePort where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMessagePort = DOMMessagePort (ForeignPtr DOMMessagePort) +instance GObject DOMMessagePort where +class GObject o => DOMMessagePortK o +instance (GObject o, IsDescendantOf DOMMessagePort o) => DOMMessagePortK o diff --git a/GI/WebKit/Objects/DOMMicroDataItemValue.hs b/GI/WebKit/Objects/DOMMicroDataItemValue.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMicroDataItemValue.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMMicroDataItemValue + ( + +-- * Exported types + DOMMicroDataItemValue(..) , + DOMMicroDataItemValueK , + toDOMMicroDataItemValue , + noDOMMicroDataItemValue , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMicroDataItemValue = DOMMicroDataItemValue (ForeignPtr DOMMicroDataItemValue) +foreign import ccall "webkit_dom_micro_data_item_value_get_type" + c_webkit_dom_micro_data_item_value_get_type :: IO GType + +type instance ParentTypes DOMMicroDataItemValue = DOMMicroDataItemValueParentTypes +type DOMMicroDataItemValueParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMMicroDataItemValue where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_micro_data_item_value_get_type + + +class GObject o => DOMMicroDataItemValueK o +instance (GObject o, IsDescendantOf DOMMicroDataItemValue o) => DOMMicroDataItemValueK o + +toDOMMicroDataItemValue :: DOMMicroDataItemValueK o => o -> IO DOMMicroDataItemValue +toDOMMicroDataItemValue = unsafeCastTo DOMMicroDataItemValue + +noDOMMicroDataItemValue :: Maybe DOMMicroDataItemValue +noDOMMicroDataItemValue = Nothing + +type instance AttributeList DOMMicroDataItemValue = DOMMicroDataItemValueAttributeList +type DOMMicroDataItemValueAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMicroDataItemValue = DOMMicroDataItemValueSignalList +type DOMMicroDataItemValueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot b/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMMicroDataItemValue where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMicroDataItemValue = DOMMicroDataItemValue (ForeignPtr DOMMicroDataItemValue) +instance GObject DOMMicroDataItemValue where +class GObject o => DOMMicroDataItemValueK o +instance (GObject o, IsDescendantOf DOMMicroDataItemValue o) => DOMMicroDataItemValueK o diff --git a/GI/WebKit/Objects/DOMMouseEvent.hs b/GI/WebKit/Objects/DOMMouseEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMouseEvent.hs @@ -0,0 +1,1062 @@ + +{- | +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.WebKit.Objects.DOMMouseEvent + ( + +-- * Exported types + DOMMouseEvent(..) , + DOMMouseEventK , + toDOMMouseEvent , + noDOMMouseEvent , + + + -- * Methods +-- ** dOMMouseEventGetAltKey + dOMMouseEventGetAltKey , + + +-- ** dOMMouseEventGetButton + dOMMouseEventGetButton , + + +-- ** dOMMouseEventGetClientX + dOMMouseEventGetClientX , + + +-- ** dOMMouseEventGetClientY + dOMMouseEventGetClientY , + + +-- ** dOMMouseEventGetCtrlKey + dOMMouseEventGetCtrlKey , + + +-- ** dOMMouseEventGetFromElement + dOMMouseEventGetFromElement , + + +-- ** dOMMouseEventGetMetaKey + dOMMouseEventGetMetaKey , + + +-- ** dOMMouseEventGetOffsetX + dOMMouseEventGetOffsetX , + + +-- ** dOMMouseEventGetOffsetY + dOMMouseEventGetOffsetY , + + +-- ** dOMMouseEventGetRelatedTarget + dOMMouseEventGetRelatedTarget , + + +-- ** dOMMouseEventGetScreenX + dOMMouseEventGetScreenX , + + +-- ** dOMMouseEventGetScreenY + dOMMouseEventGetScreenY , + + +-- ** dOMMouseEventGetShiftKey + dOMMouseEventGetShiftKey , + + +-- ** dOMMouseEventGetToElement + dOMMouseEventGetToElement , + + +-- ** dOMMouseEventGetWebkitMovementX + dOMMouseEventGetWebkitMovementX , + + +-- ** dOMMouseEventGetWebkitMovementY + dOMMouseEventGetWebkitMovementY , + + +-- ** dOMMouseEventGetX + dOMMouseEventGetX , + + +-- ** dOMMouseEventGetY + dOMMouseEventGetY , + + +-- ** dOMMouseEventInitMouseEvent + dOMMouseEventInitMouseEvent , + + + + + -- * Properties +-- ** AltKey + DOMMouseEventAltKeyPropertyInfo , + getDOMMouseEventAltKey , + + +-- ** Button + DOMMouseEventButtonPropertyInfo , + getDOMMouseEventButton , + + +-- ** ClientX + DOMMouseEventClientXPropertyInfo , + getDOMMouseEventClientX , + + +-- ** ClientY + DOMMouseEventClientYPropertyInfo , + getDOMMouseEventClientY , + + +-- ** CtrlKey + DOMMouseEventCtrlKeyPropertyInfo , + getDOMMouseEventCtrlKey , + + +-- ** FromElement + DOMMouseEventFromElementPropertyInfo , + getDOMMouseEventFromElement , + + +-- ** MetaKey + DOMMouseEventMetaKeyPropertyInfo , + getDOMMouseEventMetaKey , + + +-- ** OffsetX + DOMMouseEventOffsetXPropertyInfo , + getDOMMouseEventOffsetX , + + +-- ** OffsetY + DOMMouseEventOffsetYPropertyInfo , + getDOMMouseEventOffsetY , + + +-- ** RelatedTarget + DOMMouseEventRelatedTargetPropertyInfo , + getDOMMouseEventRelatedTarget , + + +-- ** ScreenX + DOMMouseEventScreenXPropertyInfo , + getDOMMouseEventScreenX , + + +-- ** ScreenY + DOMMouseEventScreenYPropertyInfo , + getDOMMouseEventScreenY , + + +-- ** ShiftKey + DOMMouseEventShiftKeyPropertyInfo , + getDOMMouseEventShiftKey , + + +-- ** ToElement + DOMMouseEventToElementPropertyInfo , + getDOMMouseEventToElement , + + +-- ** WebkitMovementX + DOMMouseEventWebkitMovementXPropertyInfo, + getDOMMouseEventWebkitMovementX , + + +-- ** WebkitMovementY + DOMMouseEventWebkitMovementYPropertyInfo, + getDOMMouseEventWebkitMovementY , + + +-- ** X + DOMMouseEventXPropertyInfo , + getDOMMouseEventX , + + +-- ** Y + DOMMouseEventYPropertyInfo , + getDOMMouseEventY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent) +foreign import ccall "webkit_dom_mouse_event_get_type" + c_webkit_dom_mouse_event_get_type :: IO GType + +type instance ParentTypes DOMMouseEvent = DOMMouseEventParentTypes +type DOMMouseEventParentTypes = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object] + +instance GObject DOMMouseEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_mouse_event_get_type + + +class GObject o => DOMMouseEventK o +instance (GObject o, IsDescendantOf DOMMouseEvent o) => DOMMouseEventK o + +toDOMMouseEvent :: DOMMouseEventK o => o -> IO DOMMouseEvent +toDOMMouseEvent = unsafeCastTo DOMMouseEvent + +noDOMMouseEvent :: Maybe DOMMouseEvent +noDOMMouseEvent = Nothing + +-- VVV Prop "alt-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" + +data DOMMouseEventAltKeyPropertyInfo +instance AttrInfo DOMMouseEventAltKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventAltKeyPropertyInfo = "DOMMouseEvent::alt-key" + attrGet _ = getDOMMouseEventAltKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "button" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32 +getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button" + +data DOMMouseEventButtonPropertyInfo +instance AttrInfo DOMMouseEventButtonPropertyInfo where + type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventButtonPropertyInfo = Word32 + type AttrLabel DOMMouseEventButtonPropertyInfo = "DOMMouseEvent::button" + attrGet _ = getDOMMouseEventButton + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" + +data DOMMouseEventClientXPropertyInfo +instance AttrInfo DOMMouseEventClientXPropertyInfo where + type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventClientXPropertyInfo = Int64 + type AttrLabel DOMMouseEventClientXPropertyInfo = "DOMMouseEvent::client-x" + attrGet _ = getDOMMouseEventClientX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" + +data DOMMouseEventClientYPropertyInfo +instance AttrInfo DOMMouseEventClientYPropertyInfo where + type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventClientYPropertyInfo = Int64 + type AttrLabel DOMMouseEventClientYPropertyInfo = "DOMMouseEvent::client-y" + attrGet _ = getDOMMouseEventClientY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ctrl-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" + +data DOMMouseEventCtrlKeyPropertyInfo +instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "DOMMouseEvent::ctrl-key" + attrGet _ = getDOMMouseEventCtrlKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "from-element" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode +getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode + +data DOMMouseEventFromElementPropertyInfo +instance AttrInfo DOMMouseEventFromElementPropertyInfo where + type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode + type AttrLabel DOMMouseEventFromElementPropertyInfo = "DOMMouseEvent::from-element" + attrGet _ = getDOMMouseEventFromElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "meta-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" + +data DOMMouseEventMetaKeyPropertyInfo +instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "DOMMouseEvent::meta-key" + attrGet _ = getDOMMouseEventMetaKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x" + +data DOMMouseEventOffsetXPropertyInfo +instance AttrInfo DOMMouseEventOffsetXPropertyInfo where + type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64 + type AttrLabel DOMMouseEventOffsetXPropertyInfo = "DOMMouseEvent::offset-x" + attrGet _ = getDOMMouseEventOffsetX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y" + +data DOMMouseEventOffsetYPropertyInfo +instance AttrInfo DOMMouseEventOffsetYPropertyInfo where + type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64 + type AttrLabel DOMMouseEventOffsetYPropertyInfo = "DOMMouseEvent::offset-y" + attrGet _ = getDOMMouseEventOffsetY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "related-target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget +getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget + +data DOMMouseEventRelatedTargetPropertyInfo +instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where + type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "DOMMouseEvent::related-target" + attrGet _ = getDOMMouseEventRelatedTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMMouseEventScreenXPropertyInfo +instance AttrInfo DOMMouseEventScreenXPropertyInfo where + type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64 + type AttrLabel DOMMouseEventScreenXPropertyInfo = "DOMMouseEvent::screen-x" + attrGet _ = getDOMMouseEventScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMMouseEventScreenYPropertyInfo +instance AttrInfo DOMMouseEventScreenYPropertyInfo where + type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64 + type AttrLabel DOMMouseEventScreenYPropertyInfo = "DOMMouseEvent::screen-y" + attrGet _ = getDOMMouseEventScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shift-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" + +data DOMMouseEventShiftKeyPropertyInfo +instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "DOMMouseEvent::shift-key" + attrGet _ = getDOMMouseEventShiftKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "to-element" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode +getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode + +data DOMMouseEventToElementPropertyInfo +instance AttrInfo DOMMouseEventToElementPropertyInfo where + type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode + type AttrLabel DOMMouseEventToElementPropertyInfo = "DOMMouseEvent::to-element" + attrGet _ = getDOMMouseEventToElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-movement-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventWebkitMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventWebkitMovementX obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-x" + +data DOMMouseEventWebkitMovementXPropertyInfo +instance AttrInfo DOMMouseEventWebkitMovementXPropertyInfo where + type AttrAllowedOps DOMMouseEventWebkitMovementXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventWebkitMovementXPropertyInfo = Int64 + type AttrLabel DOMMouseEventWebkitMovementXPropertyInfo = "DOMMouseEvent::webkit-movement-x" + attrGet _ = getDOMMouseEventWebkitMovementX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-movement-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventWebkitMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventWebkitMovementY obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-y" + +data DOMMouseEventWebkitMovementYPropertyInfo +instance AttrInfo DOMMouseEventWebkitMovementYPropertyInfo where + type AttrAllowedOps DOMMouseEventWebkitMovementYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventWebkitMovementYPropertyInfo = Int64 + type AttrLabel DOMMouseEventWebkitMovementYPropertyInfo = "DOMMouseEvent::webkit-movement-y" + attrGet _ = getDOMMouseEventWebkitMovementY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x" + +data DOMMouseEventXPropertyInfo +instance AttrInfo DOMMouseEventXPropertyInfo where + type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventXPropertyInfo = Int64 + type AttrLabel DOMMouseEventXPropertyInfo = "DOMMouseEvent::x" + attrGet _ = getDOMMouseEventX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y" + +data DOMMouseEventYPropertyInfo +instance AttrInfo DOMMouseEventYPropertyInfo where + type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventYPropertyInfo = Int64 + type AttrLabel DOMMouseEventYPropertyInfo = "DOMMouseEvent::y" + attrGet _ = getDOMMouseEventY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMouseEvent = DOMMouseEventAttributeList +type DOMMouseEventAttributeList = ('[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMMouseEvent = DOMMouseEventSignalList +type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMMouseEvent::get_alt_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_alt_key" webkit_dom_mouse_event_get_alt_key :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO CInt + + +dOMMouseEventGetAltKey :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Bool +dOMMouseEventGetAltKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_alt_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_button +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_button" webkit_dom_mouse_event_get_button :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Word16 + + +dOMMouseEventGetButton :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Word16 +dOMMouseEventGetButton _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_button _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_client_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_client_x" webkit_dom_mouse_event_get_client_x :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetClientX :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetClientX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_client_x _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_client_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_client_y" webkit_dom_mouse_event_get_client_y :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetClientY :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetClientY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_client_y _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_ctrl_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_ctrl_key" webkit_dom_mouse_event_get_ctrl_key :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO CInt + + +dOMMouseEventGetCtrlKey :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Bool +dOMMouseEventGetCtrlKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_ctrl_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_from_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_from_element" webkit_dom_mouse_event_get_from_element :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO (Ptr DOMNode) + + +dOMMouseEventGetFromElement :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m DOMNode +dOMMouseEventGetFromElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_from_element _obj' + checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_from_element" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_meta_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_meta_key" webkit_dom_mouse_event_get_meta_key :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO CInt + + +dOMMouseEventGetMetaKey :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Bool +dOMMouseEventGetMetaKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_meta_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_offset_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_offset_x" webkit_dom_mouse_event_get_offset_x :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetOffsetX :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetOffsetX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_offset_x _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_offset_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_offset_y" webkit_dom_mouse_event_get_offset_y :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetOffsetY :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetOffsetY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_offset_y _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_related_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEventTarget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_related_target" webkit_dom_mouse_event_get_related_target :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO (Ptr DOMEventTarget) + + +dOMMouseEventGetRelatedTarget :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m DOMEventTarget +dOMMouseEventGetRelatedTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_related_target _obj' + checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_related_target" result + result' <- (wrapObject DOMEventTarget) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_screen_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_screen_x" webkit_dom_mouse_event_get_screen_x :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetScreenX :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetScreenX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_screen_x _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_screen_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_screen_y" webkit_dom_mouse_event_get_screen_y :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetScreenY :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetScreenY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_screen_y _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_shift_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_shift_key" webkit_dom_mouse_event_get_shift_key :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO CInt + + +dOMMouseEventGetShiftKey :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Bool +dOMMouseEventGetShiftKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_shift_key _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_to_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_to_element" webkit_dom_mouse_event_get_to_element :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO (Ptr DOMNode) + + +dOMMouseEventGetToElement :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m DOMNode +dOMMouseEventGetToElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_to_element _obj' + checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_to_element" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMMouseEvent::get_webkit_movement_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_webkit_movement_x" webkit_dom_mouse_event_get_webkit_movement_x :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetWebkitMovementX :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetWebkitMovementX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_webkit_movement_x _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_webkit_movement_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_webkit_movement_y" webkit_dom_mouse_event_get_webkit_movement_y :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetWebkitMovementY :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetWebkitMovementY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_webkit_movement_y _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_x" webkit_dom_mouse_event_get_x :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetX :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_x _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::get_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_get_y" webkit_dom_mouse_event_get_y :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + IO Int64 + + +dOMMouseEventGetY :: + (MonadIO m, DOMMouseEventK a) => + a -> -- _obj + m Int64 +dOMMouseEventGetY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_mouse_event_get_y _obj' + touchManagedPtr _obj + return result + +-- method DOMMouseEvent::init_mouse_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_mouse_event_init_mouse_event" webkit_dom_mouse_event_init_mouse_event :: + Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" + CString -> -- type : TBasicType TUTF8 + CInt -> -- canBubble : TBasicType TBoolean + CInt -> -- cancelable : TBasicType TBoolean + Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- detail : TBasicType TInt64 + Int64 -> -- screenX : TBasicType TInt64 + Int64 -> -- screenY : TBasicType TInt64 + Int64 -> -- clientX : TBasicType TInt64 + Int64 -> -- clientY : TBasicType TInt64 + CInt -> -- ctrlKey : TBasicType TBoolean + CInt -> -- altKey : TBasicType TBoolean + CInt -> -- shiftKey : TBasicType TBoolean + CInt -> -- metaKey : TBasicType TBoolean + Word16 -> -- button : TBasicType TUInt16 + Ptr DOMEventTarget -> -- relatedTarget : TInterface "WebKit" "DOMEventTarget" + IO () + + +dOMMouseEventInitMouseEvent :: + (MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) => + a -> -- _obj + T.Text -> -- type + Bool -> -- canBubble + Bool -> -- cancelable + b -> -- view + Int64 -> -- detail + Int64 -> -- screenX + Int64 -> -- screenY + Int64 -> -- clientX + Int64 -> -- clientY + Bool -> -- ctrlKey + Bool -> -- altKey + Bool -> -- shiftKey + Bool -> -- metaKey + Word16 -> -- button + c -> -- relatedTarget + m () +dOMMouseEventInitMouseEvent _obj type_ canBubble cancelable view detail screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey button relatedTarget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + type_' <- textToCString type_ + let canBubble' = (fromIntegral . fromEnum) canBubble + let cancelable' = (fromIntegral . fromEnum) cancelable + let view' = unsafeManagedPtrCastPtr view + let ctrlKey' = (fromIntegral . fromEnum) ctrlKey + let altKey' = (fromIntegral . fromEnum) altKey + let shiftKey' = (fromIntegral . fromEnum) shiftKey + let metaKey' = (fromIntegral . fromEnum) metaKey + let relatedTarget' = unsafeManagedPtrCastPtr relatedTarget + webkit_dom_mouse_event_init_mouse_event _obj' type_' canBubble' cancelable' view' detail screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey' button relatedTarget' + touchManagedPtr _obj + touchManagedPtr view + touchManagedPtr relatedTarget + freeMem type_' + return () + + diff --git a/GI/WebKit/Objects/DOMMouseEvent.hs-boot b/GI/WebKit/Objects/DOMMouseEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMMouseEvent.hs-boot @@ -0,0 +1,31 @@ +module GI.WebKit.Objects.DOMMouseEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent) +instance GObject DOMMouseEvent where +class GObject o => DOMMouseEventK o +instance (GObject o, IsDescendantOf DOMMouseEvent o) => DOMMouseEventK o +data DOMMouseEventAltKeyPropertyInfo +data DOMMouseEventButtonPropertyInfo +data DOMMouseEventClientXPropertyInfo +data DOMMouseEventClientYPropertyInfo +data DOMMouseEventCtrlKeyPropertyInfo +data DOMMouseEventFromElementPropertyInfo +data DOMMouseEventMetaKeyPropertyInfo +data DOMMouseEventOffsetXPropertyInfo +data DOMMouseEventOffsetYPropertyInfo +data DOMMouseEventRelatedTargetPropertyInfo +data DOMMouseEventScreenXPropertyInfo +data DOMMouseEventScreenYPropertyInfo +data DOMMouseEventShiftKeyPropertyInfo +data DOMMouseEventToElementPropertyInfo +data DOMMouseEventWebkitMovementXPropertyInfo +data DOMMouseEventWebkitMovementYPropertyInfo +data DOMMouseEventXPropertyInfo +data DOMMouseEventYPropertyInfo diff --git a/GI/WebKit/Objects/DOMNamedNodeMap.hs b/GI/WebKit/Objects/DOMNamedNodeMap.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNamedNodeMap.hs @@ -0,0 +1,380 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMNamedNodeMap + ( + +-- * Exported types + DOMNamedNodeMap(..) , + DOMNamedNodeMapK , + toDOMNamedNodeMap , + noDOMNamedNodeMap , + + + -- * Methods +-- ** dOMNamedNodeMapGetLength + dOMNamedNodeMapGetLength , + + +-- ** dOMNamedNodeMapGetNamedItem + dOMNamedNodeMapGetNamedItem , + + +-- ** dOMNamedNodeMapGetNamedItemNs + dOMNamedNodeMapGetNamedItemNs , + + +-- ** dOMNamedNodeMapItem + dOMNamedNodeMapItem , + + +-- ** dOMNamedNodeMapRemoveNamedItem + dOMNamedNodeMapRemoveNamedItem , + + +-- ** dOMNamedNodeMapRemoveNamedItemNs + dOMNamedNodeMapRemoveNamedItemNs , + + +-- ** dOMNamedNodeMapSetNamedItem + dOMNamedNodeMapSetNamedItem , + + +-- ** dOMNamedNodeMapSetNamedItemNs + dOMNamedNodeMapSetNamedItemNs , + + + + + -- * Properties +-- ** Length + DOMNamedNodeMapLengthPropertyInfo , + getDOMNamedNodeMapLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNamedNodeMap = DOMNamedNodeMap (ForeignPtr DOMNamedNodeMap) +foreign import ccall "webkit_dom_named_node_map_get_type" + c_webkit_dom_named_node_map_get_type :: IO GType + +type instance ParentTypes DOMNamedNodeMap = DOMNamedNodeMapParentTypes +type DOMNamedNodeMapParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMNamedNodeMap where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_named_node_map_get_type + + +class GObject o => DOMNamedNodeMapK o +instance (GObject o, IsDescendantOf DOMNamedNodeMap o) => DOMNamedNodeMapK o + +toDOMNamedNodeMap :: DOMNamedNodeMapK o => o -> IO DOMNamedNodeMap +toDOMNamedNodeMap = unsafeCastTo DOMNamedNodeMap + +noDOMNamedNodeMap :: Maybe DOMNamedNodeMap +noDOMNamedNodeMap = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m Word64 +getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMNamedNodeMapLengthPropertyInfo +instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where + type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK + type AttrGetType DOMNamedNodeMapLengthPropertyInfo = Word64 + type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "DOMNamedNodeMap::length" + attrGet _ = getDOMNamedNodeMapLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNamedNodeMap = DOMNamedNodeMapAttributeList +type DOMNamedNodeMapAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNamedNodeMap = DOMNamedNodeMapSignalList +type DOMNamedNodeMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNamedNodeMap::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_get_length" webkit_dom_named_node_map_get_length :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + IO Word64 + + +dOMNamedNodeMapGetLength :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + m Word64 +dOMNamedNodeMapGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_named_node_map_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMNamedNodeMap::get_named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_get_named_item" webkit_dom_named_node_map_get_named_item :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMNode) + + +dOMNamedNodeMapGetNamedItem :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + T.Text -> -- name + m DOMNode +dOMNamedNodeMapGetNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_named_node_map_get_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_get_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method DOMNamedNodeMap::get_named_item_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_get_named_item_ns" webkit_dom_named_node_map_get_named_item_ns :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO (Ptr DOMNode) + + +dOMNamedNodeMapGetNamedItemNs :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMNode +dOMNamedNodeMapGetNamedItemNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_named_node_map_get_named_item_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_get_named_item_ns" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMNamedNodeMap::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_item" webkit_dom_named_node_map_item :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + + +dOMNamedNodeMapItem :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + Word64 -> -- index + m DOMNode +dOMNamedNodeMapItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_named_node_map_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_named_node_map_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNamedNodeMap::remove_named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_remove_named_item" webkit_dom_named_node_map_remove_named_item :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + CString -> -- name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNamedNodeMapRemoveNamedItem :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + T.Text -> -- name + m DOMNode +dOMNamedNodeMapRemoveNamedItem _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + onException (do + result <- propagateGError $ webkit_dom_named_node_map_remove_named_item _obj' name' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_remove_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem name' + return result' + ) (do + freeMem name' + ) + +-- method DOMNamedNodeMap::remove_named_item_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_remove_named_item_ns" webkit_dom_named_node_map_remove_named_item_ns :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNamedNodeMapRemoveNamedItemNs :: + (MonadIO m, DOMNamedNodeMapK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMNode +dOMNamedNodeMapRemoveNamedItemNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + onException (do + result <- propagateGError $ webkit_dom_named_node_map_remove_named_item_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_remove_named_item_ns" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + ) (do + freeMem namespaceURI' + freeMem localName' + ) + +-- method DOMNamedNodeMap::set_named_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_set_named_item" webkit_dom_named_node_map_set_named_item :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNamedNodeMapSetNamedItem :: + (MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + m DOMNode +dOMNamedNodeMapSetNamedItem _obj node = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + result <- propagateGError $ webkit_dom_named_node_map_set_named_item _obj' node' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_set_named_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr node + return result' + ) (do + return () + ) + +-- method DOMNamedNodeMap::set_named_item_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_named_node_map_set_named_item_ns" webkit_dom_named_node_map_set_named_item_ns :: + Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNamedNodeMapSetNamedItemNs :: + (MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + m DOMNode +dOMNamedNodeMapSetNamedItemNs _obj node = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + onException (do + result <- propagateGError $ webkit_dom_named_node_map_set_named_item_ns _obj' node' + checkUnexpectedReturnNULL "webkit_dom_named_node_map_set_named_item_ns" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr node + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot b/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMNamedNodeMap where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNamedNodeMap = DOMNamedNodeMap (ForeignPtr DOMNamedNodeMap) +instance GObject DOMNamedNodeMap where +class GObject o => DOMNamedNodeMapK o +instance (GObject o, IsDescendantOf DOMNamedNodeMap o) => DOMNamedNodeMapK o +data DOMNamedNodeMapLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMNavigator.hs b/GI/WebKit/Objects/DOMNavigator.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNavigator.hs @@ -0,0 +1,1247 @@ + +{- | +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.WebKit.Objects.DOMNavigator + ( + +-- * Exported types + DOMNavigator(..) , + DOMNavigatorK , + toDOMNavigator , + noDOMNavigator , + + + -- * Methods +-- ** dOMNavigatorGetAppCodeName + dOMNavigatorGetAppCodeName , + + +-- ** dOMNavigatorGetAppName + dOMNavigatorGetAppName , + + +-- ** dOMNavigatorGetAppVersion + dOMNavigatorGetAppVersion , + + +-- ** dOMNavigatorGetCookieEnabled + dOMNavigatorGetCookieEnabled , + + +-- ** dOMNavigatorGetGeolocation + dOMNavigatorGetGeolocation , + + +-- ** dOMNavigatorGetLanguage + dOMNavigatorGetLanguage , + + +-- ** dOMNavigatorGetMimeTypes + dOMNavigatorGetMimeTypes , + + +-- ** dOMNavigatorGetOnLine + dOMNavigatorGetOnLine , + + +-- ** dOMNavigatorGetPlatform + dOMNavigatorGetPlatform , + + +-- ** dOMNavigatorGetPlugins + dOMNavigatorGetPlugins , + + +-- ** dOMNavigatorGetProduct + dOMNavigatorGetProduct , + + +-- ** dOMNavigatorGetProductSub + dOMNavigatorGetProductSub , + + +-- ** dOMNavigatorGetStorageUpdates + dOMNavigatorGetStorageUpdates , + + +-- ** dOMNavigatorGetUserAgent + dOMNavigatorGetUserAgent , + + +-- ** dOMNavigatorGetVendor + dOMNavigatorGetVendor , + + +-- ** dOMNavigatorGetVendorSub + dOMNavigatorGetVendorSub , + + +-- ** dOMNavigatorGetWebkitBattery + dOMNavigatorGetWebkitBattery , + + +-- ** dOMNavigatorGetWebkitPersistentStorage + dOMNavigatorGetWebkitPersistentStorage , + + +-- ** dOMNavigatorGetWebkitTemporaryStorage + dOMNavigatorGetWebkitTemporaryStorage , + + +-- ** dOMNavigatorIsProtocolHandlerRegistered + dOMNavigatorIsProtocolHandlerRegistered , + + +-- ** dOMNavigatorJavaEnabled + dOMNavigatorJavaEnabled , + + +-- ** dOMNavigatorRegisterProtocolHandler + dOMNavigatorRegisterProtocolHandler , + + +-- ** dOMNavigatorUnregisterProtocolHandler + dOMNavigatorUnregisterProtocolHandler , + + +-- ** dOMNavigatorWebkitGetGamepads + dOMNavigatorWebkitGetGamepads , + + + + + -- * Properties +-- ** AppCodeName + DOMNavigatorAppCodeNamePropertyInfo , + getDOMNavigatorAppCodeName , + + +-- ** AppName + DOMNavigatorAppNamePropertyInfo , + getDOMNavigatorAppName , + + +-- ** AppVersion + DOMNavigatorAppVersionPropertyInfo , + getDOMNavigatorAppVersion , + + +-- ** CookieEnabled + DOMNavigatorCookieEnabledPropertyInfo , + getDOMNavigatorCookieEnabled , + + +-- ** Geolocation + DOMNavigatorGeolocationPropertyInfo , + getDOMNavigatorGeolocation , + + +-- ** Language + DOMNavigatorLanguagePropertyInfo , + getDOMNavigatorLanguage , + + +-- ** MimeTypes + DOMNavigatorMimeTypesPropertyInfo , + getDOMNavigatorMimeTypes , + + +-- ** OnLine + DOMNavigatorOnLinePropertyInfo , + getDOMNavigatorOnLine , + + +-- ** Platform + DOMNavigatorPlatformPropertyInfo , + getDOMNavigatorPlatform , + + +-- ** Plugins + DOMNavigatorPluginsPropertyInfo , + getDOMNavigatorPlugins , + + +-- ** Product + DOMNavigatorProductPropertyInfo , + getDOMNavigatorProduct , + + +-- ** ProductSub + DOMNavigatorProductSubPropertyInfo , + getDOMNavigatorProductSub , + + +-- ** UserAgent + DOMNavigatorUserAgentPropertyInfo , + getDOMNavigatorUserAgent , + + +-- ** Vendor + DOMNavigatorVendorPropertyInfo , + getDOMNavigatorVendor , + + +-- ** VendorSub + DOMNavigatorVendorSubPropertyInfo , + getDOMNavigatorVendorSub , + + +-- ** WebkitBattery + DOMNavigatorWebkitBatteryPropertyInfo , + getDOMNavigatorWebkitBattery , + + +-- ** WebkitPersistentStorage + DOMNavigatorWebkitPersistentStoragePropertyInfo, + getDOMNavigatorWebkitPersistentStorage , + + +-- ** WebkitTemporaryStorage + DOMNavigatorWebkitTemporaryStoragePropertyInfo, + getDOMNavigatorWebkitTemporaryStorage , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNavigator = DOMNavigator (ForeignPtr DOMNavigator) +foreign import ccall "webkit_dom_navigator_get_type" + c_webkit_dom_navigator_get_type :: IO GType + +type instance ParentTypes DOMNavigator = DOMNavigatorParentTypes +type DOMNavigatorParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMNavigator where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_navigator_get_type + + +class GObject o => DOMNavigatorK o +instance (GObject o, IsDescendantOf DOMNavigator o) => DOMNavigatorK o + +toDOMNavigator :: DOMNavigatorK o => o -> IO DOMNavigator +toDOMNavigator = unsafeCastTo DOMNavigator + +noDOMNavigator :: Maybe DOMNavigator +noDOMNavigator = Nothing + +-- VVV Prop "app-code-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppCodeName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppCodeName obj = liftIO $ getObjectPropertyString obj "app-code-name" + +data DOMNavigatorAppCodeNamePropertyInfo +instance AttrInfo DOMNavigatorAppCodeNamePropertyInfo where + type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = T.Text + type AttrLabel DOMNavigatorAppCodeNamePropertyInfo = "DOMNavigator::app-code-name" + attrGet _ = getDOMNavigatorAppCodeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "app-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppName obj = liftIO $ getObjectPropertyString obj "app-name" + +data DOMNavigatorAppNamePropertyInfo +instance AttrInfo DOMNavigatorAppNamePropertyInfo where + type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppNamePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppNamePropertyInfo = T.Text + type AttrLabel DOMNavigatorAppNamePropertyInfo = "DOMNavigator::app-name" + attrGet _ = getDOMNavigatorAppName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "app-version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppVersion :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppVersion obj = liftIO $ getObjectPropertyString obj "app-version" + +data DOMNavigatorAppVersionPropertyInfo +instance AttrInfo DOMNavigatorAppVersionPropertyInfo where + type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppVersionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppVersionPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppVersionPropertyInfo = T.Text + type AttrLabel DOMNavigatorAppVersionPropertyInfo = "DOMNavigator::app-version" + attrGet _ = getDOMNavigatorAppVersion + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cookie-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNavigatorCookieEnabled :: (MonadIO m, DOMNavigatorK o) => o -> m Bool +getDOMNavigatorCookieEnabled obj = liftIO $ getObjectPropertyBool obj "cookie-enabled" + +data DOMNavigatorCookieEnabledPropertyInfo +instance AttrInfo DOMNavigatorCookieEnabledPropertyInfo where + type AttrAllowedOps DOMNavigatorCookieEnabledPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorCookieEnabledPropertyInfo = Bool + type AttrLabel DOMNavigatorCookieEnabledPropertyInfo = "DOMNavigator::cookie-enabled" + attrGet _ = getDOMNavigatorCookieEnabled + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "geolocation" + -- Type: TInterface "WebKit" "DOMGeolocation" + -- Flags: [PropertyReadable] + +getDOMNavigatorGeolocation :: (MonadIO m, DOMNavigatorK o) => o -> m DOMGeolocation +getDOMNavigatorGeolocation obj = liftIO $ getObjectPropertyObject obj "geolocation" DOMGeolocation + +data DOMNavigatorGeolocationPropertyInfo +instance AttrInfo DOMNavigatorGeolocationPropertyInfo where + type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorGeolocationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorGeolocationPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorGeolocationPropertyInfo = DOMGeolocation + type AttrLabel DOMNavigatorGeolocationPropertyInfo = "DOMNavigator::geolocation" + attrGet _ = getDOMNavigatorGeolocation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorLanguage :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMNavigatorLanguagePropertyInfo +instance AttrInfo DOMNavigatorLanguagePropertyInfo where + type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorLanguagePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorLanguagePropertyInfo = T.Text + type AttrLabel DOMNavigatorLanguagePropertyInfo = "DOMNavigator::language" + attrGet _ = getDOMNavigatorLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-types" + -- Type: TInterface "WebKit" "DOMDOMMimeTypeArray" + -- Flags: [PropertyReadable] + +getDOMNavigatorMimeTypes :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMMimeTypeArray +getDOMNavigatorMimeTypes obj = liftIO $ getObjectPropertyObject obj "mime-types" DOMDOMMimeTypeArray + +data DOMNavigatorMimeTypesPropertyInfo +instance AttrInfo DOMNavigatorMimeTypesPropertyInfo where + type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorMimeTypesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorMimeTypesPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorMimeTypesPropertyInfo = DOMDOMMimeTypeArray + type AttrLabel DOMNavigatorMimeTypesPropertyInfo = "DOMNavigator::mime-types" + attrGet _ = getDOMNavigatorMimeTypes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "on-line" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNavigatorOnLine :: (MonadIO m, DOMNavigatorK o) => o -> m Bool +getDOMNavigatorOnLine obj = liftIO $ getObjectPropertyBool obj "on-line" + +data DOMNavigatorOnLinePropertyInfo +instance AttrInfo DOMNavigatorOnLinePropertyInfo where + type AttrAllowedOps DOMNavigatorOnLinePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorOnLinePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorOnLinePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorOnLinePropertyInfo = Bool + type AttrLabel DOMNavigatorOnLinePropertyInfo = "DOMNavigator::on-line" + attrGet _ = getDOMNavigatorOnLine + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "platform" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorPlatform :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorPlatform obj = liftIO $ getObjectPropertyString obj "platform" + +data DOMNavigatorPlatformPropertyInfo +instance AttrInfo DOMNavigatorPlatformPropertyInfo where + type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorPlatformPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorPlatformPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorPlatformPropertyInfo = T.Text + type AttrLabel DOMNavigatorPlatformPropertyInfo = "DOMNavigator::platform" + attrGet _ = getDOMNavigatorPlatform + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "plugins" + -- Type: TInterface "WebKit" "DOMDOMPluginArray" + -- Flags: [PropertyReadable] + +getDOMNavigatorPlugins :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMPluginArray +getDOMNavigatorPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMDOMPluginArray + +data DOMNavigatorPluginsPropertyInfo +instance AttrInfo DOMNavigatorPluginsPropertyInfo where + type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorPluginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorPluginsPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorPluginsPropertyInfo = DOMDOMPluginArray + type AttrLabel DOMNavigatorPluginsPropertyInfo = "DOMNavigator::plugins" + attrGet _ = getDOMNavigatorPlugins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "product" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorProduct :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProduct obj = liftIO $ getObjectPropertyString obj "product" + +data DOMNavigatorProductPropertyInfo +instance AttrInfo DOMNavigatorProductPropertyInfo where + type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorProductPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorProductPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorProductPropertyInfo = T.Text + type AttrLabel DOMNavigatorProductPropertyInfo = "DOMNavigator::product" + attrGet _ = getDOMNavigatorProduct + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "product-sub" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorProductSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProductSub obj = liftIO $ getObjectPropertyString obj "product-sub" + +data DOMNavigatorProductSubPropertyInfo +instance AttrInfo DOMNavigatorProductSubPropertyInfo where + type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorProductSubPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorProductSubPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorProductSubPropertyInfo = T.Text + type AttrLabel DOMNavigatorProductSubPropertyInfo = "DOMNavigator::product-sub" + attrGet _ = getDOMNavigatorProductSub + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorUserAgent :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +data DOMNavigatorUserAgentPropertyInfo +instance AttrInfo DOMNavigatorUserAgentPropertyInfo where + type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorUserAgentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorUserAgentPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorUserAgentPropertyInfo = T.Text + type AttrLabel DOMNavigatorUserAgentPropertyInfo = "DOMNavigator::user-agent" + attrGet _ = getDOMNavigatorUserAgent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vendor" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorVendor :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendor obj = liftIO $ getObjectPropertyString obj "vendor" + +data DOMNavigatorVendorPropertyInfo +instance AttrInfo DOMNavigatorVendorPropertyInfo where + type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorVendorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorVendorPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorVendorPropertyInfo = T.Text + type AttrLabel DOMNavigatorVendorPropertyInfo = "DOMNavigator::vendor" + attrGet _ = getDOMNavigatorVendor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vendor-sub" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorVendorSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendorSub obj = liftIO $ getObjectPropertyString obj "vendor-sub" + +data DOMNavigatorVendorSubPropertyInfo +instance AttrInfo DOMNavigatorVendorSubPropertyInfo where + type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorVendorSubPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorVendorSubPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorVendorSubPropertyInfo = T.Text + type AttrLabel DOMNavigatorVendorSubPropertyInfo = "DOMNavigator::vendor-sub" + attrGet _ = getDOMNavigatorVendorSub + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-battery" + -- Type: TInterface "WebKit" "DOMBatteryManager" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitBattery :: (MonadIO m, DOMNavigatorK o) => o -> m DOMBatteryManager +getDOMNavigatorWebkitBattery obj = liftIO $ getObjectPropertyObject obj "webkit-battery" DOMBatteryManager + +data DOMNavigatorWebkitBatteryPropertyInfo +instance AttrInfo DOMNavigatorWebkitBatteryPropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = DOMBatteryManager + type AttrLabel DOMNavigatorWebkitBatteryPropertyInfo = "DOMNavigator::webkit-battery" + attrGet _ = getDOMNavigatorWebkitBattery + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-persistent-storage" + -- Type: TInterface "WebKit" "DOMStorageQuota" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitPersistentStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota +getDOMNavigatorWebkitPersistentStorage obj = liftIO $ getObjectPropertyObject obj "webkit-persistent-storage" DOMStorageQuota + +data DOMNavigatorWebkitPersistentStoragePropertyInfo +instance AttrInfo DOMNavigatorWebkitPersistentStoragePropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMStorageQuota + type AttrLabel DOMNavigatorWebkitPersistentStoragePropertyInfo = "DOMNavigator::webkit-persistent-storage" + attrGet _ = getDOMNavigatorWebkitPersistentStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-temporary-storage" + -- Type: TInterface "WebKit" "DOMStorageQuota" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitTemporaryStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota +getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ getObjectPropertyObject obj "webkit-temporary-storage" DOMStorageQuota + +data DOMNavigatorWebkitTemporaryStoragePropertyInfo +instance AttrInfo DOMNavigatorWebkitTemporaryStoragePropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMStorageQuota + type AttrLabel DOMNavigatorWebkitTemporaryStoragePropertyInfo = "DOMNavigator::webkit-temporary-storage" + attrGet _ = getDOMNavigatorWebkitTemporaryStorage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNavigator = DOMNavigatorAttributeList +type DOMNavigatorAttributeList = ('[ '("app-code-name", DOMNavigatorAppCodeNamePropertyInfo), '("app-name", DOMNavigatorAppNamePropertyInfo), '("app-version", DOMNavigatorAppVersionPropertyInfo), '("cookie-enabled", DOMNavigatorCookieEnabledPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("geolocation", DOMNavigatorGeolocationPropertyInfo), '("language", DOMNavigatorLanguagePropertyInfo), '("mime-types", DOMNavigatorMimeTypesPropertyInfo), '("on-line", DOMNavigatorOnLinePropertyInfo), '("platform", DOMNavigatorPlatformPropertyInfo), '("plugins", DOMNavigatorPluginsPropertyInfo), '("product", DOMNavigatorProductPropertyInfo), '("product-sub", DOMNavigatorProductSubPropertyInfo), '("user-agent", DOMNavigatorUserAgentPropertyInfo), '("vendor", DOMNavigatorVendorPropertyInfo), '("vendor-sub", DOMNavigatorVendorSubPropertyInfo), '("webkit-battery", DOMNavigatorWebkitBatteryPropertyInfo), '("webkit-persistent-storage", DOMNavigatorWebkitPersistentStoragePropertyInfo), '("webkit-temporary-storage", DOMNavigatorWebkitTemporaryStoragePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNavigator = DOMNavigatorSignalList +type DOMNavigatorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNavigator::get_app_code_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_app_code_name" webkit_dom_navigator_get_app_code_name :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetAppCodeName :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetAppCodeName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_app_code_name _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_app_code_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_app_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_app_name" webkit_dom_navigator_get_app_name :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetAppName :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetAppName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_app_name _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_app_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_app_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_app_version" webkit_dom_navigator_get_app_version :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetAppVersion :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetAppVersion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_app_version _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_app_version" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_cookie_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_cookie_enabled" webkit_dom_navigator_get_cookie_enabled :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CInt + + +dOMNavigatorGetCookieEnabled :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m Bool +dOMNavigatorGetCookieEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_cookie_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_geolocation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMGeolocation" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_geolocation" webkit_dom_navigator_get_geolocation :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMGeolocation) + + +dOMNavigatorGetGeolocation :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMGeolocation +dOMNavigatorGetGeolocation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_geolocation _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_geolocation" result + result' <- (wrapObject DOMGeolocation) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_language" webkit_dom_navigator_get_language :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetLanguage :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetLanguage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_language _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_language" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_mime_types +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMMimeTypeArray" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_mime_types" webkit_dom_navigator_get_mime_types :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMDOMMimeTypeArray) + + +dOMNavigatorGetMimeTypes :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMDOMMimeTypeArray +dOMNavigatorGetMimeTypes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_mime_types _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_mime_types" result + result' <- (wrapObject DOMDOMMimeTypeArray) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_on_line +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_on_line" webkit_dom_navigator_get_on_line :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CInt + + +dOMNavigatorGetOnLine :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m Bool +dOMNavigatorGetOnLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_on_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_platform +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_platform" webkit_dom_navigator_get_platform :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetPlatform :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetPlatform _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_platform _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_platform" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_plugins +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMPluginArray" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_plugins" webkit_dom_navigator_get_plugins :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMDOMPluginArray) + + +dOMNavigatorGetPlugins :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMDOMPluginArray +dOMNavigatorGetPlugins _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_plugins _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_plugins" result + result' <- (wrapObject DOMDOMPluginArray) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_product +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_product" webkit_dom_navigator_get_product :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetProduct :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetProduct _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_product _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_product" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_product_sub +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_product_sub" webkit_dom_navigator_get_product_sub :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetProductSub :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetProductSub _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_product_sub _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_product_sub" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_storage_updates +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_storage_updates" webkit_dom_navigator_get_storage_updates :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO () + + +dOMNavigatorGetStorageUpdates :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m () +dOMNavigatorGetStorageUpdates _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_navigator_get_storage_updates _obj' + touchManagedPtr _obj + return () + +-- method DOMNavigator::get_user_agent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_user_agent" webkit_dom_navigator_get_user_agent :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetUserAgent :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetUserAgent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_user_agent _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_user_agent" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_vendor +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_vendor" webkit_dom_navigator_get_vendor :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetVendor :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetVendor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_vendor _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_vendor" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_vendor_sub +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_vendor_sub" webkit_dom_navigator_get_vendor_sub :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CString + + +dOMNavigatorGetVendorSub :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m T.Text +dOMNavigatorGetVendorSub _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_vendor_sub _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_vendor_sub" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_webkit_battery +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMBatteryManager" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_webkit_battery" webkit_dom_navigator_get_webkit_battery :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMBatteryManager) + + +dOMNavigatorGetWebkitBattery :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMBatteryManager +dOMNavigatorGetWebkitBattery _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_webkit_battery _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_webkit_battery" result + result' <- (wrapObject DOMBatteryManager) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_webkit_persistent_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStorageQuota" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_webkit_persistent_storage" webkit_dom_navigator_get_webkit_persistent_storage :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMStorageQuota) + + +dOMNavigatorGetWebkitPersistentStorage :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMStorageQuota +dOMNavigatorGetWebkitPersistentStorage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_webkit_persistent_storage _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_webkit_persistent_storage" result + result' <- (newObject DOMStorageQuota) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::get_webkit_temporary_storage +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStorageQuota" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_get_webkit_temporary_storage" webkit_dom_navigator_get_webkit_temporary_storage :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMStorageQuota) + + +dOMNavigatorGetWebkitTemporaryStorage :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMStorageQuota +dOMNavigatorGetWebkitTemporaryStorage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_get_webkit_temporary_storage _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_get_webkit_temporary_storage" result + result' <- (newObject DOMStorageQuota) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::is_protocol_handler_registered +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_is_protocol_handler_registered" webkit_dom_navigator_is_protocol_handler_registered :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + CString -> -- scheme : TBasicType TUTF8 + CString -> -- url : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMNavigatorIsProtocolHandlerRegistered :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + T.Text -> -- scheme + T.Text -> -- url + m T.Text +dOMNavigatorIsProtocolHandlerRegistered _obj scheme url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + scheme' <- textToCString scheme + url' <- textToCString url + onException (do + result <- propagateGError $ webkit_dom_navigator_is_protocol_handler_registered _obj' scheme' url' + checkUnexpectedReturnNULL "webkit_dom_navigator_is_protocol_handler_registered" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem scheme' + freeMem url' + return result' + ) (do + freeMem scheme' + freeMem url' + ) + +-- method DOMNavigator::java_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_java_enabled" webkit_dom_navigator_java_enabled :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO CInt + + +dOMNavigatorJavaEnabled :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m Bool +dOMNavigatorJavaEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_java_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNavigator::register_protocol_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_register_protocol_handler" webkit_dom_navigator_register_protocol_handler :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + CString -> -- scheme : TBasicType TUTF8 + CString -> -- url : TBasicType TUTF8 + CString -> -- title : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMNavigatorRegisterProtocolHandler :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + T.Text -> -- scheme + T.Text -> -- url + T.Text -> -- title + m () +dOMNavigatorRegisterProtocolHandler _obj scheme url title = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + scheme' <- textToCString scheme + url' <- textToCString url + title' <- textToCString title + onException (do + propagateGError $ webkit_dom_navigator_register_protocol_handler _obj' scheme' url' title' + touchManagedPtr _obj + freeMem scheme' + freeMem url' + freeMem title' + return () + ) (do + freeMem scheme' + freeMem url' + freeMem title' + ) + +-- method DOMNavigator::unregister_protocol_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_unregister_protocol_handler" webkit_dom_navigator_unregister_protocol_handler :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + CString -> -- scheme : TBasicType TUTF8 + CString -> -- url : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMNavigatorUnregisterProtocolHandler :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + T.Text -> -- scheme + T.Text -> -- url + m () +dOMNavigatorUnregisterProtocolHandler _obj scheme url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + scheme' <- textToCString scheme + url' <- textToCString url + onException (do + propagateGError $ webkit_dom_navigator_unregister_protocol_handler _obj' scheme' url' + touchManagedPtr _obj + freeMem scheme' + freeMem url' + return () + ) (do + freeMem scheme' + freeMem url' + ) + +-- method DOMNavigator::webkit_get_gamepads +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMGamepadList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_navigator_webkit_get_gamepads" webkit_dom_navigator_webkit_get_gamepads :: + Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator" + IO (Ptr DOMGamepadList) + + +dOMNavigatorWebkitGetGamepads :: + (MonadIO m, DOMNavigatorK a) => + a -> -- _obj + m DOMGamepadList +dOMNavigatorWebkitGetGamepads _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_navigator_webkit_get_gamepads _obj' + checkUnexpectedReturnNULL "webkit_dom_navigator_webkit_get_gamepads" result + result' <- (wrapObject DOMGamepadList) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMNavigator.hs-boot b/GI/WebKit/Objects/DOMNavigator.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNavigator.hs-boot @@ -0,0 +1,31 @@ +module GI.WebKit.Objects.DOMNavigator where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNavigator = DOMNavigator (ForeignPtr DOMNavigator) +instance GObject DOMNavigator where +class GObject o => DOMNavigatorK o +instance (GObject o, IsDescendantOf DOMNavigator o) => DOMNavigatorK o +data DOMNavigatorAppCodeNamePropertyInfo +data DOMNavigatorAppNamePropertyInfo +data DOMNavigatorAppVersionPropertyInfo +data DOMNavigatorCookieEnabledPropertyInfo +data DOMNavigatorGeolocationPropertyInfo +data DOMNavigatorLanguagePropertyInfo +data DOMNavigatorMimeTypesPropertyInfo +data DOMNavigatorOnLinePropertyInfo +data DOMNavigatorPlatformPropertyInfo +data DOMNavigatorPluginsPropertyInfo +data DOMNavigatorProductPropertyInfo +data DOMNavigatorProductSubPropertyInfo +data DOMNavigatorUserAgentPropertyInfo +data DOMNavigatorVendorPropertyInfo +data DOMNavigatorVendorSubPropertyInfo +data DOMNavigatorWebkitBatteryPropertyInfo +data DOMNavigatorWebkitPersistentStoragePropertyInfo +data DOMNavigatorWebkitTemporaryStoragePropertyInfo diff --git a/GI/WebKit/Objects/DOMNode.hs b/GI/WebKit/Objects/DOMNode.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNode.hs @@ -0,0 +1,1677 @@ + +{- | +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.WebKit.Objects.DOMNode + ( + +-- * Exported types + DOMNode(..) , + DOMNodeK , + toDOMNode , + noDOMNode , + + + -- * Methods +-- ** dOMNodeAppendChild + dOMNodeAppendChild , + + +-- ** dOMNodeCloneNode + dOMNodeCloneNode , + + +-- ** dOMNodeCompareDocumentPosition + dOMNodeCompareDocumentPosition , + + +-- ** dOMNodeContains + dOMNodeContains , + + +-- ** dOMNodeDispatchEvent + dOMNodeDispatchEvent , + + +-- ** dOMNodeGetAttributes + dOMNodeGetAttributes , + + +-- ** dOMNodeGetBaseUri + dOMNodeGetBaseUri , + + +-- ** dOMNodeGetChildNodes + dOMNodeGetChildNodes , + + +-- ** dOMNodeGetFirstChild + dOMNodeGetFirstChild , + + +-- ** dOMNodeGetLastChild + dOMNodeGetLastChild , + + +-- ** dOMNodeGetLocalName + dOMNodeGetLocalName , + + +-- ** dOMNodeGetNamespaceUri + dOMNodeGetNamespaceUri , + + +-- ** dOMNodeGetNextSibling + dOMNodeGetNextSibling , + + +-- ** dOMNodeGetNodeName + dOMNodeGetNodeName , + + +-- ** dOMNodeGetNodeType + dOMNodeGetNodeType , + + +-- ** dOMNodeGetNodeValue + dOMNodeGetNodeValue , + + +-- ** dOMNodeGetOwnerDocument + dOMNodeGetOwnerDocument , + + +-- ** dOMNodeGetParentElement + dOMNodeGetParentElement , + + +-- ** dOMNodeGetParentNode + dOMNodeGetParentNode , + + +-- ** dOMNodeGetPrefix + dOMNodeGetPrefix , + + +-- ** dOMNodeGetPreviousSibling + dOMNodeGetPreviousSibling , + + +-- ** dOMNodeGetTextContent + dOMNodeGetTextContent , + + +-- ** dOMNodeHasAttributes + dOMNodeHasAttributes , + + +-- ** dOMNodeHasChildNodes + dOMNodeHasChildNodes , + + +-- ** dOMNodeInsertBefore + dOMNodeInsertBefore , + + +-- ** dOMNodeIsDefaultNamespace + dOMNodeIsDefaultNamespace , + + +-- ** dOMNodeIsEqualNode + dOMNodeIsEqualNode , + + +-- ** dOMNodeIsSameNode + dOMNodeIsSameNode , + + +-- ** dOMNodeIsSupported + dOMNodeIsSupported , + + +-- ** dOMNodeLookupNamespaceUri + dOMNodeLookupNamespaceUri , + + +-- ** dOMNodeLookupPrefix + dOMNodeLookupPrefix , + + +-- ** dOMNodeNormalize + dOMNodeNormalize , + + +-- ** dOMNodeRemoveChild + dOMNodeRemoveChild , + + +-- ** dOMNodeReplaceChild + dOMNodeReplaceChild , + + +-- ** dOMNodeSetNodeValue + dOMNodeSetNodeValue , + + +-- ** dOMNodeSetPrefix + dOMNodeSetPrefix , + + +-- ** dOMNodeSetTextContent + dOMNodeSetTextContent , + + + + + -- * Properties +-- ** BaseUri + DOMNodeBaseUriPropertyInfo , + getDOMNodeBaseUri , + + +-- ** ChildNodes + DOMNodeChildNodesPropertyInfo , + getDOMNodeChildNodes , + + +-- ** FirstChild + DOMNodeFirstChildPropertyInfo , + getDOMNodeFirstChild , + + +-- ** LastChild + DOMNodeLastChildPropertyInfo , + getDOMNodeLastChild , + + +-- ** LocalName + DOMNodeLocalNamePropertyInfo , + getDOMNodeLocalName , + + +-- ** NamespaceUri + DOMNodeNamespaceUriPropertyInfo , + getDOMNodeNamespaceUri , + + +-- ** NextSibling + DOMNodeNextSiblingPropertyInfo , + getDOMNodeNextSibling , + + +-- ** NodeName + DOMNodeNodeNamePropertyInfo , + getDOMNodeNodeName , + + +-- ** NodeType + DOMNodeNodeTypePropertyInfo , + getDOMNodeNodeType , + + +-- ** NodeValue + DOMNodeNodeValuePropertyInfo , + constructDOMNodeNodeValue , + getDOMNodeNodeValue , + setDOMNodeNodeValue , + + +-- ** OwnerDocument + DOMNodeOwnerDocumentPropertyInfo , + getDOMNodeOwnerDocument , + + +-- ** ParentElement + DOMNodeParentElementPropertyInfo , + getDOMNodeParentElement , + + +-- ** ParentNode + DOMNodeParentNodePropertyInfo , + getDOMNodeParentNode , + + +-- ** Prefix + DOMNodePrefixPropertyInfo , + constructDOMNodePrefix , + getDOMNodePrefix , + setDOMNodePrefix , + + +-- ** PreviousSibling + DOMNodePreviousSiblingPropertyInfo , + getDOMNodePreviousSibling , + + +-- ** TextContent + DOMNodeTextContentPropertyInfo , + constructDOMNodeTextContent , + getDOMNodeTextContent , + setDOMNodeTextContent , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNode = DOMNode (ForeignPtr DOMNode) +foreign import ccall "webkit_dom_node_get_type" + c_webkit_dom_node_get_type :: IO GType + +type instance ParentTypes DOMNode = DOMNodeParentTypes +type DOMNodeParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMNode where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_node_get_type + + +class GObject o => DOMNodeK o +instance (GObject o, IsDescendantOf DOMNode o) => DOMNodeK o + +toDOMNode :: DOMNodeK o => o -> IO DOMNode +toDOMNode = unsafeCastTo DOMNode + +noDOMNode :: Maybe DOMNode +noDOMNode = Nothing + +-- VVV Prop "base-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri" + +data DOMNodeBaseUriPropertyInfo +instance AttrInfo DOMNodeBaseUriPropertyInfo where + type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK + type AttrGetType DOMNodeBaseUriPropertyInfo = T.Text + type AttrLabel DOMNodeBaseUriPropertyInfo = "DOMNode::base-uri" + attrGet _ = getDOMNodeBaseUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "child-nodes" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m DOMNodeList +getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList + +data DOMNodeChildNodesPropertyInfo +instance AttrInfo DOMNodeChildNodesPropertyInfo where + type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK + type AttrGetType DOMNodeChildNodesPropertyInfo = DOMNodeList + type AttrLabel DOMNodeChildNodesPropertyInfo = "DOMNode::child-nodes" + attrGet _ = getDOMNodeChildNodes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "first-child" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeFirstChild obj = liftIO $ getObjectPropertyObject obj "first-child" DOMNode + +data DOMNodeFirstChildPropertyInfo +instance AttrInfo DOMNodeFirstChildPropertyInfo where + type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK + type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode + type AttrLabel DOMNodeFirstChildPropertyInfo = "DOMNode::first-child" + attrGet _ = getDOMNodeFirstChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "last-child" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeLastChild obj = liftIO $ getObjectPropertyObject obj "last-child" DOMNode + +data DOMNodeLastChildPropertyInfo +instance AttrInfo DOMNodeLastChildPropertyInfo where + type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK + type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode + type AttrLabel DOMNodeLastChildPropertyInfo = "DOMNode::last-child" + attrGet _ = getDOMNodeLastChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "local-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name" + +data DOMNodeLocalNamePropertyInfo +instance AttrInfo DOMNodeLocalNamePropertyInfo where + type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK + type AttrGetType DOMNodeLocalNamePropertyInfo = T.Text + type AttrLabel DOMNodeLocalNamePropertyInfo = "DOMNode::local-name" + attrGet _ = getDOMNodeLocalName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "namespace-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri" + +data DOMNodeNamespaceUriPropertyInfo +instance AttrInfo DOMNodeNamespaceUriPropertyInfo where + type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK + type AttrGetType DOMNodeNamespaceUriPropertyInfo = T.Text + type AttrLabel DOMNodeNamespaceUriPropertyInfo = "DOMNode::namespace-uri" + attrGet _ = getDOMNodeNamespaceUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "next-sibling" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeNextSibling obj = liftIO $ getObjectPropertyObject obj "next-sibling" DOMNode + +data DOMNodeNextSiblingPropertyInfo +instance AttrInfo DOMNodeNextSiblingPropertyInfo where + type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK + type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode + type AttrLabel DOMNodeNextSiblingPropertyInfo = "DOMNode::next-sibling" + attrGet _ = getDOMNodeNextSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name" + +data DOMNodeNodeNamePropertyInfo +instance AttrInfo DOMNodeNodeNamePropertyInfo where + type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeNamePropertyInfo = T.Text + type AttrLabel DOMNodeNodeNamePropertyInfo = "DOMNode::node-name" + attrGet _ = getDOMNodeNodeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32 +getDOMNodeNodeType obj = liftIO $ getObjectPropertyCUInt obj "node-type" + +data DOMNodeNodeTypePropertyInfo +instance AttrInfo DOMNodeNodeTypePropertyInfo where + type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeTypePropertyInfo = Word32 + type AttrLabel DOMNodeNodeTypePropertyInfo = "DOMNode::node-type" + attrGet _ = getDOMNodeNodeType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value" + +setDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" val + +constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue) +constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" val + +data DOMNodeNodeValuePropertyInfo +instance AttrInfo DOMNodeNodeValuePropertyInfo where + type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeValuePropertyInfo = T.Text + type AttrLabel DOMNodeNodeValuePropertyInfo = "DOMNode::node-value" + attrGet _ = getDOMNodeNodeValue + attrSet _ = setDOMNodeNodeValue + attrConstruct _ = constructDOMNodeNodeValue + +-- VVV Prop "owner-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument +getDOMNodeOwnerDocument obj = liftIO $ getObjectPropertyObject obj "owner-document" DOMDocument + +data DOMNodeOwnerDocumentPropertyInfo +instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where + type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK + type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument + type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "DOMNode::owner-document" + attrGet _ = getDOMNodeOwnerDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement +getDOMNodeParentElement obj = liftIO $ getObjectPropertyObject obj "parent-element" DOMElement + +data DOMNodeParentElementPropertyInfo +instance AttrInfo DOMNodeParentElementPropertyInfo where + type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK + type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement + type AttrLabel DOMNodeParentElementPropertyInfo = "DOMNode::parent-element" + attrGet _ = getDOMNodeParentElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeParentNode obj = liftIO $ getObjectPropertyObject obj "parent-node" DOMNode + +data DOMNodeParentNodePropertyInfo +instance AttrInfo DOMNodeParentNodePropertyInfo where + type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK + type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode + type AttrLabel DOMNodeParentNodePropertyInfo = "DOMNode::parent-node" + attrGet _ = getDOMNodeParentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "prefix" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix" + +setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" val + +constructDOMNodePrefix :: T.Text -> IO ([Char], GValue) +constructDOMNodePrefix val = constructObjectPropertyString "prefix" val + +data DOMNodePrefixPropertyInfo +instance AttrInfo DOMNodePrefixPropertyInfo where + type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK + type AttrGetType DOMNodePrefixPropertyInfo = T.Text + type AttrLabel DOMNodePrefixPropertyInfo = "DOMNode::prefix" + attrGet _ = getDOMNodePrefix + attrSet _ = setDOMNodePrefix + attrConstruct _ = constructDOMNodePrefix + +-- VVV Prop "previous-sibling" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodePreviousSibling obj = liftIO $ getObjectPropertyObject obj "previous-sibling" DOMNode + +data DOMNodePreviousSiblingPropertyInfo +instance AttrInfo DOMNodePreviousSiblingPropertyInfo where + type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK + type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode + type AttrLabel DOMNodePreviousSiblingPropertyInfo = "DOMNode::previous-sibling" + attrGet _ = getDOMNodePreviousSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "text-content" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content" + +setDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" val + +constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue) +constructDOMNodeTextContent val = constructObjectPropertyString "text-content" val + +data DOMNodeTextContentPropertyInfo +instance AttrInfo DOMNodeTextContentPropertyInfo where + type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK + type AttrGetType DOMNodeTextContentPropertyInfo = T.Text + type AttrLabel DOMNodeTextContentPropertyInfo = "DOMNode::text-content" + attrGet _ = getDOMNodeTextContent + attrSet _ = setDOMNodeTextContent + attrConstruct _ = constructDOMNodeTextContent + +type instance AttributeList DOMNode = DOMNodeAttributeList +type DOMNodeAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNode = DOMNodeSignalList +type DOMNodeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNode::append_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeAppendChild :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- newChild + m DOMNode +dOMNodeAppendChild _obj newChild = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newChild' = unsafeManagedPtrCastPtr newChild + onException (do + result <- propagateGError $ webkit_dom_node_append_child _obj' newChild' + checkUnexpectedReturnNULL "webkit_dom_node_append_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr newChild + return result' + ) (do + return () + ) + +-- method DOMNode::clone_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_clone_node" webkit_dom_node_clone_node :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CInt -> -- deep : TBasicType TBoolean + IO (Ptr DOMNode) + + +dOMNodeCloneNode :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + Bool -> -- deep + m DOMNode +dOMNodeCloneNode _obj deep = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let deep' = (fromIntegral . fromEnum) deep + result <- webkit_dom_node_clone_node _obj' deep' + checkUnexpectedReturnNULL "webkit_dom_node_clone_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::compare_document_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_compare_document_position" webkit_dom_node_compare_document_position :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode" + IO Word16 + + +dOMNodeCompareDocumentPosition :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- other + m Word16 +dOMNodeCompareDocumentPosition _obj other = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let other' = unsafeManagedPtrCastPtr other + result <- webkit_dom_node_compare_document_position _obj' other' + touchManagedPtr _obj + touchManagedPtr other + return result + +-- method DOMNode::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_contains" webkit_dom_node_contains :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode" + IO CInt + + +dOMNodeContains :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- other + m Bool +dOMNodeContains _obj other = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let other' = unsafeManagedPtrCastPtr other + result <- webkit_dom_node_contains _obj' other' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr other + return result' + +-- method DOMNode::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_dispatch_event" webkit_dom_node_dispatch_event :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMNodeDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMNodeDispatchEvent :: + (MonadIO m, DOMNodeK a, DOMEventK b) => + a -> -- _obj + b -> -- event + m () +dOMNodeDispatchEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrCastPtr event + onException (do + _ <- propagateGError $ webkit_dom_node_dispatch_event _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return () + ) (do + return () + ) + +-- method DOMNode::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_attributes" webkit_dom_node_get_attributes :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNamedNodeMap) + +{-# DEPRECATED dOMNodeGetAttributes ["(Since version 2.2)"]#-} +dOMNodeGetAttributes :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNamedNodeMap +dOMNodeGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_attributes _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_attributes" result + result' <- (newObject DOMNamedNodeMap) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_base_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_base_uri" webkit_dom_node_get_base_uri :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetBaseUri :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetBaseUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_base_uri _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_base_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_child_nodes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_child_nodes" webkit_dom_node_get_child_nodes :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNodeList) + + +dOMNodeGetChildNodes :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNodeList +dOMNodeGetChildNodes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_child_nodes _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_child_nodes" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_first_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_first_child" webkit_dom_node_get_first_child :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNode) + + +dOMNodeGetFirstChild :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNode +dOMNodeGetFirstChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_first_child _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_first_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_last_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_last_child" webkit_dom_node_get_last_child :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNode) + + +dOMNodeGetLastChild :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNode +dOMNodeGetLastChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_last_child _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_last_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_local_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_local_name" webkit_dom_node_get_local_name :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetLocalName :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetLocalName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_local_name _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_local_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_namespace_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_namespace_uri" webkit_dom_node_get_namespace_uri :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetNamespaceUri :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetNamespaceUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_namespace_uri _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_namespace_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_next_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_next_sibling" webkit_dom_node_get_next_sibling :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNode) + + +dOMNodeGetNextSibling :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNode +dOMNodeGetNextSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_next_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_next_sibling" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_node_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_node_name" webkit_dom_node_get_node_name :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetNodeName :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetNodeName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_node_name _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_node_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_node_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_node_type" webkit_dom_node_get_node_type :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO Word16 + + +dOMNodeGetNodeType :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m Word16 +dOMNodeGetNodeType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_node_type _obj' + touchManagedPtr _obj + return result + +-- method DOMNode::get_node_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_node_value" webkit_dom_node_get_node_value :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetNodeValue :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetNodeValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_node_value _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_node_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_owner_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_owner_document" webkit_dom_node_get_owner_document :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMDocument) + + +dOMNodeGetOwnerDocument :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMDocument +dOMNodeGetOwnerDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_owner_document _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_owner_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_parent_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_parent_element" webkit_dom_node_get_parent_element :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMElement) + + +dOMNodeGetParentElement :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMElement +dOMNodeGetParentElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_parent_element _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_parent_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_parent_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_parent_node" webkit_dom_node_get_parent_node :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNode) + + +dOMNodeGetParentNode :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNode +dOMNodeGetParentNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_parent_node _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_parent_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_prefix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_prefix" webkit_dom_node_get_prefix :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetPrefix :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetPrefix _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_prefix _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_prefix" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_previous_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_previous_sibling" webkit_dom_node_get_previous_sibling :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNode) + + +dOMNodeGetPreviousSibling :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m DOMNode +dOMNodeGetPreviousSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_previous_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_previous_sibling" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNode::get_text_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_get_text_content" webkit_dom_node_get_text_content :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CString + + +dOMNodeGetTextContent :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m T.Text +dOMNodeGetTextContent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_get_text_content _obj' + checkUnexpectedReturnNULL "webkit_dom_node_get_text_content" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMNode::has_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_has_attributes" webkit_dom_node_has_attributes :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CInt + +{-# DEPRECATED dOMNodeHasAttributes ["(Since version 2.2)"]#-} +dOMNodeHasAttributes :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m Bool +dOMNodeHasAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_has_attributes _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNode::has_child_nodes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_has_child_nodes" webkit_dom_node_has_child_nodes :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO CInt + + +dOMNodeHasChildNodes :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m Bool +dOMNodeHasChildNodes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_has_child_nodes _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNode::insert_before +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_insert_before" webkit_dom_node_insert_before :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- refChild : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeInsertBefore :: + (MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) => + a -> -- _obj + b -> -- newChild + Maybe (c) -> -- refChild + m DOMNode +dOMNodeInsertBefore _obj newChild refChild = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newChild' = unsafeManagedPtrCastPtr newChild + maybeRefChild <- case refChild of + Nothing -> return nullPtr + Just jRefChild -> do + let jRefChild' = unsafeManagedPtrCastPtr jRefChild + return jRefChild' + onException (do + result <- propagateGError $ webkit_dom_node_insert_before _obj' newChild' maybeRefChild + checkUnexpectedReturnNULL "webkit_dom_node_insert_before" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr newChild + whenJust refChild touchManagedPtr + return result' + ) (do + return () + ) + +-- method DOMNode::is_default_namespace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_is_default_namespace" webkit_dom_node_is_default_namespace :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- namespaceURI : TBasicType TUTF8 + IO CInt + + +dOMNodeIsDefaultNamespace :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- namespaceURI + m Bool +dOMNodeIsDefaultNamespace _obj namespaceURI = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + result <- webkit_dom_node_is_default_namespace _obj' namespaceURI' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem namespaceURI' + return result' + +-- method DOMNode::is_equal_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_is_equal_node" webkit_dom_node_is_equal_node :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode" + IO CInt + + +dOMNodeIsEqualNode :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- other + m Bool +dOMNodeIsEqualNode _obj other = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let other' = unsafeManagedPtrCastPtr other + result <- webkit_dom_node_is_equal_node _obj' other' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr other + return result' + +-- method DOMNode::is_same_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_is_same_node" webkit_dom_node_is_same_node :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode" + IO CInt + + +dOMNodeIsSameNode :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- other + m Bool +dOMNodeIsSameNode _obj other = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let other' = unsafeManagedPtrCastPtr other + result <- webkit_dom_node_is_same_node _obj' other' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr other + return result' + +-- method DOMNode::is_supported +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_is_supported" webkit_dom_node_is_supported :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- feature : TBasicType TUTF8 + CString -> -- version : TBasicType TUTF8 + IO CInt + + +dOMNodeIsSupported :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- feature + T.Text -> -- version + m Bool +dOMNodeIsSupported _obj feature version = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + feature' <- textToCString feature + version' <- textToCString version + result <- webkit_dom_node_is_supported _obj' feature' version' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem feature' + freeMem version' + return result' + +-- method DOMNode::lookup_namespace_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_lookup_namespace_uri" webkit_dom_node_lookup_namespace_uri :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- prefix : TBasicType TUTF8 + IO CString + + +dOMNodeLookupNamespaceUri :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- prefix + m T.Text +dOMNodeLookupNamespaceUri _obj prefix = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + prefix' <- textToCString prefix + result <- webkit_dom_node_lookup_namespace_uri _obj' prefix' + checkUnexpectedReturnNULL "webkit_dom_node_lookup_namespace_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem prefix' + return result' + +-- method DOMNode::lookup_prefix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_lookup_prefix" webkit_dom_node_lookup_prefix :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- namespaceURI : TBasicType TUTF8 + IO CString + + +dOMNodeLookupPrefix :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- namespaceURI + m T.Text +dOMNodeLookupPrefix _obj namespaceURI = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + result <- webkit_dom_node_lookup_prefix _obj' namespaceURI' + checkUnexpectedReturnNULL "webkit_dom_node_lookup_prefix" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem namespaceURI' + return result' + +-- method DOMNode::normalize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_normalize" webkit_dom_node_normalize :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + IO () + + +dOMNodeNormalize :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + m () +dOMNodeNormalize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_node_normalize _obj' + touchManagedPtr _obj + return () + +-- method DOMNode::remove_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- oldChild : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeRemoveChild :: + (MonadIO m, DOMNodeK a, DOMNodeK b) => + a -> -- _obj + b -> -- oldChild + m DOMNode +dOMNodeRemoveChild _obj oldChild = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let oldChild' = unsafeManagedPtrCastPtr oldChild + onException (do + result <- propagateGError $ webkit_dom_node_remove_child _obj' oldChild' + checkUnexpectedReturnNULL "webkit_dom_node_remove_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr oldChild + return result' + ) (do + return () + ) + +-- method DOMNode::replace_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_replace_child" webkit_dom_node_replace_child :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode" + Ptr DOMNode -> -- oldChild : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeReplaceChild :: + (MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) => + a -> -- _obj + b -> -- newChild + c -> -- oldChild + m DOMNode +dOMNodeReplaceChild _obj newChild oldChild = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newChild' = unsafeManagedPtrCastPtr newChild + let oldChild' = unsafeManagedPtrCastPtr oldChild + onException (do + result <- propagateGError $ webkit_dom_node_replace_child _obj' newChild' oldChild' + checkUnexpectedReturnNULL "webkit_dom_node_replace_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + touchManagedPtr newChild + touchManagedPtr oldChild + return result' + ) (do + return () + ) + +-- method DOMNode::set_node_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_set_node_value" webkit_dom_node_set_node_value :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMNodeSetNodeValue :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMNodeSetNodeValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_node_set_node_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMNode::set_prefix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_set_prefix" webkit_dom_node_set_prefix :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMNodeSetPrefix :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMNodeSetPrefix _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_node_set_prefix _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMNode::set_text_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_set_text_content" webkit_dom_node_set_text_content :: + Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMNodeSetTextContent :: + (MonadIO m, DOMNodeK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMNodeSetTextContent _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_node_set_text_content _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMNode.hs-boot b/GI/WebKit/Objects/DOMNode.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNode.hs-boot @@ -0,0 +1,29 @@ +module GI.WebKit.Objects.DOMNode where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNode = DOMNode (ForeignPtr DOMNode) +instance GObject DOMNode where +class GObject o => DOMNodeK o +instance (GObject o, IsDescendantOf DOMNode o) => DOMNodeK o +data DOMNodeBaseUriPropertyInfo +data DOMNodeChildNodesPropertyInfo +data DOMNodeFirstChildPropertyInfo +data DOMNodeLastChildPropertyInfo +data DOMNodeLocalNamePropertyInfo +data DOMNodeNamespaceUriPropertyInfo +data DOMNodeNextSiblingPropertyInfo +data DOMNodeNodeNamePropertyInfo +data DOMNodeNodeTypePropertyInfo +data DOMNodeNodeValuePropertyInfo +data DOMNodeOwnerDocumentPropertyInfo +data DOMNodeParentElementPropertyInfo +data DOMNodeParentNodePropertyInfo +data DOMNodePrefixPropertyInfo +data DOMNodePreviousSiblingPropertyInfo +data DOMNodeTextContentPropertyInfo diff --git a/GI/WebKit/Objects/DOMNodeFilter.hs b/GI/WebKit/Objects/DOMNodeFilter.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeFilter.hs @@ -0,0 +1,93 @@ + +{- | +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.WebKit.Objects.DOMNodeFilter + ( + +-- * Exported types + DOMNodeFilter(..) , + DOMNodeFilterK , + toDOMNodeFilter , + noDOMNodeFilter , + + + -- * Methods +-- ** dOMNodeFilterAcceptNode + dOMNodeFilterAcceptNode , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNodeFilter = DOMNodeFilter (ForeignPtr DOMNodeFilter) +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 = '[DOMObject, GObject.Object] + +instance GObject DOMNodeFilter where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_node_filter_get_type + + +class GObject o => DOMNodeFilterK o +instance (GObject o, IsDescendantOf DOMNodeFilter o) => DOMNodeFilterK o + +toDOMNodeFilter :: DOMNodeFilterK o => o -> IO DOMNodeFilter +toDOMNodeFilter = unsafeCastTo DOMNodeFilter + +noDOMNodeFilter :: Maybe DOMNodeFilter +noDOMNodeFilter = Nothing + +type instance AttributeList DOMNodeFilter = DOMNodeFilterAttributeList +type DOMNodeFilterAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNodeFilter = DOMNodeFilterSignalList +type DOMNodeFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNodeFilter::accept_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_filter_accept_node" webkit_dom_node_filter_accept_node :: + Ptr DOMNodeFilter -> -- _obj : TInterface "WebKit" "DOMNodeFilter" + Ptr DOMNode -> -- n : TInterface "WebKit" "DOMNode" + IO Int16 + + +dOMNodeFilterAcceptNode :: + (MonadIO m, DOMNodeFilterK a, DOMNodeK b) => + a -> -- _obj + b -> -- n + m Int16 +dOMNodeFilterAcceptNode _obj n = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let n' = unsafeManagedPtrCastPtr n + result <- webkit_dom_node_filter_accept_node _obj' n' + touchManagedPtr _obj + touchManagedPtr n + return result + + diff --git a/GI/WebKit/Objects/DOMNodeFilter.hs-boot b/GI/WebKit/Objects/DOMNodeFilter.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeFilter.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMNodeFilter where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNodeFilter = DOMNodeFilter (ForeignPtr DOMNodeFilter) +instance GObject DOMNodeFilter where +class GObject o => DOMNodeFilterK o +instance (GObject o, IsDescendantOf DOMNodeFilter o) => DOMNodeFilterK o diff --git a/GI/WebKit/Objects/DOMNodeIterator.hs b/GI/WebKit/Objects/DOMNodeIterator.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeIterator.hs @@ -0,0 +1,476 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMNodeIterator + ( + +-- * Exported types + DOMNodeIterator(..) , + DOMNodeIteratorK , + toDOMNodeIterator , + noDOMNodeIterator , + + + -- * Methods +-- ** dOMNodeIteratorDetach + dOMNodeIteratorDetach , + + +-- ** dOMNodeIteratorGetExpandEntityReferences + dOMNodeIteratorGetExpandEntityReferences, + + +-- ** dOMNodeIteratorGetFilter + dOMNodeIteratorGetFilter , + + +-- ** dOMNodeIteratorGetPointerBeforeReferenceNode + dOMNodeIteratorGetPointerBeforeReferenceNode, + + +-- ** dOMNodeIteratorGetReferenceNode + dOMNodeIteratorGetReferenceNode , + + +-- ** dOMNodeIteratorGetRoot + dOMNodeIteratorGetRoot , + + +-- ** dOMNodeIteratorGetWhatToShow + dOMNodeIteratorGetWhatToShow , + + +-- ** dOMNodeIteratorNextNode + dOMNodeIteratorNextNode , + + +-- ** dOMNodeIteratorPreviousNode + dOMNodeIteratorPreviousNode , + + + + + -- * Properties +-- ** ExpandEntityReferences + DOMNodeIteratorExpandEntityReferencesPropertyInfo, + getDOMNodeIteratorExpandEntityReferences, + + +-- ** Filter + DOMNodeIteratorFilterPropertyInfo , + getDOMNodeIteratorFilter , + + +-- ** PointerBeforeReferenceNode + DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo, + getDOMNodeIteratorPointerBeforeReferenceNode, + + +-- ** ReferenceNode + DOMNodeIteratorReferenceNodePropertyInfo, + getDOMNodeIteratorReferenceNode , + + +-- ** Root + DOMNodeIteratorRootPropertyInfo , + getDOMNodeIteratorRoot , + + +-- ** WhatToShow + DOMNodeIteratorWhatToShowPropertyInfo , + getDOMNodeIteratorWhatToShow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator) +foreign import ccall "webkit_dom_node_iterator_get_type" + c_webkit_dom_node_iterator_get_type :: IO GType + +type instance ParentTypes DOMNodeIterator = DOMNodeIteratorParentTypes +type DOMNodeIteratorParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMNodeIterator where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_node_iterator_get_type + + +class GObject o => DOMNodeIteratorK o +instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o + +toDOMNodeIterator :: DOMNodeIteratorK o => o -> IO DOMNodeIterator +toDOMNodeIterator = unsafeCastTo DOMNodeIterator + +noDOMNodeIterator :: Maybe DOMNodeIterator +noDOMNodeIterator = Nothing + +-- VVV Prop "expand-entity-references" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool +getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" + +data DOMNodeIteratorExpandEntityReferencesPropertyInfo +instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where + type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool + type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "DOMNodeIterator::expand-entity-references" + attrGet _ = getDOMNodeIteratorExpandEntityReferences + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filter" + -- Type: TInterface "WebKit" "DOMNodeFilter" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter +getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter + +data DOMNodeIteratorFilterPropertyInfo +instance AttrInfo DOMNodeIteratorFilterPropertyInfo where + type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter + type AttrLabel DOMNodeIteratorFilterPropertyInfo = "DOMNodeIterator::filter" + attrGet _ = getDOMNodeIteratorFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pointer-before-reference-node" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool +getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node" + +data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo +instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where + type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool + type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "DOMNodeIterator::pointer-before-reference-node" + attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "reference-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode +getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode + +data DOMNodeIteratorReferenceNodePropertyInfo +instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where + type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode + type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "DOMNodeIterator::reference-node" + attrGet _ = getDOMNodeIteratorReferenceNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "root" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode +getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode + +data DOMNodeIteratorRootPropertyInfo +instance AttrInfo DOMNodeIteratorRootPropertyInfo where + type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode + type AttrLabel DOMNodeIteratorRootPropertyInfo = "DOMNodeIterator::root" + attrGet _ = getDOMNodeIteratorRoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "what-to-show" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64 +getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" + +data DOMNodeIteratorWhatToShowPropertyInfo +instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where + type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64 + type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "DOMNodeIterator::what-to-show" + attrGet _ = getDOMNodeIteratorWhatToShow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList +type DOMNodeIteratorAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("expand-entity-references", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointer-before-reference-node", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("reference-node", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("what-to-show", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNodeIterator = DOMNodeIteratorSignalList +type DOMNodeIteratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNodeIterator::detach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_detach" webkit_dom_node_iterator_detach :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO () + + +dOMNodeIteratorDetach :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m () +dOMNodeIteratorDetach _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_node_iterator_detach _obj' + touchManagedPtr _obj + return () + +-- method DOMNodeIterator::get_expand_entity_references +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_expand_entity_references" webkit_dom_node_iterator_get_expand_entity_references :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO CInt + + +dOMNodeIteratorGetExpandEntityReferences :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m Bool +dOMNodeIteratorGetExpandEntityReferences _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_expand_entity_references _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNodeIterator::get_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeFilter" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_filter" webkit_dom_node_iterator_get_filter :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO (Ptr DOMNodeFilter) + + +dOMNodeIteratorGetFilter :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m DOMNodeFilter +dOMNodeIteratorGetFilter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_filter _obj' + checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_filter" result + result' <- (wrapObject DOMNodeFilter) result + touchManagedPtr _obj + return result' + +-- method DOMNodeIterator::get_pointer_before_reference_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_pointer_before_reference_node" webkit_dom_node_iterator_get_pointer_before_reference_node :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO CInt + + +dOMNodeIteratorGetPointerBeforeReferenceNode :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m Bool +dOMNodeIteratorGetPointerBeforeReferenceNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_pointer_before_reference_node _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMNodeIterator::get_reference_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_reference_node" webkit_dom_node_iterator_get_reference_node :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO (Ptr DOMNode) + + +dOMNodeIteratorGetReferenceNode :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m DOMNode +dOMNodeIteratorGetReferenceNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_reference_node _obj' + checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_reference_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNodeIterator::get_root +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_root" webkit_dom_node_iterator_get_root :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO (Ptr DOMNode) + + +dOMNodeIteratorGetRoot :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m DOMNode +dOMNodeIteratorGetRoot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_root _obj' + checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_root" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMNodeIterator::get_what_to_show +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_get_what_to_show" webkit_dom_node_iterator_get_what_to_show :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + IO Word64 + + +dOMNodeIteratorGetWhatToShow :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m Word64 +dOMNodeIteratorGetWhatToShow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_iterator_get_what_to_show _obj' + touchManagedPtr _obj + return result + +-- method DOMNodeIterator::next_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_next_node" webkit_dom_node_iterator_next_node :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeIteratorNextNode :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m DOMNode +dOMNodeIteratorNextNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_node_iterator_next_node _obj' + checkUnexpectedReturnNULL "webkit_dom_node_iterator_next_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMNodeIterator::previous_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_node_iterator_previous_node" webkit_dom_node_iterator_previous_node :: + Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMNodeIteratorPreviousNode :: + (MonadIO m, DOMNodeIteratorK a) => + a -> -- _obj + m DOMNode +dOMNodeIteratorPreviousNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_node_iterator_previous_node _obj' + checkUnexpectedReturnNULL "webkit_dom_node_iterator_previous_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMNodeIterator.hs-boot b/GI/WebKit/Objects/DOMNodeIterator.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeIterator.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.DOMNodeIterator where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator) +instance GObject DOMNodeIterator where +class GObject o => DOMNodeIteratorK o +instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o +data DOMNodeIteratorExpandEntityReferencesPropertyInfo +data DOMNodeIteratorFilterPropertyInfo +data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo +data DOMNodeIteratorReferenceNodePropertyInfo +data DOMNodeIteratorRootPropertyInfo +data DOMNodeIteratorWhatToShowPropertyInfo diff --git a/GI/WebKit/Objects/DOMNodeList.hs b/GI/WebKit/Objects/DOMNodeList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMNodeList + ( + +-- * Exported types + DOMNodeList(..) , + DOMNodeListK , + toDOMNodeList , + noDOMNodeList , + + + -- * Methods +-- ** dOMNodeListGetLength + dOMNodeListGetLength , + + +-- ** dOMNodeListItem + dOMNodeListItem , + + + + + -- * Properties +-- ** Length + DOMNodeListLengthPropertyInfo , + getDOMNodeListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMNodeList = DOMNodeList (ForeignPtr DOMNodeList) +foreign import ccall "webkit_dom_node_list_get_type" + c_webkit_dom_node_list_get_type :: IO GType + +type instance ParentTypes DOMNodeList = DOMNodeListParentTypes +type DOMNodeListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMNodeList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_node_list_get_type + + +class GObject o => DOMNodeListK o +instance (GObject o, IsDescendantOf DOMNodeList o) => DOMNodeListK o + +toDOMNodeList :: DOMNodeListK o => o -> IO DOMNodeList +toDOMNodeList = unsafeCastTo DOMNodeList + +noDOMNodeList :: Maybe DOMNodeList +noDOMNodeList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m Word64 +getDOMNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMNodeListLengthPropertyInfo +instance AttrInfo DOMNodeListLengthPropertyInfo where + type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK + type AttrGetType DOMNodeListLengthPropertyInfo = Word64 + type AttrLabel DOMNodeListLengthPropertyInfo = "DOMNodeList::length" + attrGet _ = getDOMNodeListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNodeList = DOMNodeListAttributeList +type DOMNodeListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMNodeList = DOMNodeListSignalList +type DOMNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMNodeList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_list_get_length" webkit_dom_node_list_get_length :: + Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList" + IO Word64 + + +dOMNodeListGetLength :: + (MonadIO m, DOMNodeListK a) => + a -> -- _obj + m Word64 +dOMNodeListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMNodeList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_node_list_item" webkit_dom_node_list_item :: + Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + + +dOMNodeListItem :: + (MonadIO m, DOMNodeListK a) => + a -> -- _obj + Word64 -> -- index + m DOMNode +dOMNodeListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_node_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_node_list_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMNodeList.hs-boot b/GI/WebKit/Objects/DOMNodeList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMNodeList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMNodeList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMNodeList = DOMNodeList (ForeignPtr DOMNodeList) +instance GObject DOMNodeList where +class GObject o => DOMNodeListK o +instance (GObject o, IsDescendantOf DOMNodeList o) => DOMNodeListK o +data DOMNodeListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMObject.hs b/GI/WebKit/Objects/DOMObject.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMObject.hs @@ -0,0 +1,84 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMObject + ( + +-- * Exported types + DOMObject(..) , + DOMObjectK , + toDOMObject , + noDOMObject , + + + -- * Properties +-- ** CoreObject + DOMObjectCoreObjectPropertyInfo , + constructDOMObjectCoreObject , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMObject = DOMObject (ForeignPtr DOMObject) +foreign import ccall "webkit_dom_object_get_type" + c_webkit_dom_object_get_type :: IO GType + +type instance ParentTypes DOMObject = DOMObjectParentTypes +type DOMObjectParentTypes = '[GObject.Object] + +instance GObject DOMObject where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_object_get_type + + +class GObject o => DOMObjectK o +instance (GObject o, IsDescendantOf DOMObject o) => DOMObjectK o + +toDOMObject :: DOMObjectK o => o -> IO DOMObject +toDOMObject = unsafeCastTo DOMObject + +noDOMObject :: Maybe DOMObject +noDOMObject = Nothing + +-- VVV Prop "core-object" + -- Type: TBasicType TVoid + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructDOMObjectCoreObject :: (Ptr ()) -> IO ([Char], GValue) +constructDOMObjectCoreObject val = constructObjectPropertyPtr "core-object" val + +data DOMObjectCoreObjectPropertyInfo +instance AttrInfo DOMObjectCoreObjectPropertyInfo where + type AttrAllowedOps DOMObjectCoreObjectPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint DOMObjectCoreObjectPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint DOMObjectCoreObjectPropertyInfo = DOMObjectK + type AttrGetType DOMObjectCoreObjectPropertyInfo = () + type AttrLabel DOMObjectCoreObjectPropertyInfo = "DOMObject::core-object" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructDOMObjectCoreObject + +type instance AttributeList DOMObject = DOMObjectAttributeList +type DOMObjectAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMObject = DOMObjectSignalList +type DOMObjectSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMObject.hs-boot b/GI/WebKit/Objects/DOMObject.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMObject.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMObject where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMObject = DOMObject (ForeignPtr DOMObject) +instance GObject DOMObject where +class GObject o => DOMObjectK o +instance (GObject o, IsDescendantOf DOMObject o) => DOMObjectK o +data DOMObjectCoreObjectPropertyInfo diff --git a/GI/WebKit/Objects/DOMPerformance.hs b/GI/WebKit/Objects/DOMPerformance.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformance.hs @@ -0,0 +1,227 @@ + +{- | +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.WebKit.Objects.DOMPerformance + ( + +-- * Exported types + DOMPerformance(..) , + DOMPerformanceK , + toDOMPerformance , + noDOMPerformance , + + + -- * Methods +-- ** dOMPerformanceGetMemory + dOMPerformanceGetMemory , + + +-- ** dOMPerformanceGetNavigation + dOMPerformanceGetNavigation , + + +-- ** dOMPerformanceGetTiming + dOMPerformanceGetTiming , + + +-- ** dOMPerformanceNow + dOMPerformanceNow , + + + + + -- * Properties +-- ** Navigation + DOMPerformanceNavigationPropertyInfo , + getDOMPerformanceNavigation , + + +-- ** Timing + DOMPerformanceTimingPropertyInfo , + getDOMPerformanceTiming , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPerformance = DOMPerformance (ForeignPtr DOMPerformance) +foreign import ccall "webkit_dom_performance_get_type" + c_webkit_dom_performance_get_type :: IO GType + +type instance ParentTypes DOMPerformance = DOMPerformanceParentTypes +type DOMPerformanceParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMPerformance where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_performance_get_type + + +class GObject o => DOMPerformanceK o +instance (GObject o, IsDescendantOf DOMPerformance o) => DOMPerformanceK o + +toDOMPerformance :: DOMPerformanceK o => o -> IO DOMPerformance +toDOMPerformance = unsafeCastTo DOMPerformance + +noDOMPerformance :: Maybe DOMPerformance +noDOMPerformance = Nothing + +-- VVV Prop "navigation" + -- Type: TInterface "WebKit" "DOMPerformanceNavigation" + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigation :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceNavigation +getDOMPerformanceNavigation obj = liftIO $ getObjectPropertyObject obj "navigation" DOMPerformanceNavigation + +data DOMPerformanceNavigationPropertyInfo +instance AttrInfo DOMPerformanceNavigationPropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationPropertyInfo = DOMPerformanceK + type AttrGetType DOMPerformanceNavigationPropertyInfo = DOMPerformanceNavigation + type AttrLabel DOMPerformanceNavigationPropertyInfo = "DOMPerformance::navigation" + attrGet _ = getDOMPerformanceNavigation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "timing" + -- Type: TInterface "WebKit" "DOMPerformanceTiming" + -- Flags: [PropertyReadable] + +getDOMPerformanceTiming :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceTiming +getDOMPerformanceTiming obj = liftIO $ getObjectPropertyObject obj "timing" DOMPerformanceTiming + +data DOMPerformanceTimingPropertyInfo +instance AttrInfo DOMPerformanceTimingPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingPropertyInfo = DOMPerformanceK + type AttrGetType DOMPerformanceTimingPropertyInfo = DOMPerformanceTiming + type AttrLabel DOMPerformanceTimingPropertyInfo = "DOMPerformance::timing" + attrGet _ = getDOMPerformanceTiming + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformance = DOMPerformanceAttributeList +type DOMPerformanceAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("navigation", DOMPerformanceNavigationPropertyInfo), '("timing", DOMPerformanceTimingPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPerformance = DOMPerformanceSignalList +type DOMPerformanceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPerformance::get_memory +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_get_memory" webkit_dom_performance_get_memory :: + Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance" + IO () + +{-# DEPRECATED dOMPerformanceGetMemory ["(Since version 2.2)"]#-} +dOMPerformanceGetMemory :: + (MonadIO m, DOMPerformanceK a) => + a -> -- _obj + m () +dOMPerformanceGetMemory _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_dom_performance_get_memory _obj' + touchManagedPtr _obj + return () + +-- method DOMPerformance::get_navigation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMPerformanceNavigation" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_get_navigation" webkit_dom_performance_get_navigation :: + Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance" + IO (Ptr DOMPerformanceNavigation) + + +dOMPerformanceGetNavigation :: + (MonadIO m, DOMPerformanceK a) => + a -> -- _obj + m DOMPerformanceNavigation +dOMPerformanceGetNavigation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_get_navigation _obj' + checkUnexpectedReturnNULL "webkit_dom_performance_get_navigation" result + result' <- (wrapObject DOMPerformanceNavigation) result + touchManagedPtr _obj + return result' + +-- method DOMPerformance::get_timing +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMPerformanceTiming" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_get_timing" webkit_dom_performance_get_timing :: + Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance" + IO (Ptr DOMPerformanceTiming) + + +dOMPerformanceGetTiming :: + (MonadIO m, DOMPerformanceK a) => + a -> -- _obj + m DOMPerformanceTiming +dOMPerformanceGetTiming _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_get_timing _obj' + checkUnexpectedReturnNULL "webkit_dom_performance_get_timing" result + result' <- (wrapObject DOMPerformanceTiming) result + touchManagedPtr _obj + return result' + +-- method DOMPerformance::now +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_now" webkit_dom_performance_now :: + Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance" + IO CDouble + + +dOMPerformanceNow :: + (MonadIO m, DOMPerformanceK a) => + a -> -- _obj + m Double +dOMPerformanceNow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_now _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMPerformance.hs-boot b/GI/WebKit/Objects/DOMPerformance.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformance.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMPerformance where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPerformance = DOMPerformance (ForeignPtr DOMPerformance) +instance GObject DOMPerformance where +class GObject o => DOMPerformanceK o +instance (GObject o, IsDescendantOf DOMPerformance o) => DOMPerformanceK o +data DOMPerformanceNavigationPropertyInfo +data DOMPerformanceTimingPropertyInfo diff --git a/GI/WebKit/Objects/DOMPerformanceEntry.hs b/GI/WebKit/Objects/DOMPerformanceEntry.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceEntry.hs @@ -0,0 +1,276 @@ + +{- | +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.WebKit.Objects.DOMPerformanceEntry + ( + +-- * Exported types + DOMPerformanceEntry(..) , + DOMPerformanceEntryK , + toDOMPerformanceEntry , + noDOMPerformanceEntry , + + + -- * Methods +-- ** dOMPerformanceEntryGetDuration + dOMPerformanceEntryGetDuration , + + +-- ** dOMPerformanceEntryGetEntryType + dOMPerformanceEntryGetEntryType , + + +-- ** dOMPerformanceEntryGetName + dOMPerformanceEntryGetName , + + +-- ** dOMPerformanceEntryGetStartTime + dOMPerformanceEntryGetStartTime , + + + + + -- * Properties +-- ** Duration + DOMPerformanceEntryDurationPropertyInfo , + getDOMPerformanceEntryDuration , + + +-- ** EntryType + DOMPerformanceEntryEntryTypePropertyInfo, + getDOMPerformanceEntryEntryType , + + +-- ** Name + DOMPerformanceEntryNamePropertyInfo , + getDOMPerformanceEntryName , + + +-- ** StartTime + DOMPerformanceEntryStartTimePropertyInfo, + getDOMPerformanceEntryStartTime , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPerformanceEntry = DOMPerformanceEntry (ForeignPtr DOMPerformanceEntry) +foreign import ccall "webkit_dom_performance_entry_get_type" + c_webkit_dom_performance_entry_get_type :: IO GType + +type instance ParentTypes DOMPerformanceEntry = DOMPerformanceEntryParentTypes +type DOMPerformanceEntryParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMPerformanceEntry where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_performance_entry_get_type + + +class GObject o => DOMPerformanceEntryK o +instance (GObject o, IsDescendantOf DOMPerformanceEntry o) => DOMPerformanceEntryK o + +toDOMPerformanceEntry :: DOMPerformanceEntryK o => o -> IO DOMPerformanceEntry +toDOMPerformanceEntry = unsafeCastTo DOMPerformanceEntry + +noDOMPerformanceEntry :: Maybe DOMPerformanceEntry +noDOMPerformanceEntry = Nothing + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryDuration :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double +getDOMPerformanceEntryDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMPerformanceEntryDurationPropertyInfo +instance AttrInfo DOMPerformanceEntryDurationPropertyInfo where + type AttrAllowedOps DOMPerformanceEntryDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryDurationPropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryDurationPropertyInfo = Double + type AttrLabel DOMPerformanceEntryDurationPropertyInfo = "DOMPerformanceEntry::duration" + attrGet _ = getDOMPerformanceEntryDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "entry-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryEntryType :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryEntryType obj = liftIO $ getObjectPropertyString obj "entry-type" + +data DOMPerformanceEntryEntryTypePropertyInfo +instance AttrInfo DOMPerformanceEntryEntryTypePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryEntryTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryEntryTypePropertyInfo = T.Text + type AttrLabel DOMPerformanceEntryEntryTypePropertyInfo = "DOMPerformanceEntry::entry-type" + attrGet _ = getDOMPerformanceEntryEntryType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryName :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMPerformanceEntryNamePropertyInfo +instance AttrInfo DOMPerformanceEntryNamePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryNamePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryNamePropertyInfo = T.Text + type AttrLabel DOMPerformanceEntryNamePropertyInfo = "DOMPerformanceEntry::name" + attrGet _ = getDOMPerformanceEntryName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryStartTime :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double +getDOMPerformanceEntryStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" + +data DOMPerformanceEntryStartTimePropertyInfo +instance AttrInfo DOMPerformanceEntryStartTimePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryStartTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryStartTimePropertyInfo = Double + type AttrLabel DOMPerformanceEntryStartTimePropertyInfo = "DOMPerformanceEntry::start-time" + attrGet _ = getDOMPerformanceEntryStartTime + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceEntry = DOMPerformanceEntryAttributeList +type DOMPerformanceEntryAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("duration", DOMPerformanceEntryDurationPropertyInfo), '("entry-type", DOMPerformanceEntryEntryTypePropertyInfo), '("name", DOMPerformanceEntryNamePropertyInfo), '("start-time", DOMPerformanceEntryStartTimePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPerformanceEntry = DOMPerformanceEntrySignalList +type DOMPerformanceEntrySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPerformanceEntry::get_duration +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_get_duration" webkit_dom_performance_entry_get_duration :: + Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry" + IO CDouble + + +dOMPerformanceEntryGetDuration :: + (MonadIO m, DOMPerformanceEntryK a) => + a -> -- _obj + m Double +dOMPerformanceEntryGetDuration _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_get_duration _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMPerformanceEntry::get_entry_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_get_entry_type" webkit_dom_performance_entry_get_entry_type :: + Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry" + IO CString + + +dOMPerformanceEntryGetEntryType :: + (MonadIO m, DOMPerformanceEntryK a) => + a -> -- _obj + m T.Text +dOMPerformanceEntryGetEntryType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_get_entry_type _obj' + checkUnexpectedReturnNULL "webkit_dom_performance_entry_get_entry_type" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMPerformanceEntry::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_get_name" webkit_dom_performance_entry_get_name :: + Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry" + IO CString + + +dOMPerformanceEntryGetName :: + (MonadIO m, DOMPerformanceEntryK a) => + a -> -- _obj + m T.Text +dOMPerformanceEntryGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_performance_entry_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMPerformanceEntry::get_start_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_get_start_time" webkit_dom_performance_entry_get_start_time :: + Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry" + IO CDouble + + +dOMPerformanceEntryGetStartTime :: + (MonadIO m, DOMPerformanceEntryK a) => + a -> -- _obj + m Double +dOMPerformanceEntryGetStartTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_get_start_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot b/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMPerformanceEntry where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPerformanceEntry = DOMPerformanceEntry (ForeignPtr DOMPerformanceEntry) +instance GObject DOMPerformanceEntry where +class GObject o => DOMPerformanceEntryK o +instance (GObject o, IsDescendantOf DOMPerformanceEntry o) => DOMPerformanceEntryK o +data DOMPerformanceEntryDurationPropertyInfo +data DOMPerformanceEntryEntryTypePropertyInfo +data DOMPerformanceEntryNamePropertyInfo +data DOMPerformanceEntryStartTimePropertyInfo diff --git a/GI/WebKit/Objects/DOMPerformanceEntryList.hs b/GI/WebKit/Objects/DOMPerformanceEntryList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceEntryList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMPerformanceEntryList + ( + +-- * Exported types + DOMPerformanceEntryList(..) , + DOMPerformanceEntryListK , + toDOMPerformanceEntryList , + noDOMPerformanceEntryList , + + + -- * Methods +-- ** dOMPerformanceEntryListGetLength + dOMPerformanceEntryListGetLength , + + +-- ** dOMPerformanceEntryListItem + dOMPerformanceEntryListItem , + + + + + -- * Properties +-- ** Length + DOMPerformanceEntryListLengthPropertyInfo, + getDOMPerformanceEntryListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPerformanceEntryList = DOMPerformanceEntryList (ForeignPtr DOMPerformanceEntryList) +foreign import ccall "webkit_dom_performance_entry_list_get_type" + c_webkit_dom_performance_entry_list_get_type :: IO GType + +type instance ParentTypes DOMPerformanceEntryList = DOMPerformanceEntryListParentTypes +type DOMPerformanceEntryListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMPerformanceEntryList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_performance_entry_list_get_type + + +class GObject o => DOMPerformanceEntryListK o +instance (GObject o, IsDescendantOf DOMPerformanceEntryList o) => DOMPerformanceEntryListK o + +toDOMPerformanceEntryList :: DOMPerformanceEntryListK o => o -> IO DOMPerformanceEntryList +toDOMPerformanceEntryList = unsafeCastTo DOMPerformanceEntryList + +noDOMPerformanceEntryList :: Maybe DOMPerformanceEntryList +noDOMPerformanceEntryList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m Word64 +getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMPerformanceEntryListLengthPropertyInfo +instance AttrInfo DOMPerformanceEntryListLengthPropertyInfo where + type AttrAllowedOps DOMPerformanceEntryListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = DOMPerformanceEntryListK + type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = Word64 + type AttrLabel DOMPerformanceEntryListLengthPropertyInfo = "DOMPerformanceEntryList::length" + attrGet _ = getDOMPerformanceEntryListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceEntryList = DOMPerformanceEntryListAttributeList +type DOMPerformanceEntryListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPerformanceEntryListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPerformanceEntryList = DOMPerformanceEntryListSignalList +type DOMPerformanceEntryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPerformanceEntryList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_list_get_length" webkit_dom_performance_entry_list_get_length :: + Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList" + IO Word64 + + +dOMPerformanceEntryListGetLength :: + (MonadIO m, DOMPerformanceEntryListK a) => + a -> -- _obj + m Word64 +dOMPerformanceEntryListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceEntryList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMPerformanceEntry" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_entry_list_item" webkit_dom_performance_entry_list_item :: + Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMPerformanceEntry) + + +dOMPerformanceEntryListItem :: + (MonadIO m, DOMPerformanceEntryListK a) => + a -> -- _obj + Word64 -> -- index + m DOMPerformanceEntry +dOMPerformanceEntryListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_entry_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_performance_entry_list_item" result + result' <- (wrapObject DOMPerformanceEntry) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot b/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMPerformanceEntryList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPerformanceEntryList = DOMPerformanceEntryList (ForeignPtr DOMPerformanceEntryList) +instance GObject DOMPerformanceEntryList where +class GObject o => DOMPerformanceEntryListK o +instance (GObject o, IsDescendantOf DOMPerformanceEntryList o) => DOMPerformanceEntryListK o +data DOMPerformanceEntryListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMPerformanceNavigation.hs b/GI/WebKit/Objects/DOMPerformanceNavigation.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceNavigation.hs @@ -0,0 +1,138 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMPerformanceNavigation + ( + +-- * Exported types + DOMPerformanceNavigation(..) , + DOMPerformanceNavigationK , + toDOMPerformanceNavigation , + noDOMPerformanceNavigation , + + + -- * Methods +-- ** dOMPerformanceNavigationGetRedirectCount + dOMPerformanceNavigationGetRedirectCount, + + + + + -- * Properties +-- ** RedirectCount + DOMPerformanceNavigationRedirectCountPropertyInfo, + getDOMPerformanceNavigationRedirectCount, + + +-- ** Type + DOMPerformanceNavigationTypePropertyInfo, + getDOMPerformanceNavigationType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPerformanceNavigation = DOMPerformanceNavigation (ForeignPtr DOMPerformanceNavigation) +foreign import ccall "webkit_dom_performance_navigation_get_type" + c_webkit_dom_performance_navigation_get_type :: IO GType + +type instance ParentTypes DOMPerformanceNavigation = DOMPerformanceNavigationParentTypes +type DOMPerformanceNavigationParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMPerformanceNavigation where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_performance_navigation_get_type + + +class GObject o => DOMPerformanceNavigationK o +instance (GObject o, IsDescendantOf DOMPerformanceNavigation o) => DOMPerformanceNavigationK o + +toDOMPerformanceNavigation :: DOMPerformanceNavigationK o => o -> IO DOMPerformanceNavigation +toDOMPerformanceNavigation = unsafeCastTo DOMPerformanceNavigation + +noDOMPerformanceNavigation :: Maybe DOMPerformanceNavigation +noDOMPerformanceNavigation = Nothing + +-- VVV Prop "redirect-count" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigationRedirectCount :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 +getDOMPerformanceNavigationRedirectCount obj = liftIO $ getObjectPropertyCUInt obj "redirect-count" + +data DOMPerformanceNavigationRedirectCountPropertyInfo +instance AttrInfo DOMPerformanceNavigationRedirectCountPropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationRedirectCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = DOMPerformanceNavigationK + type AttrGetType DOMPerformanceNavigationRedirectCountPropertyInfo = Word32 + type AttrLabel DOMPerformanceNavigationRedirectCountPropertyInfo = "DOMPerformanceNavigation::redirect-count" + attrGet _ = getDOMPerformanceNavigationRedirectCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigationType :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 +getDOMPerformanceNavigationType obj = liftIO $ getObjectPropertyCUInt obj "type" + +data DOMPerformanceNavigationTypePropertyInfo +instance AttrInfo DOMPerformanceNavigationTypePropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationTypePropertyInfo = DOMPerformanceNavigationK + type AttrGetType DOMPerformanceNavigationTypePropertyInfo = Word32 + type AttrLabel DOMPerformanceNavigationTypePropertyInfo = "DOMPerformanceNavigation::type" + attrGet _ = getDOMPerformanceNavigationType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceNavigation = DOMPerformanceNavigationAttributeList +type DOMPerformanceNavigationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("redirect-count", DOMPerformanceNavigationRedirectCountPropertyInfo), '("type", DOMPerformanceNavigationTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPerformanceNavigation = DOMPerformanceNavigationSignalList +type DOMPerformanceNavigationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPerformanceNavigation::get_redirect_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceNavigation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceNavigation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_navigation_get_redirect_count" webkit_dom_performance_navigation_get_redirect_count :: + Ptr DOMPerformanceNavigation -> -- _obj : TInterface "WebKit" "DOMPerformanceNavigation" + IO Word16 + + +dOMPerformanceNavigationGetRedirectCount :: + (MonadIO m, DOMPerformanceNavigationK a) => + a -> -- _obj + m Word16 +dOMPerformanceNavigationGetRedirectCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_navigation_get_redirect_count _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot b/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMPerformanceNavigation where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPerformanceNavigation = DOMPerformanceNavigation (ForeignPtr DOMPerformanceNavigation) +instance GObject DOMPerformanceNavigation where +class GObject o => DOMPerformanceNavigationK o +instance (GObject o, IsDescendantOf DOMPerformanceNavigation o) => DOMPerformanceNavigationK o +data DOMPerformanceNavigationRedirectCountPropertyInfo +data DOMPerformanceNavigationTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMPerformanceTiming.hs b/GI/WebKit/Objects/DOMPerformanceTiming.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceTiming.hs @@ -0,0 +1,1135 @@ + +{- | +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.WebKit.Objects.DOMPerformanceTiming + ( + +-- * Exported types + DOMPerformanceTiming(..) , + DOMPerformanceTimingK , + toDOMPerformanceTiming , + noDOMPerformanceTiming , + + + -- * Methods +-- ** dOMPerformanceTimingGetConnectEnd + dOMPerformanceTimingGetConnectEnd , + + +-- ** dOMPerformanceTimingGetConnectStart + dOMPerformanceTimingGetConnectStart , + + +-- ** dOMPerformanceTimingGetDomComplete + dOMPerformanceTimingGetDomComplete , + + +-- ** dOMPerformanceTimingGetDomContentLoadedEventEnd + dOMPerformanceTimingGetDomContentLoadedEventEnd, + + +-- ** dOMPerformanceTimingGetDomContentLoadedEventStart + dOMPerformanceTimingGetDomContentLoadedEventStart, + + +-- ** dOMPerformanceTimingGetDomInteractive + dOMPerformanceTimingGetDomInteractive , + + +-- ** dOMPerformanceTimingGetDomLoading + dOMPerformanceTimingGetDomLoading , + + +-- ** dOMPerformanceTimingGetDomainLookupEnd + dOMPerformanceTimingGetDomainLookupEnd , + + +-- ** dOMPerformanceTimingGetDomainLookupStart + dOMPerformanceTimingGetDomainLookupStart, + + +-- ** dOMPerformanceTimingGetFetchStart + dOMPerformanceTimingGetFetchStart , + + +-- ** dOMPerformanceTimingGetLoadEventEnd + dOMPerformanceTimingGetLoadEventEnd , + + +-- ** dOMPerformanceTimingGetLoadEventStart + dOMPerformanceTimingGetLoadEventStart , + + +-- ** dOMPerformanceTimingGetNavigationStart + dOMPerformanceTimingGetNavigationStart , + + +-- ** dOMPerformanceTimingGetRedirectEnd + dOMPerformanceTimingGetRedirectEnd , + + +-- ** dOMPerformanceTimingGetRedirectStart + dOMPerformanceTimingGetRedirectStart , + + +-- ** dOMPerformanceTimingGetRequestStart + dOMPerformanceTimingGetRequestStart , + + +-- ** dOMPerformanceTimingGetResponseEnd + dOMPerformanceTimingGetResponseEnd , + + +-- ** dOMPerformanceTimingGetResponseStart + dOMPerformanceTimingGetResponseStart , + + +-- ** dOMPerformanceTimingGetSecureConnectionStart + dOMPerformanceTimingGetSecureConnectionStart, + + +-- ** dOMPerformanceTimingGetUnloadEventEnd + dOMPerformanceTimingGetUnloadEventEnd , + + +-- ** dOMPerformanceTimingGetUnloadEventStart + dOMPerformanceTimingGetUnloadEventStart , + + + + + -- * Properties +-- ** ConnectEnd + DOMPerformanceTimingConnectEndPropertyInfo, + getDOMPerformanceTimingConnectEnd , + + +-- ** ConnectStart + DOMPerformanceTimingConnectStartPropertyInfo, + getDOMPerformanceTimingConnectStart , + + +-- ** DomComplete + DOMPerformanceTimingDomCompletePropertyInfo, + getDOMPerformanceTimingDomComplete , + + +-- ** DomContentLoadedEventEnd + DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo, + getDOMPerformanceTimingDomContentLoadedEventEnd, + + +-- ** DomContentLoadedEventStart + DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo, + getDOMPerformanceTimingDomContentLoadedEventStart, + + +-- ** DomInteractive + DOMPerformanceTimingDomInteractivePropertyInfo, + getDOMPerformanceTimingDomInteractive , + + +-- ** DomLoading + DOMPerformanceTimingDomLoadingPropertyInfo, + getDOMPerformanceTimingDomLoading , + + +-- ** DomainLookupEnd + DOMPerformanceTimingDomainLookupEndPropertyInfo, + getDOMPerformanceTimingDomainLookupEnd , + + +-- ** DomainLookupStart + DOMPerformanceTimingDomainLookupStartPropertyInfo, + getDOMPerformanceTimingDomainLookupStart, + + +-- ** FetchStart + DOMPerformanceTimingFetchStartPropertyInfo, + getDOMPerformanceTimingFetchStart , + + +-- ** LoadEventEnd + DOMPerformanceTimingLoadEventEndPropertyInfo, + getDOMPerformanceTimingLoadEventEnd , + + +-- ** LoadEventStart + DOMPerformanceTimingLoadEventStartPropertyInfo, + getDOMPerformanceTimingLoadEventStart , + + +-- ** NavigationStart + DOMPerformanceTimingNavigationStartPropertyInfo, + getDOMPerformanceTimingNavigationStart , + + +-- ** RedirectEnd + DOMPerformanceTimingRedirectEndPropertyInfo, + getDOMPerformanceTimingRedirectEnd , + + +-- ** RedirectStart + DOMPerformanceTimingRedirectStartPropertyInfo, + getDOMPerformanceTimingRedirectStart , + + +-- ** RequestStart + DOMPerformanceTimingRequestStartPropertyInfo, + getDOMPerformanceTimingRequestStart , + + +-- ** ResponseEnd + DOMPerformanceTimingResponseEndPropertyInfo, + getDOMPerformanceTimingResponseEnd , + + +-- ** ResponseStart + DOMPerformanceTimingResponseStartPropertyInfo, + getDOMPerformanceTimingResponseStart , + + +-- ** SecureConnectionStart + DOMPerformanceTimingSecureConnectionStartPropertyInfo, + getDOMPerformanceTimingSecureConnectionStart, + + +-- ** UnloadEventEnd + DOMPerformanceTimingUnloadEventEndPropertyInfo, + getDOMPerformanceTimingUnloadEventEnd , + + +-- ** UnloadEventStart + DOMPerformanceTimingUnloadEventStartPropertyInfo, + getDOMPerformanceTimingUnloadEventStart , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPerformanceTiming = DOMPerformanceTiming (ForeignPtr DOMPerformanceTiming) +foreign import ccall "webkit_dom_performance_timing_get_type" + c_webkit_dom_performance_timing_get_type :: IO GType + +type instance ParentTypes DOMPerformanceTiming = DOMPerformanceTimingParentTypes +type DOMPerformanceTimingParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMPerformanceTiming where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_performance_timing_get_type + + +class GObject o => DOMPerformanceTimingK o +instance (GObject o, IsDescendantOf DOMPerformanceTiming o) => DOMPerformanceTimingK o + +toDOMPerformanceTiming :: DOMPerformanceTimingK o => o -> IO DOMPerformanceTiming +toDOMPerformanceTiming = unsafeCastTo DOMPerformanceTiming + +noDOMPerformanceTiming :: Maybe DOMPerformanceTiming +noDOMPerformanceTiming = Nothing + +-- VVV Prop "connect-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingConnectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingConnectEnd obj = liftIO $ getObjectPropertyUInt64 obj "connect-end" + +data DOMPerformanceTimingConnectEndPropertyInfo +instance AttrInfo DOMPerformanceTimingConnectEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingConnectEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingConnectEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingConnectEndPropertyInfo = "DOMPerformanceTiming::connect-end" + attrGet _ = getDOMPerformanceTimingConnectEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "connect-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingConnectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingConnectStart obj = liftIO $ getObjectPropertyUInt64 obj "connect-start" + +data DOMPerformanceTimingConnectStartPropertyInfo +instance AttrInfo DOMPerformanceTimingConnectStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingConnectStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingConnectStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingConnectStartPropertyInfo = "DOMPerformanceTiming::connect-start" + attrGet _ = getDOMPerformanceTimingConnectStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-complete" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomComplete :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomComplete obj = liftIO $ getObjectPropertyUInt64 obj "dom-complete" + +data DOMPerformanceTimingDomCompletePropertyInfo +instance AttrInfo DOMPerformanceTimingDomCompletePropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomCompletePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomCompletePropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomCompletePropertyInfo = "DOMPerformanceTiming::dom-complete" + attrGet _ = getDOMPerformanceTimingDomComplete + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-content-loaded-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomContentLoadedEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomContentLoadedEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-end" + +data DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-end" + attrGet _ = getDOMPerformanceTimingDomContentLoadedEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-content-loaded-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomContentLoadedEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomContentLoadedEventStart obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-start" + +data DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-start" + attrGet _ = getDOMPerformanceTimingDomContentLoadedEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-interactive" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomInteractive :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomInteractive obj = liftIO $ getObjectPropertyUInt64 obj "dom-interactive" + +data DOMPerformanceTimingDomInteractivePropertyInfo +instance AttrInfo DOMPerformanceTimingDomInteractivePropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomInteractivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomInteractivePropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomInteractivePropertyInfo = "DOMPerformanceTiming::dom-interactive" + attrGet _ = getDOMPerformanceTimingDomInteractive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-loading" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomLoading :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomLoading obj = liftIO $ getObjectPropertyUInt64 obj "dom-loading" + +data DOMPerformanceTimingDomLoadingPropertyInfo +instance AttrInfo DOMPerformanceTimingDomLoadingPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomLoadingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomLoadingPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomLoadingPropertyInfo = "DOMPerformanceTiming::dom-loading" + attrGet _ = getDOMPerformanceTimingDomLoading + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "domain-lookup-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomainLookupEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomainLookupEnd obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-end" + +data DOMPerformanceTimingDomainLookupEndPropertyInfo +instance AttrInfo DOMPerformanceTimingDomainLookupEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomainLookupEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomainLookupEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomainLookupEndPropertyInfo = "DOMPerformanceTiming::domain-lookup-end" + attrGet _ = getDOMPerformanceTimingDomainLookupEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "domain-lookup-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomainLookupStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomainLookupStart obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-start" + +data DOMPerformanceTimingDomainLookupStartPropertyInfo +instance AttrInfo DOMPerformanceTimingDomainLookupStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomainLookupStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomainLookupStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomainLookupStartPropertyInfo = "DOMPerformanceTiming::domain-lookup-start" + attrGet _ = getDOMPerformanceTimingDomainLookupStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "fetch-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingFetchStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingFetchStart obj = liftIO $ getObjectPropertyUInt64 obj "fetch-start" + +data DOMPerformanceTimingFetchStartPropertyInfo +instance AttrInfo DOMPerformanceTimingFetchStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingFetchStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingFetchStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingFetchStartPropertyInfo = "DOMPerformanceTiming::fetch-start" + attrGet _ = getDOMPerformanceTimingFetchStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingLoadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingLoadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "load-event-end" + +data DOMPerformanceTimingLoadEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingLoadEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingLoadEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingLoadEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingLoadEventEndPropertyInfo = "DOMPerformanceTiming::load-event-end" + attrGet _ = getDOMPerformanceTimingLoadEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingLoadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingLoadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "load-event-start" + +data DOMPerformanceTimingLoadEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingLoadEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingLoadEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingLoadEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingLoadEventStartPropertyInfo = "DOMPerformanceTiming::load-event-start" + attrGet _ = getDOMPerformanceTimingLoadEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "navigation-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingNavigationStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingNavigationStart obj = liftIO $ getObjectPropertyUInt64 obj "navigation-start" + +data DOMPerformanceTimingNavigationStartPropertyInfo +instance AttrInfo DOMPerformanceTimingNavigationStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingNavigationStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingNavigationStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingNavigationStartPropertyInfo = "DOMPerformanceTiming::navigation-start" + attrGet _ = getDOMPerformanceTimingNavigationStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "redirect-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRedirectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRedirectEnd obj = liftIO $ getObjectPropertyUInt64 obj "redirect-end" + +data DOMPerformanceTimingRedirectEndPropertyInfo +instance AttrInfo DOMPerformanceTimingRedirectEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRedirectEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRedirectEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRedirectEndPropertyInfo = "DOMPerformanceTiming::redirect-end" + attrGet _ = getDOMPerformanceTimingRedirectEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "redirect-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRedirectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRedirectStart obj = liftIO $ getObjectPropertyUInt64 obj "redirect-start" + +data DOMPerformanceTimingRedirectStartPropertyInfo +instance AttrInfo DOMPerformanceTimingRedirectStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRedirectStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRedirectStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRedirectStartPropertyInfo = "DOMPerformanceTiming::redirect-start" + attrGet _ = getDOMPerformanceTimingRedirectStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "request-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRequestStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRequestStart obj = liftIO $ getObjectPropertyUInt64 obj "request-start" + +data DOMPerformanceTimingRequestStartPropertyInfo +instance AttrInfo DOMPerformanceTimingRequestStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRequestStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRequestStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRequestStartPropertyInfo = "DOMPerformanceTiming::request-start" + attrGet _ = getDOMPerformanceTimingRequestStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingResponseEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingResponseEnd obj = liftIO $ getObjectPropertyUInt64 obj "response-end" + +data DOMPerformanceTimingResponseEndPropertyInfo +instance AttrInfo DOMPerformanceTimingResponseEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingResponseEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingResponseEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingResponseEndPropertyInfo = "DOMPerformanceTiming::response-end" + attrGet _ = getDOMPerformanceTimingResponseEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingResponseStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingResponseStart obj = liftIO $ getObjectPropertyUInt64 obj "response-start" + +data DOMPerformanceTimingResponseStartPropertyInfo +instance AttrInfo DOMPerformanceTimingResponseStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingResponseStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingResponseStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingResponseStartPropertyInfo = "DOMPerformanceTiming::response-start" + attrGet _ = getDOMPerformanceTimingResponseStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secure-connection-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingSecureConnectionStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingSecureConnectionStart obj = liftIO $ getObjectPropertyUInt64 obj "secure-connection-start" + +data DOMPerformanceTimingSecureConnectionStartPropertyInfo +instance AttrInfo DOMPerformanceTimingSecureConnectionStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingSecureConnectionStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingSecureConnectionStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingSecureConnectionStartPropertyInfo = "DOMPerformanceTiming::secure-connection-start" + attrGet _ = getDOMPerformanceTimingSecureConnectionStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "unload-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingUnloadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingUnloadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-end" + +data DOMPerformanceTimingUnloadEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingUnloadEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingUnloadEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingUnloadEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingUnloadEventEndPropertyInfo = "DOMPerformanceTiming::unload-event-end" + attrGet _ = getDOMPerformanceTimingUnloadEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "unload-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingUnloadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingUnloadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-start" + +data DOMPerformanceTimingUnloadEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingUnloadEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingUnloadEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingUnloadEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingUnloadEventStartPropertyInfo = "DOMPerformanceTiming::unload-event-start" + attrGet _ = getDOMPerformanceTimingUnloadEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceTiming = DOMPerformanceTimingAttributeList +type DOMPerformanceTimingAttributeList = ('[ '("connect-end", DOMPerformanceTimingConnectEndPropertyInfo), '("connect-start", DOMPerformanceTimingConnectStartPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dom-complete", DOMPerformanceTimingDomCompletePropertyInfo), '("dom-content-loaded-event-end", DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo), '("dom-content-loaded-event-start", DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo), '("dom-interactive", DOMPerformanceTimingDomInteractivePropertyInfo), '("dom-loading", DOMPerformanceTimingDomLoadingPropertyInfo), '("domain-lookup-end", DOMPerformanceTimingDomainLookupEndPropertyInfo), '("domain-lookup-start", DOMPerformanceTimingDomainLookupStartPropertyInfo), '("fetch-start", DOMPerformanceTimingFetchStartPropertyInfo), '("load-event-end", DOMPerformanceTimingLoadEventEndPropertyInfo), '("load-event-start", DOMPerformanceTimingLoadEventStartPropertyInfo), '("navigation-start", DOMPerformanceTimingNavigationStartPropertyInfo), '("redirect-end", DOMPerformanceTimingRedirectEndPropertyInfo), '("redirect-start", DOMPerformanceTimingRedirectStartPropertyInfo), '("request-start", DOMPerformanceTimingRequestStartPropertyInfo), '("response-end", DOMPerformanceTimingResponseEndPropertyInfo), '("response-start", DOMPerformanceTimingResponseStartPropertyInfo), '("secure-connection-start", DOMPerformanceTimingSecureConnectionStartPropertyInfo), '("unload-event-end", DOMPerformanceTimingUnloadEventEndPropertyInfo), '("unload-event-start", DOMPerformanceTimingUnloadEventStartPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPerformanceTiming = DOMPerformanceTimingSignalList +type DOMPerformanceTimingSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPerformanceTiming::get_connect_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_connect_end" webkit_dom_performance_timing_get_connect_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetConnectEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetConnectEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_connect_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_connect_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_connect_start" webkit_dom_performance_timing_get_connect_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetConnectStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetConnectStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_connect_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_dom_complete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_dom_complete" webkit_dom_performance_timing_get_dom_complete :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomComplete :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomComplete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_dom_complete _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_dom_content_loaded_event_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_dom_content_loaded_event_end" webkit_dom_performance_timing_get_dom_content_loaded_event_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomContentLoadedEventEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomContentLoadedEventEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_dom_content_loaded_event_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_dom_content_loaded_event_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_dom_content_loaded_event_start" webkit_dom_performance_timing_get_dom_content_loaded_event_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomContentLoadedEventStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomContentLoadedEventStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_dom_content_loaded_event_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_dom_interactive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_dom_interactive" webkit_dom_performance_timing_get_dom_interactive :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomInteractive :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomInteractive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_dom_interactive _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_dom_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_dom_loading" webkit_dom_performance_timing_get_dom_loading :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomLoading :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_dom_loading _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_domain_lookup_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_domain_lookup_end" webkit_dom_performance_timing_get_domain_lookup_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomainLookupEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomainLookupEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_domain_lookup_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_domain_lookup_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_domain_lookup_start" webkit_dom_performance_timing_get_domain_lookup_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetDomainLookupStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetDomainLookupStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_domain_lookup_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_fetch_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_fetch_start" webkit_dom_performance_timing_get_fetch_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetFetchStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetFetchStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_fetch_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_load_event_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_load_event_end" webkit_dom_performance_timing_get_load_event_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetLoadEventEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetLoadEventEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_load_event_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_load_event_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_load_event_start" webkit_dom_performance_timing_get_load_event_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetLoadEventStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetLoadEventStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_load_event_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_navigation_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_navigation_start" webkit_dom_performance_timing_get_navigation_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetNavigationStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetNavigationStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_navigation_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_redirect_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_redirect_end" webkit_dom_performance_timing_get_redirect_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetRedirectEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetRedirectEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_redirect_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_redirect_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_redirect_start" webkit_dom_performance_timing_get_redirect_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetRedirectStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetRedirectStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_redirect_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_request_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_request_start" webkit_dom_performance_timing_get_request_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetRequestStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetRequestStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_request_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_response_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_response_end" webkit_dom_performance_timing_get_response_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetResponseEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetResponseEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_response_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_response_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_response_start" webkit_dom_performance_timing_get_response_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetResponseStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetResponseStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_response_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_secure_connection_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_secure_connection_start" webkit_dom_performance_timing_get_secure_connection_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetSecureConnectionStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetSecureConnectionStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_secure_connection_start _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_unload_event_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_unload_event_end" webkit_dom_performance_timing_get_unload_event_end :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetUnloadEventEnd :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetUnloadEventEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_unload_event_end _obj' + touchManagedPtr _obj + return result + +-- method DOMPerformanceTiming::get_unload_event_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_performance_timing_get_unload_event_start" webkit_dom_performance_timing_get_unload_event_start :: + Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming" + IO Word64 + + +dOMPerformanceTimingGetUnloadEventStart :: + (MonadIO m, DOMPerformanceTimingK a) => + a -> -- _obj + m Word64 +dOMPerformanceTimingGetUnloadEventStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_performance_timing_get_unload_event_start _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot b/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot @@ -0,0 +1,34 @@ +module GI.WebKit.Objects.DOMPerformanceTiming where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPerformanceTiming = DOMPerformanceTiming (ForeignPtr DOMPerformanceTiming) +instance GObject DOMPerformanceTiming where +class GObject o => DOMPerformanceTimingK o +instance (GObject o, IsDescendantOf DOMPerformanceTiming o) => DOMPerformanceTimingK o +data DOMPerformanceTimingConnectEndPropertyInfo +data DOMPerformanceTimingConnectStartPropertyInfo +data DOMPerformanceTimingDomCompletePropertyInfo +data DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo +data DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo +data DOMPerformanceTimingDomInteractivePropertyInfo +data DOMPerformanceTimingDomLoadingPropertyInfo +data DOMPerformanceTimingDomainLookupEndPropertyInfo +data DOMPerformanceTimingDomainLookupStartPropertyInfo +data DOMPerformanceTimingFetchStartPropertyInfo +data DOMPerformanceTimingLoadEventEndPropertyInfo +data DOMPerformanceTimingLoadEventStartPropertyInfo +data DOMPerformanceTimingNavigationStartPropertyInfo +data DOMPerformanceTimingRedirectEndPropertyInfo +data DOMPerformanceTimingRedirectStartPropertyInfo +data DOMPerformanceTimingRequestStartPropertyInfo +data DOMPerformanceTimingResponseEndPropertyInfo +data DOMPerformanceTimingResponseStartPropertyInfo +data DOMPerformanceTimingSecureConnectionStartPropertyInfo +data DOMPerformanceTimingUnloadEventEndPropertyInfo +data DOMPerformanceTimingUnloadEventStartPropertyInfo diff --git a/GI/WebKit/Objects/DOMProcessingInstruction.hs b/GI/WebKit/Objects/DOMProcessingInstruction.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMProcessingInstruction.hs @@ -0,0 +1,239 @@ + +{- | +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.WebKit.Objects.DOMProcessingInstruction + ( + +-- * Exported types + DOMProcessingInstruction(..) , + DOMProcessingInstructionK , + toDOMProcessingInstruction , + noDOMProcessingInstruction , + + + -- * Methods +-- ** dOMProcessingInstructionGetData + dOMProcessingInstructionGetData , + + +-- ** dOMProcessingInstructionGetSheet + dOMProcessingInstructionGetSheet , + + +-- ** dOMProcessingInstructionGetTarget + dOMProcessingInstructionGetTarget , + + +-- ** dOMProcessingInstructionSetData + dOMProcessingInstructionSetData , + + + + + -- * Properties +-- ** Sheet + DOMProcessingInstructionSheetPropertyInfo, + getDOMProcessingInstructionSheet , + + +-- ** Target + DOMProcessingInstructionTargetPropertyInfo, + getDOMProcessingInstructionTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMProcessingInstruction = DOMProcessingInstruction (ForeignPtr DOMProcessingInstruction) +foreign import ccall "webkit_dom_processing_instruction_get_type" + c_webkit_dom_processing_instruction_get_type :: IO GType + +type instance ParentTypes DOMProcessingInstruction = DOMProcessingInstructionParentTypes +type DOMProcessingInstructionParentTypes = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMProcessingInstruction where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_processing_instruction_get_type + + +class GObject o => DOMProcessingInstructionK o +instance (GObject o, IsDescendantOf DOMProcessingInstruction o) => DOMProcessingInstructionK o + +toDOMProcessingInstruction :: DOMProcessingInstructionK o => o -> IO DOMProcessingInstruction +toDOMProcessingInstruction = unsafeCastTo DOMProcessingInstruction + +noDOMProcessingInstruction :: Maybe DOMProcessingInstruction +noDOMProcessingInstruction = Nothing + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m DOMStyleSheet +getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMProcessingInstructionSheetPropertyInfo +instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where + type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK + type AttrGetType DOMProcessingInstructionSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "DOMProcessingInstruction::sheet" + attrGet _ = getDOMProcessingInstructionSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m T.Text +getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target" + +data DOMProcessingInstructionTargetPropertyInfo +instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where + type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK + type AttrGetType DOMProcessingInstructionTargetPropertyInfo = T.Text + type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "DOMProcessingInstruction::target" + attrGet _ = getDOMProcessingInstructionTarget + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMProcessingInstruction = DOMProcessingInstructionAttributeList +type DOMProcessingInstructionAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMProcessingInstruction = DOMProcessingInstructionSignalList +type DOMProcessingInstructionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMProcessingInstruction::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_processing_instruction_get_data" webkit_dom_processing_instruction_get_data :: + Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction" + IO CString + +{-# DEPRECATED dOMProcessingInstructionGetData ["(Since version 2.4)"]#-} +dOMProcessingInstructionGetData :: + (MonadIO m, DOMProcessingInstructionK a) => + a -> -- _obj + m T.Text +dOMProcessingInstructionGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_processing_instruction_get_data _obj' + checkUnexpectedReturnNULL "webkit_dom_processing_instruction_get_data" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMProcessingInstruction::get_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_processing_instruction_get_sheet" webkit_dom_processing_instruction_get_sheet :: + Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction" + IO (Ptr DOMStyleSheet) + + +dOMProcessingInstructionGetSheet :: + (MonadIO m, DOMProcessingInstructionK a) => + a -> -- _obj + m DOMStyleSheet +dOMProcessingInstructionGetSheet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_processing_instruction_get_sheet _obj' + checkUnexpectedReturnNULL "webkit_dom_processing_instruction_get_sheet" result + result' <- (wrapObject DOMStyleSheet) result + touchManagedPtr _obj + return result' + +-- method DOMProcessingInstruction::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_processing_instruction_get_target" webkit_dom_processing_instruction_get_target :: + Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction" + IO CString + + +dOMProcessingInstructionGetTarget :: + (MonadIO m, DOMProcessingInstructionK a) => + a -> -- _obj + m T.Text +dOMProcessingInstructionGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_processing_instruction_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_processing_instruction_get_target" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMProcessingInstruction::set_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_processing_instruction_set_data" webkit_dom_processing_instruction_set_data :: + Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + +{-# DEPRECATED dOMProcessingInstructionSetData ["(Since version 2.4)"]#-} +dOMProcessingInstructionSetData :: + (MonadIO m, DOMProcessingInstructionK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMProcessingInstructionSetData _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_processing_instruction_set_data _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot b/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMProcessingInstruction where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMProcessingInstruction = DOMProcessingInstruction (ForeignPtr DOMProcessingInstruction) +instance GObject DOMProcessingInstruction where +class GObject o => DOMProcessingInstructionK o +instance (GObject o, IsDescendantOf DOMProcessingInstruction o) => DOMProcessingInstructionK o +data DOMProcessingInstructionSheetPropertyInfo +data DOMProcessingInstructionTargetPropertyInfo diff --git a/GI/WebKit/Objects/DOMPropertyNodeList.hs b/GI/WebKit/Objects/DOMPropertyNodeList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPropertyNodeList.hs @@ -0,0 +1,143 @@ + +{- | +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.WebKit.Objects.DOMPropertyNodeList + ( + +-- * Exported types + DOMPropertyNodeList(..) , + DOMPropertyNodeListK , + toDOMPropertyNodeList , + noDOMPropertyNodeList , + + + -- * Methods +-- ** dOMPropertyNodeListGetLength + dOMPropertyNodeListGetLength , + + +-- ** dOMPropertyNodeListItem + dOMPropertyNodeListItem , + + + + + -- * Properties +-- ** Length + DOMPropertyNodeListLengthPropertyInfo , + getDOMPropertyNodeListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMPropertyNodeList = DOMPropertyNodeList (ForeignPtr DOMPropertyNodeList) +foreign import ccall "webkit_dom_property_node_list_get_type" + c_webkit_dom_property_node_list_get_type :: IO GType + +type instance ParentTypes DOMPropertyNodeList = DOMPropertyNodeListParentTypes +type DOMPropertyNodeListParentTypes = '[DOMNodeList, DOMObject, GObject.Object] + +instance GObject DOMPropertyNodeList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_property_node_list_get_type + + +class GObject o => DOMPropertyNodeListK o +instance (GObject o, IsDescendantOf DOMPropertyNodeList o) => DOMPropertyNodeListK o + +toDOMPropertyNodeList :: DOMPropertyNodeListK o => o -> IO DOMPropertyNodeList +toDOMPropertyNodeList = unsafeCastTo DOMPropertyNodeList + +noDOMPropertyNodeList :: Maybe DOMPropertyNodeList +noDOMPropertyNodeList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m Word64 +getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMPropertyNodeListLengthPropertyInfo +instance AttrInfo DOMPropertyNodeListLengthPropertyInfo where + type AttrAllowedOps DOMPropertyNodeListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPropertyNodeListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPropertyNodeListLengthPropertyInfo = DOMPropertyNodeListK + type AttrGetType DOMPropertyNodeListLengthPropertyInfo = Word64 + type AttrLabel DOMPropertyNodeListLengthPropertyInfo = "DOMPropertyNodeList::length" + attrGet _ = getDOMPropertyNodeListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPropertyNodeList = DOMPropertyNodeListAttributeList +type DOMPropertyNodeListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPropertyNodeListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMPropertyNodeList = DOMPropertyNodeListSignalList +type DOMPropertyNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMPropertyNodeList::get_length +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_property_node_list_get_length" webkit_dom_property_node_list_get_length :: + Ptr () -> -- self : TBasicType TVoid + IO Word64 + +{-# DEPRECATED dOMPropertyNodeListGetLength ["(Since version 2.2)"]#-} +dOMPropertyNodeListGetLength :: + (MonadIO m) => + Ptr () -> -- self + m Word64 +dOMPropertyNodeListGetLength self = liftIO $ do + result <- webkit_dom_property_node_list_get_length self + return result + +-- method DOMPropertyNodeList::item +-- method type : MemberFunction +-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_property_node_list_item" webkit_dom_property_node_list_item :: + Ptr () -> -- self : TBasicType TVoid + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMNode) + +{-# DEPRECATED dOMPropertyNodeListItem ["(Since version 2.2)"]#-} +dOMPropertyNodeListItem :: + (MonadIO m) => + Ptr () -> -- self + Word64 -> -- index + m DOMNode +dOMPropertyNodeListItem self index = liftIO $ do + result <- webkit_dom_property_node_list_item self index + checkUnexpectedReturnNULL "webkit_dom_property_node_list_item" result + result' <- (newObject DOMNode) result + return result' + + diff --git a/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot b/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMPropertyNodeList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMPropertyNodeList = DOMPropertyNodeList (ForeignPtr DOMPropertyNodeList) +instance GObject DOMPropertyNodeList where +class GObject o => DOMPropertyNodeListK o +instance (GObject o, IsDescendantOf DOMPropertyNodeList o) => DOMPropertyNodeListK o +data DOMPropertyNodeListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMRange.hs b/GI/WebKit/Objects/DOMRange.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMRange.hs @@ -0,0 +1,1344 @@ + +{- | +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.WebKit.Objects.DOMRange + ( + +-- * Exported types + DOMRange(..) , + DOMRangeK , + toDOMRange , + noDOMRange , + + + -- * Methods +-- ** dOMRangeCloneContents + dOMRangeCloneContents , + + +-- ** dOMRangeCloneRange + dOMRangeCloneRange , + + +-- ** dOMRangeCollapse + dOMRangeCollapse , + + +-- ** dOMRangeCompareBoundaryPoints + dOMRangeCompareBoundaryPoints , + + +-- ** dOMRangeCompareNode + dOMRangeCompareNode , + + +-- ** dOMRangeComparePoint + dOMRangeComparePoint , + + +-- ** dOMRangeCreateContextualFragment + dOMRangeCreateContextualFragment , + + +-- ** dOMRangeDeleteContents + dOMRangeDeleteContents , + + +-- ** dOMRangeDetach + dOMRangeDetach , + + +-- ** dOMRangeExpand + dOMRangeExpand , + + +-- ** dOMRangeExtractContents + dOMRangeExtractContents , + + +-- ** dOMRangeGetCollapsed + dOMRangeGetCollapsed , + + +-- ** dOMRangeGetCommonAncestorContainer + dOMRangeGetCommonAncestorContainer , + + +-- ** dOMRangeGetEndContainer + dOMRangeGetEndContainer , + + +-- ** dOMRangeGetEndOffset + dOMRangeGetEndOffset , + + +-- ** dOMRangeGetStartContainer + dOMRangeGetStartContainer , + + +-- ** dOMRangeGetStartOffset + dOMRangeGetStartOffset , + + +-- ** dOMRangeGetText + dOMRangeGetText , + + +-- ** dOMRangeInsertNode + dOMRangeInsertNode , + + +-- ** dOMRangeIntersectsNode + dOMRangeIntersectsNode , + + +-- ** dOMRangeIsPointInRange + dOMRangeIsPointInRange , + + +-- ** dOMRangeSelectNode + dOMRangeSelectNode , + + +-- ** dOMRangeSelectNodeContents + dOMRangeSelectNodeContents , + + +-- ** dOMRangeSetEnd + dOMRangeSetEnd , + + +-- ** dOMRangeSetEndAfter + dOMRangeSetEndAfter , + + +-- ** dOMRangeSetEndBefore + dOMRangeSetEndBefore , + + +-- ** dOMRangeSetStart + dOMRangeSetStart , + + +-- ** dOMRangeSetStartAfter + dOMRangeSetStartAfter , + + +-- ** dOMRangeSetStartBefore + dOMRangeSetStartBefore , + + +-- ** dOMRangeSurroundContents + dOMRangeSurroundContents , + + +-- ** dOMRangeToString + dOMRangeToString , + + + + + -- * Properties +-- ** Collapsed + DOMRangeCollapsedPropertyInfo , + getDOMRangeCollapsed , + + +-- ** CommonAncestorContainer + DOMRangeCommonAncestorContainerPropertyInfo, + getDOMRangeCommonAncestorContainer , + + +-- ** EndContainer + DOMRangeEndContainerPropertyInfo , + getDOMRangeEndContainer , + + +-- ** EndOffset + DOMRangeEndOffsetPropertyInfo , + getDOMRangeEndOffset , + + +-- ** StartContainer + DOMRangeStartContainerPropertyInfo , + getDOMRangeStartContainer , + + +-- ** StartOffset + DOMRangeStartOffsetPropertyInfo , + getDOMRangeStartOffset , + + +-- ** Text + DOMRangeTextPropertyInfo , + getDOMRangeText , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMRange = DOMRange (ForeignPtr DOMRange) +foreign import ccall "webkit_dom_range_get_type" + c_webkit_dom_range_get_type :: IO GType + +type instance ParentTypes DOMRange = DOMRangeParentTypes +type DOMRangeParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMRange where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_range_get_type + + +class GObject o => DOMRangeK o +instance (GObject o, IsDescendantOf DOMRange o) => DOMRangeK o + +toDOMRange :: DOMRangeK o => o -> IO DOMRange +toDOMRange = unsafeCastTo DOMRange + +noDOMRange :: Maybe DOMRange +noDOMRange = Nothing + +-- VVV Prop "collapsed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMRangeCollapsed :: (MonadIO m, DOMRangeK o) => o -> m Bool +getDOMRangeCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" + +data DOMRangeCollapsedPropertyInfo +instance AttrInfo DOMRangeCollapsedPropertyInfo where + type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = DOMRangeK + type AttrGetType DOMRangeCollapsedPropertyInfo = Bool + type AttrLabel DOMRangeCollapsedPropertyInfo = "DOMRange::collapsed" + attrGet _ = getDOMRangeCollapsed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "common-ancestor-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode + +data DOMRangeCommonAncestorContainerPropertyInfo +instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where + type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "DOMRange::common-ancestor-container" + attrGet _ = getDOMRangeCommonAncestorContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "end-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode + +data DOMRangeEndContainerPropertyInfo +instance AttrInfo DOMRangeEndContainerPropertyInfo where + type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeEndContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeEndContainerPropertyInfo = "DOMRange::end-container" + attrGet _ = getDOMRangeEndContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "end-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 +getDOMRangeEndOffset obj = liftIO $ getObjectPropertyInt64 obj "end-offset" + +data DOMRangeEndOffsetPropertyInfo +instance AttrInfo DOMRangeEndOffsetPropertyInfo where + type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK + type AttrGetType DOMRangeEndOffsetPropertyInfo = Int64 + type AttrLabel DOMRangeEndOffsetPropertyInfo = "DOMRange::end-offset" + attrGet _ = getDOMRangeEndOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode + +data DOMRangeStartContainerPropertyInfo +instance AttrInfo DOMRangeStartContainerPropertyInfo where + type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeStartContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeStartContainerPropertyInfo = "DOMRange::start-container" + attrGet _ = getDOMRangeStartContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 +getDOMRangeStartOffset obj = liftIO $ getObjectPropertyInt64 obj "start-offset" + +data DOMRangeStartOffsetPropertyInfo +instance AttrInfo DOMRangeStartOffsetPropertyInfo where + type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK + type AttrGetType DOMRangeStartOffsetPropertyInfo = Int64 + type AttrLabel DOMRangeStartOffsetPropertyInfo = "DOMRange::start-offset" + attrGet _ = getDOMRangeStartOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m T.Text +getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMRangeTextPropertyInfo +instance AttrInfo DOMRangeTextPropertyInfo where + type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK + type AttrGetType DOMRangeTextPropertyInfo = T.Text + type AttrLabel DOMRangeTextPropertyInfo = "DOMRange::text" + attrGet _ = getDOMRangeText + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMRange = DOMRangeAttributeList +type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("common-ancestor-container", DOMRangeCommonAncestorContainerPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-container", DOMRangeEndContainerPropertyInfo), '("end-offset", DOMRangeEndOffsetPropertyInfo), '("start-container", DOMRangeStartContainerPropertyInfo), '("start-offset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMRange = DOMRangeSignalList +type DOMRangeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMRange::clone_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_clone_contents" webkit_dom_range_clone_contents :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMDocumentFragment) + + +dOMRangeCloneContents :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMDocumentFragment +dOMRangeCloneContents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_clone_contents _obj' + checkUnexpectedReturnNULL "webkit_dom_range_clone_contents" result + result' <- (newObject DOMDocumentFragment) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::clone_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMRange" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_clone_range" webkit_dom_range_clone_range :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMRange) + + +dOMRangeCloneRange :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMRange +dOMRangeCloneRange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_clone_range _obj' + checkUnexpectedReturnNULL "webkit_dom_range_clone_range" result + result' <- (wrapObject DOMRange) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::collapse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_collapse" webkit_dom_range_collapse :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + CInt -> -- toStart : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeCollapse :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + Bool -> -- toStart + m () +dOMRangeCollapse _obj toStart = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let toStart' = (fromIntegral . fromEnum) toStart + onException (do + propagateGError $ webkit_dom_range_collapse _obj' toStart' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMRange::compare_boundary_points +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sourceRange", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sourceRange", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt16 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_compare_boundary_points" webkit_dom_range_compare_boundary_points :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Word16 -> -- how : TBasicType TUInt16 + Ptr DOMRange -> -- sourceRange : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO Int16 + + +dOMRangeCompareBoundaryPoints :: + (MonadIO m, DOMRangeK a, DOMRangeK b) => + a -> -- _obj + Word16 -> -- how + b -> -- sourceRange + m Int16 +dOMRangeCompareBoundaryPoints _obj how sourceRange = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let sourceRange' = unsafeManagedPtrCastPtr sourceRange + onException (do + result <- propagateGError $ webkit_dom_range_compare_boundary_points _obj' how sourceRange' + touchManagedPtr _obj + touchManagedPtr sourceRange + return result + ) (do + return () + ) + +-- method DOMRange::compare_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt16 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_compare_node" webkit_dom_range_compare_node :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO Int16 + + +dOMRangeCompareNode :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m Int16 +dOMRangeCompareNode _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + result <- propagateGError $ webkit_dom_range_compare_node _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return result + ) (do + return () + ) + +-- method DOMRange::compare_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt16 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_compare_point" webkit_dom_range_compare_point :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO Int16 + + +dOMRangeComparePoint :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + Int64 -> -- offset + m Int16 +dOMRangeComparePoint _obj refNode offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + result <- propagateGError $ webkit_dom_range_compare_point _obj' refNode' offset + touchManagedPtr _obj + touchManagedPtr refNode + return result + ) (do + return () + ) + +-- method DOMRange::create_contextual_fragment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_create_contextual_fragment" webkit_dom_range_create_contextual_fragment :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + CString -> -- html : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMDocumentFragment) + + +dOMRangeCreateContextualFragment :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + T.Text -> -- html + m DOMDocumentFragment +dOMRangeCreateContextualFragment _obj html = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + html' <- textToCString html + onException (do + result <- propagateGError $ webkit_dom_range_create_contextual_fragment _obj' html' + checkUnexpectedReturnNULL "webkit_dom_range_create_contextual_fragment" result + result' <- (newObject DOMDocumentFragment) result + touchManagedPtr _obj + freeMem html' + return result' + ) (do + freeMem html' + ) + +-- method DOMRange::delete_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_delete_contents" webkit_dom_range_delete_contents :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeDeleteContents :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m () +dOMRangeDeleteContents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_range_delete_contents _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMRange::detach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_detach" webkit_dom_range_detach :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeDetach :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m () +dOMRangeDetach _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_range_detach _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMRange::expand +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_expand" webkit_dom_range_expand :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + CString -> -- unit : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeExpand :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + T.Text -> -- unit + m () +dOMRangeExpand _obj unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + unit' <- textToCString unit + onException (do + propagateGError $ webkit_dom_range_expand _obj' unit' + touchManagedPtr _obj + freeMem unit' + return () + ) (do + freeMem unit' + ) + +-- method DOMRange::extract_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_extract_contents" webkit_dom_range_extract_contents :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMDocumentFragment) + + +dOMRangeExtractContents :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMDocumentFragment +dOMRangeExtractContents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_extract_contents _obj' + checkUnexpectedReturnNULL "webkit_dom_range_extract_contents" result + result' <- (newObject DOMDocumentFragment) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::get_collapsed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_collapsed" webkit_dom_range_get_collapsed :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMRangeGetCollapsed :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m () +dOMRangeGetCollapsed _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + _ <- propagateGError $ webkit_dom_range_get_collapsed _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMRange::get_common_ancestor_container +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_common_ancestor_container" webkit_dom_range_get_common_ancestor_container :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMRangeGetCommonAncestorContainer :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMNode +dOMRangeGetCommonAncestorContainer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_get_common_ancestor_container _obj' + checkUnexpectedReturnNULL "webkit_dom_range_get_common_ancestor_container" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::get_end_container +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_end_container" webkit_dom_range_get_end_container :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMRangeGetEndContainer :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMNode +dOMRangeGetEndContainer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_get_end_container _obj' + checkUnexpectedReturnNULL "webkit_dom_range_get_end_container" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::get_end_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_end_offset" webkit_dom_range_get_end_offset :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO Int64 + + +dOMRangeGetEndOffset :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m Int64 +dOMRangeGetEndOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_get_end_offset _obj' + touchManagedPtr _obj + return result + ) (do + return () + ) + +-- method DOMRange::get_start_container +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_start_container" webkit_dom_range_get_start_container :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMRangeGetStartContainer :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m DOMNode +dOMRangeGetStartContainer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_get_start_container _obj' + checkUnexpectedReturnNULL "webkit_dom_range_get_start_container" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMRange::get_start_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_start_offset" webkit_dom_range_get_start_offset :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO Int64 + + +dOMRangeGetStartOffset :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m Int64 +dOMRangeGetStartOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_get_start_offset _obj' + touchManagedPtr _obj + return result + ) (do + return () + ) + +-- method DOMRange::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_range_get_text" webkit_dom_range_get_text :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + IO CString + + +dOMRangeGetText :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m T.Text +dOMRangeGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_range_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_range_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMRange::insert_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_insert_node" webkit_dom_range_insert_node :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- newNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeInsertNode :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- newNode + m () +dOMRangeInsertNode _obj newNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newNode' = unsafeManagedPtrCastPtr newNode + onException (do + propagateGError $ webkit_dom_range_insert_node _obj' newNode' + touchManagedPtr _obj + touchManagedPtr newNode + return () + ) (do + return () + ) + +-- method DOMRange::intersects_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_intersects_node" webkit_dom_range_intersects_node :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMRangeIntersectsNode :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeIntersectsNode _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + _ <- propagateGError $ webkit_dom_range_intersects_node _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::is_point_in_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_is_point_in_range" webkit_dom_range_is_point_in_range :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMRangeIsPointInRange :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + Int64 -> -- offset + m () +dOMRangeIsPointInRange _obj refNode offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + _ <- propagateGError $ webkit_dom_range_is_point_in_range _obj' refNode' offset + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::select_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_select_node" webkit_dom_range_select_node :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSelectNode :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSelectNode _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_select_node _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::select_node_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_select_node_contents" webkit_dom_range_select_node_contents :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSelectNodeContents :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSelectNodeContents _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_select_node_contents _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_end" webkit_dom_range_set_end :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetEnd :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + Int64 -> -- offset + m () +dOMRangeSetEnd _obj refNode offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_end _obj' refNode' offset + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_end_after +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_end_after" webkit_dom_range_set_end_after :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetEndAfter :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSetEndAfter _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_end_after _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_end_before +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_end_before" webkit_dom_range_set_end_before :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetEndBefore :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSetEndBefore _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_end_before _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_start" webkit_dom_range_set_start :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Int64 -> -- offset : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetStart :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + Int64 -> -- offset + m () +dOMRangeSetStart _obj refNode offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_start _obj' refNode' offset + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_start_after +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_start_after" webkit_dom_range_set_start_after :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetStartAfter :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSetStartAfter _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_start_after _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::set_start_before +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_set_start_before" webkit_dom_range_set_start_before :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSetStartBefore :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- refNode + m () +dOMRangeSetStartBefore _obj refNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let refNode' = unsafeManagedPtrCastPtr refNode + onException (do + propagateGError $ webkit_dom_range_set_start_before _obj' refNode' + touchManagedPtr _obj + touchManagedPtr refNode + return () + ) (do + return () + ) + +-- method DOMRange::surround_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_surround_contents" webkit_dom_range_surround_contents :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr DOMNode -> -- newParent : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMRangeSurroundContents :: + (MonadIO m, DOMRangeK a, DOMNodeK b) => + a -> -- _obj + b -> -- newParent + m () +dOMRangeSurroundContents _obj newParent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newParent' = unsafeManagedPtrCastPtr newParent + onException (do + propagateGError $ webkit_dom_range_surround_contents _obj' newParent' + touchManagedPtr _obj + touchManagedPtr newParent + return () + ) (do + return () + ) + +-- method DOMRange::to_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_range_to_string" webkit_dom_range_to_string :: + Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" + Ptr (Ptr GError) -> -- error + IO CString + + +dOMRangeToString :: + (MonadIO m, DOMRangeK a) => + a -> -- _obj + m T.Text +dOMRangeToString _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_range_to_string _obj' + checkUnexpectedReturnNULL "webkit_dom_range_to_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMRange.hs-boot b/GI/WebKit/Objects/DOMRange.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMRange.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.DOMRange where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMRange = DOMRange (ForeignPtr DOMRange) +instance GObject DOMRange where +class GObject o => DOMRangeK o +instance (GObject o, IsDescendantOf DOMRange o) => DOMRangeK o +data DOMRangeCollapsedPropertyInfo +data DOMRangeCommonAncestorContainerPropertyInfo +data DOMRangeEndContainerPropertyInfo +data DOMRangeEndOffsetPropertyInfo +data DOMRangeStartContainerPropertyInfo +data DOMRangeStartOffsetPropertyInfo +data DOMRangeTextPropertyInfo diff --git a/GI/WebKit/Objects/DOMScreen.hs b/GI/WebKit/Objects/DOMScreen.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMScreen.hs @@ -0,0 +1,472 @@ + +{- | +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.WebKit.Objects.DOMScreen + ( + +-- * Exported types + DOMScreen(..) , + DOMScreenK , + toDOMScreen , + noDOMScreen , + + + -- * Methods +-- ** dOMScreenGetAvailHeight + dOMScreenGetAvailHeight , + + +-- ** dOMScreenGetAvailLeft + dOMScreenGetAvailLeft , + + +-- ** dOMScreenGetAvailTop + dOMScreenGetAvailTop , + + +-- ** dOMScreenGetAvailWidth + dOMScreenGetAvailWidth , + + +-- ** dOMScreenGetColorDepth + dOMScreenGetColorDepth , + + +-- ** dOMScreenGetHeight + dOMScreenGetHeight , + + +-- ** dOMScreenGetPixelDepth + dOMScreenGetPixelDepth , + + +-- ** dOMScreenGetWidth + dOMScreenGetWidth , + + + + + -- * Properties +-- ** AvailHeight + DOMScreenAvailHeightPropertyInfo , + getDOMScreenAvailHeight , + + +-- ** AvailLeft + DOMScreenAvailLeftPropertyInfo , + getDOMScreenAvailLeft , + + +-- ** AvailTop + DOMScreenAvailTopPropertyInfo , + getDOMScreenAvailTop , + + +-- ** AvailWidth + DOMScreenAvailWidthPropertyInfo , + getDOMScreenAvailWidth , + + +-- ** ColorDepth + DOMScreenColorDepthPropertyInfo , + getDOMScreenColorDepth , + + +-- ** Height + DOMScreenHeightPropertyInfo , + getDOMScreenHeight , + + +-- ** PixelDepth + DOMScreenPixelDepthPropertyInfo , + getDOMScreenPixelDepth , + + +-- ** Width + DOMScreenWidthPropertyInfo , + getDOMScreenWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMScreen = DOMScreen (ForeignPtr DOMScreen) +foreign import ccall "webkit_dom_screen_get_type" + c_webkit_dom_screen_get_type :: IO GType + +type instance ParentTypes DOMScreen = DOMScreenParentTypes +type DOMScreenParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMScreen where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_screen_get_type + + +class GObject o => DOMScreenK o +instance (GObject o, IsDescendantOf DOMScreen o) => DOMScreenK o + +toDOMScreen :: DOMScreenK o => o -> IO DOMScreen +toDOMScreen = unsafeCastTo DOMScreen + +noDOMScreen :: Maybe DOMScreen +noDOMScreen = Nothing + +-- VVV Prop "avail-height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenAvailHeight obj = liftIO $ getObjectPropertyUInt64 obj "avail-height" + +data DOMScreenAvailHeightPropertyInfo +instance AttrInfo DOMScreenAvailHeightPropertyInfo where + type AttrAllowedOps DOMScreenAvailHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailHeightPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailHeightPropertyInfo = Word64 + type AttrLabel DOMScreenAvailHeightPropertyInfo = "DOMScreen::avail-height" + attrGet _ = getDOMScreenAvailHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailLeft :: (MonadIO m, DOMScreenK o) => o -> m Int64 +getDOMScreenAvailLeft obj = liftIO $ getObjectPropertyInt64 obj "avail-left" + +data DOMScreenAvailLeftPropertyInfo +instance AttrInfo DOMScreenAvailLeftPropertyInfo where + type AttrAllowedOps DOMScreenAvailLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailLeftPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailLeftPropertyInfo = Int64 + type AttrLabel DOMScreenAvailLeftPropertyInfo = "DOMScreen::avail-left" + attrGet _ = getDOMScreenAvailLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailTop :: (MonadIO m, DOMScreenK o) => o -> m Int64 +getDOMScreenAvailTop obj = liftIO $ getObjectPropertyInt64 obj "avail-top" + +data DOMScreenAvailTopPropertyInfo +instance AttrInfo DOMScreenAvailTopPropertyInfo where + type AttrAllowedOps DOMScreenAvailTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailTopPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailTopPropertyInfo = Int64 + type AttrLabel DOMScreenAvailTopPropertyInfo = "DOMScreen::avail-top" + attrGet _ = getDOMScreenAvailTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenAvailWidth obj = liftIO $ getObjectPropertyUInt64 obj "avail-width" + +data DOMScreenAvailWidthPropertyInfo +instance AttrInfo DOMScreenAvailWidthPropertyInfo where + type AttrAllowedOps DOMScreenAvailWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailWidthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailWidthPropertyInfo = Word64 + type AttrLabel DOMScreenAvailWidthPropertyInfo = "DOMScreen::avail-width" + attrGet _ = getDOMScreenAvailWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "color-depth" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenColorDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenColorDepth obj = liftIO $ getObjectPropertyUInt64 obj "color-depth" + +data DOMScreenColorDepthPropertyInfo +instance AttrInfo DOMScreenColorDepthPropertyInfo where + type AttrAllowedOps DOMScreenColorDepthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenColorDepthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenColorDepthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenColorDepthPropertyInfo = Word64 + type AttrLabel DOMScreenColorDepthPropertyInfo = "DOMScreen::color-depth" + attrGet _ = getDOMScreenColorDepth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +data DOMScreenHeightPropertyInfo +instance AttrInfo DOMScreenHeightPropertyInfo where + type AttrAllowedOps DOMScreenHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenHeightPropertyInfo = DOMScreenK + type AttrGetType DOMScreenHeightPropertyInfo = Word64 + type AttrLabel DOMScreenHeightPropertyInfo = "DOMScreen::height" + attrGet _ = getDOMScreenHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pixel-depth" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenPixelDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenPixelDepth obj = liftIO $ getObjectPropertyUInt64 obj "pixel-depth" + +data DOMScreenPixelDepthPropertyInfo +instance AttrInfo DOMScreenPixelDepthPropertyInfo where + type AttrAllowedOps DOMScreenPixelDepthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenPixelDepthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenPixelDepthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenPixelDepthPropertyInfo = Word64 + type AttrLabel DOMScreenPixelDepthPropertyInfo = "DOMScreen::pixel-depth" + attrGet _ = getDOMScreenPixelDepth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +data DOMScreenWidthPropertyInfo +instance AttrInfo DOMScreenWidthPropertyInfo where + type AttrAllowedOps DOMScreenWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenWidthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenWidthPropertyInfo = Word64 + type AttrLabel DOMScreenWidthPropertyInfo = "DOMScreen::width" + attrGet _ = getDOMScreenWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMScreen = DOMScreenAttributeList +type DOMScreenAttributeList = ('[ '("avail-height", DOMScreenAvailHeightPropertyInfo), '("avail-left", DOMScreenAvailLeftPropertyInfo), '("avail-top", DOMScreenAvailTopPropertyInfo), '("avail-width", DOMScreenAvailWidthPropertyInfo), '("color-depth", DOMScreenColorDepthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("height", DOMScreenHeightPropertyInfo), '("pixel-depth", DOMScreenPixelDepthPropertyInfo), '("width", DOMScreenWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMScreen = DOMScreenSignalList +type DOMScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMScreen::get_avail_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_avail_height" webkit_dom_screen_get_avail_height :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetAvailHeight :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetAvailHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_avail_height _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_avail_left +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_avail_left" webkit_dom_screen_get_avail_left :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Int64 + + +dOMScreenGetAvailLeft :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Int64 +dOMScreenGetAvailLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_avail_left _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_avail_top +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_avail_top" webkit_dom_screen_get_avail_top :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Int64 + + +dOMScreenGetAvailTop :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Int64 +dOMScreenGetAvailTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_avail_top _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_avail_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_avail_width" webkit_dom_screen_get_avail_width :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetAvailWidth :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetAvailWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_avail_width _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_color_depth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_color_depth" webkit_dom_screen_get_color_depth :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetColorDepth :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetColorDepth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_color_depth _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_height" webkit_dom_screen_get_height :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetHeight :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_height _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_pixel_depth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_pixel_depth" webkit_dom_screen_get_pixel_depth :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetPixelDepth :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetPixelDepth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_pixel_depth _obj' + touchManagedPtr _obj + return result + +-- method DOMScreen::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_screen_get_width" webkit_dom_screen_get_width :: + Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" + IO Word64 + + +dOMScreenGetWidth :: + (MonadIO m, DOMScreenK a) => + a -> -- _obj + m Word64 +dOMScreenGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_screen_get_width _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMScreen.hs-boot b/GI/WebKit/Objects/DOMScreen.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMScreen.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.DOMScreen where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMScreen = DOMScreen (ForeignPtr DOMScreen) +instance GObject DOMScreen where +class GObject o => DOMScreenK o +instance (GObject o, IsDescendantOf DOMScreen o) => DOMScreenK o +data DOMScreenAvailHeightPropertyInfo +data DOMScreenAvailLeftPropertyInfo +data DOMScreenAvailTopPropertyInfo +data DOMScreenAvailWidthPropertyInfo +data DOMScreenColorDepthPropertyInfo +data DOMScreenHeightPropertyInfo +data DOMScreenPixelDepthPropertyInfo +data DOMScreenWidthPropertyInfo diff --git a/GI/WebKit/Objects/DOMShadowRoot.hs b/GI/WebKit/Objects/DOMShadowRoot.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMShadowRoot.hs @@ -0,0 +1,602 @@ + +{- | +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.WebKit.Objects.DOMShadowRoot + ( + +-- * Exported types + DOMShadowRoot(..) , + DOMShadowRootK , + toDOMShadowRoot , + noDOMShadowRoot , + + + -- * Methods +-- ** dOMShadowRootElementFromPoint + dOMShadowRootElementFromPoint , + + +-- ** dOMShadowRootGetActiveElement + dOMShadowRootGetActiveElement , + + +-- ** dOMShadowRootGetApplyAuthorStyles + dOMShadowRootGetApplyAuthorStyles , + + +-- ** dOMShadowRootGetElementById + dOMShadowRootGetElementById , + + +-- ** dOMShadowRootGetElementsByClassName + dOMShadowRootGetElementsByClassName , + + +-- ** dOMShadowRootGetElementsByTagName + dOMShadowRootGetElementsByTagName , + + +-- ** dOMShadowRootGetElementsByTagNameNs + dOMShadowRootGetElementsByTagNameNs , + + +-- ** dOMShadowRootGetInnerHtml + dOMShadowRootGetInnerHtml , + + +-- ** dOMShadowRootGetResetStyleInheritance + dOMShadowRootGetResetStyleInheritance , + + +-- ** dOMShadowRootGetSelection + dOMShadowRootGetSelection , + + +-- ** dOMShadowRootSetApplyAuthorStyles + dOMShadowRootSetApplyAuthorStyles , + + +-- ** dOMShadowRootSetInnerHtml + dOMShadowRootSetInnerHtml , + + +-- ** dOMShadowRootSetResetStyleInheritance + dOMShadowRootSetResetStyleInheritance , + + + + + -- * Properties +-- ** ActiveElement + DOMShadowRootActiveElementPropertyInfo , + getDOMShadowRootActiveElement , + + +-- ** ApplyAuthorStyles + DOMShadowRootApplyAuthorStylesPropertyInfo, + constructDOMShadowRootApplyAuthorStyles , + getDOMShadowRootApplyAuthorStyles , + setDOMShadowRootApplyAuthorStyles , + + +-- ** InnerHtml + DOMShadowRootInnerHtmlPropertyInfo , + constructDOMShadowRootInnerHtml , + getDOMShadowRootInnerHtml , + setDOMShadowRootInnerHtml , + + +-- ** ResetStyleInheritance + DOMShadowRootResetStyleInheritancePropertyInfo, + constructDOMShadowRootResetStyleInheritance, + getDOMShadowRootResetStyleInheritance , + setDOMShadowRootResetStyleInheritance , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMShadowRoot = DOMShadowRoot (ForeignPtr DOMShadowRoot) +foreign import ccall "webkit_dom_shadow_root_get_type" + c_webkit_dom_shadow_root_get_type :: IO GType + +type instance ParentTypes DOMShadowRoot = DOMShadowRootParentTypes +type DOMShadowRootParentTypes = '[DOMDocumentFragment, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMShadowRoot where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_shadow_root_get_type + + +class GObject o => DOMShadowRootK o +instance (GObject o, IsDescendantOf DOMShadowRoot o) => DOMShadowRootK o + +toDOMShadowRoot :: DOMShadowRootK o => o -> IO DOMShadowRoot +toDOMShadowRoot = unsafeCastTo DOMShadowRoot + +noDOMShadowRoot :: Maybe DOMShadowRoot +noDOMShadowRoot = Nothing + +-- VVV Prop "active-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMShadowRootActiveElement :: (MonadIO m, DOMShadowRootK o) => o -> m DOMElement +getDOMShadowRootActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement + +data DOMShadowRootActiveElementPropertyInfo +instance AttrInfo DOMShadowRootActiveElementPropertyInfo where + type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootActiveElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMShadowRootActiveElementPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootActiveElementPropertyInfo = DOMElement + type AttrLabel DOMShadowRootActiveElementPropertyInfo = "DOMShadowRoot::active-element" + attrGet _ = getDOMShadowRootActiveElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "apply-author-styles" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> m Bool +getDOMShadowRootApplyAuthorStyles obj = liftIO $ getObjectPropertyBool obj "apply-author-styles" + +setDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () +setDOMShadowRootApplyAuthorStyles obj val = liftIO $ setObjectPropertyBool obj "apply-author-styles" val + +constructDOMShadowRootApplyAuthorStyles :: Bool -> IO ([Char], GValue) +constructDOMShadowRootApplyAuthorStyles val = constructObjectPropertyBool "apply-author-styles" val + +data DOMShadowRootApplyAuthorStylesPropertyInfo +instance AttrInfo DOMShadowRootApplyAuthorStylesPropertyInfo where + type AttrAllowedOps DOMShadowRootApplyAuthorStylesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootApplyAuthorStylesPropertyInfo = Bool + type AttrLabel DOMShadowRootApplyAuthorStylesPropertyInfo = "DOMShadowRoot::apply-author-styles" + attrGet _ = getDOMShadowRootApplyAuthorStyles + attrSet _ = setDOMShadowRootApplyAuthorStyles + attrConstruct _ = constructDOMShadowRootApplyAuthorStyles + +-- VVV Prop "inner-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m T.Text +getDOMShadowRootInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" + +setDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> T.Text -> m () +setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val + +constructDOMShadowRootInnerHtml :: T.Text -> IO ([Char], GValue) +constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" val + +data DOMShadowRootInnerHtmlPropertyInfo +instance AttrInfo DOMShadowRootInnerHtmlPropertyInfo where + type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = T.Text + type AttrLabel DOMShadowRootInnerHtmlPropertyInfo = "DOMShadowRoot::inner-html" + attrGet _ = getDOMShadowRootInnerHtml + attrSet _ = setDOMShadowRootInnerHtml + attrConstruct _ = constructDOMShadowRootInnerHtml + +-- VVV Prop "reset-style-inheritance" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> m Bool +getDOMShadowRootResetStyleInheritance obj = liftIO $ getObjectPropertyBool obj "reset-style-inheritance" + +setDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () +setDOMShadowRootResetStyleInheritance obj val = liftIO $ setObjectPropertyBool obj "reset-style-inheritance" val + +constructDOMShadowRootResetStyleInheritance :: Bool -> IO ([Char], GValue) +constructDOMShadowRootResetStyleInheritance val = constructObjectPropertyBool "reset-style-inheritance" val + +data DOMShadowRootResetStyleInheritancePropertyInfo +instance AttrInfo DOMShadowRootResetStyleInheritancePropertyInfo where + type AttrAllowedOps DOMShadowRootResetStyleInheritancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootResetStyleInheritancePropertyInfo = Bool + type AttrLabel DOMShadowRootResetStyleInheritancePropertyInfo = "DOMShadowRoot::reset-style-inheritance" + attrGet _ = getDOMShadowRootResetStyleInheritance + attrSet _ = setDOMShadowRootResetStyleInheritance + attrConstruct _ = constructDOMShadowRootResetStyleInheritance + +type instance AttributeList DOMShadowRoot = DOMShadowRootAttributeList +type DOMShadowRootAttributeList = ('[ '("active-element", DOMShadowRootActiveElementPropertyInfo), '("apply-author-styles", DOMShadowRootApplyAuthorStylesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("inner-html", DOMShadowRootInnerHtmlPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reset-style-inheritance", DOMShadowRootResetStyleInheritancePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMShadowRoot = DOMShadowRootSignalList +type DOMShadowRootSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMShadowRoot::element_from_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_element_from_point" webkit_dom_shadow_root_element_from_point :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + Int64 -> -- x : TBasicType TInt64 + Int64 -> -- y : TBasicType TInt64 + IO (Ptr DOMElement) + + +dOMShadowRootElementFromPoint :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + Int64 -> -- x + Int64 -> -- y + m DOMElement +dOMShadowRootElementFromPoint _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_element_from_point _obj' x y + checkUnexpectedReturnNULL "webkit_dom_shadow_root_element_from_point" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::get_active_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_active_element" webkit_dom_shadow_root_get_active_element :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + IO (Ptr DOMElement) + + +dOMShadowRootGetActiveElement :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + m DOMElement +dOMShadowRootGetActiveElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_get_active_element _obj' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_active_element" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::get_apply_author_styles +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_apply_author_styles" webkit_dom_shadow_root_get_apply_author_styles :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + IO CInt + + +dOMShadowRootGetApplyAuthorStyles :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + m Bool +dOMShadowRootGetApplyAuthorStyles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_get_apply_author_styles _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::get_element_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMElement" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_element_by_id" webkit_dom_shadow_root_get_element_by_id :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CString -> -- elementId : TBasicType TUTF8 + IO (Ptr DOMElement) + + +dOMShadowRootGetElementById :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + T.Text -> -- elementId + m DOMElement +dOMShadowRootGetElementById _obj elementId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + elementId' <- textToCString elementId + result <- webkit_dom_shadow_root_get_element_by_id _obj' elementId' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_element_by_id" result + result' <- (newObject DOMElement) result + touchManagedPtr _obj + freeMem elementId' + return result' + +-- method DOMShadowRoot::get_elements_by_class_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "className", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "className", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_elements_by_class_name" webkit_dom_shadow_root_get_elements_by_class_name :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CString -> -- className : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMShadowRootGetElementsByClassName :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + T.Text -> -- className + m DOMNodeList +dOMShadowRootGetElementsByClassName _obj className = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + className' <- textToCString className + result <- webkit_dom_shadow_root_get_elements_by_class_name _obj' className' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_class_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem className' + return result' + +-- method DOMShadowRoot::get_elements_by_tag_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name" webkit_dom_shadow_root_get_elements_by_tag_name :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CString -> -- tagName : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMShadowRootGetElementsByTagName :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + T.Text -> -- tagName + m DOMNodeList +dOMShadowRootGetElementsByTagName _obj tagName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagName' <- textToCString tagName + result <- webkit_dom_shadow_root_get_elements_by_tag_name _obj' tagName' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_tag_name" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem tagName' + return result' + +-- method DOMShadowRoot::get_elements_by_tag_name_ns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name_ns" webkit_dom_shadow_root_get_elements_by_tag_name_ns :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CString -> -- namespaceURI : TBasicType TUTF8 + CString -> -- localName : TBasicType TUTF8 + IO (Ptr DOMNodeList) + + +dOMShadowRootGetElementsByTagNameNs :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + T.Text -> -- namespaceURI + T.Text -> -- localName + m DOMNodeList +dOMShadowRootGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceURI' <- textToCString namespaceURI + localName' <- textToCString localName + result <- webkit_dom_shadow_root_get_elements_by_tag_name_ns _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_tag_name_ns" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem namespaceURI' + freeMem localName' + return result' + +-- method DOMShadowRoot::get_inner_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_inner_html" webkit_dom_shadow_root_get_inner_html :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + IO CString + + +dOMShadowRootGetInnerHtml :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + m T.Text +dOMShadowRootGetInnerHtml _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_get_inner_html _obj' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_inner_html" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::get_reset_style_inheritance +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_reset_style_inheritance" webkit_dom_shadow_root_get_reset_style_inheritance :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + IO CInt + + +dOMShadowRootGetResetStyleInheritance :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + m Bool +dOMShadowRootGetResetStyleInheritance _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_get_reset_style_inheritance _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::get_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMSelection" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_get_selection" webkit_dom_shadow_root_get_selection :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + IO (Ptr DOMDOMSelection) + + +dOMShadowRootGetSelection :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + m DOMDOMSelection +dOMShadowRootGetSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_shadow_root_get_selection _obj' + checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_selection" result + result' <- (wrapObject DOMDOMSelection) result + touchManagedPtr _obj + return result' + +-- method DOMShadowRoot::set_apply_author_styles +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_set_apply_author_styles" webkit_dom_shadow_root_set_apply_author_styles :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMShadowRootSetApplyAuthorStyles :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + Bool -> -- value + m () +dOMShadowRootSetApplyAuthorStyles _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_shadow_root_set_apply_author_styles _obj' value' + touchManagedPtr _obj + return () + +-- method DOMShadowRoot::set_inner_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_set_inner_html" webkit_dom_shadow_root_set_inner_html :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMShadowRootSetInnerHtml :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMShadowRootSetInnerHtml _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_shadow_root_set_inner_html _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMShadowRoot::set_reset_style_inheritance +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_shadow_root_set_reset_style_inheritance" webkit_dom_shadow_root_set_reset_style_inheritance :: + Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMShadowRootSetResetStyleInheritance :: + (MonadIO m, DOMShadowRootK a) => + a -> -- _obj + Bool -> -- value + m () +dOMShadowRootSetResetStyleInheritance _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_shadow_root_set_reset_style_inheritance _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMShadowRoot.hs-boot b/GI/WebKit/Objects/DOMShadowRoot.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMShadowRoot.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.DOMShadowRoot where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMShadowRoot = DOMShadowRoot (ForeignPtr DOMShadowRoot) +instance GObject DOMShadowRoot where +class GObject o => DOMShadowRootK o +instance (GObject o, IsDescendantOf DOMShadowRoot o) => DOMShadowRootK o +data DOMShadowRootActiveElementPropertyInfo +data DOMShadowRootApplyAuthorStylesPropertyInfo +data DOMShadowRootInnerHtmlPropertyInfo +data DOMShadowRootResetStyleInheritancePropertyInfo diff --git a/GI/WebKit/Objects/DOMStorage.hs b/GI/WebKit/Objects/DOMStorage.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorage.hs @@ -0,0 +1,310 @@ + +{- | +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.WebKit.Objects.DOMStorage + ( + +-- * Exported types + DOMStorage(..) , + DOMStorageK , + toDOMStorage , + noDOMStorage , + + + -- * Methods +-- ** dOMStorageClear + dOMStorageClear , + + +-- ** dOMStorageGetItem + dOMStorageGetItem , + + +-- ** dOMStorageGetLength + dOMStorageGetLength , + + +-- ** dOMStorageKey + dOMStorageKey , + + +-- ** dOMStorageRemoveItem + dOMStorageRemoveItem , + + +-- ** dOMStorageSetItem + dOMStorageSetItem , + + + + + -- * Properties +-- ** Length + DOMStorageLengthPropertyInfo , + getDOMStorageLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStorage = DOMStorage (ForeignPtr DOMStorage) +foreign import ccall "webkit_dom_storage_get_type" + c_webkit_dom_storage_get_type :: IO GType + +type instance ParentTypes DOMStorage = DOMStorageParentTypes +type DOMStorageParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStorage where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_storage_get_type + + +class GObject o => DOMStorageK o +instance (GObject o, IsDescendantOf DOMStorage o) => DOMStorageK o + +toDOMStorage :: DOMStorageK o => o -> IO DOMStorage +toDOMStorage = unsafeCastTo DOMStorage + +noDOMStorage :: Maybe DOMStorage +noDOMStorage = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMStorageLength :: (MonadIO m, DOMStorageK o) => o -> m Word64 +getDOMStorageLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMStorageLengthPropertyInfo +instance AttrInfo DOMStorageLengthPropertyInfo where + type AttrAllowedOps DOMStorageLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStorageLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStorageLengthPropertyInfo = DOMStorageK + type AttrGetType DOMStorageLengthPropertyInfo = Word64 + type AttrLabel DOMStorageLengthPropertyInfo = "DOMStorage::length" + attrGet _ = getDOMStorageLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStorage = DOMStorageAttributeList +type DOMStorageAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStorageLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStorage = DOMStorageSignalList +type DOMStorageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMStorage::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_clear" webkit_dom_storage_clear :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + Ptr (Ptr GError) -> -- error + IO () + + +dOMStorageClear :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + m () +dOMStorageClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_storage_clear _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMStorage::get_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_get_item" webkit_dom_storage_get_item :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMStorageGetItem :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + T.Text -> -- key + m T.Text +dOMStorageGetItem _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + onException (do + result <- propagateGError $ webkit_dom_storage_get_item _obj' key' + checkUnexpectedReturnNULL "webkit_dom_storage_get_item" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem key' + return result' + ) (do + freeMem key' + ) + +-- method DOMStorage::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_get_length" webkit_dom_storage_get_length :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + Ptr (Ptr GError) -> -- error + IO Word64 + + +dOMStorageGetLength :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + m Word64 +dOMStorageGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_storage_get_length _obj' + touchManagedPtr _obj + return result + ) (do + return () + ) + +-- method DOMStorage::key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_key" webkit_dom_storage_key :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +dOMStorageKey :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + Word64 -> -- index + m T.Text +dOMStorageKey _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_storage_key _obj' index + checkUnexpectedReturnNULL "webkit_dom_storage_key" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMStorage::remove_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_remove_item" webkit_dom_storage_remove_item :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMStorageRemoveItem :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + T.Text -> -- key + m () +dOMStorageRemoveItem _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + onException (do + propagateGError $ webkit_dom_storage_remove_item _obj' key' + touchManagedPtr _obj + freeMem key' + return () + ) (do + freeMem key' + ) + +-- method DOMStorage::set_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_storage_set_item" webkit_dom_storage_set_item :: + Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" + CString -> -- key : TBasicType TUTF8 + CString -> -- data : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMStorageSetItem :: + (MonadIO m, DOMStorageK a) => + a -> -- _obj + T.Text -> -- key + T.Text -> -- data + m () +dOMStorageSetItem _obj key data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + data_' <- textToCString data_ + onException (do + propagateGError $ webkit_dom_storage_set_item _obj' key' data_' + touchManagedPtr _obj + freeMem key' + freeMem data_' + return () + ) (do + freeMem key' + freeMem data_' + ) + + diff --git a/GI/WebKit/Objects/DOMStorage.hs-boot b/GI/WebKit/Objects/DOMStorage.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorage.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMStorage where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStorage = DOMStorage (ForeignPtr DOMStorage) +instance GObject DOMStorage where +class GObject o => DOMStorageK o +instance (GObject o, IsDescendantOf DOMStorage o) => DOMStorageK o +data DOMStorageLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMStorageInfo.hs b/GI/WebKit/Objects/DOMStorageInfo.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorageInfo.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMStorageInfo + ( + +-- * Exported types + DOMStorageInfo(..) , + DOMStorageInfoK , + toDOMStorageInfo , + noDOMStorageInfo , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStorageInfo = DOMStorageInfo (ForeignPtr DOMStorageInfo) +foreign import ccall "webkit_dom_storage_info_get_type" + c_webkit_dom_storage_info_get_type :: IO GType + +type instance ParentTypes DOMStorageInfo = DOMStorageInfoParentTypes +type DOMStorageInfoParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStorageInfo where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_storage_info_get_type + + +class GObject o => DOMStorageInfoK o +instance (GObject o, IsDescendantOf DOMStorageInfo o) => DOMStorageInfoK o + +toDOMStorageInfo :: DOMStorageInfoK o => o -> IO DOMStorageInfo +toDOMStorageInfo = unsafeCastTo DOMStorageInfo + +noDOMStorageInfo :: Maybe DOMStorageInfo +noDOMStorageInfo = Nothing + +type instance AttributeList DOMStorageInfo = DOMStorageInfoAttributeList +type DOMStorageInfoAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStorageInfo = DOMStorageInfoSignalList +type DOMStorageInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMStorageInfo.hs-boot b/GI/WebKit/Objects/DOMStorageInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorageInfo.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMStorageInfo where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStorageInfo = DOMStorageInfo (ForeignPtr DOMStorageInfo) +instance GObject DOMStorageInfo where +class GObject o => DOMStorageInfoK o +instance (GObject o, IsDescendantOf DOMStorageInfo o) => DOMStorageInfoK o diff --git a/GI/WebKit/Objects/DOMStorageQuota.hs b/GI/WebKit/Objects/DOMStorageQuota.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorageQuota.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMStorageQuota + ( + +-- * Exported types + DOMStorageQuota(..) , + DOMStorageQuotaK , + toDOMStorageQuota , + noDOMStorageQuota , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStorageQuota = DOMStorageQuota (ForeignPtr DOMStorageQuota) +foreign import ccall "webkit_dom_storage_quota_get_type" + c_webkit_dom_storage_quota_get_type :: IO GType + +type instance ParentTypes DOMStorageQuota = DOMStorageQuotaParentTypes +type DOMStorageQuotaParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStorageQuota where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_storage_quota_get_type + + +class GObject o => DOMStorageQuotaK o +instance (GObject o, IsDescendantOf DOMStorageQuota o) => DOMStorageQuotaK o + +toDOMStorageQuota :: DOMStorageQuotaK o => o -> IO DOMStorageQuota +toDOMStorageQuota = unsafeCastTo DOMStorageQuota + +noDOMStorageQuota :: Maybe DOMStorageQuota +noDOMStorageQuota = Nothing + +type instance AttributeList DOMStorageQuota = DOMStorageQuotaAttributeList +type DOMStorageQuotaAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStorageQuota = DOMStorageQuotaSignalList +type DOMStorageQuotaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMStorageQuota.hs-boot b/GI/WebKit/Objects/DOMStorageQuota.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStorageQuota.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMStorageQuota where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStorageQuota = DOMStorageQuota (ForeignPtr DOMStorageQuota) +instance GObject DOMStorageQuota where +class GObject o => DOMStorageQuotaK o +instance (GObject o, IsDescendantOf DOMStorageQuota o) => DOMStorageQuotaK o diff --git a/GI/WebKit/Objects/DOMStyleMedia.hs b/GI/WebKit/Objects/DOMStyleMedia.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleMedia.hs @@ -0,0 +1,120 @@ + +{- | +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.WebKit.Objects.DOMStyleMedia + ( + +-- * Exported types + DOMStyleMedia(..) , + DOMStyleMediaK , + toDOMStyleMedia , + noDOMStyleMedia , + + + -- * Methods +-- ** dOMStyleMediaMatchMedium + dOMStyleMediaMatchMedium , + + + + + -- * Properties +-- ** Type + DOMStyleMediaTypePropertyInfo , + getDOMStyleMediaType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStyleMedia = DOMStyleMedia (ForeignPtr DOMStyleMedia) +foreign import ccall "webkit_dom_style_media_get_type" + c_webkit_dom_style_media_get_type :: IO GType + +type instance ParentTypes DOMStyleMedia = DOMStyleMediaParentTypes +type DOMStyleMediaParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStyleMedia where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_style_media_get_type + + +class GObject o => DOMStyleMediaK o +instance (GObject o, IsDescendantOf DOMStyleMedia o) => DOMStyleMediaK o + +toDOMStyleMedia :: DOMStyleMediaK o => o -> IO DOMStyleMedia +toDOMStyleMedia = unsafeCastTo DOMStyleMedia + +noDOMStyleMedia :: Maybe DOMStyleMedia +noDOMStyleMedia = Nothing + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleMediaType :: (MonadIO m, DOMStyleMediaK o) => o -> m T.Text +getDOMStyleMediaType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMStyleMediaTypePropertyInfo +instance AttrInfo DOMStyleMediaTypePropertyInfo where + type AttrAllowedOps DOMStyleMediaTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleMediaTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleMediaTypePropertyInfo = DOMStyleMediaK + type AttrGetType DOMStyleMediaTypePropertyInfo = T.Text + type AttrLabel DOMStyleMediaTypePropertyInfo = "DOMStyleMedia::type" + attrGet _ = getDOMStyleMediaType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleMedia = DOMStyleMediaAttributeList +type DOMStyleMediaAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("type", DOMStyleMediaTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStyleMedia = DOMStyleMediaSignalList +type DOMStyleMediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMStyleMedia::match_medium +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleMedia", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mediaquery", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleMedia", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mediaquery", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_media_match_medium" webkit_dom_style_media_match_medium :: + Ptr DOMStyleMedia -> -- _obj : TInterface "WebKit" "DOMStyleMedia" + CString -> -- mediaquery : TBasicType TUTF8 + IO CInt + + +dOMStyleMediaMatchMedium :: + (MonadIO m, DOMStyleMediaK a) => + a -> -- _obj + T.Text -> -- mediaquery + m Bool +dOMStyleMediaMatchMedium _obj mediaquery = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mediaquery' <- textToCString mediaquery + result <- webkit_dom_style_media_match_medium _obj' mediaquery' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem mediaquery' + return result' + + diff --git a/GI/WebKit/Objects/DOMStyleMedia.hs-boot b/GI/WebKit/Objects/DOMStyleMedia.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleMedia.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMStyleMedia where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStyleMedia = DOMStyleMedia (ForeignPtr DOMStyleMedia) +instance GObject DOMStyleMedia where +class GObject o => DOMStyleMediaK o +instance (GObject o, IsDescendantOf DOMStyleMedia o) => DOMStyleMediaK o +data DOMStyleMediaTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMStyleSheet.hs b/GI/WebKit/Objects/DOMStyleSheet.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleSheet.hs @@ -0,0 +1,445 @@ + +{- | +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.WebKit.Objects.DOMStyleSheet + ( + +-- * Exported types + DOMStyleSheet(..) , + DOMStyleSheetK , + toDOMStyleSheet , + noDOMStyleSheet , + + + -- * Methods +-- ** dOMStyleSheetGetDisabled + dOMStyleSheetGetDisabled , + + +-- ** dOMStyleSheetGetHref + dOMStyleSheetGetHref , + + +-- ** dOMStyleSheetGetMedia + dOMStyleSheetGetMedia , + + +-- ** dOMStyleSheetGetOwnerNode + dOMStyleSheetGetOwnerNode , + + +-- ** dOMStyleSheetGetParentStyleSheet + dOMStyleSheetGetParentStyleSheet , + + +-- ** dOMStyleSheetGetTitle + dOMStyleSheetGetTitle , + + +-- ** dOMStyleSheetSetDisabled + dOMStyleSheetSetDisabled , + + + + + -- * Properties +-- ** Disabled + DOMStyleSheetDisabledPropertyInfo , + constructDOMStyleSheetDisabled , + getDOMStyleSheetDisabled , + setDOMStyleSheetDisabled , + + +-- ** Href + DOMStyleSheetHrefPropertyInfo , + getDOMStyleSheetHref , + + +-- ** Media + DOMStyleSheetMediaPropertyInfo , + getDOMStyleSheetMedia , + + +-- ** OwnerNode + DOMStyleSheetOwnerNodePropertyInfo , + getDOMStyleSheetOwnerNode , + + +-- ** ParentStyleSheet + DOMStyleSheetParentStyleSheetPropertyInfo, + getDOMStyleSheetParentStyleSheet , + + +-- ** Title + DOMStyleSheetTitlePropertyInfo , + getDOMStyleSheetTitle , + + +-- ** Type + DOMStyleSheetTypePropertyInfo , + getDOMStyleSheetType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStyleSheet = DOMStyleSheet (ForeignPtr DOMStyleSheet) +foreign import ccall "webkit_dom_style_sheet_get_type" + c_webkit_dom_style_sheet_get_type :: IO GType + +type instance ParentTypes DOMStyleSheet = DOMStyleSheetParentTypes +type DOMStyleSheetParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStyleSheet where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_style_sheet_get_type + + +class GObject o => DOMStyleSheetK o +instance (GObject o, IsDescendantOf DOMStyleSheet o) => DOMStyleSheetK o + +toDOMStyleSheet :: DOMStyleSheetK o => o -> IO DOMStyleSheet +toDOMStyleSheet = unsafeCastTo DOMStyleSheet + +noDOMStyleSheet :: Maybe DOMStyleSheet +noDOMStyleSheet = Nothing + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> m Bool +getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> Bool -> m () +setDOMStyleSheetDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMStyleSheetDisabled :: Bool -> IO ([Char], GValue) +constructDOMStyleSheetDisabled val = constructObjectPropertyBool "disabled" val + +data DOMStyleSheetDisabledPropertyInfo +instance AttrInfo DOMStyleSheetDisabledPropertyInfo where + type AttrAllowedOps DOMStyleSheetDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMStyleSheetDisabledPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetDisabledPropertyInfo = Bool + type AttrLabel DOMStyleSheetDisabledPropertyInfo = "DOMStyleSheet::disabled" + attrGet _ = getDOMStyleSheetDisabled + attrSet _ = setDOMStyleSheetDisabled + attrConstruct _ = constructDOMStyleSheetDisabled + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href" + +data DOMStyleSheetHrefPropertyInfo +instance AttrInfo DOMStyleSheetHrefPropertyInfo where + type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetHrefPropertyInfo = T.Text + type AttrLabel DOMStyleSheetHrefPropertyInfo = "DOMStyleSheet::href" + attrGet _ = getDOMStyleSheetHref + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media" + -- Type: TInterface "WebKit" "DOMMediaList" + -- Flags: [PropertyReadable] + +getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMMediaList +getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList + +data DOMStyleSheetMediaPropertyInfo +instance AttrInfo DOMStyleSheetMediaPropertyInfo where + type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetMediaPropertyInfo = DOMMediaList + type AttrLabel DOMStyleSheetMediaPropertyInfo = "DOMStyleSheet::media" + attrGet _ = getDOMStyleSheetMedia + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode +getDOMStyleSheetOwnerNode obj = liftIO $ getObjectPropertyObject obj "owner-node" DOMNode + +data DOMStyleSheetOwnerNodePropertyInfo +instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where + type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode + type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "DOMStyleSheet::owner-node" + attrGet _ = getDOMStyleSheetOwnerNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-style-sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMStyleSheet +getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet + +data DOMStyleSheetParentStyleSheetPropertyInfo +instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where + type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "DOMStyleSheet::parent-style-sheet" + attrGet _ = getDOMStyleSheetParentStyleSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title" + +data DOMStyleSheetTitlePropertyInfo +instance AttrInfo DOMStyleSheetTitlePropertyInfo where + type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetTitlePropertyInfo = T.Text + type AttrLabel DOMStyleSheetTitlePropertyInfo = "DOMStyleSheet::title" + attrGet _ = getDOMStyleSheetTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMStyleSheetTypePropertyInfo +instance AttrInfo DOMStyleSheetTypePropertyInfo where + type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetTypePropertyInfo = T.Text + type AttrLabel DOMStyleSheetTypePropertyInfo = "DOMStyleSheet::type" + attrGet _ = getDOMStyleSheetType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleSheet = DOMStyleSheetAttributeList +type DOMStyleSheetAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStyleSheet = DOMStyleSheetSignalList +type DOMStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMStyleSheet::get_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_disabled" webkit_dom_style_sheet_get_disabled :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO CInt + + +dOMStyleSheetGetDisabled :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m Bool +dOMStyleSheetGetDisabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_disabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::get_href +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_href" webkit_dom_style_sheet_get_href :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO CString + + +dOMStyleSheetGetHref :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m T.Text +dOMStyleSheetGetHref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_href _obj' + checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_href" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::get_media +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMMediaList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_media" webkit_dom_style_sheet_get_media :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO (Ptr DOMMediaList) + + +dOMStyleSheetGetMedia :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m DOMMediaList +dOMStyleSheetGetMedia _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_media _obj' + checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_media" result + result' <- (wrapObject DOMMediaList) result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::get_owner_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_owner_node" webkit_dom_style_sheet_get_owner_node :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO (Ptr DOMNode) + + +dOMStyleSheetGetOwnerNode :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m DOMNode +dOMStyleSheetGetOwnerNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_owner_node _obj' + checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_owner_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::get_parent_style_sheet +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_parent_style_sheet" webkit_dom_style_sheet_get_parent_style_sheet :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO (Ptr DOMStyleSheet) + + +dOMStyleSheetGetParentStyleSheet :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m DOMStyleSheet +dOMStyleSheetGetParentStyleSheet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_parent_style_sheet _obj' + checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_parent_style_sheet" result + result' <- (wrapObject DOMStyleSheet) result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_get_title" webkit_dom_style_sheet_get_title :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + IO CString + + +dOMStyleSheetGetTitle :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + m T.Text +dOMStyleSheetGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_get_title _obj' + checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_title" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMStyleSheet::set_disabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_set_disabled" webkit_dom_style_sheet_set_disabled :: + Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMStyleSheetSetDisabled :: + (MonadIO m, DOMStyleSheetK a) => + a -> -- _obj + Bool -> -- value + m () +dOMStyleSheetSetDisabled _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_style_sheet_set_disabled _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMStyleSheet.hs-boot b/GI/WebKit/Objects/DOMStyleSheet.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleSheet.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.DOMStyleSheet where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStyleSheet = DOMStyleSheet (ForeignPtr DOMStyleSheet) +instance GObject DOMStyleSheet where +class GObject o => DOMStyleSheetK o +instance (GObject o, IsDescendantOf DOMStyleSheet o) => DOMStyleSheetK o +data DOMStyleSheetDisabledPropertyInfo +data DOMStyleSheetHrefPropertyInfo +data DOMStyleSheetMediaPropertyInfo +data DOMStyleSheetOwnerNodePropertyInfo +data DOMStyleSheetParentStyleSheetPropertyInfo +data DOMStyleSheetTitlePropertyInfo +data DOMStyleSheetTypePropertyInfo diff --git a/GI/WebKit/Objects/DOMStyleSheetList.hs b/GI/WebKit/Objects/DOMStyleSheetList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleSheetList.hs @@ -0,0 +1,147 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMStyleSheetList + ( + +-- * Exported types + DOMStyleSheetList(..) , + DOMStyleSheetListK , + toDOMStyleSheetList , + noDOMStyleSheetList , + + + -- * Methods +-- ** dOMStyleSheetListGetLength + dOMStyleSheetListGetLength , + + +-- ** dOMStyleSheetListItem + dOMStyleSheetListItem , + + + + + -- * Properties +-- ** Length + DOMStyleSheetListLengthPropertyInfo , + getDOMStyleSheetListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList) +foreign import ccall "webkit_dom_style_sheet_list_get_type" + c_webkit_dom_style_sheet_list_get_type :: IO GType + +type instance ParentTypes DOMStyleSheetList = DOMStyleSheetListParentTypes +type DOMStyleSheetListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMStyleSheetList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_style_sheet_list_get_type + + +class GObject o => DOMStyleSheetListK o +instance (GObject o, IsDescendantOf DOMStyleSheetList o) => DOMStyleSheetListK o + +toDOMStyleSheetList :: DOMStyleSheetListK o => o -> IO DOMStyleSheetList +toDOMStyleSheetList = unsafeCastTo DOMStyleSheetList + +noDOMStyleSheetList :: Maybe DOMStyleSheetList +noDOMStyleSheetList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64 +getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMStyleSheetListLengthPropertyInfo +instance AttrInfo DOMStyleSheetListLengthPropertyInfo where + type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK + type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64 + type AttrLabel DOMStyleSheetListLengthPropertyInfo = "DOMStyleSheetList::length" + attrGet _ = getDOMStyleSheetListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList +type DOMStyleSheetListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMStyleSheetList = DOMStyleSheetListSignalList +type DOMStyleSheetListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMStyleSheetList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_list_get_length" webkit_dom_style_sheet_list_get_length :: + Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList" + IO Word64 + + +dOMStyleSheetListGetLength :: + (MonadIO m, DOMStyleSheetListK a) => + a -> -- _obj + m Word64 +dOMStyleSheetListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMStyleSheetList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMStyleSheet" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_style_sheet_list_item" webkit_dom_style_sheet_list_item :: + Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMStyleSheet) + + +dOMStyleSheetListItem :: + (MonadIO m, DOMStyleSheetListK a) => + a -> -- _obj + Word64 -> -- index + m DOMStyleSheet +dOMStyleSheetListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_style_sheet_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_style_sheet_list_item" result + result' <- (wrapObject DOMStyleSheet) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMStyleSheetList.hs-boot b/GI/WebKit/Objects/DOMStyleSheetList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMStyleSheetList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMStyleSheetList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList) +instance GObject DOMStyleSheetList where +class GObject o => DOMStyleSheetListK o +instance (GObject o, IsDescendantOf DOMStyleSheetList o) => DOMStyleSheetListK o +data DOMStyleSheetListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMText.hs b/GI/WebKit/Objects/DOMText.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMText.hs @@ -0,0 +1,194 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMText + ( + +-- * Exported types + DOMText(..) , + DOMTextK , + toDOMText , + noDOMText , + + + -- * Methods +-- ** dOMTextGetWholeText + dOMTextGetWholeText , + + +-- ** dOMTextReplaceWholeText + dOMTextReplaceWholeText , + + +-- ** dOMTextSplitText + dOMTextSplitText , + + + + + -- * Properties +-- ** WholeText + DOMTextWholeTextPropertyInfo , + getDOMTextWholeText , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMText = DOMText (ForeignPtr DOMText) +foreign import ccall "webkit_dom_text_get_type" + c_webkit_dom_text_get_type :: IO GType + +type instance ParentTypes DOMText = DOMTextParentTypes +type DOMTextParentTypes = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMText where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_text_get_type + + +class GObject o => DOMTextK o +instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o + +toDOMText :: DOMTextK o => o -> IO DOMText +toDOMText = unsafeCastTo DOMText + +noDOMText :: Maybe DOMText +noDOMText = Nothing + +-- VVV Prop "whole-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text +getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" + +data DOMTextWholeTextPropertyInfo +instance AttrInfo DOMTextWholeTextPropertyInfo where + type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK + type AttrGetType DOMTextWholeTextPropertyInfo = T.Text + type AttrLabel DOMTextWholeTextPropertyInfo = "DOMText::whole-text" + attrGet _ = getDOMTextWholeText + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMText = DOMTextAttributeList +type DOMTextAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMText = DOMTextSignalList +type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMText::get_whole_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_get_whole_text" webkit_dom_text_get_whole_text :: + Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText" + IO CString + + +dOMTextGetWholeText :: + (MonadIO m, DOMTextK a) => + a -> -- _obj + m T.Text +dOMTextGetWholeText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_get_whole_text _obj' + checkUnexpectedReturnNULL "webkit_dom_text_get_whole_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMText::replace_whole_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMText" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text :: + Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText" + CString -> -- content : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMText) + + +dOMTextReplaceWholeText :: + (MonadIO m, DOMTextK a) => + a -> -- _obj + T.Text -> -- content + m DOMText +dOMTextReplaceWholeText _obj content = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + onException (do + result <- propagateGError $ webkit_dom_text_replace_whole_text _obj' content' + checkUnexpectedReturnNULL "webkit_dom_text_replace_whole_text" result + result' <- (newObject DOMText) result + touchManagedPtr _obj + freeMem content' + return result' + ) (do + freeMem content' + ) + +-- method DOMText::split_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMText" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text :: + Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText" + Word64 -> -- offset : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMText) + + +dOMTextSplitText :: + (MonadIO m, DOMTextK a) => + a -> -- _obj + Word64 -> -- offset + m DOMText +dOMTextSplitText _obj offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_text_split_text _obj' offset + checkUnexpectedReturnNULL "webkit_dom_text_split_text" result + result' <- (newObject DOMText) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMText.hs-boot b/GI/WebKit/Objects/DOMText.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMText.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMText where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMText = DOMText (ForeignPtr DOMText) +instance GObject DOMText where +class GObject o => DOMTextK o +instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o +data DOMTextWholeTextPropertyInfo diff --git a/GI/WebKit/Objects/DOMTextTrack.hs b/GI/WebKit/Objects/DOMTextTrack.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrack.hs @@ -0,0 +1,586 @@ + +{- | +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.WebKit.Objects.DOMTextTrack + ( + +-- * Exported types + DOMTextTrack(..) , + DOMTextTrackK , + toDOMTextTrack , + noDOMTextTrack , + + + -- * Methods +-- ** dOMTextTrackAddCue + dOMTextTrackAddCue , + + +-- ** dOMTextTrackDispatchEvent + dOMTextTrackDispatchEvent , + + +-- ** dOMTextTrackGetActiveCues + dOMTextTrackGetActiveCues , + + +-- ** dOMTextTrackGetCues + dOMTextTrackGetCues , + + +-- ** dOMTextTrackGetId + dOMTextTrackGetId , + + +-- ** dOMTextTrackGetKind + dOMTextTrackGetKind , + + +-- ** dOMTextTrackGetLabel + dOMTextTrackGetLabel , + + +-- ** dOMTextTrackGetLanguage + dOMTextTrackGetLanguage , + + +-- ** dOMTextTrackGetMode + dOMTextTrackGetMode , + + +-- ** dOMTextTrackRemoveCue + dOMTextTrackRemoveCue , + + +-- ** dOMTextTrackSetMode + dOMTextTrackSetMode , + + + + + -- * Properties +-- ** ActiveCues + DOMTextTrackActiveCuesPropertyInfo , + getDOMTextTrackActiveCues , + + +-- ** Cues + DOMTextTrackCuesPropertyInfo , + getDOMTextTrackCues , + + +-- ** Id + DOMTextTrackIdPropertyInfo , + getDOMTextTrackId , + + +-- ** Kind + DOMTextTrackKindPropertyInfo , + getDOMTextTrackKind , + + +-- ** Label + DOMTextTrackLabelPropertyInfo , + getDOMTextTrackLabel , + + +-- ** Language + DOMTextTrackLanguagePropertyInfo , + getDOMTextTrackLanguage , + + +-- ** Mode + DOMTextTrackModePropertyInfo , + constructDOMTextTrackMode , + getDOMTextTrackMode , + setDOMTextTrackMode , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTextTrack = DOMTextTrack (ForeignPtr DOMTextTrack) +foreign import ccall "webkit_dom_text_track_get_type" + c_webkit_dom_text_track_get_type :: IO GType + +type instance ParentTypes DOMTextTrack = DOMTextTrackParentTypes +type DOMTextTrackParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMTextTrack where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_text_track_get_type + + +class GObject o => DOMTextTrackK o +instance (GObject o, IsDescendantOf DOMTextTrack o) => DOMTextTrackK o + +toDOMTextTrack :: DOMTextTrackK o => o -> IO DOMTextTrack +toDOMTextTrack = unsafeCastTo DOMTextTrack + +noDOMTextTrack :: Maybe DOMTextTrack +noDOMTextTrack = Nothing + +-- VVV Prop "active-cues" + -- Type: TInterface "WebKit" "DOMTextTrackCueList" + -- Flags: [PropertyReadable] + +getDOMTextTrackActiveCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackActiveCues obj = liftIO $ getObjectPropertyObject obj "active-cues" DOMTextTrackCueList + +data DOMTextTrackActiveCuesPropertyInfo +instance AttrInfo DOMTextTrackActiveCuesPropertyInfo where + type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackActiveCuesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackCueList + type AttrLabel DOMTextTrackActiveCuesPropertyInfo = "DOMTextTrack::active-cues" + attrGet _ = getDOMTextTrackActiveCues + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cues" + -- Type: TInterface "WebKit" "DOMTextTrackCueList" + -- Flags: [PropertyReadable] + +getDOMTextTrackCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackCues obj = liftIO $ getObjectPropertyObject obj "cues" DOMTextTrackCueList + +data DOMTextTrackCuesPropertyInfo +instance AttrInfo DOMTextTrackCuesPropertyInfo where + type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCuesPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackCuesPropertyInfo = DOMTextTrackCueList + type AttrLabel DOMTextTrackCuesPropertyInfo = "DOMTextTrack::cues" + attrGet _ = getDOMTextTrackCues + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackId :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMTextTrackIdPropertyInfo +instance AttrInfo DOMTextTrackIdPropertyInfo where + type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackIdPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackIdPropertyInfo = T.Text + type AttrLabel DOMTextTrackIdPropertyInfo = "DOMTextTrack::id" + attrGet _ = getDOMTextTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackKind :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMTextTrackKindPropertyInfo +instance AttrInfo DOMTextTrackKindPropertyInfo where + type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackKindPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackKindPropertyInfo = T.Text + type AttrLabel DOMTextTrackKindPropertyInfo = "DOMTextTrack::kind" + attrGet _ = getDOMTextTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackLabel :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMTextTrackLabelPropertyInfo +instance AttrInfo DOMTextTrackLabelPropertyInfo where + type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackLabelPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackLabelPropertyInfo = T.Text + type AttrLabel DOMTextTrackLabelPropertyInfo = "DOMTextTrack::label" + attrGet _ = getDOMTextTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackLanguage :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMTextTrackLanguagePropertyInfo +instance AttrInfo DOMTextTrackLanguagePropertyInfo where + type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackLanguagePropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMTextTrackLanguagePropertyInfo = "DOMTextTrack::language" + attrGet _ = getDOMTextTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackMode obj = liftIO $ getObjectPropertyString obj "mode" + +setDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> T.Text -> m () +setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" val + +constructDOMTextTrackMode :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackMode val = constructObjectPropertyString "mode" val + +data DOMTextTrackModePropertyInfo +instance AttrInfo DOMTextTrackModePropertyInfo where + type AttrAllowedOps DOMTextTrackModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackModePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackModePropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackModePropertyInfo = T.Text + type AttrLabel DOMTextTrackModePropertyInfo = "DOMTextTrack::mode" + attrGet _ = getDOMTextTrackMode + attrSet _ = setDOMTextTrackMode + attrConstruct _ = constructDOMTextTrackMode + +type instance AttributeList DOMTextTrack = DOMTextTrackAttributeList +type DOMTextTrackAttributeList = ('[ '("active-cues", DOMTextTrackActiveCuesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cues", DOMTextTrackCuesPropertyInfo), '("id", DOMTextTrackIdPropertyInfo), '("kind", DOMTextTrackKindPropertyInfo), '("label", DOMTextTrackLabelPropertyInfo), '("language", DOMTextTrackLanguagePropertyInfo), '("mode", DOMTextTrackModePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTextTrack = DOMTextTrackSignalList +type DOMTextTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTextTrack::add_cue +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_add_cue" webkit_dom_text_track_add_cue :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + Ptr DOMTextTrackCue -> -- cue : TInterface "WebKit" "DOMTextTrackCue" + IO () + + +dOMTextTrackAddCue :: + (MonadIO m, DOMTextTrackK a, DOMTextTrackCueK b) => + a -> -- _obj + b -> -- cue + m () +dOMTextTrackAddCue _obj cue = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let cue' = unsafeManagedPtrCastPtr cue + webkit_dom_text_track_add_cue _obj' cue' + touchManagedPtr _obj + touchManagedPtr cue + return () + +-- method DOMTextTrack::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_dispatch_event" webkit_dom_text_track_dispatch_event :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMTextTrackDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMTextTrackDispatchEvent :: + (MonadIO m, DOMTextTrackK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMTextTrackDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_text_track_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMTextTrack::get_active_cues +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrackCueList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_active_cues" webkit_dom_text_track_get_active_cues :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO (Ptr DOMTextTrackCueList) + + +dOMTextTrackGetActiveCues :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m DOMTextTrackCueList +dOMTextTrackGetActiveCues _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_active_cues _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_active_cues" result + result' <- (wrapObject DOMTextTrackCueList) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_cues +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrackCueList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_cues" webkit_dom_text_track_get_cues :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO (Ptr DOMTextTrackCueList) + + +dOMTextTrackGetCues :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m DOMTextTrackCueList +dOMTextTrackGetCues _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_cues _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_cues" result + result' <- (wrapObject DOMTextTrackCueList) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_id" webkit_dom_text_track_get_id :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO CString + + +dOMTextTrackGetId :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m T.Text +dOMTextTrackGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_kind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_kind" webkit_dom_text_track_get_kind :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO CString + + +dOMTextTrackGetKind :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m T.Text +dOMTextTrackGetKind _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_kind _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_kind" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_label" webkit_dom_text_track_get_label :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO CString + + +dOMTextTrackGetLabel :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m T.Text +dOMTextTrackGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_label _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_label" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_language" webkit_dom_text_track_get_language :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO CString + + +dOMTextTrackGetLanguage :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m T.Text +dOMTextTrackGetLanguage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_language _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_language" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::get_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_get_mode" webkit_dom_text_track_get_mode :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + IO CString + + +dOMTextTrackGetMode :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + m T.Text +dOMTextTrackGetMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_get_mode _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_get_mode" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrack::remove_cue +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_remove_cue" webkit_dom_text_track_remove_cue :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + Ptr DOMTextTrackCue -> -- cue : TInterface "WebKit" "DOMTextTrackCue" + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackRemoveCue :: + (MonadIO m, DOMTextTrackK a, DOMTextTrackCueK b) => + a -> -- _obj + b -> -- cue + m () +dOMTextTrackRemoveCue _obj cue = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let cue' = unsafeManagedPtrCastPtr cue + onException (do + propagateGError $ webkit_dom_text_track_remove_cue _obj' cue' + touchManagedPtr _obj + touchManagedPtr cue + return () + ) (do + return () + ) + +-- method DOMTextTrack::set_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_set_mode" webkit_dom_text_track_set_mode :: + Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMTextTrackSetMode :: + (MonadIO m, DOMTextTrackK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMTextTrackSetMode _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_text_track_set_mode _obj' value' + touchManagedPtr _obj + freeMem value' + return () + + diff --git a/GI/WebKit/Objects/DOMTextTrack.hs-boot b/GI/WebKit/Objects/DOMTextTrack.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrack.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.DOMTextTrack where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTextTrack = DOMTextTrack (ForeignPtr DOMTextTrack) +instance GObject DOMTextTrack where +class GObject o => DOMTextTrackK o +instance (GObject o, IsDescendantOf DOMTextTrack o) => DOMTextTrackK o +data DOMTextTrackActiveCuesPropertyInfo +data DOMTextTrackCuesPropertyInfo +data DOMTextTrackIdPropertyInfo +data DOMTextTrackKindPropertyInfo +data DOMTextTrackLabelPropertyInfo +data DOMTextTrackLanguagePropertyInfo +data DOMTextTrackModePropertyInfo diff --git a/GI/WebKit/Objects/DOMTextTrackCue.hs b/GI/WebKit/Objects/DOMTextTrackCue.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackCue.hs @@ -0,0 +1,1226 @@ + +{- | +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.WebKit.Objects.DOMTextTrackCue + ( + +-- * Exported types + DOMTextTrackCue(..) , + DOMTextTrackCueK , + toDOMTextTrackCue , + noDOMTextTrackCue , + + + -- * Methods +-- ** dOMTextTrackCueDispatchEvent + dOMTextTrackCueDispatchEvent , + + +-- ** dOMTextTrackCueGetAlign + dOMTextTrackCueGetAlign , + + +-- ** dOMTextTrackCueGetCueAsHtml + dOMTextTrackCueGetCueAsHtml , + + +-- ** dOMTextTrackCueGetEndTime + dOMTextTrackCueGetEndTime , + + +-- ** dOMTextTrackCueGetId + dOMTextTrackCueGetId , + + +-- ** dOMTextTrackCueGetLine + dOMTextTrackCueGetLine , + + +-- ** dOMTextTrackCueGetPauseOnExit + dOMTextTrackCueGetPauseOnExit , + + +-- ** dOMTextTrackCueGetPosition + dOMTextTrackCueGetPosition , + + +-- ** dOMTextTrackCueGetSize + dOMTextTrackCueGetSize , + + +-- ** dOMTextTrackCueGetSnapToLines + dOMTextTrackCueGetSnapToLines , + + +-- ** dOMTextTrackCueGetStartTime + dOMTextTrackCueGetStartTime , + + +-- ** dOMTextTrackCueGetText + dOMTextTrackCueGetText , + + +-- ** dOMTextTrackCueGetTrack + dOMTextTrackCueGetTrack , + + +-- ** dOMTextTrackCueGetVertical + dOMTextTrackCueGetVertical , + + +-- ** dOMTextTrackCueSetAlign + dOMTextTrackCueSetAlign , + + +-- ** dOMTextTrackCueSetEndTime + dOMTextTrackCueSetEndTime , + + +-- ** dOMTextTrackCueSetId + dOMTextTrackCueSetId , + + +-- ** dOMTextTrackCueSetLine + dOMTextTrackCueSetLine , + + +-- ** dOMTextTrackCueSetPauseOnExit + dOMTextTrackCueSetPauseOnExit , + + +-- ** dOMTextTrackCueSetPosition + dOMTextTrackCueSetPosition , + + +-- ** dOMTextTrackCueSetSize + dOMTextTrackCueSetSize , + + +-- ** dOMTextTrackCueSetSnapToLines + dOMTextTrackCueSetSnapToLines , + + +-- ** dOMTextTrackCueSetStartTime + dOMTextTrackCueSetStartTime , + + +-- ** dOMTextTrackCueSetText + dOMTextTrackCueSetText , + + +-- ** dOMTextTrackCueSetVertical + dOMTextTrackCueSetVertical , + + + + + -- * Properties +-- ** Align + DOMTextTrackCueAlignPropertyInfo , + constructDOMTextTrackCueAlign , + getDOMTextTrackCueAlign , + setDOMTextTrackCueAlign , + + +-- ** EndTime + DOMTextTrackCueEndTimePropertyInfo , + constructDOMTextTrackCueEndTime , + getDOMTextTrackCueEndTime , + setDOMTextTrackCueEndTime , + + +-- ** Id + DOMTextTrackCueIdPropertyInfo , + constructDOMTextTrackCueId , + getDOMTextTrackCueId , + setDOMTextTrackCueId , + + +-- ** Line + DOMTextTrackCueLinePropertyInfo , + constructDOMTextTrackCueLine , + getDOMTextTrackCueLine , + setDOMTextTrackCueLine , + + +-- ** PauseOnExit + DOMTextTrackCuePauseOnExitPropertyInfo , + constructDOMTextTrackCuePauseOnExit , + getDOMTextTrackCuePauseOnExit , + setDOMTextTrackCuePauseOnExit , + + +-- ** Position + DOMTextTrackCuePositionPropertyInfo , + constructDOMTextTrackCuePosition , + getDOMTextTrackCuePosition , + setDOMTextTrackCuePosition , + + +-- ** Size + DOMTextTrackCueSizePropertyInfo , + constructDOMTextTrackCueSize , + getDOMTextTrackCueSize , + setDOMTextTrackCueSize , + + +-- ** SnapToLines + DOMTextTrackCueSnapToLinesPropertyInfo , + constructDOMTextTrackCueSnapToLines , + getDOMTextTrackCueSnapToLines , + setDOMTextTrackCueSnapToLines , + + +-- ** StartTime + DOMTextTrackCueStartTimePropertyInfo , + constructDOMTextTrackCueStartTime , + getDOMTextTrackCueStartTime , + setDOMTextTrackCueStartTime , + + +-- ** Text + DOMTextTrackCueTextPropertyInfo , + constructDOMTextTrackCueText , + getDOMTextTrackCueText , + setDOMTextTrackCueText , + + +-- ** Track + DOMTextTrackCueTrackPropertyInfo , + getDOMTextTrackCueTrack , + + +-- ** Vertical + DOMTextTrackCueVerticalPropertyInfo , + constructDOMTextTrackCueVertical , + getDOMTextTrackCueVertical , + setDOMTextTrackCueVertical , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTextTrackCue = DOMTextTrackCue (ForeignPtr DOMTextTrackCue) +foreign import ccall "webkit_dom_text_track_cue_get_type" + c_webkit_dom_text_track_cue_get_type :: IO GType + +type instance ParentTypes DOMTextTrackCue = DOMTextTrackCueParentTypes +type DOMTextTrackCueParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMTextTrackCue where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_text_track_cue_get_type + + +class GObject o => DOMTextTrackCueK o +instance (GObject o, IsDescendantOf DOMTextTrackCue o) => DOMTextTrackCueK o + +toDOMTextTrackCue :: DOMTextTrackCueK o => o -> IO DOMTextTrackCue +toDOMTextTrackCue = unsafeCastTo DOMTextTrackCue + +noDOMTextTrackCue :: Maybe DOMTextTrackCue +noDOMTextTrackCue = Nothing + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMTextTrackCueAlign :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" val + +data DOMTextTrackCueAlignPropertyInfo +instance AttrInfo DOMTextTrackCueAlignPropertyInfo where + type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueAlignPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueAlignPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueAlignPropertyInfo = "DOMTextTrackCue::align" + attrGet _ = getDOMTextTrackCueAlign + attrSet _ = setDOMTextTrackCueAlign + attrConstruct _ = constructDOMTextTrackCueAlign + +-- VVV Prop "end-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double +getDOMTextTrackCueEndTime obj = liftIO $ getObjectPropertyDouble obj "end-time" + +setDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () +setDOMTextTrackCueEndTime obj val = liftIO $ setObjectPropertyDouble obj "end-time" val + +constructDOMTextTrackCueEndTime :: Double -> IO ([Char], GValue) +constructDOMTextTrackCueEndTime val = constructObjectPropertyDouble "end-time" val + +data DOMTextTrackCueEndTimePropertyInfo +instance AttrInfo DOMTextTrackCueEndTimePropertyInfo where + type AttrAllowedOps DOMTextTrackCueEndTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueEndTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMTextTrackCueEndTimePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueEndTimePropertyInfo = Double + type AttrLabel DOMTextTrackCueEndTimePropertyInfo = "DOMTextTrackCue::end-time" + attrGet _ = getDOMTextTrackCueEndTime + attrSet _ = setDOMTextTrackCueEndTime + attrConstruct _ = constructDOMTextTrackCueEndTime + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueId obj = liftIO $ getObjectPropertyString obj "id" + +setDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" val + +constructDOMTextTrackCueId :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueId val = constructObjectPropertyString "id" val + +data DOMTextTrackCueIdPropertyInfo +instance AttrInfo DOMTextTrackCueIdPropertyInfo where + type AttrAllowedOps DOMTextTrackCueIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueIdPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueIdPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueIdPropertyInfo = "DOMTextTrackCue::id" + attrGet _ = getDOMTextTrackCueId + attrSet _ = setDOMTextTrackCueId + attrConstruct _ = constructDOMTextTrackCueId + +-- VVV Prop "line" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyInt64 obj "line" + +setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyInt64 obj "line" val + +constructDOMTextTrackCueLine :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCueLine val = constructObjectPropertyInt64 "line" val + +data DOMTextTrackCueLinePropertyInfo +instance AttrInfo DOMTextTrackCueLinePropertyInfo where + type AttrAllowedOps DOMTextTrackCueLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCueLinePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueLinePropertyInfo = Int64 + type AttrLabel DOMTextTrackCueLinePropertyInfo = "DOMTextTrackCue::line" + attrGet _ = getDOMTextTrackCueLine + attrSet _ = setDOMTextTrackCueLine + attrConstruct _ = constructDOMTextTrackCueLine + +-- VVV Prop "pause-on-exit" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool +getDOMTextTrackCuePauseOnExit obj = liftIO $ getObjectPropertyBool obj "pause-on-exit" + +setDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () +setDOMTextTrackCuePauseOnExit obj val = liftIO $ setObjectPropertyBool obj "pause-on-exit" val + +constructDOMTextTrackCuePauseOnExit :: Bool -> IO ([Char], GValue) +constructDOMTextTrackCuePauseOnExit val = constructObjectPropertyBool "pause-on-exit" val + +data DOMTextTrackCuePauseOnExitPropertyInfo +instance AttrInfo DOMTextTrackCuePauseOnExitPropertyInfo where + type AttrAllowedOps DOMTextTrackCuePauseOnExitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCuePauseOnExitPropertyInfo = Bool + type AttrLabel DOMTextTrackCuePauseOnExitPropertyInfo = "DOMTextTrackCue::pause-on-exit" + attrGet _ = getDOMTextTrackCuePauseOnExit + attrSet _ = setDOMTextTrackCuePauseOnExit + attrConstruct _ = constructDOMTextTrackCuePauseOnExit + +-- VVV Prop "position" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyInt64 obj "position" + +setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyInt64 obj "position" val + +constructDOMTextTrackCuePosition :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCuePosition val = constructObjectPropertyInt64 "position" val + +data DOMTextTrackCuePositionPropertyInfo +instance AttrInfo DOMTextTrackCuePositionPropertyInfo where + type AttrAllowedOps DOMTextTrackCuePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCuePositionPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCuePositionPropertyInfo = Int64 + type AttrLabel DOMTextTrackCuePositionPropertyInfo = "DOMTextTrackCue::position" + attrGet _ = getDOMTextTrackCuePosition + attrSet _ = setDOMTextTrackCuePosition + attrConstruct _ = constructDOMTextTrackCuePosition + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMTextTrackCueSize :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCueSize val = constructObjectPropertyInt64 "size" val + +data DOMTextTrackCueSizePropertyInfo +instance AttrInfo DOMTextTrackCueSizePropertyInfo where + type AttrAllowedOps DOMTextTrackCueSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCueSizePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueSizePropertyInfo = Int64 + type AttrLabel DOMTextTrackCueSizePropertyInfo = "DOMTextTrackCue::size" + attrGet _ = getDOMTextTrackCueSize + attrSet _ = setDOMTextTrackCueSize + attrConstruct _ = constructDOMTextTrackCueSize + +-- VVV Prop "snap-to-lines" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool +getDOMTextTrackCueSnapToLines obj = liftIO $ getObjectPropertyBool obj "snap-to-lines" + +setDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () +setDOMTextTrackCueSnapToLines obj val = liftIO $ setObjectPropertyBool obj "snap-to-lines" val + +constructDOMTextTrackCueSnapToLines :: Bool -> IO ([Char], GValue) +constructDOMTextTrackCueSnapToLines val = constructObjectPropertyBool "snap-to-lines" val + +data DOMTextTrackCueSnapToLinesPropertyInfo +instance AttrInfo DOMTextTrackCueSnapToLinesPropertyInfo where + type AttrAllowedOps DOMTextTrackCueSnapToLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueSnapToLinesPropertyInfo = Bool + type AttrLabel DOMTextTrackCueSnapToLinesPropertyInfo = "DOMTextTrackCue::snap-to-lines" + attrGet _ = getDOMTextTrackCueSnapToLines + attrSet _ = setDOMTextTrackCueSnapToLines + attrConstruct _ = constructDOMTextTrackCueSnapToLines + +-- VVV Prop "start-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double +getDOMTextTrackCueStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" + +setDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () +setDOMTextTrackCueStartTime obj val = liftIO $ setObjectPropertyDouble obj "start-time" val + +constructDOMTextTrackCueStartTime :: Double -> IO ([Char], GValue) +constructDOMTextTrackCueStartTime val = constructObjectPropertyDouble "start-time" val + +data DOMTextTrackCueStartTimePropertyInfo +instance AttrInfo DOMTextTrackCueStartTimePropertyInfo where + type AttrAllowedOps DOMTextTrackCueStartTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueStartTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMTextTrackCueStartTimePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueStartTimePropertyInfo = Double + type AttrLabel DOMTextTrackCueStartTimePropertyInfo = "DOMTextTrackCue::start-time" + attrGet _ = getDOMTextTrackCueStartTime + attrSet _ = setDOMTextTrackCueStartTime + attrConstruct _ = constructDOMTextTrackCueStartTime + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMTextTrackCueText :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueText val = constructObjectPropertyString "text" val + +data DOMTextTrackCueTextPropertyInfo +instance AttrInfo DOMTextTrackCueTextPropertyInfo where + type AttrAllowedOps DOMTextTrackCueTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueTextPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueTextPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueTextPropertyInfo = "DOMTextTrackCue::text" + attrGet _ = getDOMTextTrackCueText + attrSet _ = setDOMTextTrackCueText + attrConstruct _ = constructDOMTextTrackCueText + +-- VVV Prop "track" + -- Type: TInterface "WebKit" "DOMTextTrack" + -- Flags: [PropertyReadable] + +getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m DOMTextTrack +getDOMTextTrackCueTrack obj = liftIO $ getObjectPropertyObject obj "track" DOMTextTrack + +data DOMTextTrackCueTrackPropertyInfo +instance AttrInfo DOMTextTrackCueTrackPropertyInfo where + type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueTrackPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCueTrackPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueTrackPropertyInfo = DOMTextTrack + type AttrLabel DOMTextTrackCueTrackPropertyInfo = "DOMTextTrackCue::track" + attrGet _ = getDOMTextTrackCueTrack + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vertical" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueVertical obj = liftIO $ getObjectPropertyString obj "vertical" + +setDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" val + +constructDOMTextTrackCueVertical :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" val + +data DOMTextTrackCueVerticalPropertyInfo +instance AttrInfo DOMTextTrackCueVerticalPropertyInfo where + type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueVerticalPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueVerticalPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueVerticalPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueVerticalPropertyInfo = "DOMTextTrackCue::vertical" + attrGet _ = getDOMTextTrackCueVertical + attrSet _ = setDOMTextTrackCueVertical + attrConstruct _ = constructDOMTextTrackCueVertical + +type instance AttributeList DOMTextTrackCue = DOMTextTrackCueAttributeList +type DOMTextTrackCueAttributeList = ('[ '("align", DOMTextTrackCueAlignPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-time", DOMTextTrackCueEndTimePropertyInfo), '("id", DOMTextTrackCueIdPropertyInfo), '("line", DOMTextTrackCueLinePropertyInfo), '("pause-on-exit", DOMTextTrackCuePauseOnExitPropertyInfo), '("position", DOMTextTrackCuePositionPropertyInfo), '("size", DOMTextTrackCueSizePropertyInfo), '("snap-to-lines", DOMTextTrackCueSnapToLinesPropertyInfo), '("start-time", DOMTextTrackCueStartTimePropertyInfo), '("text", DOMTextTrackCueTextPropertyInfo), '("track", DOMTextTrackCueTrackPropertyInfo), '("vertical", DOMTextTrackCueVerticalPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTextTrackCue = DOMTextTrackCueSignalList +type DOMTextTrackCueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTextTrackCue::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_dispatch_event" webkit_dom_text_track_cue_dispatch_event :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMTextTrackCueDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMTextTrackCueDispatchEvent :: + (MonadIO m, DOMTextTrackCueK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMTextTrackCueDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_text_track_cue_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::get_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_align" webkit_dom_text_track_cue_get_align :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CString + + +dOMTextTrackCueGetAlign :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m T.Text +dOMTextTrackCueGetAlign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_align _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_align" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_cue_as_html +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_cue_as_html" webkit_dom_text_track_cue_get_cue_as_html :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO (Ptr DOMDocumentFragment) + + +dOMTextTrackCueGetCueAsHtml :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m DOMDocumentFragment +dOMTextTrackCueGetCueAsHtml _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_cue_as_html _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_cue_as_html" result + result' <- (newObject DOMDocumentFragment) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_end_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_end_time" webkit_dom_text_track_cue_get_end_time :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CDouble + + +dOMTextTrackCueGetEndTime :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Double +dOMTextTrackCueGetEndTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_end_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_id" webkit_dom_text_track_cue_get_id :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CString + + +dOMTextTrackCueGetId :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m T.Text +dOMTextTrackCueGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_line +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_line" webkit_dom_text_track_cue_get_line :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO Int64 + + +dOMTextTrackCueGetLine :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Int64 +dOMTextTrackCueGetLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_line _obj' + touchManagedPtr _obj + return result + +-- method DOMTextTrackCue::get_pause_on_exit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_pause_on_exit" webkit_dom_text_track_cue_get_pause_on_exit :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CInt + + +dOMTextTrackCueGetPauseOnExit :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Bool +dOMTextTrackCueGetPauseOnExit _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_pause_on_exit _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_position" webkit_dom_text_track_cue_get_position :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO Int64 + + +dOMTextTrackCueGetPosition :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Int64 +dOMTextTrackCueGetPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_position _obj' + touchManagedPtr _obj + return result + +-- method DOMTextTrackCue::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_size" webkit_dom_text_track_cue_get_size :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO Int64 + + +dOMTextTrackCueGetSize :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Int64 +dOMTextTrackCueGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_size _obj' + touchManagedPtr _obj + return result + +-- method DOMTextTrackCue::get_snap_to_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_snap_to_lines" webkit_dom_text_track_cue_get_snap_to_lines :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CInt + + +dOMTextTrackCueGetSnapToLines :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Bool +dOMTextTrackCueGetSnapToLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_snap_to_lines _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_start_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_start_time" webkit_dom_text_track_cue_get_start_time :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CDouble + + +dOMTextTrackCueGetStartTime :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m Double +dOMTextTrackCueGetStartTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_start_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_text" webkit_dom_text_track_cue_get_text :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CString + + +dOMTextTrackCueGetText :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m T.Text +dOMTextTrackCueGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_text _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_track +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_track" webkit_dom_text_track_cue_get_track :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO (Ptr DOMTextTrack) + + +dOMTextTrackCueGetTrack :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m DOMTextTrack +dOMTextTrackCueGetTrack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_track _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_track" result + result' <- (wrapObject DOMTextTrack) result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::get_vertical +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_get_vertical" webkit_dom_text_track_cue_get_vertical :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + IO CString + + +dOMTextTrackCueGetVertical :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + m T.Text +dOMTextTrackCueGetVertical _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_get_vertical _obj' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_vertical" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMTextTrackCue::set_align +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_align" webkit_dom_text_track_cue_set_align :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetAlign :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMTextTrackCueSetAlign _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_text_track_cue_set_align _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + +-- method DOMTextTrackCue::set_end_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_end_time" webkit_dom_text_track_cue_set_end_time :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetEndTime :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Double -> -- value + m () +dOMTextTrackCueSetEndTime _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_text_track_cue_set_end_time _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::set_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_id" webkit_dom_text_track_cue_set_id :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMTextTrackCueSetId :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMTextTrackCueSetId _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_text_track_cue_set_id _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMTextTrackCue::set_line +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_line" webkit_dom_text_track_cue_set_line :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetLine :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMTextTrackCueSetLine _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_text_track_cue_set_line _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::set_pause_on_exit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_pause_on_exit" webkit_dom_text_track_cue_set_pause_on_exit :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMTextTrackCueSetPauseOnExit :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Bool -> -- value + m () +dOMTextTrackCueSetPauseOnExit _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_text_track_cue_set_pause_on_exit _obj' value' + touchManagedPtr _obj + return () + +-- method DOMTextTrackCue::set_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_position" webkit_dom_text_track_cue_set_position :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetPosition :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMTextTrackCueSetPosition _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_text_track_cue_set_position _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_size" webkit_dom_text_track_cue_set_size :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + Int64 -> -- value : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetSize :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Int64 -> -- value + m () +dOMTextTrackCueSetSize _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + propagateGError $ webkit_dom_text_track_cue_set_size _obj' value + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::set_snap_to_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_snap_to_lines" webkit_dom_text_track_cue_set_snap_to_lines :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMTextTrackCueSetSnapToLines :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Bool -> -- value + m () +dOMTextTrackCueSetSnapToLines _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_text_track_cue_set_snap_to_lines _obj' value' + touchManagedPtr _obj + return () + +-- method DOMTextTrackCue::set_start_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_start_time" webkit_dom_text_track_cue_set_start_time :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CDouble -> -- value : TBasicType TDouble + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetStartTime :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + Double -> -- value + m () +dOMTextTrackCueSetStartTime _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + onException (do + propagateGError $ webkit_dom_text_track_cue_set_start_time _obj' value' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMTextTrackCue::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_text" webkit_dom_text_track_cue_set_text :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CString -> -- value : TBasicType TUTF8 + IO () + + +dOMTextTrackCueSetText :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMTextTrackCueSetText _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + webkit_dom_text_track_cue_set_text _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method DOMTextTrackCue::set_vertical +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_set_vertical" webkit_dom_text_track_cue_set_vertical :: + Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" + CString -> -- value : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO () + + +dOMTextTrackCueSetVertical :: + (MonadIO m, DOMTextTrackCueK a) => + a -> -- _obj + T.Text -> -- value + m () +dOMTextTrackCueSetVertical _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value' <- textToCString value + onException (do + propagateGError $ webkit_dom_text_track_cue_set_vertical _obj' value' + touchManagedPtr _obj + freeMem value' + return () + ) (do + freeMem value' + ) + + diff --git a/GI/WebKit/Objects/DOMTextTrackCue.hs-boot b/GI/WebKit/Objects/DOMTextTrackCue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackCue.hs-boot @@ -0,0 +1,25 @@ +module GI.WebKit.Objects.DOMTextTrackCue where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTextTrackCue = DOMTextTrackCue (ForeignPtr DOMTextTrackCue) +instance GObject DOMTextTrackCue where +class GObject o => DOMTextTrackCueK o +instance (GObject o, IsDescendantOf DOMTextTrackCue o) => DOMTextTrackCueK o +data DOMTextTrackCueAlignPropertyInfo +data DOMTextTrackCueEndTimePropertyInfo +data DOMTextTrackCueIdPropertyInfo +data DOMTextTrackCueLinePropertyInfo +data DOMTextTrackCuePauseOnExitPropertyInfo +data DOMTextTrackCuePositionPropertyInfo +data DOMTextTrackCueSizePropertyInfo +data DOMTextTrackCueSnapToLinesPropertyInfo +data DOMTextTrackCueStartTimePropertyInfo +data DOMTextTrackCueTextPropertyInfo +data DOMTextTrackCueTrackPropertyInfo +data DOMTextTrackCueVerticalPropertyInfo diff --git a/GI/WebKit/Objects/DOMTextTrackCueList.hs b/GI/WebKit/Objects/DOMTextTrackCueList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackCueList.hs @@ -0,0 +1,181 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMTextTrackCueList + ( + +-- * Exported types + DOMTextTrackCueList(..) , + DOMTextTrackCueListK , + toDOMTextTrackCueList , + noDOMTextTrackCueList , + + + -- * Methods +-- ** dOMTextTrackCueListGetCueById + dOMTextTrackCueListGetCueById , + + +-- ** dOMTextTrackCueListGetLength + dOMTextTrackCueListGetLength , + + +-- ** dOMTextTrackCueListItem + dOMTextTrackCueListItem , + + + + + -- * Properties +-- ** Length + DOMTextTrackCueListLengthPropertyInfo , + getDOMTextTrackCueListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTextTrackCueList = DOMTextTrackCueList (ForeignPtr DOMTextTrackCueList) +foreign import ccall "webkit_dom_text_track_cue_list_get_type" + c_webkit_dom_text_track_cue_list_get_type :: IO GType + +type instance ParentTypes DOMTextTrackCueList = DOMTextTrackCueListParentTypes +type DOMTextTrackCueListParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMTextTrackCueList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_text_track_cue_list_get_type + + +class GObject o => DOMTextTrackCueListK o +instance (GObject o, IsDescendantOf DOMTextTrackCueList o) => DOMTextTrackCueListK o + +toDOMTextTrackCueList :: DOMTextTrackCueListK o => o -> IO DOMTextTrackCueList +toDOMTextTrackCueList = unsafeCastTo DOMTextTrackCueList + +noDOMTextTrackCueList :: Maybe DOMTextTrackCueList +noDOMTextTrackCueList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTextTrackCueListLength :: (MonadIO m, DOMTextTrackCueListK o) => o -> m Word64 +getDOMTextTrackCueListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTextTrackCueListLengthPropertyInfo +instance AttrInfo DOMTextTrackCueListLengthPropertyInfo where + type AttrAllowedOps DOMTextTrackCueListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCueListLengthPropertyInfo = DOMTextTrackCueListK + type AttrGetType DOMTextTrackCueListLengthPropertyInfo = Word64 + type AttrLabel DOMTextTrackCueListLengthPropertyInfo = "DOMTextTrackCueList::length" + attrGet _ = getDOMTextTrackCueListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTextTrackCueList = DOMTextTrackCueListAttributeList +type DOMTextTrackCueListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackCueListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTextTrackCueList = DOMTextTrackCueListSignalList +type DOMTextTrackCueListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTextTrackCueList::get_cue_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrackCue" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_list_get_cue_by_id" webkit_dom_text_track_cue_list_get_cue_by_id :: + Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList" + CString -> -- id : TBasicType TUTF8 + IO (Ptr DOMTextTrackCue) + + +dOMTextTrackCueListGetCueById :: + (MonadIO m, DOMTextTrackCueListK a) => + a -> -- _obj + T.Text -> -- id + m DOMTextTrackCue +dOMTextTrackCueListGetCueById _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + id' <- textToCString id + result <- webkit_dom_text_track_cue_list_get_cue_by_id _obj' id' + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_list_get_cue_by_id" result + result' <- (newObject DOMTextTrackCue) result + touchManagedPtr _obj + freeMem id' + return result' + +-- method DOMTextTrackCueList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_list_get_length" webkit_dom_text_track_cue_list_get_length :: + Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList" + IO Word64 + + +dOMTextTrackCueListGetLength :: + (MonadIO m, DOMTextTrackCueListK a) => + a -> -- _obj + m Word64 +dOMTextTrackCueListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMTextTrackCueList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrackCue" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_cue_list_item" webkit_dom_text_track_cue_list_item :: + Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMTextTrackCue) + + +dOMTextTrackCueListItem :: + (MonadIO m, DOMTextTrackCueListK a) => + a -> -- _obj + Word64 -> -- index + m DOMTextTrackCue +dOMTextTrackCueListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_cue_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_text_track_cue_list_item" result + result' <- (newObject DOMTextTrackCue) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot b/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMTextTrackCueList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTextTrackCueList = DOMTextTrackCueList (ForeignPtr DOMTextTrackCueList) +instance GObject DOMTextTrackCueList where +class GObject o => DOMTextTrackCueListK o +instance (GObject o, IsDescendantOf DOMTextTrackCueList o) => DOMTextTrackCueListK o +data DOMTextTrackCueListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMTextTrackList.hs b/GI/WebKit/Objects/DOMTextTrackList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackList.hs @@ -0,0 +1,218 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMTextTrackList + ( + +-- * Exported types + DOMTextTrackList(..) , + DOMTextTrackListK , + toDOMTextTrackList , + noDOMTextTrackList , + + + -- * Methods +-- ** dOMTextTrackListDispatchEvent + dOMTextTrackListDispatchEvent , + + +-- ** dOMTextTrackListGetLength + dOMTextTrackListGetLength , + + +-- ** dOMTextTrackListGetTrackById + dOMTextTrackListGetTrackById , + + +-- ** dOMTextTrackListItem + dOMTextTrackListItem , + + + + + -- * Properties +-- ** Length + DOMTextTrackListLengthPropertyInfo , + getDOMTextTrackListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTextTrackList = DOMTextTrackList (ForeignPtr DOMTextTrackList) +foreign import ccall "webkit_dom_text_track_list_get_type" + c_webkit_dom_text_track_list_get_type :: IO GType + +type instance ParentTypes DOMTextTrackList = DOMTextTrackListParentTypes +type DOMTextTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMTextTrackList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_text_track_list_get_type + + +class GObject o => DOMTextTrackListK o +instance (GObject o, IsDescendantOf DOMTextTrackList o) => DOMTextTrackListK o + +toDOMTextTrackList :: DOMTextTrackListK o => o -> IO DOMTextTrackList +toDOMTextTrackList = unsafeCastTo DOMTextTrackList + +noDOMTextTrackList :: Maybe DOMTextTrackList +noDOMTextTrackList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m Word64 +getDOMTextTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTextTrackListLengthPropertyInfo +instance AttrInfo DOMTextTrackListLengthPropertyInfo where + type AttrAllowedOps DOMTextTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackListLengthPropertyInfo = DOMTextTrackListK + type AttrGetType DOMTextTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMTextTrackListLengthPropertyInfo = "DOMTextTrackList::length" + attrGet _ = getDOMTextTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTextTrackList = DOMTextTrackListAttributeList +type DOMTextTrackListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTextTrackList = DOMTextTrackListSignalList +type DOMTextTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTextTrackList::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_list_dispatch_event" webkit_dom_text_track_list_dispatch_event :: + Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMTextTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMTextTrackListDispatchEvent :: + (MonadIO m, DOMTextTrackListK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMTextTrackListDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_text_track_list_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMTextTrackList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_list_get_length" webkit_dom_text_track_list_get_length :: + Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" + IO Word64 + + +dOMTextTrackListGetLength :: + (MonadIO m, DOMTextTrackListK a) => + a -> -- _obj + m Word64 +dOMTextTrackListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMTextTrackList::get_track_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_list_get_track_by_id" webkit_dom_text_track_list_get_track_by_id :: + Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" + CString -> -- id : TBasicType TUTF8 + IO (Ptr DOMTextTrack) + + +dOMTextTrackListGetTrackById :: + (MonadIO m, DOMTextTrackListK a) => + a -> -- _obj + T.Text -> -- id + m DOMTextTrack +dOMTextTrackListGetTrackById _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + id' <- textToCString id + result <- webkit_dom_text_track_list_get_track_by_id _obj' id' + checkUnexpectedReturnNULL "webkit_dom_text_track_list_get_track_by_id" result + result' <- (wrapObject DOMTextTrack) result + touchManagedPtr _obj + freeMem id' + return result' + +-- method DOMTextTrackList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMTextTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_text_track_list_item" webkit_dom_text_track_list_item :: + Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMTextTrack) + + +dOMTextTrackListItem :: + (MonadIO m, DOMTextTrackListK a) => + a -> -- _obj + Word64 -> -- index + m DOMTextTrack +dOMTextTrackListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_text_track_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_text_track_list_item" result + result' <- (wrapObject DOMTextTrack) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMTextTrackList.hs-boot b/GI/WebKit/Objects/DOMTextTrackList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTextTrackList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMTextTrackList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTextTrackList = DOMTextTrackList (ForeignPtr DOMTextTrackList) +instance GObject DOMTextTrackList where +class GObject o => DOMTextTrackListK o +instance (GObject o, IsDescendantOf DOMTextTrackList o) => DOMTextTrackListK o +data DOMTextTrackListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMTimeRanges.hs b/GI/WebKit/Objects/DOMTimeRanges.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTimeRanges.hs @@ -0,0 +1,187 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMTimeRanges + ( + +-- * Exported types + DOMTimeRanges(..) , + DOMTimeRangesK , + toDOMTimeRanges , + noDOMTimeRanges , + + + -- * Methods +-- ** dOMTimeRangesEnd + dOMTimeRangesEnd , + + +-- ** dOMTimeRangesGetLength + dOMTimeRangesGetLength , + + +-- ** dOMTimeRangesStart + dOMTimeRangesStart , + + + + + -- * Properties +-- ** Length + DOMTimeRangesLengthPropertyInfo , + getDOMTimeRangesLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTimeRanges = DOMTimeRanges (ForeignPtr DOMTimeRanges) +foreign import ccall "webkit_dom_time_ranges_get_type" + c_webkit_dom_time_ranges_get_type :: IO GType + +type instance ParentTypes DOMTimeRanges = DOMTimeRangesParentTypes +type DOMTimeRangesParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMTimeRanges where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_time_ranges_get_type + + +class GObject o => DOMTimeRangesK o +instance (GObject o, IsDescendantOf DOMTimeRanges o) => DOMTimeRangesK o + +toDOMTimeRanges :: DOMTimeRangesK o => o -> IO DOMTimeRanges +toDOMTimeRanges = unsafeCastTo DOMTimeRanges + +noDOMTimeRanges :: Maybe DOMTimeRanges +noDOMTimeRanges = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m Word64 +getDOMTimeRangesLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTimeRangesLengthPropertyInfo +instance AttrInfo DOMTimeRangesLengthPropertyInfo where + type AttrAllowedOps DOMTimeRangesLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTimeRangesLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTimeRangesLengthPropertyInfo = DOMTimeRangesK + type AttrGetType DOMTimeRangesLengthPropertyInfo = Word64 + type AttrLabel DOMTimeRangesLengthPropertyInfo = "DOMTimeRanges::length" + attrGet _ = getDOMTimeRangesLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTimeRanges = DOMTimeRangesAttributeList +type DOMTimeRangesAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTimeRangesLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTimeRanges = DOMTimeRangesSignalList +type DOMTimeRangesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTimeRanges::end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_time_ranges_end" webkit_dom_time_ranges_end :: + Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CDouble + + +dOMTimeRangesEnd :: + (MonadIO m, DOMTimeRangesK a) => + a -> -- _obj + Word64 -> -- index + m Double +dOMTimeRangesEnd _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_time_ranges_end _obj' index + let result' = realToFrac result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMTimeRanges::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_time_ranges_get_length" webkit_dom_time_ranges_get_length :: + Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" + IO Word64 + + +dOMTimeRangesGetLength :: + (MonadIO m, DOMTimeRangesK a) => + a -> -- _obj + m Word64 +dOMTimeRangesGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_time_ranges_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMTimeRanges::start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_time_ranges_start" webkit_dom_time_ranges_start :: + Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CDouble + + +dOMTimeRangesStart :: + (MonadIO m, DOMTimeRangesK a) => + a -> -- _obj + Word64 -> -- index + m Double +dOMTimeRangesStart _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_time_ranges_start _obj' index + let result' = realToFrac result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMTimeRanges.hs-boot b/GI/WebKit/Objects/DOMTimeRanges.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTimeRanges.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMTimeRanges where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTimeRanges = DOMTimeRanges (ForeignPtr DOMTimeRanges) +instance GObject DOMTimeRanges where +class GObject o => DOMTimeRangesK o +instance (GObject o, IsDescendantOf DOMTimeRanges o) => DOMTimeRangesK o +data DOMTimeRangesLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMTouch.hs b/GI/WebKit/Objects/DOMTouch.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTouch.hs @@ -0,0 +1,680 @@ + +{- | +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.WebKit.Objects.DOMTouch + ( + +-- * Exported types + DOMTouch(..) , + DOMTouchK , + toDOMTouch , + noDOMTouch , + + + -- * Methods +-- ** dOMTouchGetClientX + dOMTouchGetClientX , + + +-- ** dOMTouchGetClientY + dOMTouchGetClientY , + + +-- ** dOMTouchGetIdentifier + dOMTouchGetIdentifier , + + +-- ** dOMTouchGetPageX + dOMTouchGetPageX , + + +-- ** dOMTouchGetPageY + dOMTouchGetPageY , + + +-- ** dOMTouchGetScreenX + dOMTouchGetScreenX , + + +-- ** dOMTouchGetScreenY + dOMTouchGetScreenY , + + +-- ** dOMTouchGetTarget + dOMTouchGetTarget , + + +-- ** dOMTouchGetWebkitForce + dOMTouchGetWebkitForce , + + +-- ** dOMTouchGetWebkitRadiusX + dOMTouchGetWebkitRadiusX , + + +-- ** dOMTouchGetWebkitRadiusY + dOMTouchGetWebkitRadiusY , + + +-- ** dOMTouchGetWebkitRotationAngle + dOMTouchGetWebkitRotationAngle , + + + + + -- * Properties +-- ** ClientX + DOMTouchClientXPropertyInfo , + getDOMTouchClientX , + + +-- ** ClientY + DOMTouchClientYPropertyInfo , + getDOMTouchClientY , + + +-- ** Identifier + DOMTouchIdentifierPropertyInfo , + getDOMTouchIdentifier , + + +-- ** PageX + DOMTouchPageXPropertyInfo , + getDOMTouchPageX , + + +-- ** PageY + DOMTouchPageYPropertyInfo , + getDOMTouchPageY , + + +-- ** ScreenX + DOMTouchScreenXPropertyInfo , + getDOMTouchScreenX , + + +-- ** ScreenY + DOMTouchScreenYPropertyInfo , + getDOMTouchScreenY , + + +-- ** Target + DOMTouchTargetPropertyInfo , + getDOMTouchTarget , + + +-- ** WebkitForce + DOMTouchWebkitForcePropertyInfo , + getDOMTouchWebkitForce , + + +-- ** WebkitRadiusX + DOMTouchWebkitRadiusXPropertyInfo , + getDOMTouchWebkitRadiusX , + + +-- ** WebkitRadiusY + DOMTouchWebkitRadiusYPropertyInfo , + getDOMTouchWebkitRadiusY , + + +-- ** WebkitRotationAngle + DOMTouchWebkitRotationAnglePropertyInfo , + getDOMTouchWebkitRotationAngle , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTouch = DOMTouch (ForeignPtr DOMTouch) +foreign import ccall "webkit_dom_touch_get_type" + c_webkit_dom_touch_get_type :: IO GType + +type instance ParentTypes DOMTouch = DOMTouchParentTypes +type DOMTouchParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMTouch where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_touch_get_type + + +class GObject o => DOMTouchK o +instance (GObject o, IsDescendantOf DOMTouch o) => DOMTouchK o + +toDOMTouch :: DOMTouchK o => o -> IO DOMTouch +toDOMTouch = unsafeCastTo DOMTouch + +noDOMTouch :: Maybe DOMTouch +noDOMTouch = Nothing + +-- VVV Prop "client-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchClientX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" + +data DOMTouchClientXPropertyInfo +instance AttrInfo DOMTouchClientXPropertyInfo where + type AttrAllowedOps DOMTouchClientXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchClientXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchClientXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchClientXPropertyInfo = Int64 + type AttrLabel DOMTouchClientXPropertyInfo = "DOMTouch::client-x" + attrGet _ = getDOMTouchClientX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchClientY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" + +data DOMTouchClientYPropertyInfo +instance AttrInfo DOMTouchClientYPropertyInfo where + type AttrAllowedOps DOMTouchClientYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchClientYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchClientYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchClientYPropertyInfo = Int64 + type AttrLabel DOMTouchClientYPropertyInfo = "DOMTouch::client-y" + attrGet _ = getDOMTouchClientY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "identifier" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTouchIdentifier :: (MonadIO m, DOMTouchK o) => o -> m Word64 +getDOMTouchIdentifier obj = liftIO $ getObjectPropertyUInt64 obj "identifier" + +data DOMTouchIdentifierPropertyInfo +instance AttrInfo DOMTouchIdentifierPropertyInfo where + type AttrAllowedOps DOMTouchIdentifierPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchIdentifierPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchIdentifierPropertyInfo = DOMTouchK + type AttrGetType DOMTouchIdentifierPropertyInfo = Word64 + type AttrLabel DOMTouchIdentifierPropertyInfo = "DOMTouch::identifier" + attrGet _ = getDOMTouchIdentifier + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchPageX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" + +data DOMTouchPageXPropertyInfo +instance AttrInfo DOMTouchPageXPropertyInfo where + type AttrAllowedOps DOMTouchPageXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchPageXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchPageXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchPageXPropertyInfo = Int64 + type AttrLabel DOMTouchPageXPropertyInfo = "DOMTouch::page-x" + attrGet _ = getDOMTouchPageX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchPageY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" + +data DOMTouchPageYPropertyInfo +instance AttrInfo DOMTouchPageYPropertyInfo where + type AttrAllowedOps DOMTouchPageYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchPageYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchPageYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchPageYPropertyInfo = Int64 + type AttrLabel DOMTouchPageYPropertyInfo = "DOMTouch::page-y" + attrGet _ = getDOMTouchPageY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchScreenX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMTouchScreenXPropertyInfo +instance AttrInfo DOMTouchScreenXPropertyInfo where + type AttrAllowedOps DOMTouchScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchScreenXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchScreenXPropertyInfo = Int64 + type AttrLabel DOMTouchScreenXPropertyInfo = "DOMTouch::screen-x" + attrGet _ = getDOMTouchScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchScreenY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMTouchScreenYPropertyInfo +instance AttrInfo DOMTouchScreenYPropertyInfo where + type AttrAllowedOps DOMTouchScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchScreenYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchScreenYPropertyInfo = Int64 + type AttrLabel DOMTouchScreenYPropertyInfo = "DOMTouch::screen-y" + attrGet _ = getDOMTouchScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMTouchTarget :: (MonadIO m, DOMTouchK o) => o -> m DOMEventTarget +getDOMTouchTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget + +data DOMTouchTargetPropertyInfo +instance AttrInfo DOMTouchTargetPropertyInfo where + type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchTargetPropertyInfo = DOMTouchK + type AttrGetType DOMTouchTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMTouchTargetPropertyInfo = "DOMTouch::target" + attrGet _ = getDOMTouchTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-force" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getDOMTouchWebkitForce :: (MonadIO m, DOMTouchK o) => o -> m Float +getDOMTouchWebkitForce obj = liftIO $ getObjectPropertyFloat obj "webkit-force" + +data DOMTouchWebkitForcePropertyInfo +instance AttrInfo DOMTouchWebkitForcePropertyInfo where + type AttrAllowedOps DOMTouchWebkitForcePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitForcePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitForcePropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitForcePropertyInfo = Float + type AttrLabel DOMTouchWebkitForcePropertyInfo = "DOMTouch::webkit-force" + attrGet _ = getDOMTouchWebkitForce + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-radius-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRadiusX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-x" + +data DOMTouchWebkitRadiusXPropertyInfo +instance AttrInfo DOMTouchWebkitRadiusXPropertyInfo where + type AttrAllowedOps DOMTouchWebkitRadiusXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = Int64 + type AttrLabel DOMTouchWebkitRadiusXPropertyInfo = "DOMTouch::webkit-radius-x" + attrGet _ = getDOMTouchWebkitRadiusX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-radius-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRadiusY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-y" + +data DOMTouchWebkitRadiusYPropertyInfo +instance AttrInfo DOMTouchWebkitRadiusYPropertyInfo where + type AttrAllowedOps DOMTouchWebkitRadiusYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = Int64 + type AttrLabel DOMTouchWebkitRadiusYPropertyInfo = "DOMTouch::webkit-radius-y" + attrGet _ = getDOMTouchWebkitRadiusY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-rotation-angle" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRotationAngle :: (MonadIO m, DOMTouchK o) => o -> m Float +getDOMTouchWebkitRotationAngle obj = liftIO $ getObjectPropertyFloat obj "webkit-rotation-angle" + +data DOMTouchWebkitRotationAnglePropertyInfo +instance AttrInfo DOMTouchWebkitRotationAnglePropertyInfo where + type AttrAllowedOps DOMTouchWebkitRotationAnglePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRotationAnglePropertyInfo = Float + type AttrLabel DOMTouchWebkitRotationAnglePropertyInfo = "DOMTouch::webkit-rotation-angle" + attrGet _ = getDOMTouchWebkitRotationAngle + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTouch = DOMTouchAttributeList +type DOMTouchAttributeList = ('[ '("client-x", DOMTouchClientXPropertyInfo), '("client-y", DOMTouchClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("identifier", DOMTouchIdentifierPropertyInfo), '("page-x", DOMTouchPageXPropertyInfo), '("page-y", DOMTouchPageYPropertyInfo), '("screen-x", DOMTouchScreenXPropertyInfo), '("screen-y", DOMTouchScreenYPropertyInfo), '("target", DOMTouchTargetPropertyInfo), '("webkit-force", DOMTouchWebkitForcePropertyInfo), '("webkit-radius-x", DOMTouchWebkitRadiusXPropertyInfo), '("webkit-radius-y", DOMTouchWebkitRadiusYPropertyInfo), '("webkit-rotation-angle", DOMTouchWebkitRotationAnglePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTouch = DOMTouchSignalList +type DOMTouchSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTouch::get_client_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_client_x" webkit_dom_touch_get_client_x :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetClientX :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetClientX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_client_x _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_client_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_client_y" webkit_dom_touch_get_client_y :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetClientY :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetClientY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_client_y _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_identifier +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_identifier" webkit_dom_touch_get_identifier :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Word64 + + +dOMTouchGetIdentifier :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Word64 +dOMTouchGetIdentifier _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_identifier _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_page_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_page_x" webkit_dom_touch_get_page_x :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetPageX :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetPageX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_page_x _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_page_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_page_y" webkit_dom_touch_get_page_y :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetPageY :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetPageY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_page_y _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_screen_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_screen_x" webkit_dom_touch_get_screen_x :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetScreenX :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetScreenX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_screen_x _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_screen_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_screen_y" webkit_dom_touch_get_screen_y :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetScreenY :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetScreenY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_screen_y _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMEventTarget" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_target" webkit_dom_touch_get_target :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO (Ptr DOMEventTarget) + + +dOMTouchGetTarget :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m DOMEventTarget +dOMTouchGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_target _obj' + checkUnexpectedReturnNULL "webkit_dom_touch_get_target" result + result' <- (wrapObject DOMEventTarget) result + touchManagedPtr _obj + return result' + +-- method DOMTouch::get_webkit_force +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_webkit_force" webkit_dom_touch_get_webkit_force :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO CFloat + + +dOMTouchGetWebkitForce :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Float +dOMTouchGetWebkitForce _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_webkit_force _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMTouch::get_webkit_radius_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_webkit_radius_x" webkit_dom_touch_get_webkit_radius_x :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetWebkitRadiusX :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetWebkitRadiusX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_webkit_radius_x _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_webkit_radius_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_webkit_radius_y" webkit_dom_touch_get_webkit_radius_y :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO Int64 + + +dOMTouchGetWebkitRadiusY :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Int64 +dOMTouchGetWebkitRadiusY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_webkit_radius_y _obj' + touchManagedPtr _obj + return result + +-- method DOMTouch::get_webkit_rotation_angle +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_touch_get_webkit_rotation_angle" webkit_dom_touch_get_webkit_rotation_angle :: + Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" + IO CFloat + + +dOMTouchGetWebkitRotationAngle :: + (MonadIO m, DOMTouchK a) => + a -> -- _obj + m Float +dOMTouchGetWebkitRotationAngle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_touch_get_webkit_rotation_angle _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMTouch.hs-boot b/GI/WebKit/Objects/DOMTouch.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTouch.hs-boot @@ -0,0 +1,25 @@ +module GI.WebKit.Objects.DOMTouch where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTouch = DOMTouch (ForeignPtr DOMTouch) +instance GObject DOMTouch where +class GObject o => DOMTouchK o +instance (GObject o, IsDescendantOf DOMTouch o) => DOMTouchK o +data DOMTouchClientXPropertyInfo +data DOMTouchClientYPropertyInfo +data DOMTouchIdentifierPropertyInfo +data DOMTouchPageXPropertyInfo +data DOMTouchPageYPropertyInfo +data DOMTouchScreenXPropertyInfo +data DOMTouchScreenYPropertyInfo +data DOMTouchTargetPropertyInfo +data DOMTouchWebkitForcePropertyInfo +data DOMTouchWebkitRadiusXPropertyInfo +data DOMTouchWebkitRadiusYPropertyInfo +data DOMTouchWebkitRotationAnglePropertyInfo diff --git a/GI/WebKit/Objects/DOMTrackEvent.hs b/GI/WebKit/Objects/DOMTrackEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTrackEvent.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMTrackEvent + ( + +-- * Exported types + DOMTrackEvent(..) , + DOMTrackEventK , + toDOMTrackEvent , + noDOMTrackEvent , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTrackEvent = DOMTrackEvent (ForeignPtr DOMTrackEvent) +foreign import ccall "webkit_dom_track_event_get_type" + c_webkit_dom_track_event_get_type :: IO GType + +type instance ParentTypes DOMTrackEvent = DOMTrackEventParentTypes +type DOMTrackEventParentTypes = '[DOMEvent, DOMObject, GObject.Object] + +instance GObject DOMTrackEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_track_event_get_type + + +class GObject o => DOMTrackEventK o +instance (GObject o, IsDescendantOf DOMTrackEvent o) => DOMTrackEventK o + +toDOMTrackEvent :: DOMTrackEventK o => o -> IO DOMTrackEvent +toDOMTrackEvent = unsafeCastTo DOMTrackEvent + +noDOMTrackEvent :: Maybe DOMTrackEvent +noDOMTrackEvent = Nothing + +type instance AttributeList DOMTrackEvent = DOMTrackEventAttributeList +type DOMTrackEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTrackEvent = DOMTrackEventSignalList +type DOMTrackEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/DOMTrackEvent.hs-boot b/GI/WebKit/Objects/DOMTrackEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTrackEvent.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMTrackEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTrackEvent = DOMTrackEvent (ForeignPtr DOMTrackEvent) +instance GObject DOMTrackEvent where +class GObject o => DOMTrackEventK o +instance (GObject o, IsDescendantOf DOMTrackEvent o) => DOMTrackEventK o diff --git a/GI/WebKit/Objects/DOMTreeWalker.hs b/GI/WebKit/Objects/DOMTreeWalker.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTreeWalker.hs @@ -0,0 +1,573 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMTreeWalker + ( + +-- * Exported types + DOMTreeWalker(..) , + DOMTreeWalkerK , + toDOMTreeWalker , + noDOMTreeWalker , + + + -- * Methods +-- ** dOMTreeWalkerFirstChild + dOMTreeWalkerFirstChild , + + +-- ** dOMTreeWalkerGetCurrentNode + dOMTreeWalkerGetCurrentNode , + + +-- ** dOMTreeWalkerGetExpandEntityReferences + dOMTreeWalkerGetExpandEntityReferences , + + +-- ** dOMTreeWalkerGetFilter + dOMTreeWalkerGetFilter , + + +-- ** dOMTreeWalkerGetRoot + dOMTreeWalkerGetRoot , + + +-- ** dOMTreeWalkerGetWhatToShow + dOMTreeWalkerGetWhatToShow , + + +-- ** dOMTreeWalkerLastChild + dOMTreeWalkerLastChild , + + +-- ** dOMTreeWalkerNextNode + dOMTreeWalkerNextNode , + + +-- ** dOMTreeWalkerNextSibling + dOMTreeWalkerNextSibling , + + +-- ** dOMTreeWalkerParentNode + dOMTreeWalkerParentNode , + + +-- ** dOMTreeWalkerPreviousNode + dOMTreeWalkerPreviousNode , + + +-- ** dOMTreeWalkerPreviousSibling + dOMTreeWalkerPreviousSibling , + + +-- ** dOMTreeWalkerSetCurrentNode + dOMTreeWalkerSetCurrentNode , + + + + + -- * Properties +-- ** CurrentNode + DOMTreeWalkerCurrentNodePropertyInfo , + getDOMTreeWalkerCurrentNode , + + +-- ** ExpandEntityReferences + DOMTreeWalkerExpandEntityReferencesPropertyInfo, + getDOMTreeWalkerExpandEntityReferences , + + +-- ** Filter + DOMTreeWalkerFilterPropertyInfo , + getDOMTreeWalkerFilter , + + +-- ** Root + DOMTreeWalkerRootPropertyInfo , + getDOMTreeWalkerRoot , + + +-- ** WhatToShow + DOMTreeWalkerWhatToShowPropertyInfo , + getDOMTreeWalkerWhatToShow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMTreeWalker = DOMTreeWalker (ForeignPtr DOMTreeWalker) +foreign import ccall "webkit_dom_tree_walker_get_type" + c_webkit_dom_tree_walker_get_type :: IO GType + +type instance ParentTypes DOMTreeWalker = DOMTreeWalkerParentTypes +type DOMTreeWalkerParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMTreeWalker where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_tree_walker_get_type + + +class GObject o => DOMTreeWalkerK o +instance (GObject o, IsDescendantOf DOMTreeWalker o) => DOMTreeWalkerK o + +toDOMTreeWalker :: DOMTreeWalkerK o => o -> IO DOMTreeWalker +toDOMTreeWalker = unsafeCastTo DOMTreeWalker + +noDOMTreeWalker :: Maybe DOMTreeWalker +noDOMTreeWalker = Nothing + +-- VVV Prop "current-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode +getDOMTreeWalkerCurrentNode obj = liftIO $ getObjectPropertyObject obj "current-node" DOMNode + +data DOMTreeWalkerCurrentNodePropertyInfo +instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where + type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode + type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "DOMTreeWalker::current-node" + attrGet _ = getDOMTreeWalkerCurrentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "expand-entity-references" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool +getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" + +data DOMTreeWalkerExpandEntityReferencesPropertyInfo +instance AttrInfo DOMTreeWalkerExpandEntityReferencesPropertyInfo where + type AttrAllowedOps DOMTreeWalkerExpandEntityReferencesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerExpandEntityReferencesPropertyInfo = Bool + type AttrLabel DOMTreeWalkerExpandEntityReferencesPropertyInfo = "DOMTreeWalker::expand-entity-references" + attrGet _ = getDOMTreeWalkerExpandEntityReferences + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filter" + -- Type: TInterface "WebKit" "DOMNodeFilter" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNodeFilter +getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter + +data DOMTreeWalkerFilterPropertyInfo +instance AttrInfo DOMTreeWalkerFilterPropertyInfo where + type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerFilterPropertyInfo = DOMNodeFilter + type AttrLabel DOMTreeWalkerFilterPropertyInfo = "DOMTreeWalker::filter" + attrGet _ = getDOMTreeWalkerFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "root" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode +getDOMTreeWalkerRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode + +data DOMTreeWalkerRootPropertyInfo +instance AttrInfo DOMTreeWalkerRootPropertyInfo where + type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode + type AttrLabel DOMTreeWalkerRootPropertyInfo = "DOMTreeWalker::root" + attrGet _ = getDOMTreeWalkerRoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "what-to-show" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m Word64 +getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" + +data DOMTreeWalkerWhatToShowPropertyInfo +instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where + type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = Word64 + type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "DOMTreeWalker::what-to-show" + attrGet _ = getDOMTreeWalkerWhatToShow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTreeWalker = DOMTreeWalkerAttributeList +type DOMTreeWalkerAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-node", DOMTreeWalkerCurrentNodePropertyInfo), '("expand-entity-references", DOMTreeWalkerExpandEntityReferencesPropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("what-to-show", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMTreeWalker = DOMTreeWalkerSignalList +type DOMTreeWalkerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMTreeWalker::first_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_first_child" webkit_dom_tree_walker_first_child :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerFirstChild :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerFirstChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_first_child _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_first_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::get_current_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_get_current_node" webkit_dom_tree_walker_get_current_node :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerGetCurrentNode :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerGetCurrentNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_get_current_node _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_current_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::get_expand_entity_references +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_get_expand_entity_references" webkit_dom_tree_walker_get_expand_entity_references :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO CInt + + +dOMTreeWalkerGetExpandEntityReferences :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m Bool +dOMTreeWalkerGetExpandEntityReferences _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_get_expand_entity_references _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::get_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeFilter" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_get_filter" webkit_dom_tree_walker_get_filter :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNodeFilter) + + +dOMTreeWalkerGetFilter :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNodeFilter +dOMTreeWalkerGetFilter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_get_filter _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_filter" result + result' <- (wrapObject DOMNodeFilter) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::get_root +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_get_root" webkit_dom_tree_walker_get_root :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerGetRoot :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerGetRoot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_get_root _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_root" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::get_what_to_show +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_get_what_to_show" webkit_dom_tree_walker_get_what_to_show :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO Word64 + + +dOMTreeWalkerGetWhatToShow :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m Word64 +dOMTreeWalkerGetWhatToShow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_get_what_to_show _obj' + touchManagedPtr _obj + return result + +-- method DOMTreeWalker::last_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_last_child" webkit_dom_tree_walker_last_child :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerLastChild :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerLastChild _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_last_child _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_last_child" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::next_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_next_node" webkit_dom_tree_walker_next_node :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerNextNode :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerNextNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_next_node _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_next_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::next_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_next_sibling" webkit_dom_tree_walker_next_sibling :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerNextSibling :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerNextSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_next_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_next_sibling" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::parent_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_parent_node" webkit_dom_tree_walker_parent_node :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerParentNode :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerParentNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_parent_node _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_parent_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::previous_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_previous_node" webkit_dom_tree_walker_previous_node :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerPreviousNode :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerPreviousNode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_previous_node _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_previous_node" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::previous_sibling +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_previous_sibling" webkit_dom_tree_walker_previous_sibling :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + IO (Ptr DOMNode) + + +dOMTreeWalkerPreviousSibling :: + (MonadIO m, DOMTreeWalkerK a) => + a -> -- _obj + m DOMNode +dOMTreeWalkerPreviousSibling _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_tree_walker_previous_sibling _obj' + checkUnexpectedReturnNULL "webkit_dom_tree_walker_previous_sibling" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + +-- method DOMTreeWalker::set_current_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_tree_walker_set_current_node" webkit_dom_tree_walker_set_current_node :: + Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" + Ptr DOMNode -> -- value : TInterface "WebKit" "DOMNode" + Ptr (Ptr GError) -> -- error + IO () + + +dOMTreeWalkerSetCurrentNode :: + (MonadIO m, DOMTreeWalkerK a, DOMNodeK b) => + a -> -- _obj + b -> -- value + m () +dOMTreeWalkerSetCurrentNode _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrCastPtr value + onException (do + propagateGError $ webkit_dom_tree_walker_set_current_node _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMTreeWalker.hs-boot b/GI/WebKit/Objects/DOMTreeWalker.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMTreeWalker.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMTreeWalker where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMTreeWalker = DOMTreeWalker (ForeignPtr DOMTreeWalker) +instance GObject DOMTreeWalker where +class GObject o => DOMTreeWalkerK o +instance (GObject o, IsDescendantOf DOMTreeWalker o) => DOMTreeWalkerK o +data DOMTreeWalkerCurrentNodePropertyInfo +data DOMTreeWalkerExpandEntityReferencesPropertyInfo +data DOMTreeWalkerFilterPropertyInfo +data DOMTreeWalkerRootPropertyInfo +data DOMTreeWalkerWhatToShowPropertyInfo diff --git a/GI/WebKit/Objects/DOMUIEvent.hs b/GI/WebKit/Objects/DOMUIEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMUIEvent.hs @@ -0,0 +1,569 @@ + +{- | +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.WebKit.Objects.DOMUIEvent + ( + +-- * Exported types + DOMUIEvent(..) , + DOMUIEventK , + toDOMUIEvent , + noDOMUIEvent , + + + -- * Methods +-- ** dOMUIEventGetCharCode + dOMUIEventGetCharCode , + + +-- ** dOMUIEventGetDetail + dOMUIEventGetDetail , + + +-- ** dOMUIEventGetKeyCode + dOMUIEventGetKeyCode , + + +-- ** dOMUIEventGetLayerX + dOMUIEventGetLayerX , + + +-- ** dOMUIEventGetLayerY + dOMUIEventGetLayerY , + + +-- ** dOMUIEventGetPageX + dOMUIEventGetPageX , + + +-- ** dOMUIEventGetPageY + dOMUIEventGetPageY , + + +-- ** dOMUIEventGetView + dOMUIEventGetView , + + +-- ** dOMUIEventGetWhich + dOMUIEventGetWhich , + + +-- ** dOMUIEventInitUiEvent + dOMUIEventInitUiEvent , + + + + + -- * Properties +-- ** CharCode + DOMUIEventCharCodePropertyInfo , + getDOMUIEventCharCode , + + +-- ** Detail + DOMUIEventDetailPropertyInfo , + getDOMUIEventDetail , + + +-- ** KeyCode + DOMUIEventKeyCodePropertyInfo , + getDOMUIEventKeyCode , + + +-- ** LayerX + DOMUIEventLayerXPropertyInfo , + getDOMUIEventLayerX , + + +-- ** LayerY + DOMUIEventLayerYPropertyInfo , + getDOMUIEventLayerY , + + +-- ** PageX + DOMUIEventPageXPropertyInfo , + getDOMUIEventPageX , + + +-- ** PageY + DOMUIEventPageYPropertyInfo , + getDOMUIEventPageY , + + +-- ** View + DOMUIEventViewPropertyInfo , + getDOMUIEventView , + + +-- ** Which + DOMUIEventWhichPropertyInfo , + getDOMUIEventWhich , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent) +foreign import ccall "webkit_dom_ui_event_get_type" + c_webkit_dom_ui_event_get_type :: IO GType + +type instance ParentTypes DOMUIEvent = DOMUIEventParentTypes +type DOMUIEventParentTypes = '[DOMEvent, DOMObject, GObject.Object] + +instance GObject DOMUIEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_ui_event_get_type + + +class GObject o => DOMUIEventK o +instance (GObject o, IsDescendantOf DOMUIEvent o) => DOMUIEventK o + +toDOMUIEvent :: DOMUIEventK o => o -> IO DOMUIEvent +toDOMUIEvent = unsafeCastTo DOMUIEvent + +noDOMUIEvent :: Maybe DOMUIEvent +noDOMUIEvent = Nothing + +-- VVV Prop "char-code" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code" + +data DOMUIEventCharCodePropertyInfo +instance AttrInfo DOMUIEventCharCodePropertyInfo where + type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventCharCodePropertyInfo = Int64 + type AttrLabel DOMUIEventCharCodePropertyInfo = "DOMUIEvent::char-code" + attrGet _ = getDOMUIEventCharCode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "detail" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail" + +data DOMUIEventDetailPropertyInfo +instance AttrInfo DOMUIEventDetailPropertyInfo where + type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventDetailPropertyInfo = Int64 + type AttrLabel DOMUIEventDetailPropertyInfo = "DOMUIEvent::detail" + attrGet _ = getDOMUIEventDetail + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-code" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code" + +data DOMUIEventKeyCodePropertyInfo +instance AttrInfo DOMUIEventKeyCodePropertyInfo where + type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64 + type AttrLabel DOMUIEventKeyCodePropertyInfo = "DOMUIEvent::key-code" + attrGet _ = getDOMUIEventKeyCode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "layer-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x" + +data DOMUIEventLayerXPropertyInfo +instance AttrInfo DOMUIEventLayerXPropertyInfo where + type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventLayerXPropertyInfo = Int64 + type AttrLabel DOMUIEventLayerXPropertyInfo = "DOMUIEvent::layer-x" + attrGet _ = getDOMUIEventLayerX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "layer-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y" + +data DOMUIEventLayerYPropertyInfo +instance AttrInfo DOMUIEventLayerYPropertyInfo where + type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventLayerYPropertyInfo = Int64 + type AttrLabel DOMUIEventLayerYPropertyInfo = "DOMUIEvent::layer-y" + attrGet _ = getDOMUIEventLayerY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" + +data DOMUIEventPageXPropertyInfo +instance AttrInfo DOMUIEventPageXPropertyInfo where + type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventPageXPropertyInfo = Int64 + type AttrLabel DOMUIEventPageXPropertyInfo = "DOMUIEvent::page-x" + attrGet _ = getDOMUIEventPageX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" + +data DOMUIEventPageYPropertyInfo +instance AttrInfo DOMUIEventPageYPropertyInfo where + type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventPageYPropertyInfo = Int64 + type AttrLabel DOMUIEventPageYPropertyInfo = "DOMUIEvent::page-y" + attrGet _ = getDOMUIEventPageY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "view" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow +getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow + +data DOMUIEventViewPropertyInfo +instance AttrInfo DOMUIEventViewPropertyInfo where + type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow + type AttrLabel DOMUIEventViewPropertyInfo = "DOMUIEvent::view" + attrGet _ = getDOMUIEventView + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "which" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which" + +data DOMUIEventWhichPropertyInfo +instance AttrInfo DOMUIEventWhichPropertyInfo where + type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventWhichPropertyInfo = Int64 + type AttrLabel DOMUIEventWhichPropertyInfo = "DOMUIEvent::which" + attrGet _ = getDOMUIEventWhich + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMUIEvent = DOMUIEventAttributeList +type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMUIEvent = DOMUIEventSignalList +type DOMUIEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMUIEvent::get_char_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_char_code" webkit_dom_ui_event_get_char_code :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetCharCode :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetCharCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_char_code _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_detail +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_detail" webkit_dom_ui_event_get_detail :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetDetail :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetDetail _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_detail _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_key_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_key_code" webkit_dom_ui_event_get_key_code :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetKeyCode :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetKeyCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_key_code _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_layer_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_layer_x" webkit_dom_ui_event_get_layer_x :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetLayerX :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetLayerX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_layer_x _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_layer_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_layer_y" webkit_dom_ui_event_get_layer_y :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetLayerY :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetLayerY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_layer_y _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_page_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_page_x" webkit_dom_ui_event_get_page_x :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetPageX :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetPageX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_page_x _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_page_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_page_y" webkit_dom_ui_event_get_page_y :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetPageY :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetPageY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_page_y _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::get_view +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDOMWindow" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_view" webkit_dom_ui_event_get_view :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO (Ptr DOMDOMWindow) + + +dOMUIEventGetView :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m DOMDOMWindow +dOMUIEventGetView _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_view _obj' + checkUnexpectedReturnNULL "webkit_dom_ui_event_get_view" result + result' <- (wrapObject DOMDOMWindow) result + touchManagedPtr _obj + return result' + +-- method DOMUIEvent::get_which +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_get_which" webkit_dom_ui_event_get_which :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + IO Int64 + + +dOMUIEventGetWhich :: + (MonadIO m, DOMUIEventK a) => + a -> -- _obj + m Int64 +dOMUIEventGetWhich _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_ui_event_get_which _obj' + touchManagedPtr _obj + return result + +-- method DOMUIEvent::init_ui_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_ui_event_init_ui_event" webkit_dom_ui_event_init_ui_event :: + Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" + CString -> -- type : TBasicType TUTF8 + CInt -> -- canBubble : TBasicType TBoolean + CInt -> -- cancelable : TBasicType TBoolean + Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- detail : TBasicType TInt64 + IO () + + +dOMUIEventInitUiEvent :: + (MonadIO m, DOMUIEventK a, DOMDOMWindowK b) => + a -> -- _obj + T.Text -> -- type + Bool -> -- canBubble + Bool -> -- cancelable + b -> -- view + Int64 -> -- detail + m () +dOMUIEventInitUiEvent _obj type_ canBubble cancelable view detail = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + type_' <- textToCString type_ + let canBubble' = (fromIntegral . fromEnum) canBubble + let cancelable' = (fromIntegral . fromEnum) cancelable + let view' = unsafeManagedPtrCastPtr view + webkit_dom_ui_event_init_ui_event _obj' type_' canBubble' cancelable' view' detail + touchManagedPtr _obj + touchManagedPtr view + freeMem type_' + return () + + diff --git a/GI/WebKit/Objects/DOMUIEvent.hs-boot b/GI/WebKit/Objects/DOMUIEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMUIEvent.hs-boot @@ -0,0 +1,22 @@ +module GI.WebKit.Objects.DOMUIEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent) +instance GObject DOMUIEvent where +class GObject o => DOMUIEventK o +instance (GObject o, IsDescendantOf DOMUIEvent o) => DOMUIEventK o +data DOMUIEventCharCodePropertyInfo +data DOMUIEventDetailPropertyInfo +data DOMUIEventKeyCodePropertyInfo +data DOMUIEventLayerXPropertyInfo +data DOMUIEventLayerYPropertyInfo +data DOMUIEventPageXPropertyInfo +data DOMUIEventPageYPropertyInfo +data DOMUIEventViewPropertyInfo +data DOMUIEventWhichPropertyInfo diff --git a/GI/WebKit/Objects/DOMValidityState.hs b/GI/WebKit/Objects/DOMValidityState.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMValidityState.hs @@ -0,0 +1,584 @@ + +{- | +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.WebKit.Objects.DOMValidityState + ( + +-- * Exported types + DOMValidityState(..) , + DOMValidityStateK , + toDOMValidityState , + noDOMValidityState , + + + -- * Methods +-- ** dOMValidityStateGetBadInput + dOMValidityStateGetBadInput , + + +-- ** dOMValidityStateGetCustomError + dOMValidityStateGetCustomError , + + +-- ** dOMValidityStateGetPatternMismatch + dOMValidityStateGetPatternMismatch , + + +-- ** dOMValidityStateGetRangeOverflow + dOMValidityStateGetRangeOverflow , + + +-- ** dOMValidityStateGetRangeUnderflow + dOMValidityStateGetRangeUnderflow , + + +-- ** dOMValidityStateGetStepMismatch + dOMValidityStateGetStepMismatch , + + +-- ** dOMValidityStateGetTooLong + dOMValidityStateGetTooLong , + + +-- ** dOMValidityStateGetTypeMismatch + dOMValidityStateGetTypeMismatch , + + +-- ** dOMValidityStateGetValid + dOMValidityStateGetValid , + + +-- ** dOMValidityStateGetValueMissing + dOMValidityStateGetValueMissing , + + + + + -- * Properties +-- ** BadInput + DOMValidityStateBadInputPropertyInfo , + getDOMValidityStateBadInput , + + +-- ** CustomError + DOMValidityStateCustomErrorPropertyInfo , + getDOMValidityStateCustomError , + + +-- ** PatternMismatch + DOMValidityStatePatternMismatchPropertyInfo, + getDOMValidityStatePatternMismatch , + + +-- ** RangeOverflow + DOMValidityStateRangeOverflowPropertyInfo, + getDOMValidityStateRangeOverflow , + + +-- ** RangeUnderflow + DOMValidityStateRangeUnderflowPropertyInfo, + getDOMValidityStateRangeUnderflow , + + +-- ** StepMismatch + DOMValidityStateStepMismatchPropertyInfo, + getDOMValidityStateStepMismatch , + + +-- ** TooLong + DOMValidityStateTooLongPropertyInfo , + getDOMValidityStateTooLong , + + +-- ** TypeMismatch + DOMValidityStateTypeMismatchPropertyInfo, + getDOMValidityStateTypeMismatch , + + +-- ** Valid + DOMValidityStateValidPropertyInfo , + getDOMValidityStateValid , + + +-- ** ValueMissing + DOMValidityStateValueMissingPropertyInfo, + getDOMValidityStateValueMissing , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMValidityState = DOMValidityState (ForeignPtr DOMValidityState) +foreign import ccall "webkit_dom_validity_state_get_type" + c_webkit_dom_validity_state_get_type :: IO GType + +type instance ParentTypes DOMValidityState = DOMValidityStateParentTypes +type DOMValidityStateParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMValidityState where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_validity_state_get_type + + +class GObject o => DOMValidityStateK o +instance (GObject o, IsDescendantOf DOMValidityState o) => DOMValidityStateK o + +toDOMValidityState :: DOMValidityStateK o => o -> IO DOMValidityState +toDOMValidityState = unsafeCastTo DOMValidityState + +noDOMValidityState :: Maybe DOMValidityState +noDOMValidityState = Nothing + +-- VVV Prop "bad-input" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateBadInput :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateBadInput obj = liftIO $ getObjectPropertyBool obj "bad-input" + +data DOMValidityStateBadInputPropertyInfo +instance AttrInfo DOMValidityStateBadInputPropertyInfo where + type AttrAllowedOps DOMValidityStateBadInputPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateBadInputPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateBadInputPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateBadInputPropertyInfo = Bool + type AttrLabel DOMValidityStateBadInputPropertyInfo = "DOMValidityState::bad-input" + attrGet _ = getDOMValidityStateBadInput + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "custom-error" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateCustomError :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateCustomError obj = liftIO $ getObjectPropertyBool obj "custom-error" + +data DOMValidityStateCustomErrorPropertyInfo +instance AttrInfo DOMValidityStateCustomErrorPropertyInfo where + type AttrAllowedOps DOMValidityStateCustomErrorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateCustomErrorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateCustomErrorPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateCustomErrorPropertyInfo = Bool + type AttrLabel DOMValidityStateCustomErrorPropertyInfo = "DOMValidityState::custom-error" + attrGet _ = getDOMValidityStateCustomError + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pattern-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStatePatternMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStatePatternMismatch obj = liftIO $ getObjectPropertyBool obj "pattern-mismatch" + +data DOMValidityStatePatternMismatchPropertyInfo +instance AttrInfo DOMValidityStatePatternMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStatePatternMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStatePatternMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStatePatternMismatchPropertyInfo = "DOMValidityState::pattern-mismatch" + attrGet _ = getDOMValidityStatePatternMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-overflow" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateRangeOverflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateRangeOverflow obj = liftIO $ getObjectPropertyBool obj "range-overflow" + +data DOMValidityStateRangeOverflowPropertyInfo +instance AttrInfo DOMValidityStateRangeOverflowPropertyInfo where + type AttrAllowedOps DOMValidityStateRangeOverflowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateRangeOverflowPropertyInfo = Bool + type AttrLabel DOMValidityStateRangeOverflowPropertyInfo = "DOMValidityState::range-overflow" + attrGet _ = getDOMValidityStateRangeOverflow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-underflow" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateRangeUnderflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateRangeUnderflow obj = liftIO $ getObjectPropertyBool obj "range-underflow" + +data DOMValidityStateRangeUnderflowPropertyInfo +instance AttrInfo DOMValidityStateRangeUnderflowPropertyInfo where + type AttrAllowedOps DOMValidityStateRangeUnderflowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateRangeUnderflowPropertyInfo = Bool + type AttrLabel DOMValidityStateRangeUnderflowPropertyInfo = "DOMValidityState::range-underflow" + attrGet _ = getDOMValidityStateRangeUnderflow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "step-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateStepMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateStepMismatch obj = liftIO $ getObjectPropertyBool obj "step-mismatch" + +data DOMValidityStateStepMismatchPropertyInfo +instance AttrInfo DOMValidityStateStepMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStateStepMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateStepMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateStepMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateStepMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStateStepMismatchPropertyInfo = "DOMValidityState::step-mismatch" + attrGet _ = getDOMValidityStateStepMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "too-long" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateTooLong :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateTooLong obj = liftIO $ getObjectPropertyBool obj "too-long" + +data DOMValidityStateTooLongPropertyInfo +instance AttrInfo DOMValidityStateTooLongPropertyInfo where + type AttrAllowedOps DOMValidityStateTooLongPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateTooLongPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateTooLongPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateTooLongPropertyInfo = Bool + type AttrLabel DOMValidityStateTooLongPropertyInfo = "DOMValidityState::too-long" + attrGet _ = getDOMValidityStateTooLong + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateTypeMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateTypeMismatch obj = liftIO $ getObjectPropertyBool obj "type-mismatch" + +data DOMValidityStateTypeMismatchPropertyInfo +instance AttrInfo DOMValidityStateTypeMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStateTypeMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateTypeMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStateTypeMismatchPropertyInfo = "DOMValidityState::type-mismatch" + attrGet _ = getDOMValidityStateTypeMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "valid" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateValid :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateValid obj = liftIO $ getObjectPropertyBool obj "valid" + +data DOMValidityStateValidPropertyInfo +instance AttrInfo DOMValidityStateValidPropertyInfo where + type AttrAllowedOps DOMValidityStateValidPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateValidPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateValidPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateValidPropertyInfo = Bool + type AttrLabel DOMValidityStateValidPropertyInfo = "DOMValidityState::valid" + attrGet _ = getDOMValidityStateValid + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value-missing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateValueMissing :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateValueMissing obj = liftIO $ getObjectPropertyBool obj "value-missing" + +data DOMValidityStateValueMissingPropertyInfo +instance AttrInfo DOMValidityStateValueMissingPropertyInfo where + type AttrAllowedOps DOMValidityStateValueMissingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateValueMissingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateValueMissingPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateValueMissingPropertyInfo = Bool + type AttrLabel DOMValidityStateValueMissingPropertyInfo = "DOMValidityState::value-missing" + attrGet _ = getDOMValidityStateValueMissing + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMValidityState = DOMValidityStateAttributeList +type DOMValidityStateAttributeList = ('[ '("bad-input", DOMValidityStateBadInputPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("custom-error", DOMValidityStateCustomErrorPropertyInfo), '("pattern-mismatch", DOMValidityStatePatternMismatchPropertyInfo), '("range-overflow", DOMValidityStateRangeOverflowPropertyInfo), '("range-underflow", DOMValidityStateRangeUnderflowPropertyInfo), '("step-mismatch", DOMValidityStateStepMismatchPropertyInfo), '("too-long", DOMValidityStateTooLongPropertyInfo), '("type-mismatch", DOMValidityStateTypeMismatchPropertyInfo), '("valid", DOMValidityStateValidPropertyInfo), '("value-missing", DOMValidityStateValueMissingPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMValidityState = DOMValidityStateSignalList +type DOMValidityStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMValidityState::get_bad_input +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_bad_input" webkit_dom_validity_state_get_bad_input :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetBadInput :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetBadInput _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_bad_input _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_custom_error +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_custom_error" webkit_dom_validity_state_get_custom_error :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetCustomError :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetCustomError _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_custom_error _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_pattern_mismatch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_pattern_mismatch" webkit_dom_validity_state_get_pattern_mismatch :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetPatternMismatch :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetPatternMismatch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_pattern_mismatch _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_range_overflow +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_range_overflow" webkit_dom_validity_state_get_range_overflow :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetRangeOverflow :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetRangeOverflow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_range_overflow _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_range_underflow +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_range_underflow" webkit_dom_validity_state_get_range_underflow :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetRangeUnderflow :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetRangeUnderflow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_range_underflow _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_step_mismatch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_step_mismatch" webkit_dom_validity_state_get_step_mismatch :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetStepMismatch :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetStepMismatch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_step_mismatch _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_too_long +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_too_long" webkit_dom_validity_state_get_too_long :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetTooLong :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetTooLong _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_too_long _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_type_mismatch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_type_mismatch" webkit_dom_validity_state_get_type_mismatch :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetTypeMismatch :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetTypeMismatch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_type_mismatch _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_valid +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_valid" webkit_dom_validity_state_get_valid :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetValid :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetValid _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_valid _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMValidityState::get_value_missing +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_validity_state_get_value_missing" webkit_dom_validity_state_get_value_missing :: + Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState" + IO CInt + + +dOMValidityStateGetValueMissing :: + (MonadIO m, DOMValidityStateK a) => + a -> -- _obj + m Bool +dOMValidityStateGetValueMissing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_validity_state_get_value_missing _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMValidityState.hs-boot b/GI/WebKit/Objects/DOMValidityState.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMValidityState.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.DOMValidityState where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMValidityState = DOMValidityState (ForeignPtr DOMValidityState) +instance GObject DOMValidityState where +class GObject o => DOMValidityStateK o +instance (GObject o, IsDescendantOf DOMValidityState o) => DOMValidityStateK o +data DOMValidityStateBadInputPropertyInfo +data DOMValidityStateCustomErrorPropertyInfo +data DOMValidityStatePatternMismatchPropertyInfo +data DOMValidityStateRangeOverflowPropertyInfo +data DOMValidityStateRangeUnderflowPropertyInfo +data DOMValidityStateStepMismatchPropertyInfo +data DOMValidityStateTooLongPropertyInfo +data DOMValidityStateTypeMismatchPropertyInfo +data DOMValidityStateValidPropertyInfo +data DOMValidityStateValueMissingPropertyInfo diff --git a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs @@ -0,0 +1,321 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMVideoPlaybackQuality + ( + +-- * Exported types + DOMVideoPlaybackQuality(..) , + DOMVideoPlaybackQualityK , + toDOMVideoPlaybackQuality , + noDOMVideoPlaybackQuality , + + + -- * Methods +-- ** dOMVideoPlaybackQualityGetCorruptedVideoFrames + dOMVideoPlaybackQualityGetCorruptedVideoFrames, + + +-- ** dOMVideoPlaybackQualityGetCreationTime + dOMVideoPlaybackQualityGetCreationTime , + + +-- ** dOMVideoPlaybackQualityGetDroppedVideoFrames + dOMVideoPlaybackQualityGetDroppedVideoFrames, + + +-- ** dOMVideoPlaybackQualityGetTotalFrameDelay + dOMVideoPlaybackQualityGetTotalFrameDelay, + + +-- ** dOMVideoPlaybackQualityGetTotalVideoFrames + dOMVideoPlaybackQualityGetTotalVideoFrames, + + + + + -- * Properties +-- ** CorruptedVideoFrames + DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo, + getDOMVideoPlaybackQualityCorruptedVideoFrames, + + +-- ** CreationTime + DOMVideoPlaybackQualityCreationTimePropertyInfo, + getDOMVideoPlaybackQualityCreationTime , + + +-- ** DroppedVideoFrames + DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo, + getDOMVideoPlaybackQualityDroppedVideoFrames, + + +-- ** TotalFrameDelay + DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo, + getDOMVideoPlaybackQualityTotalFrameDelay, + + +-- ** TotalVideoFrames + DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo, + getDOMVideoPlaybackQualityTotalVideoFrames, + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMVideoPlaybackQuality = DOMVideoPlaybackQuality (ForeignPtr DOMVideoPlaybackQuality) +foreign import ccall "webkit_dom_video_playback_quality_get_type" + c_webkit_dom_video_playback_quality_get_type :: IO GType + +type instance ParentTypes DOMVideoPlaybackQuality = DOMVideoPlaybackQualityParentTypes +type DOMVideoPlaybackQualityParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMVideoPlaybackQuality where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_video_playback_quality_get_type + + +class GObject o => DOMVideoPlaybackQualityK o +instance (GObject o, IsDescendantOf DOMVideoPlaybackQuality o) => DOMVideoPlaybackQualityK o + +toDOMVideoPlaybackQuality :: DOMVideoPlaybackQualityK o => o -> IO DOMVideoPlaybackQuality +toDOMVideoPlaybackQuality = unsafeCastTo DOMVideoPlaybackQuality + +noDOMVideoPlaybackQuality :: Maybe DOMVideoPlaybackQuality +noDOMVideoPlaybackQuality = Nothing + +-- VVV Prop "corrupted-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityCorruptedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "corrupted-video-frames" + +data DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::corrupted-video-frames" + attrGet _ = getDOMVideoPlaybackQualityCorruptedVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "creation-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityCreationTime :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double +getDOMVideoPlaybackQualityCreationTime obj = liftIO $ getObjectPropertyDouble obj "creation-time" + +data DOMVideoPlaybackQualityCreationTimePropertyInfo +instance AttrInfo DOMVideoPlaybackQualityCreationTimePropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityCreationTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityCreationTimePropertyInfo = Double + type AttrLabel DOMVideoPlaybackQualityCreationTimePropertyInfo = "DOMVideoPlaybackQuality::creation-time" + attrGet _ = getDOMVideoPlaybackQualityCreationTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dropped-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityDroppedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "dropped-video-frames" + +data DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::dropped-video-frames" + attrGet _ = getDOMVideoPlaybackQualityDroppedVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-frame-delay" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityTotalFrameDelay :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double +getDOMVideoPlaybackQualityTotalFrameDelay obj = liftIO $ getObjectPropertyDouble obj "total-frame-delay" + +data DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = Double + type AttrLabel DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = "DOMVideoPlaybackQuality::total-frame-delay" + attrGet _ = getDOMVideoPlaybackQualityTotalFrameDelay + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityTotalVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "total-video-frames" + +data DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::total-video-frames" + attrGet _ = getDOMVideoPlaybackQualityTotalVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMVideoPlaybackQuality = DOMVideoPlaybackQualityAttributeList +type DOMVideoPlaybackQualityAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("corrupted-video-frames", DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo), '("creation-time", DOMVideoPlaybackQualityCreationTimePropertyInfo), '("dropped-video-frames", DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo), '("total-frame-delay", DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo), '("total-video-frames", DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMVideoPlaybackQuality = DOMVideoPlaybackQualitySignalList +type DOMVideoPlaybackQualitySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMVideoPlaybackQuality::get_corrupted_video_frames +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_playback_quality_get_corrupted_video_frames" webkit_dom_video_playback_quality_get_corrupted_video_frames :: + Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" + IO Word64 + + +dOMVideoPlaybackQualityGetCorruptedVideoFrames :: + (MonadIO m, DOMVideoPlaybackQualityK a) => + a -> -- _obj + m Word64 +dOMVideoPlaybackQualityGetCorruptedVideoFrames _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_playback_quality_get_corrupted_video_frames _obj' + touchManagedPtr _obj + return result + +-- method DOMVideoPlaybackQuality::get_creation_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_playback_quality_get_creation_time" webkit_dom_video_playback_quality_get_creation_time :: + Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" + IO CDouble + + +dOMVideoPlaybackQualityGetCreationTime :: + (MonadIO m, DOMVideoPlaybackQualityK a) => + a -> -- _obj + m Double +dOMVideoPlaybackQualityGetCreationTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_playback_quality_get_creation_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMVideoPlaybackQuality::get_dropped_video_frames +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_playback_quality_get_dropped_video_frames" webkit_dom_video_playback_quality_get_dropped_video_frames :: + Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" + IO Word64 + + +dOMVideoPlaybackQualityGetDroppedVideoFrames :: + (MonadIO m, DOMVideoPlaybackQualityK a) => + a -> -- _obj + m Word64 +dOMVideoPlaybackQualityGetDroppedVideoFrames _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_playback_quality_get_dropped_video_frames _obj' + touchManagedPtr _obj + return result + +-- method DOMVideoPlaybackQuality::get_total_frame_delay +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_playback_quality_get_total_frame_delay" webkit_dom_video_playback_quality_get_total_frame_delay :: + Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" + IO CDouble + + +dOMVideoPlaybackQualityGetTotalFrameDelay :: + (MonadIO m, DOMVideoPlaybackQualityK a) => + a -> -- _obj + m Double +dOMVideoPlaybackQualityGetTotalFrameDelay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_playback_quality_get_total_frame_delay _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMVideoPlaybackQuality::get_total_video_frames +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_playback_quality_get_total_video_frames" webkit_dom_video_playback_quality_get_total_video_frames :: + Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" + IO Word64 + + +dOMVideoPlaybackQualityGetTotalVideoFrames :: + (MonadIO m, DOMVideoPlaybackQualityK a) => + a -> -- _obj + m Word64 +dOMVideoPlaybackQualityGetTotalVideoFrames _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_playback_quality_get_total_video_frames _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMVideoPlaybackQuality where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMVideoPlaybackQuality = DOMVideoPlaybackQuality (ForeignPtr DOMVideoPlaybackQuality) +instance GObject DOMVideoPlaybackQuality where +class GObject o => DOMVideoPlaybackQualityK o +instance (GObject o, IsDescendantOf DOMVideoPlaybackQuality o) => DOMVideoPlaybackQualityK o +data DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo +data DOMVideoPlaybackQualityCreationTimePropertyInfo +data DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo +data DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo +data DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo diff --git a/GI/WebKit/Objects/DOMVideoTrack.hs b/GI/WebKit/Objects/DOMVideoTrack.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoTrack.hs @@ -0,0 +1,371 @@ + +{- | +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.WebKit.Objects.DOMVideoTrack + ( + +-- * Exported types + DOMVideoTrack(..) , + DOMVideoTrackK , + toDOMVideoTrack , + noDOMVideoTrack , + + + -- * Methods +-- ** dOMVideoTrackGetId + dOMVideoTrackGetId , + + +-- ** dOMVideoTrackGetKind + dOMVideoTrackGetKind , + + +-- ** dOMVideoTrackGetLabel + dOMVideoTrackGetLabel , + + +-- ** dOMVideoTrackGetLanguage + dOMVideoTrackGetLanguage , + + +-- ** dOMVideoTrackGetSelected + dOMVideoTrackGetSelected , + + +-- ** dOMVideoTrackSetSelected + dOMVideoTrackSetSelected , + + + + + -- * Properties +-- ** Id + DOMVideoTrackIdPropertyInfo , + getDOMVideoTrackId , + + +-- ** Kind + DOMVideoTrackKindPropertyInfo , + getDOMVideoTrackKind , + + +-- ** Label + DOMVideoTrackLabelPropertyInfo , + getDOMVideoTrackLabel , + + +-- ** Language + DOMVideoTrackLanguagePropertyInfo , + getDOMVideoTrackLanguage , + + +-- ** Selected + DOMVideoTrackSelectedPropertyInfo , + constructDOMVideoTrackSelected , + getDOMVideoTrackSelected , + setDOMVideoTrackSelected , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMVideoTrack = DOMVideoTrack (ForeignPtr DOMVideoTrack) +foreign import ccall "webkit_dom_video_track_get_type" + c_webkit_dom_video_track_get_type :: IO GType + +type instance ParentTypes DOMVideoTrack = DOMVideoTrackParentTypes +type DOMVideoTrackParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMVideoTrack where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_video_track_get_type + + +class GObject o => DOMVideoTrackK o +instance (GObject o, IsDescendantOf DOMVideoTrack o) => DOMVideoTrackK o + +toDOMVideoTrack :: DOMVideoTrackK o => o -> IO DOMVideoTrack +toDOMVideoTrack = unsafeCastTo DOMVideoTrack + +noDOMVideoTrack :: Maybe DOMVideoTrack +noDOMVideoTrack = Nothing + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMVideoTrackIdPropertyInfo +instance AttrInfo DOMVideoTrackIdPropertyInfo where + type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackIdPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackIdPropertyInfo = T.Text + type AttrLabel DOMVideoTrackIdPropertyInfo = "DOMVideoTrack::id" + attrGet _ = getDOMVideoTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMVideoTrackKindPropertyInfo +instance AttrInfo DOMVideoTrackKindPropertyInfo where + type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackKindPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackKindPropertyInfo = T.Text + type AttrLabel DOMVideoTrackKindPropertyInfo = "DOMVideoTrack::kind" + attrGet _ = getDOMVideoTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMVideoTrackLabelPropertyInfo +instance AttrInfo DOMVideoTrackLabelPropertyInfo where + type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackLabelPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackLabelPropertyInfo = T.Text + type AttrLabel DOMVideoTrackLabelPropertyInfo = "DOMVideoTrack::label" + attrGet _ = getDOMVideoTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMVideoTrackLanguagePropertyInfo +instance AttrInfo DOMVideoTrackLanguagePropertyInfo where + type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackLanguagePropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMVideoTrackLanguagePropertyInfo = "DOMVideoTrack::language" + attrGet _ = getDOMVideoTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> m Bool +getDOMVideoTrackSelected obj = liftIO $ getObjectPropertyBool obj "selected" + +setDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> Bool -> m () +setDOMVideoTrackSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val + +constructDOMVideoTrackSelected :: Bool -> IO ([Char], GValue) +constructDOMVideoTrackSelected val = constructObjectPropertyBool "selected" val + +data DOMVideoTrackSelectedPropertyInfo +instance AttrInfo DOMVideoTrackSelectedPropertyInfo where + type AttrAllowedOps DOMVideoTrackSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMVideoTrackSelectedPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackSelectedPropertyInfo = Bool + type AttrLabel DOMVideoTrackSelectedPropertyInfo = "DOMVideoTrack::selected" + attrGet _ = getDOMVideoTrackSelected + attrSet _ = setDOMVideoTrackSelected + attrConstruct _ = constructDOMVideoTrackSelected + +type instance AttributeList DOMVideoTrack = DOMVideoTrackAttributeList +type DOMVideoTrackAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMVideoTrackIdPropertyInfo), '("kind", DOMVideoTrackKindPropertyInfo), '("label", DOMVideoTrackLabelPropertyInfo), '("language", DOMVideoTrackLanguagePropertyInfo), '("selected", DOMVideoTrackSelectedPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMVideoTrack = DOMVideoTrackSignalList +type DOMVideoTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMVideoTrack::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_get_id" webkit_dom_video_track_get_id :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + IO CString + + +dOMVideoTrackGetId :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + m T.Text +dOMVideoTrackGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_get_id _obj' + checkUnexpectedReturnNULL "webkit_dom_video_track_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMVideoTrack::get_kind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_get_kind" webkit_dom_video_track_get_kind :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + IO CString + + +dOMVideoTrackGetKind :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + m T.Text +dOMVideoTrackGetKind _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_get_kind _obj' + checkUnexpectedReturnNULL "webkit_dom_video_track_get_kind" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMVideoTrack::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_get_label" webkit_dom_video_track_get_label :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + IO CString + + +dOMVideoTrackGetLabel :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + m T.Text +dOMVideoTrackGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_get_label _obj' + checkUnexpectedReturnNULL "webkit_dom_video_track_get_label" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMVideoTrack::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_get_language" webkit_dom_video_track_get_language :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + IO CString + + +dOMVideoTrackGetLanguage :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + m T.Text +dOMVideoTrackGetLanguage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_get_language _obj' + checkUnexpectedReturnNULL "webkit_dom_video_track_get_language" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMVideoTrack::get_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_get_selected" webkit_dom_video_track_get_selected :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + IO CInt + + +dOMVideoTrackGetSelected :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + m Bool +dOMVideoTrackGetSelected _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_get_selected _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMVideoTrack::set_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_set_selected" webkit_dom_video_track_set_selected :: + Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack" + CInt -> -- value : TBasicType TBoolean + IO () + + +dOMVideoTrackSetSelected :: + (MonadIO m, DOMVideoTrackK a) => + a -> -- _obj + Bool -> -- value + m () +dOMVideoTrackSetSelected _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + webkit_dom_video_track_set_selected _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMVideoTrack.hs-boot b/GI/WebKit/Objects/DOMVideoTrack.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoTrack.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.DOMVideoTrack where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMVideoTrack = DOMVideoTrack (ForeignPtr DOMVideoTrack) +instance GObject DOMVideoTrack where +class GObject o => DOMVideoTrackK o +instance (GObject o, IsDescendantOf DOMVideoTrack o) => DOMVideoTrackK o +data DOMVideoTrackIdPropertyInfo +data DOMVideoTrackKindPropertyInfo +data DOMVideoTrackLabelPropertyInfo +data DOMVideoTrackLanguagePropertyInfo +data DOMVideoTrackSelectedPropertyInfo diff --git a/GI/WebKit/Objects/DOMVideoTrackList.hs b/GI/WebKit/Objects/DOMVideoTrackList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoTrackList.hs @@ -0,0 +1,218 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMVideoTrackList + ( + +-- * Exported types + DOMVideoTrackList(..) , + DOMVideoTrackListK , + toDOMVideoTrackList , + noDOMVideoTrackList , + + + -- * Methods +-- ** dOMVideoTrackListDispatchEvent + dOMVideoTrackListDispatchEvent , + + +-- ** dOMVideoTrackListGetLength + dOMVideoTrackListGetLength , + + +-- ** dOMVideoTrackListGetTrackById + dOMVideoTrackListGetTrackById , + + +-- ** dOMVideoTrackListItem + dOMVideoTrackListItem , + + + + + -- * Properties +-- ** Length + DOMVideoTrackListLengthPropertyInfo , + getDOMVideoTrackListLength , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMVideoTrackList = DOMVideoTrackList (ForeignPtr DOMVideoTrackList) +foreign import ccall "webkit_dom_video_track_list_get_type" + c_webkit_dom_video_track_list_get_type :: IO GType + +type instance ParentTypes DOMVideoTrackList = DOMVideoTrackListParentTypes +type DOMVideoTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMVideoTrackList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_video_track_list_get_type + + +class GObject o => DOMVideoTrackListK o +instance (GObject o, IsDescendantOf DOMVideoTrackList o) => DOMVideoTrackListK o + +toDOMVideoTrackList :: DOMVideoTrackListK o => o -> IO DOMVideoTrackList +toDOMVideoTrackList = unsafeCastTo DOMVideoTrackList + +noDOMVideoTrackList :: Maybe DOMVideoTrackList +noDOMVideoTrackList = Nothing + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m Word64 +getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMVideoTrackListLengthPropertyInfo +instance AttrInfo DOMVideoTrackListLengthPropertyInfo where + type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK + type AttrGetType DOMVideoTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMVideoTrackListLengthPropertyInfo = "DOMVideoTrackList::length" + attrGet _ = getDOMVideoTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMVideoTrackList = DOMVideoTrackListAttributeList +type DOMVideoTrackListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMVideoTrackList = DOMVideoTrackListSignalList +type DOMVideoTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMVideoTrackList::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_list_dispatch_event" webkit_dom_video_track_list_dispatch_event :: + Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" + Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMVideoTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMVideoTrackListDispatchEvent :: + (MonadIO m, DOMVideoTrackListK a, DOMEventK b) => + a -> -- _obj + b -> -- evt + m () +dOMVideoTrackListDispatchEvent _obj evt = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let evt' = unsafeManagedPtrCastPtr evt + onException (do + _ <- propagateGError $ webkit_dom_video_track_list_dispatch_event _obj' evt' + touchManagedPtr _obj + touchManagedPtr evt + return () + ) (do + return () + ) + +-- method DOMVideoTrackList::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_list_get_length" webkit_dom_video_track_list_get_length :: + Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" + IO Word64 + + +dOMVideoTrackListGetLength :: + (MonadIO m, DOMVideoTrackListK a) => + a -> -- _obj + m Word64 +dOMVideoTrackListGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_list_get_length _obj' + touchManagedPtr _obj + return result + +-- method DOMVideoTrackList::get_track_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMVideoTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_list_get_track_by_id" webkit_dom_video_track_list_get_track_by_id :: + Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" + CString -> -- id : TBasicType TUTF8 + IO (Ptr DOMVideoTrack) + + +dOMVideoTrackListGetTrackById :: + (MonadIO m, DOMVideoTrackListK a) => + a -> -- _obj + T.Text -> -- id + m DOMVideoTrack +dOMVideoTrackListGetTrackById _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + id' <- textToCString id + result <- webkit_dom_video_track_list_get_track_by_id _obj' id' + checkUnexpectedReturnNULL "webkit_dom_video_track_list_get_track_by_id" result + result' <- (wrapObject DOMVideoTrack) result + touchManagedPtr _obj + freeMem id' + return result' + +-- method DOMVideoTrackList::item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMVideoTrack" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_video_track_list_item" webkit_dom_video_track_list_item :: + Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" + Word64 -> -- index : TBasicType TUInt64 + IO (Ptr DOMVideoTrack) + + +dOMVideoTrackListItem :: + (MonadIO m, DOMVideoTrackListK a) => + a -> -- _obj + Word64 -> -- index + m DOMVideoTrack +dOMVideoTrackListItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_video_track_list_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_video_track_list_item" result + result' <- (wrapObject DOMVideoTrack) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/DOMVideoTrackList.hs-boot b/GI/WebKit/Objects/DOMVideoTrackList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMVideoTrackList.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.DOMVideoTrackList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMVideoTrackList = DOMVideoTrackList (ForeignPtr DOMVideoTrackList) +instance GObject DOMVideoTrackList where +class GObject o => DOMVideoTrackListK o +instance (GObject o, IsDescendantOf DOMVideoTrackList o) => DOMVideoTrackListK o +data DOMVideoTrackListLengthPropertyInfo diff --git a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs @@ -0,0 +1,445 @@ + +{- | +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.WebKit.Objects.DOMWebKitNamedFlow + ( + +-- * Exported types + DOMWebKitNamedFlow(..) , + DOMWebKitNamedFlowK , + toDOMWebKitNamedFlow , + noDOMWebKitNamedFlow , + + + -- * Methods +-- ** dOMWebKitNamedFlowDispatchEvent + dOMWebKitNamedFlowDispatchEvent , + + +-- ** dOMWebKitNamedFlowGetContent + dOMWebKitNamedFlowGetContent , + + +-- ** dOMWebKitNamedFlowGetContentNodes + dOMWebKitNamedFlowGetContentNodes , + + +-- ** dOMWebKitNamedFlowGetFirstEmptyRegionIndex + dOMWebKitNamedFlowGetFirstEmptyRegionIndex, + + +-- ** dOMWebKitNamedFlowGetName + dOMWebKitNamedFlowGetName , + + +-- ** dOMWebKitNamedFlowGetOverflow + dOMWebKitNamedFlowGetOverflow , + + +-- ** dOMWebKitNamedFlowGetOverset + dOMWebKitNamedFlowGetOverset , + + +-- ** dOMWebKitNamedFlowGetRegions + dOMWebKitNamedFlowGetRegions , + + +-- ** dOMWebKitNamedFlowGetRegionsByContent + dOMWebKitNamedFlowGetRegionsByContent , + + +-- ** dOMWebKitNamedFlowGetRegionsByContentNode + dOMWebKitNamedFlowGetRegionsByContentNode, + + + + + -- * Properties +-- ** FirstEmptyRegionIndex + DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo, + getDOMWebKitNamedFlowFirstEmptyRegionIndex, + + +-- ** Name + DOMWebKitNamedFlowNamePropertyInfo , + getDOMWebKitNamedFlowName , + + +-- ** Overset + DOMWebKitNamedFlowOversetPropertyInfo , + getDOMWebKitNamedFlowOverset , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMWebKitNamedFlow = DOMWebKitNamedFlow (ForeignPtr DOMWebKitNamedFlow) +foreign import ccall "webkit_dom_webkit_named_flow_get_type" + c_webkit_dom_webkit_named_flow_get_type :: IO GType + +type instance ParentTypes DOMWebKitNamedFlow = DOMWebKitNamedFlowParentTypes +type DOMWebKitNamedFlowParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] + +instance GObject DOMWebKitNamedFlow where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_webkit_named_flow_get_type + + +class GObject o => DOMWebKitNamedFlowK o +instance (GObject o, IsDescendantOf DOMWebKitNamedFlow o) => DOMWebKitNamedFlowK o + +toDOMWebKitNamedFlow :: DOMWebKitNamedFlowK o => o -> IO DOMWebKitNamedFlow +toDOMWebKitNamedFlow = unsafeCastTo DOMWebKitNamedFlow + +noDOMWebKitNamedFlow :: Maybe DOMWebKitNamedFlow +noDOMWebKitNamedFlow = Nothing + +-- VVV Prop "first-empty-region-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Int64 +getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyInt64 obj "first-empty-region-index" + +data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo +instance AttrInfo DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = Int64 + type AttrLabel DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = "DOMWebKitNamedFlow::first-empty-region-index" + attrGet _ = getDOMWebKitNamedFlowFirstEmptyRegionIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m T.Text +getDOMWebKitNamedFlowName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMWebKitNamedFlowNamePropertyInfo +instance AttrInfo DOMWebKitNamedFlowNamePropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = T.Text + type AttrLabel DOMWebKitNamedFlowNamePropertyInfo = "DOMWebKitNamedFlow::name" + attrGet _ = getDOMWebKitNamedFlowName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "overset" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowOverset :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Bool +getDOMWebKitNamedFlowOverset obj = liftIO $ getObjectPropertyBool obj "overset" + +data DOMWebKitNamedFlowOversetPropertyInfo +instance AttrInfo DOMWebKitNamedFlowOversetPropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowOversetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowOversetPropertyInfo = Bool + type AttrLabel DOMWebKitNamedFlowOversetPropertyInfo = "DOMWebKitNamedFlow::overset" + attrGet _ = getDOMWebKitNamedFlowOverset + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMWebKitNamedFlow = DOMWebKitNamedFlowAttributeList +type DOMWebKitNamedFlowAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-empty-region-index", DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo), '("name", DOMWebKitNamedFlowNamePropertyInfo), '("overset", DOMWebKitNamedFlowOversetPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMWebKitNamedFlow = DOMWebKitNamedFlowSignalList +type DOMWebKitNamedFlowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMWebKitNamedFlow::dispatch_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_dispatch_event" webkit_dom_webkit_named_flow_dispatch_event :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED dOMWebKitNamedFlowDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} +dOMWebKitNamedFlowDispatchEvent :: + (MonadIO m, DOMWebKitNamedFlowK a, DOMEventK b) => + a -> -- _obj + b -> -- event + m () +dOMWebKitNamedFlowDispatchEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrCastPtr event + onException (do + _ <- propagateGError $ webkit_dom_webkit_named_flow_dispatch_event _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return () + ) (do + return () + ) + +-- method DOMWebKitNamedFlow::get_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_content" webkit_dom_webkit_named_flow_get_content :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO (Ptr DOMNodeList) + + +dOMWebKitNamedFlowGetContent :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m DOMNodeList +dOMWebKitNamedFlowGetContent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_content _obj' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_content" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_content_nodes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_content_nodes" webkit_dom_webkit_named_flow_get_content_nodes :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO (Ptr DOMNodeList) + +{-# DEPRECATED dOMWebKitNamedFlowGetContentNodes ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_content() instead."]#-} +dOMWebKitNamedFlowGetContentNodes :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m DOMNodeList +dOMWebKitNamedFlowGetContentNodes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_content_nodes _obj' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_content_nodes" result + result' <- (newObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_first_empty_region_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_first_empty_region_index" webkit_dom_webkit_named_flow_get_first_empty_region_index :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO Int64 + + +dOMWebKitNamedFlowGetFirstEmptyRegionIndex :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m Int64 +dOMWebKitNamedFlowGetFirstEmptyRegionIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_first_empty_region_index _obj' + touchManagedPtr _obj + return result + +-- method DOMWebKitNamedFlow::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_name" webkit_dom_webkit_named_flow_get_name :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO CString + + +dOMWebKitNamedFlowGetName :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m T.Text +dOMWebKitNamedFlowGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_name _obj' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_overflow +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_overflow" webkit_dom_webkit_named_flow_get_overflow :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO CInt + +{-# DEPRECATED dOMWebKitNamedFlowGetOverflow ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_overset() instead."]#-} +dOMWebKitNamedFlowGetOverflow :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m Bool +dOMWebKitNamedFlowGetOverflow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_overflow _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_overset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_overset" webkit_dom_webkit_named_flow_get_overset :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO CInt + + +dOMWebKitNamedFlowGetOverset :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m Bool +dOMWebKitNamedFlowGetOverset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_overset _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_regions +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_regions" webkit_dom_webkit_named_flow_get_regions :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + IO (Ptr DOMNodeList) + + +dOMWebKitNamedFlowGetRegions :: + (MonadIO m, DOMWebKitNamedFlowK a) => + a -> -- _obj + m DOMNodeList +dOMWebKitNamedFlowGetRegions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_named_flow_get_regions _obj' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + return result' + +-- method DOMWebKitNamedFlow::get_regions_by_content +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content" webkit_dom_webkit_named_flow_get_regions_by_content :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + Ptr DOMNode -> -- contentNode : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNodeList) + + +dOMWebKitNamedFlowGetRegionsByContent :: + (MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) => + a -> -- _obj + b -> -- contentNode + m DOMNodeList +dOMWebKitNamedFlowGetRegionsByContent _obj contentNode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let contentNode' = unsafeManagedPtrCastPtr contentNode + result <- webkit_dom_webkit_named_flow_get_regions_by_content _obj' contentNode' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions_by_content" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + touchManagedPtr contentNode + return result' + +-- method DOMWebKitNamedFlow::get_regions_by_content_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNodeList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content_node" webkit_dom_webkit_named_flow_get_regions_by_content_node :: + Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" + Ptr DOMNode -> -- content_node : TInterface "WebKit" "DOMNode" + IO (Ptr DOMNodeList) + +{-# DEPRECATED dOMWebKitNamedFlowGetRegionsByContentNode ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_regions_by_content() instead."]#-} +dOMWebKitNamedFlowGetRegionsByContentNode :: + (MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) => + a -> -- _obj + b -> -- content_node + m DOMNodeList +dOMWebKitNamedFlowGetRegionsByContentNode _obj content_node = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let content_node' = unsafeManagedPtrCastPtr content_node + result <- webkit_dom_webkit_named_flow_get_regions_by_content_node _obj' content_node' + checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions_by_content_node" result + result' <- (newObject DOMNodeList) result + touchManagedPtr _obj + touchManagedPtr content_node + return result' + + diff --git a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.DOMWebKitNamedFlow where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMWebKitNamedFlow = DOMWebKitNamedFlow (ForeignPtr DOMWebKitNamedFlow) +instance GObject DOMWebKitNamedFlow where +class GObject o => DOMWebKitNamedFlowK o +instance (GObject o, IsDescendantOf DOMWebKitNamedFlow o) => DOMWebKitNamedFlowK o +data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo +data DOMWebKitNamedFlowNamePropertyInfo +data DOMWebKitNamedFlowOversetPropertyInfo diff --git a/GI/WebKit/Objects/DOMWebKitPoint.hs b/GI/WebKit/Objects/DOMWebKitPoint.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWebKitPoint.hs @@ -0,0 +1,246 @@ + +{- | +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.WebKit.Objects.DOMWebKitPoint + ( + +-- * Exported types + DOMWebKitPoint(..) , + DOMWebKitPointK , + toDOMWebKitPoint , + noDOMWebKitPoint , + + + -- * Methods +-- ** dOMWebKitPointGetX + dOMWebKitPointGetX , + + +-- ** dOMWebKitPointGetY + dOMWebKitPointGetY , + + +-- ** dOMWebKitPointSetX + dOMWebKitPointSetX , + + +-- ** dOMWebKitPointSetY + dOMWebKitPointSetY , + + + + + -- * Properties +-- ** X + DOMWebKitPointXPropertyInfo , + constructDOMWebKitPointX , + getDOMWebKitPointX , + setDOMWebKitPointX , + + +-- ** Y + DOMWebKitPointYPropertyInfo , + constructDOMWebKitPointY , + getDOMWebKitPointY , + setDOMWebKitPointY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMWebKitPoint = DOMWebKitPoint (ForeignPtr DOMWebKitPoint) +foreign import ccall "webkit_dom_webkit_point_get_type" + c_webkit_dom_webkit_point_get_type :: IO GType + +type instance ParentTypes DOMWebKitPoint = DOMWebKitPointParentTypes +type DOMWebKitPointParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMWebKitPoint where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_webkit_point_get_type + + +class GObject o => DOMWebKitPointK o +instance (GObject o, IsDescendantOf DOMWebKitPoint o) => DOMWebKitPointK o + +toDOMWebKitPoint :: DOMWebKitPointK o => o -> IO DOMWebKitPoint +toDOMWebKitPoint = unsafeCastTo DOMWebKitPoint + +noDOMWebKitPoint :: Maybe DOMWebKitPoint +noDOMWebKitPoint = Nothing + +-- VVV Prop "x" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> m Float +getDOMWebKitPointX obj = liftIO $ getObjectPropertyFloat obj "x" + +setDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () +setDOMWebKitPointX obj val = liftIO $ setObjectPropertyFloat obj "x" val + +constructDOMWebKitPointX :: Float -> IO ([Char], GValue) +constructDOMWebKitPointX val = constructObjectPropertyFloat "x" val + +data DOMWebKitPointXPropertyInfo +instance AttrInfo DOMWebKitPointXPropertyInfo where + type AttrAllowedOps DOMWebKitPointXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMWebKitPointXPropertyInfo = (~) Float + type AttrBaseTypeConstraint DOMWebKitPointXPropertyInfo = DOMWebKitPointK + type AttrGetType DOMWebKitPointXPropertyInfo = Float + type AttrLabel DOMWebKitPointXPropertyInfo = "DOMWebKitPoint::x" + attrGet _ = getDOMWebKitPointX + attrSet _ = setDOMWebKitPointX + attrConstruct _ = constructDOMWebKitPointX + +-- VVV Prop "y" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> m Float +getDOMWebKitPointY obj = liftIO $ getObjectPropertyFloat obj "y" + +setDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () +setDOMWebKitPointY obj val = liftIO $ setObjectPropertyFloat obj "y" val + +constructDOMWebKitPointY :: Float -> IO ([Char], GValue) +constructDOMWebKitPointY val = constructObjectPropertyFloat "y" val + +data DOMWebKitPointYPropertyInfo +instance AttrInfo DOMWebKitPointYPropertyInfo where + type AttrAllowedOps DOMWebKitPointYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMWebKitPointYPropertyInfo = (~) Float + type AttrBaseTypeConstraint DOMWebKitPointYPropertyInfo = DOMWebKitPointK + type AttrGetType DOMWebKitPointYPropertyInfo = Float + type AttrLabel DOMWebKitPointYPropertyInfo = "DOMWebKitPoint::y" + attrGet _ = getDOMWebKitPointY + attrSet _ = setDOMWebKitPointY + attrConstruct _ = constructDOMWebKitPointY + +type instance AttributeList DOMWebKitPoint = DOMWebKitPointAttributeList +type DOMWebKitPointAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("x", DOMWebKitPointXPropertyInfo), '("y", DOMWebKitPointYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMWebKitPoint = DOMWebKitPointSignalList +type DOMWebKitPointSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMWebKitPoint::get_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_point_get_x" webkit_dom_webkit_point_get_x :: + Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint" + IO CFloat + + +dOMWebKitPointGetX :: + (MonadIO m, DOMWebKitPointK a) => + a -> -- _obj + m Float +dOMWebKitPointGetX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_point_get_x _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMWebKitPoint::get_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_point_get_y" webkit_dom_webkit_point_get_y :: + Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint" + IO CFloat + + +dOMWebKitPointGetY :: + (MonadIO m, DOMWebKitPointK a) => + a -> -- _obj + m Float +dOMWebKitPointGetY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_webkit_point_get_y _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMWebKitPoint::set_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_point_set_x" webkit_dom_webkit_point_set_x :: + Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint" + CFloat -> -- value : TBasicType TFloat + IO () + + +dOMWebKitPointSetX :: + (MonadIO m, DOMWebKitPointK a) => + a -> -- _obj + Float -> -- value + m () +dOMWebKitPointSetX _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_webkit_point_set_x _obj' value' + touchManagedPtr _obj + return () + +-- method DOMWebKitPoint::set_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_webkit_point_set_y" webkit_dom_webkit_point_set_y :: + Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint" + CFloat -> -- value : TBasicType TFloat + IO () + + +dOMWebKitPointSetY :: + (MonadIO m, DOMWebKitPointK a) => + a -> -- _obj + Float -> -- value + m () +dOMWebKitPointSetY _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = realToFrac value + webkit_dom_webkit_point_set_y _obj' value' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/DOMWebKitPoint.hs-boot b/GI/WebKit/Objects/DOMWebKitPoint.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWebKitPoint.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.DOMWebKitPoint where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMWebKitPoint = DOMWebKitPoint (ForeignPtr DOMWebKitPoint) +instance GObject DOMWebKitPoint where +class GObject o => DOMWebKitPointK o +instance (GObject o, IsDescendantOf DOMWebKitPoint o) => DOMWebKitPointK o +data DOMWebKitPointXPropertyInfo +data DOMWebKitPointYPropertyInfo diff --git a/GI/WebKit/Objects/DOMWheelEvent.hs b/GI/WebKit/Objects/DOMWheelEvent.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWheelEvent.hs @@ -0,0 +1,532 @@ + +{- | +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.WebKit.Objects.DOMWheelEvent + ( + +-- * Exported types + DOMWheelEvent(..) , + DOMWheelEventK , + toDOMWheelEvent , + noDOMWheelEvent , + + + -- * Methods +-- ** dOMWheelEventGetDeltaMode + dOMWheelEventGetDeltaMode , + + +-- ** dOMWheelEventGetDeltaX + dOMWheelEventGetDeltaX , + + +-- ** dOMWheelEventGetDeltaY + dOMWheelEventGetDeltaY , + + +-- ** dOMWheelEventGetDeltaZ + dOMWheelEventGetDeltaZ , + + +-- ** dOMWheelEventGetWebkitDirectionInvertedFromDevice + dOMWheelEventGetWebkitDirectionInvertedFromDevice, + + +-- ** dOMWheelEventGetWheelDelta + dOMWheelEventGetWheelDelta , + + +-- ** dOMWheelEventGetWheelDeltaX + dOMWheelEventGetWheelDeltaX , + + +-- ** dOMWheelEventGetWheelDeltaY + dOMWheelEventGetWheelDeltaY , + + +-- ** dOMWheelEventInitWheelEvent + dOMWheelEventInitWheelEvent , + + + + + -- * Properties +-- ** DeltaMode + DOMWheelEventDeltaModePropertyInfo , + getDOMWheelEventDeltaMode , + + +-- ** DeltaX + DOMWheelEventDeltaXPropertyInfo , + getDOMWheelEventDeltaX , + + +-- ** DeltaY + DOMWheelEventDeltaYPropertyInfo , + getDOMWheelEventDeltaY , + + +-- ** DeltaZ + DOMWheelEventDeltaZPropertyInfo , + getDOMWheelEventDeltaZ , + + +-- ** WebkitDirectionInvertedFromDevice + DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo, + getDOMWheelEventWebkitDirectionInvertedFromDevice, + + +-- ** WheelDelta + DOMWheelEventWheelDeltaPropertyInfo , + getDOMWheelEventWheelDelta , + + +-- ** WheelDeltaX + DOMWheelEventWheelDeltaXPropertyInfo , + getDOMWheelEventWheelDeltaX , + + +-- ** WheelDeltaY + DOMWheelEventWheelDeltaYPropertyInfo , + getDOMWheelEventWheelDeltaY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMWheelEvent = DOMWheelEvent (ForeignPtr DOMWheelEvent) +foreign import ccall "webkit_dom_wheel_event_get_type" + c_webkit_dom_wheel_event_get_type :: IO GType + +type instance ParentTypes DOMWheelEvent = DOMWheelEventParentTypes +type DOMWheelEventParentTypes = '[DOMMouseEvent, DOMUIEvent, DOMEvent, DOMObject, GObject.Object] + +instance GObject DOMWheelEvent where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_wheel_event_get_type + + +class GObject o => DOMWheelEventK o +instance (GObject o, IsDescendantOf DOMWheelEvent o) => DOMWheelEventK o + +toDOMWheelEvent :: DOMWheelEventK o => o -> IO DOMWheelEvent +toDOMWheelEvent = unsafeCastTo DOMWheelEvent + +noDOMWheelEvent :: Maybe DOMWheelEvent +noDOMWheelEvent = Nothing + +-- VVV Prop "delta-mode" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m Word64 +getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyUInt64 obj "delta-mode" + +data DOMWheelEventDeltaModePropertyInfo +instance AttrInfo DOMWheelEventDeltaModePropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaModePropertyInfo = Word64 + type AttrLabel DOMWheelEventDeltaModePropertyInfo = "DOMWheelEvent::delta-mode" + attrGet _ = getDOMWheelEventDeltaMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-x" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x" + +data DOMWheelEventDeltaXPropertyInfo +instance AttrInfo DOMWheelEventDeltaXPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaXPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaXPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaXPropertyInfo = "DOMWheelEvent::delta-x" + attrGet _ = getDOMWheelEventDeltaX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-y" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y" + +data DOMWheelEventDeltaYPropertyInfo +instance AttrInfo DOMWheelEventDeltaYPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaYPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaYPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaYPropertyInfo = "DOMWheelEvent::delta-y" + attrGet _ = getDOMWheelEventDeltaY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-z" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z" + +data DOMWheelEventDeltaZPropertyInfo +instance AttrInfo DOMWheelEventDeltaZPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaZPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaZPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaZPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaZPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaZPropertyInfo = "DOMWheelEvent::delta-z" + attrGet _ = getDOMWheelEventDeltaZ + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-direction-inverted-from-device" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool +getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device" + +data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo +instance AttrInfo DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo where + type AttrAllowedOps DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = Bool + type AttrLabel DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = "DOMWheelEvent::webkit-direction-inverted-from-device" + attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta" + +data DOMWheelEventWheelDeltaPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "DOMWheelEvent::wheel-delta" + attrGet _ = getDOMWheelEventWheelDelta + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-x" + +data DOMWheelEventWheelDeltaXPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "DOMWheelEvent::wheel-delta-x" + attrGet _ = getDOMWheelEventWheelDeltaX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-y" + +data DOMWheelEventWheelDeltaYPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "DOMWheelEvent::wheel-delta-y" + attrGet _ = getDOMWheelEventWheelDeltaY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMWheelEvent = DOMWheelEventAttributeList +type DOMWheelEventAttributeList = ('[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("delta-mode", DOMWheelEventDeltaModePropertyInfo), '("delta-x", DOMWheelEventDeltaXPropertyInfo), '("delta-y", DOMWheelEventDeltaYPropertyInfo), '("delta-z", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-direction-inverted-from-device", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("wheel-delta", DOMWheelEventWheelDeltaPropertyInfo), '("wheel-delta-x", DOMWheelEventWheelDeltaXPropertyInfo), '("wheel-delta-y", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMWheelEvent = DOMWheelEventSignalList +type DOMWheelEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMWheelEvent::get_delta_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_delta_mode" webkit_dom_wheel_event_get_delta_mode :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO Word64 + + +dOMWheelEventGetDeltaMode :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Word64 +dOMWheelEventGetDeltaMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_delta_mode _obj' + touchManagedPtr _obj + return result + +-- method DOMWheelEvent::get_delta_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_delta_x" webkit_dom_wheel_event_get_delta_x :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO CDouble + + +dOMWheelEventGetDeltaX :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Double +dOMWheelEventGetDeltaX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_delta_x _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMWheelEvent::get_delta_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_delta_y" webkit_dom_wheel_event_get_delta_y :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO CDouble + + +dOMWheelEventGetDeltaY :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Double +dOMWheelEventGetDeltaY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_delta_y _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMWheelEvent::get_delta_z +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_delta_z" webkit_dom_wheel_event_get_delta_z :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO CDouble + + +dOMWheelEventGetDeltaZ :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Double +dOMWheelEventGetDeltaZ _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_delta_z _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DOMWheelEvent::get_webkit_direction_inverted_from_device +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_webkit_direction_inverted_from_device" webkit_dom_wheel_event_get_webkit_direction_inverted_from_device :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO CInt + + +dOMWheelEventGetWebkitDirectionInvertedFromDevice :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Bool +dOMWheelEventGetWebkitDirectionInvertedFromDevice _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_webkit_direction_inverted_from_device _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMWheelEvent::get_wheel_delta +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_wheel_delta" webkit_dom_wheel_event_get_wheel_delta :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO Int64 + + +dOMWheelEventGetWheelDelta :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Int64 +dOMWheelEventGetWheelDelta _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_wheel_delta _obj' + touchManagedPtr _obj + return result + +-- method DOMWheelEvent::get_wheel_delta_x +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_wheel_delta_x" webkit_dom_wheel_event_get_wheel_delta_x :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO Int64 + + +dOMWheelEventGetWheelDeltaX :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Int64 +dOMWheelEventGetWheelDeltaX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_wheel_delta_x _obj' + touchManagedPtr _obj + return result + +-- method DOMWheelEvent::get_wheel_delta_y +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_get_wheel_delta_y" webkit_dom_wheel_event_get_wheel_delta_y :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + IO Int64 + + +dOMWheelEventGetWheelDeltaY :: + (MonadIO m, DOMWheelEventK a) => + a -> -- _obj + m Int64 +dOMWheelEventGetWheelDeltaY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_wheel_event_get_wheel_delta_y _obj' + touchManagedPtr _obj + return result + +-- method DOMWheelEvent::init_wheel_event +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_wheel_event_init_wheel_event" webkit_dom_wheel_event_init_wheel_event :: + Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" + Int64 -> -- wheelDeltaX : TBasicType TInt64 + Int64 -> -- wheelDeltaY : TBasicType TInt64 + Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" + Int64 -> -- screenX : TBasicType TInt64 + Int64 -> -- screenY : TBasicType TInt64 + Int64 -> -- clientX : TBasicType TInt64 + Int64 -> -- clientY : TBasicType TInt64 + CInt -> -- ctrlKey : TBasicType TBoolean + CInt -> -- altKey : TBasicType TBoolean + CInt -> -- shiftKey : TBasicType TBoolean + CInt -> -- metaKey : TBasicType TBoolean + IO () + + +dOMWheelEventInitWheelEvent :: + (MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) => + a -> -- _obj + Int64 -> -- wheelDeltaX + Int64 -> -- wheelDeltaY + b -> -- view + Int64 -> -- screenX + Int64 -> -- screenY + Int64 -> -- clientX + Int64 -> -- clientY + Bool -> -- ctrlKey + Bool -> -- altKey + Bool -> -- shiftKey + Bool -> -- metaKey + m () +dOMWheelEventInitWheelEvent _obj wheelDeltaX wheelDeltaY view screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let view' = unsafeManagedPtrCastPtr view + let ctrlKey' = (fromIntegral . fromEnum) ctrlKey + let altKey' = (fromIntegral . fromEnum) altKey + let shiftKey' = (fromIntegral . fromEnum) shiftKey + let metaKey' = (fromIntegral . fromEnum) metaKey + webkit_dom_wheel_event_init_wheel_event _obj' wheelDeltaX wheelDeltaY view' screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey' + touchManagedPtr _obj + touchManagedPtr view + return () + + diff --git a/GI/WebKit/Objects/DOMWheelEvent.hs-boot b/GI/WebKit/Objects/DOMWheelEvent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMWheelEvent.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.DOMWheelEvent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMWheelEvent = DOMWheelEvent (ForeignPtr DOMWheelEvent) +instance GObject DOMWheelEvent where +class GObject o => DOMWheelEventK o +instance (GObject o, IsDescendantOf DOMWheelEvent o) => DOMWheelEventK o +data DOMWheelEventDeltaModePropertyInfo +data DOMWheelEventDeltaXPropertyInfo +data DOMWheelEventDeltaYPropertyInfo +data DOMWheelEventDeltaZPropertyInfo +data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo +data DOMWheelEventWheelDeltaPropertyInfo +data DOMWheelEventWheelDeltaXPropertyInfo +data DOMWheelEventWheelDeltaYPropertyInfo diff --git a/GI/WebKit/Objects/DOMXPathExpression.hs b/GI/WebKit/Objects/DOMXPathExpression.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathExpression.hs @@ -0,0 +1,106 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMXPathExpression + ( + +-- * Exported types + DOMXPathExpression(..) , + DOMXPathExpressionK , + toDOMXPathExpression , + noDOMXPathExpression , + + + -- * Methods +-- ** dOMXPathExpressionEvaluate + dOMXPathExpressionEvaluate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression) +foreign import ccall "webkit_dom_xpath_expression_get_type" + c_webkit_dom_xpath_expression_get_type :: IO GType + +type instance ParentTypes DOMXPathExpression = DOMXPathExpressionParentTypes +type DOMXPathExpressionParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMXPathExpression where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_xpath_expression_get_type + + +class GObject o => DOMXPathExpressionK o +instance (GObject o, IsDescendantOf DOMXPathExpression o) => DOMXPathExpressionK o + +toDOMXPathExpression :: DOMXPathExpressionK o => o -> IO DOMXPathExpression +toDOMXPathExpression = unsafeCastTo DOMXPathExpression + +noDOMXPathExpression :: Maybe DOMXPathExpression +noDOMXPathExpression = Nothing + +type instance AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList +type DOMXPathExpressionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMXPathExpression = DOMXPathExpressionSignalList +type DOMXPathExpressionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMXPathExpression::evaluate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMXPathResult" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate :: + Ptr DOMXPathExpression -> -- _obj : TInterface "WebKit" "DOMXPathExpression" + Ptr DOMNode -> -- contextNode : TInterface "WebKit" "DOMNode" + Word16 -> -- type : TBasicType TUInt16 + Ptr DOMXPathResult -> -- inResult : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMXPathResult) + + +dOMXPathExpressionEvaluate :: + (MonadIO m, DOMXPathExpressionK a, DOMNodeK b, DOMXPathResultK c) => + a -> -- _obj + b -> -- contextNode + Word16 -> -- type + c -> -- inResult + m DOMXPathResult +dOMXPathExpressionEvaluate _obj contextNode type_ inResult = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let contextNode' = unsafeManagedPtrCastPtr contextNode + let inResult' = unsafeManagedPtrCastPtr inResult + onException (do + result <- propagateGError $ webkit_dom_xpath_expression_evaluate _obj' contextNode' type_ inResult' + checkUnexpectedReturnNULL "webkit_dom_xpath_expression_evaluate" result + result' <- (wrapObject DOMXPathResult) result + touchManagedPtr _obj + touchManagedPtr contextNode + touchManagedPtr inResult + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMXPathExpression.hs-boot b/GI/WebKit/Objects/DOMXPathExpression.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathExpression.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMXPathExpression where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression) +instance GObject DOMXPathExpression where +class GObject o => DOMXPathExpressionK o +instance (GObject o, IsDescendantOf DOMXPathExpression o) => DOMXPathExpressionK o diff --git a/GI/WebKit/Objects/DOMXPathNSResolver.hs b/GI/WebKit/Objects/DOMXPathNSResolver.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathNSResolver.hs @@ -0,0 +1,96 @@ + +{- | +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.WebKit.Objects.DOMXPathNSResolver + ( + +-- * Exported types + DOMXPathNSResolver(..) , + DOMXPathNSResolverK , + toDOMXPathNSResolver , + noDOMXPathNSResolver , + + + -- * Methods +-- ** dOMXPathNSResolverLookupNamespaceUri + dOMXPathNSResolverLookupNamespaceUri , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMXPathNSResolver = DOMXPathNSResolver (ForeignPtr DOMXPathNSResolver) +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 = '[DOMObject, GObject.Object] + +instance GObject DOMXPathNSResolver where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_xpath_ns_resolver_get_type + + +class GObject o => DOMXPathNSResolverK o +instance (GObject o, IsDescendantOf DOMXPathNSResolver o) => DOMXPathNSResolverK o + +toDOMXPathNSResolver :: DOMXPathNSResolverK o => o -> IO DOMXPathNSResolver +toDOMXPathNSResolver = unsafeCastTo DOMXPathNSResolver + +noDOMXPathNSResolver :: Maybe DOMXPathNSResolver +noDOMXPathNSResolver = Nothing + +type instance AttributeList DOMXPathNSResolver = DOMXPathNSResolverAttributeList +type DOMXPathNSResolverAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMXPathNSResolver = DOMXPathNSResolverSignalList +type DOMXPathNSResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMXPathNSResolver::lookup_namespace_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_ns_resolver_lookup_namespace_uri" webkit_dom_xpath_ns_resolver_lookup_namespace_uri :: + Ptr DOMXPathNSResolver -> -- _obj : TInterface "WebKit" "DOMXPathNSResolver" + CString -> -- prefix : TBasicType TUTF8 + IO CString + + +dOMXPathNSResolverLookupNamespaceUri :: + (MonadIO m, DOMXPathNSResolverK a) => + a -> -- _obj + T.Text -> -- prefix + m T.Text +dOMXPathNSResolverLookupNamespaceUri _obj prefix = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + prefix' <- textToCString prefix + result <- webkit_dom_xpath_ns_resolver_lookup_namespace_uri _obj' prefix' + checkUnexpectedReturnNULL "webkit_dom_xpath_ns_resolver_lookup_namespace_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem prefix' + return result' + + diff --git a/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot b/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.DOMXPathNSResolver where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMXPathNSResolver = DOMXPathNSResolver (ForeignPtr DOMXPathNSResolver) +instance GObject DOMXPathNSResolver where +class GObject o => DOMXPathNSResolverK o +instance (GObject o, IsDescendantOf DOMXPathNSResolver o) => DOMXPathNSResolverK o diff --git a/GI/WebKit/Objects/DOMXPathResult.hs b/GI/WebKit/Objects/DOMXPathResult.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathResult.hs @@ -0,0 +1,525 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.DOMXPathResult + ( + +-- * Exported types + DOMXPathResult(..) , + DOMXPathResultK , + toDOMXPathResult , + noDOMXPathResult , + + + -- * Methods +-- ** dOMXPathResultGetBooleanValue + dOMXPathResultGetBooleanValue , + + +-- ** dOMXPathResultGetInvalidIteratorState + dOMXPathResultGetInvalidIteratorState , + + +-- ** dOMXPathResultGetNumberValue + dOMXPathResultGetNumberValue , + + +-- ** dOMXPathResultGetResultType + dOMXPathResultGetResultType , + + +-- ** dOMXPathResultGetSingleNodeValue + dOMXPathResultGetSingleNodeValue , + + +-- ** dOMXPathResultGetSnapshotLength + dOMXPathResultGetSnapshotLength , + + +-- ** dOMXPathResultGetStringValue + dOMXPathResultGetStringValue , + + +-- ** dOMXPathResultIterateNext + dOMXPathResultIterateNext , + + +-- ** dOMXPathResultSnapshotItem + dOMXPathResultSnapshotItem , + + + + + -- * Properties +-- ** BooleanValue + DOMXPathResultBooleanValuePropertyInfo , + getDOMXPathResultBooleanValue , + + +-- ** InvalidIteratorState + DOMXPathResultInvalidIteratorStatePropertyInfo, + getDOMXPathResultInvalidIteratorState , + + +-- ** NumberValue + DOMXPathResultNumberValuePropertyInfo , + getDOMXPathResultNumberValue , + + +-- ** ResultType + DOMXPathResultResultTypePropertyInfo , + getDOMXPathResultResultType , + + +-- ** SingleNodeValue + DOMXPathResultSingleNodeValuePropertyInfo, + getDOMXPathResultSingleNodeValue , + + +-- ** SnapshotLength + DOMXPathResultSnapshotLengthPropertyInfo, + getDOMXPathResultSnapshotLength , + + +-- ** StringValue + DOMXPathResultStringValuePropertyInfo , + getDOMXPathResultStringValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype DOMXPathResult = DOMXPathResult (ForeignPtr DOMXPathResult) +foreign import ccall "webkit_dom_xpath_result_get_type" + c_webkit_dom_xpath_result_get_type :: IO GType + +type instance ParentTypes DOMXPathResult = DOMXPathResultParentTypes +type DOMXPathResultParentTypes = '[DOMObject, GObject.Object] + +instance GObject DOMXPathResult where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_dom_xpath_result_get_type + + +class GObject o => DOMXPathResultK o +instance (GObject o, IsDescendantOf DOMXPathResult o) => DOMXPathResultK o + +toDOMXPathResult :: DOMXPathResultK o => o -> IO DOMXPathResult +toDOMXPathResult = unsafeCastTo DOMXPathResult + +noDOMXPathResult :: Maybe DOMXPathResult +noDOMXPathResult = Nothing + +-- VVV Prop "boolean-value" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMXPathResultBooleanValue :: (MonadIO m, DOMXPathResultK o) => o -> m Bool +getDOMXPathResultBooleanValue obj = liftIO $ getObjectPropertyBool obj "boolean-value" + +data DOMXPathResultBooleanValuePropertyInfo +instance AttrInfo DOMXPathResultBooleanValuePropertyInfo where + type AttrAllowedOps DOMXPathResultBooleanValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultBooleanValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultBooleanValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultBooleanValuePropertyInfo = Bool + type AttrLabel DOMXPathResultBooleanValuePropertyInfo = "DOMXPathResult::boolean-value" + attrGet _ = getDOMXPathResultBooleanValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "invalid-iterator-state" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMXPathResultInvalidIteratorState :: (MonadIO m, DOMXPathResultK o) => o -> m Bool +getDOMXPathResultInvalidIteratorState obj = liftIO $ getObjectPropertyBool obj "invalid-iterator-state" + +data DOMXPathResultInvalidIteratorStatePropertyInfo +instance AttrInfo DOMXPathResultInvalidIteratorStatePropertyInfo where + type AttrAllowedOps DOMXPathResultInvalidIteratorStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultInvalidIteratorStatePropertyInfo = Bool + type AttrLabel DOMXPathResultInvalidIteratorStatePropertyInfo = "DOMXPathResult::invalid-iterator-state" + attrGet _ = getDOMXPathResultInvalidIteratorState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "number-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMXPathResultNumberValue :: (MonadIO m, DOMXPathResultK o) => o -> m Double +getDOMXPathResultNumberValue obj = liftIO $ getObjectPropertyDouble obj "number-value" + +data DOMXPathResultNumberValuePropertyInfo +instance AttrInfo DOMXPathResultNumberValuePropertyInfo where + type AttrAllowedOps DOMXPathResultNumberValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultNumberValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultNumberValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultNumberValuePropertyInfo = Double + type AttrLabel DOMXPathResultNumberValuePropertyInfo = "DOMXPathResult::number-value" + attrGet _ = getDOMXPathResultNumberValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "result-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32 +getDOMXPathResultResultType obj = liftIO $ getObjectPropertyCUInt obj "result-type" + +data DOMXPathResultResultTypePropertyInfo +instance AttrInfo DOMXPathResultResultTypePropertyInfo where + type AttrAllowedOps DOMXPathResultResultTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultResultTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultResultTypePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultResultTypePropertyInfo = Word32 + type AttrLabel DOMXPathResultResultTypePropertyInfo = "DOMXPathResult::result-type" + attrGet _ = getDOMXPathResultResultType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "single-node-value" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m DOMNode +getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode + +data DOMXPathResultSingleNodeValuePropertyInfo +instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where + type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = DOMNode + type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "DOMXPathResult::single-node-value" + attrGet _ = getDOMXPathResultSingleNodeValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "snapshot-length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m Word64 +getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyUInt64 obj "snapshot-length" + +data DOMXPathResultSnapshotLengthPropertyInfo +instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where + type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = Word64 + type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "DOMXPathResult::snapshot-length" + attrGet _ = getDOMXPathResultSnapshotLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "string-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m T.Text +getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value" + +data DOMXPathResultStringValuePropertyInfo +instance AttrInfo DOMXPathResultStringValuePropertyInfo where + type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultStringValuePropertyInfo = T.Text + type AttrLabel DOMXPathResultStringValuePropertyInfo = "DOMXPathResult::string-value" + attrGet _ = getDOMXPathResultStringValue + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMXPathResult = DOMXPathResultAttributeList +type DOMXPathResultAttributeList = ('[ '("boolean-value", DOMXPathResultBooleanValuePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("invalid-iterator-state", DOMXPathResultInvalidIteratorStatePropertyInfo), '("number-value", DOMXPathResultNumberValuePropertyInfo), '("result-type", DOMXPathResultResultTypePropertyInfo), '("single-node-value", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshot-length", DOMXPathResultSnapshotLengthPropertyInfo), '("string-value", DOMXPathResultStringValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList DOMXPathResult = DOMXPathResultSignalList +type DOMXPathResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method DOMXPathResult::get_boolean_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_boolean_value" webkit_dom_xpath_result_get_boolean_value :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO CInt + + +dOMXPathResultGetBooleanValue :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m () +dOMXPathResultGetBooleanValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + _ <- propagateGError $ webkit_dom_xpath_result_get_boolean_value _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method DOMXPathResult::get_invalid_iterator_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_invalid_iterator_state" webkit_dom_xpath_result_get_invalid_iterator_state :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + IO CInt + + +dOMXPathResultGetInvalidIteratorState :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m Bool +dOMXPathResultGetInvalidIteratorState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_xpath_result_get_invalid_iterator_state _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DOMXPathResult::get_number_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_number_value" webkit_dom_xpath_result_get_number_value :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO CDouble + + +dOMXPathResultGetNumberValue :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m Double +dOMXPathResultGetNumberValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_get_number_value _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMXPathResult::get_result_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_result_type" webkit_dom_xpath_result_get_result_type :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + IO Word16 + + +dOMXPathResultGetResultType :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m Word16 +dOMXPathResultGetResultType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_dom_xpath_result_get_result_type _obj' + touchManagedPtr _obj + return result + +-- method DOMXPathResult::get_single_node_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_single_node_value" webkit_dom_xpath_result_get_single_node_value :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMXPathResultGetSingleNodeValue :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m DOMNode +dOMXPathResultGetSingleNodeValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_get_single_node_value _obj' + checkUnexpectedReturnNULL "webkit_dom_xpath_result_get_single_node_value" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMXPathResult::get_snapshot_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_snapshot_length" webkit_dom_xpath_result_get_snapshot_length :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO Word64 + + +dOMXPathResultGetSnapshotLength :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m Word64 +dOMXPathResultGetSnapshotLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_get_snapshot_length _obj' + touchManagedPtr _obj + return result + ) (do + return () + ) + +-- method DOMXPathResult::get_string_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_get_string_value" webkit_dom_xpath_result_get_string_value :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO CString + + +dOMXPathResultGetStringValue :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m T.Text +dOMXPathResultGetStringValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_get_string_value _obj' + checkUnexpectedReturnNULL "webkit_dom_xpath_result_get_string_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMXPathResult::iterate_next +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_iterate_next" webkit_dom_xpath_result_iterate_next :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMXPathResultIterateNext :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + m DOMNode +dOMXPathResultIterateNext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_iterate_next _obj' + checkUnexpectedReturnNULL "webkit_dom_xpath_result_iterate_next" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method DOMXPathResult::snapshot_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMNode" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_dom_xpath_result_snapshot_item" webkit_dom_xpath_result_snapshot_item :: + Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" + Word64 -> -- index : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr DOMNode) + + +dOMXPathResultSnapshotItem :: + (MonadIO m, DOMXPathResultK a) => + a -> -- _obj + Word64 -> -- index + m DOMNode +dOMXPathResultSnapshotItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + onException (do + result <- propagateGError $ webkit_dom_xpath_result_snapshot_item _obj' index + checkUnexpectedReturnNULL "webkit_dom_xpath_result_snapshot_item" result + result' <- (newObject DOMNode) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + + diff --git a/GI/WebKit/Objects/DOMXPathResult.hs-boot b/GI/WebKit/Objects/DOMXPathResult.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/DOMXPathResult.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.DOMXPathResult where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMXPathResult = DOMXPathResult (ForeignPtr DOMXPathResult) +instance GObject DOMXPathResult where +class GObject o => DOMXPathResultK o +instance (GObject o, IsDescendantOf DOMXPathResult o) => DOMXPathResultK o +data DOMXPathResultBooleanValuePropertyInfo +data DOMXPathResultInvalidIteratorStatePropertyInfo +data DOMXPathResultNumberValuePropertyInfo +data DOMXPathResultResultTypePropertyInfo +data DOMXPathResultSingleNodeValuePropertyInfo +data DOMXPathResultSnapshotLengthPropertyInfo +data DOMXPathResultStringValuePropertyInfo diff --git a/GI/WebKit/Objects/Download.hs b/GI/WebKit/Objects/Download.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/Download.hs @@ -0,0 +1,745 @@ + +{- | +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.WebKit.Objects.Download + ( + +-- * Exported types + Download(..) , + DownloadK , + toDownload , + noDownload , + + + -- * Methods +-- ** downloadCancel + downloadCancel , + + +-- ** downloadGetCurrentSize + downloadGetCurrentSize , + + +-- ** downloadGetDestinationUri + downloadGetDestinationUri , + + +-- ** downloadGetElapsedTime + downloadGetElapsedTime , + + +-- ** downloadGetNetworkRequest + downloadGetNetworkRequest , + + +-- ** downloadGetNetworkResponse + downloadGetNetworkResponse , + + +-- ** downloadGetProgress + downloadGetProgress , + + +-- ** downloadGetStatus + downloadGetStatus , + + +-- ** downloadGetSuggestedFilename + downloadGetSuggestedFilename , + + +-- ** downloadGetTotalSize + downloadGetTotalSize , + + +-- ** downloadGetUri + downloadGetUri , + + +-- ** downloadNew + downloadNew , + + +-- ** downloadSetDestinationUri + downloadSetDestinationUri , + + +-- ** downloadStart + downloadStart , + + + + + -- * Properties +-- ** CurrentSize + DownloadCurrentSizePropertyInfo , + getDownloadCurrentSize , + + +-- ** DestinationUri + DownloadDestinationUriPropertyInfo , + constructDownloadDestinationUri , + getDownloadDestinationUri , + setDownloadDestinationUri , + + +-- ** NetworkRequest + DownloadNetworkRequestPropertyInfo , + constructDownloadNetworkRequest , + getDownloadNetworkRequest , + + +-- ** NetworkResponse + DownloadNetworkResponsePropertyInfo , + constructDownloadNetworkResponse , + getDownloadNetworkResponse , + + +-- ** Progress + DownloadProgressPropertyInfo , + getDownloadProgress , + + +-- ** Status + DownloadStatusPropertyInfo , + getDownloadStatus , + + +-- ** SuggestedFilename + DownloadSuggestedFilenamePropertyInfo , + getDownloadSuggestedFilename , + + +-- ** TotalSize + DownloadTotalSizePropertyInfo , + getDownloadTotalSize , + + + + + -- * Signals +-- ** Error + DownloadErrorCallback , + DownloadErrorCallbackC , + DownloadErrorSignalInfo , + afterDownloadError , + downloadErrorCallbackWrapper , + downloadErrorClosure , + mkDownloadErrorCallback , + noDownloadErrorCallback , + onDownloadError , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype Download = Download (ForeignPtr Download) +foreign import ccall "webkit_download_get_type" + c_webkit_download_get_type :: IO GType + +type instance ParentTypes Download = DownloadParentTypes +type DownloadParentTypes = '[GObject.Object] + +instance GObject Download where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_download_get_type + + +class GObject o => DownloadK o +instance (GObject o, IsDescendantOf Download o) => DownloadK o + +toDownload :: DownloadK o => o -> IO Download +toDownload = unsafeCastTo Download + +noDownload :: Maybe Download +noDownload = Nothing + +-- signal Download::error +type DownloadErrorCallback = + Int32 -> + Int32 -> + T.Text -> + IO Bool + +noDownloadErrorCallback :: Maybe DownloadErrorCallback +noDownloadErrorCallback = Nothing + +type DownloadErrorCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + CString -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkDownloadErrorCallback :: DownloadErrorCallbackC -> IO (FunPtr DownloadErrorCallbackC) + +downloadErrorClosure :: DownloadErrorCallback -> IO Closure +downloadErrorClosure cb = newCClosure =<< mkDownloadErrorCallback wrapped + where wrapped = downloadErrorCallbackWrapper cb + +downloadErrorCallbackWrapper :: + DownloadErrorCallback -> + Ptr () -> + Int32 -> + Int32 -> + CString -> + Ptr () -> + IO CInt +downloadErrorCallbackWrapper _cb _ error_code error_detail reason _ = do + reason' <- cstringToText reason + result <- _cb error_code error_detail reason' + let result' = (fromIntegral . fromEnum) result + return result' + +onDownloadError :: (GObject a, MonadIO m) => a -> DownloadErrorCallback -> m SignalHandlerId +onDownloadError obj cb = liftIO $ connectDownloadError obj cb SignalConnectBefore +afterDownloadError :: (GObject a, MonadIO m) => a -> DownloadErrorCallback -> m SignalHandlerId +afterDownloadError obj cb = connectDownloadError obj cb SignalConnectAfter + +connectDownloadError :: (GObject a, MonadIO m) => + a -> DownloadErrorCallback -> SignalConnectMode -> m SignalHandlerId +connectDownloadError obj cb after = liftIO $ do + cb' <- mkDownloadErrorCallback (downloadErrorCallbackWrapper cb) + connectSignalFunPtr obj "error" cb' after + +-- VVV Prop "current-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDownloadCurrentSize :: (MonadIO m, DownloadK o) => o -> m Word64 +getDownloadCurrentSize obj = liftIO $ getObjectPropertyUInt64 obj "current-size" + +data DownloadCurrentSizePropertyInfo +instance AttrInfo DownloadCurrentSizePropertyInfo where + type AttrAllowedOps DownloadCurrentSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadCurrentSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadCurrentSizePropertyInfo = DownloadK + type AttrGetType DownloadCurrentSizePropertyInfo = Word64 + type AttrLabel DownloadCurrentSizePropertyInfo = "Download::current-size" + attrGet _ = getDownloadCurrentSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "destination-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> m T.Text +getDownloadDestinationUri obj = liftIO $ getObjectPropertyString obj "destination-uri" + +setDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> T.Text -> m () +setDownloadDestinationUri obj val = liftIO $ setObjectPropertyString obj "destination-uri" val + +constructDownloadDestinationUri :: T.Text -> IO ([Char], GValue) +constructDownloadDestinationUri val = constructObjectPropertyString "destination-uri" val + +data DownloadDestinationUriPropertyInfo +instance AttrInfo DownloadDestinationUriPropertyInfo where + type AttrAllowedOps DownloadDestinationUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadDestinationUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DownloadDestinationUriPropertyInfo = DownloadK + type AttrGetType DownloadDestinationUriPropertyInfo = T.Text + type AttrLabel DownloadDestinationUriPropertyInfo = "Download::destination-uri" + attrGet _ = getDownloadDestinationUri + attrSet _ = setDownloadDestinationUri + attrConstruct _ = constructDownloadDestinationUri + +-- VVV Prop "network-request" + -- Type: TInterface "WebKit" "NetworkRequest" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDownloadNetworkRequest :: (MonadIO m, DownloadK o) => o -> m NetworkRequest +getDownloadNetworkRequest obj = liftIO $ getObjectPropertyObject obj "network-request" NetworkRequest + +constructDownloadNetworkRequest :: (NetworkRequestK a) => a -> IO ([Char], GValue) +constructDownloadNetworkRequest val = constructObjectPropertyObject "network-request" val + +data DownloadNetworkRequestPropertyInfo +instance AttrInfo DownloadNetworkRequestPropertyInfo where + type AttrAllowedOps DownloadNetworkRequestPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadNetworkRequestPropertyInfo = NetworkRequestK + type AttrBaseTypeConstraint DownloadNetworkRequestPropertyInfo = DownloadK + type AttrGetType DownloadNetworkRequestPropertyInfo = NetworkRequest + type AttrLabel DownloadNetworkRequestPropertyInfo = "Download::network-request" + attrGet _ = getDownloadNetworkRequest + attrSet _ = undefined + attrConstruct _ = constructDownloadNetworkRequest + +-- VVV Prop "network-response" + -- Type: TInterface "WebKit" "NetworkResponse" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDownloadNetworkResponse :: (MonadIO m, DownloadK o) => o -> m NetworkResponse +getDownloadNetworkResponse obj = liftIO $ getObjectPropertyObject obj "network-response" NetworkResponse + +constructDownloadNetworkResponse :: (NetworkResponseK a) => a -> IO ([Char], GValue) +constructDownloadNetworkResponse val = constructObjectPropertyObject "network-response" val + +data DownloadNetworkResponsePropertyInfo +instance AttrInfo DownloadNetworkResponsePropertyInfo where + type AttrAllowedOps DownloadNetworkResponsePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadNetworkResponsePropertyInfo = NetworkResponseK + type AttrBaseTypeConstraint DownloadNetworkResponsePropertyInfo = DownloadK + type AttrGetType DownloadNetworkResponsePropertyInfo = NetworkResponse + type AttrLabel DownloadNetworkResponsePropertyInfo = "Download::network-response" + attrGet _ = getDownloadNetworkResponse + attrSet _ = undefined + attrConstruct _ = constructDownloadNetworkResponse + +-- VVV Prop "progress" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDownloadProgress :: (MonadIO m, DownloadK o) => o -> m Double +getDownloadProgress obj = liftIO $ getObjectPropertyDouble obj "progress" + +data DownloadProgressPropertyInfo +instance AttrInfo DownloadProgressPropertyInfo where + type AttrAllowedOps DownloadProgressPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadProgressPropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadProgressPropertyInfo = DownloadK + type AttrGetType DownloadProgressPropertyInfo = Double + type AttrLabel DownloadProgressPropertyInfo = "Download::progress" + attrGet _ = getDownloadProgress + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "status" + -- Type: TInterface "WebKit" "DownloadStatus" + -- Flags: [PropertyReadable] + +getDownloadStatus :: (MonadIO m, DownloadK o) => o -> m DownloadStatus +getDownloadStatus obj = liftIO $ getObjectPropertyEnum obj "status" + +data DownloadStatusPropertyInfo +instance AttrInfo DownloadStatusPropertyInfo where + type AttrAllowedOps DownloadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadStatusPropertyInfo = DownloadK + type AttrGetType DownloadStatusPropertyInfo = DownloadStatus + type AttrLabel DownloadStatusPropertyInfo = "Download::status" + attrGet _ = getDownloadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "suggested-filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDownloadSuggestedFilename :: (MonadIO m, DownloadK o) => o -> m T.Text +getDownloadSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" + +data DownloadSuggestedFilenamePropertyInfo +instance AttrInfo DownloadSuggestedFilenamePropertyInfo where + type AttrAllowedOps DownloadSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadSuggestedFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadSuggestedFilenamePropertyInfo = DownloadK + type AttrGetType DownloadSuggestedFilenamePropertyInfo = T.Text + type AttrLabel DownloadSuggestedFilenamePropertyInfo = "Download::suggested-filename" + attrGet _ = getDownloadSuggestedFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDownloadTotalSize :: (MonadIO m, DownloadK o) => o -> m Word64 +getDownloadTotalSize obj = liftIO $ getObjectPropertyUInt64 obj "total-size" + +data DownloadTotalSizePropertyInfo +instance AttrInfo DownloadTotalSizePropertyInfo where + type AttrAllowedOps DownloadTotalSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadTotalSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadTotalSizePropertyInfo = DownloadK + type AttrGetType DownloadTotalSizePropertyInfo = Word64 + type AttrLabel DownloadTotalSizePropertyInfo = "Download::total-size" + attrGet _ = getDownloadTotalSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Download = DownloadAttributeList +type DownloadAttributeList = ('[ '("current-size", DownloadCurrentSizePropertyInfo), '("destination-uri", DownloadDestinationUriPropertyInfo), '("network-request", DownloadNetworkRequestPropertyInfo), '("network-response", DownloadNetworkResponsePropertyInfo), '("progress", DownloadProgressPropertyInfo), '("status", DownloadStatusPropertyInfo), '("suggested-filename", DownloadSuggestedFilenamePropertyInfo), '("total-size", DownloadTotalSizePropertyInfo)] :: [(Symbol, *)]) + +data DownloadErrorSignalInfo +instance SignalInfo DownloadErrorSignalInfo where + type HaskellCallbackType DownloadErrorSignalInfo = DownloadErrorCallback + connectSignal _ = connectDownloadError + +type instance SignalList Download = DownloadSignalList +type DownloadSignalList = ('[ '("error", DownloadErrorSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Download::new +-- method type : Constructor +-- Args : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "Download" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_new" webkit_download_new :: + Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest" + IO (Ptr Download) + + +downloadNew :: + (MonadIO m, NetworkRequestK a) => + a -> -- request + m Download +downloadNew request = liftIO $ do + let request' = unsafeManagedPtrCastPtr request + result <- webkit_download_new request' + checkUnexpectedReturnNULL "webkit_download_new" result + result' <- (wrapObject Download) result + touchManagedPtr request + return result' + +-- method Download::cancel +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_cancel" webkit_download_cancel :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO () + + +downloadCancel :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m () +downloadCancel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_download_cancel _obj' + touchManagedPtr _obj + return () + +-- method Download::get_current_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_current_size" webkit_download_get_current_size :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO Word64 + + +downloadGetCurrentSize :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m Word64 +downloadGetCurrentSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_current_size _obj' + touchManagedPtr _obj + return result + +-- method Download::get_destination_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_destination_uri" webkit_download_get_destination_uri :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CString + + +downloadGetDestinationUri :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m T.Text +downloadGetDestinationUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_destination_uri _obj' + checkUnexpectedReturnNULL "webkit_download_get_destination_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Download::get_elapsed_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CDouble + + +downloadGetElapsedTime :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m Double +downloadGetElapsedTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_elapsed_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Download::get_network_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkRequest" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_network_request" webkit_download_get_network_request :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO (Ptr NetworkRequest) + + +downloadGetNetworkRequest :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m NetworkRequest +downloadGetNetworkRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_network_request _obj' + checkUnexpectedReturnNULL "webkit_download_get_network_request" result + result' <- (newObject NetworkRequest) result + touchManagedPtr _obj + return result' + +-- method Download::get_network_response +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkResponse" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_network_response" webkit_download_get_network_response :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO (Ptr NetworkResponse) + + +downloadGetNetworkResponse :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m NetworkResponse +downloadGetNetworkResponse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_network_response _obj' + checkUnexpectedReturnNULL "webkit_download_get_network_response" result + result' <- (newObject NetworkResponse) result + touchManagedPtr _obj + return result' + +-- method Download::get_progress +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_progress" webkit_download_get_progress :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CDouble + + +downloadGetProgress :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m Double +downloadGetProgress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_progress _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Download::get_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DownloadStatus" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_status" webkit_download_get_status :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CUInt + + +downloadGetStatus :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m DownloadStatus +downloadGetStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_status _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Download::get_suggested_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_suggested_filename" webkit_download_get_suggested_filename :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CString + + +downloadGetSuggestedFilename :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m T.Text +downloadGetSuggestedFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_suggested_filename _obj' + checkUnexpectedReturnNULL "webkit_download_get_suggested_filename" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Download::get_total_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_total_size" webkit_download_get_total_size :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO Word64 + + +downloadGetTotalSize :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m Word64 +downloadGetTotalSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_total_size _obj' + touchManagedPtr _obj + return result + +-- method Download::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_get_uri" webkit_download_get_uri :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO CString + + +downloadGetUri :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m T.Text +downloadGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_download_get_uri _obj' + checkUnexpectedReturnNULL "webkit_download_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Download::set_destination_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_set_destination_uri" webkit_download_set_destination_uri :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + CString -> -- destination_uri : TBasicType TUTF8 + IO () + + +downloadSetDestinationUri :: + (MonadIO m, DownloadK a) => + a -> -- _obj + T.Text -> -- destination_uri + m () +downloadSetDestinationUri _obj destination_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + destination_uri' <- textToCString destination_uri + webkit_download_set_destination_uri _obj' destination_uri' + touchManagedPtr _obj + freeMem destination_uri' + return () + +-- method Download::start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_download_start" webkit_download_start :: + Ptr Download -> -- _obj : TInterface "WebKit" "Download" + IO () + + +downloadStart :: + (MonadIO m, DownloadK a) => + a -> -- _obj + m () +downloadStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_download_start _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/Download.hs-boot b/GI/WebKit/Objects/Download.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/Download.hs-boot @@ -0,0 +1,22 @@ +module GI.WebKit.Objects.Download where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Download = Download (ForeignPtr Download) +instance GObject Download where +class GObject o => DownloadK o +instance (GObject o, IsDescendantOf Download o) => DownloadK o +data DownloadCurrentSizePropertyInfo +data DownloadDestinationUriPropertyInfo +data DownloadNetworkRequestPropertyInfo +data DownloadNetworkResponsePropertyInfo +data DownloadProgressPropertyInfo +data DownloadStatusPropertyInfo +data DownloadSuggestedFilenamePropertyInfo +data DownloadTotalSizePropertyInfo +data DownloadErrorSignalInfo diff --git a/GI/WebKit/Objects/FaviconDatabase.hs b/GI/WebKit/Objects/FaviconDatabase.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/FaviconDatabase.hs @@ -0,0 +1,420 @@ + +{- | +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.WebKit.Objects.FaviconDatabase + ( + +-- * Exported types + FaviconDatabase(..) , + FaviconDatabaseK , + toFaviconDatabase , + noFaviconDatabase , + + + -- * Methods +-- ** faviconDatabaseClear + faviconDatabaseClear , + + +-- ** faviconDatabaseGetFaviconPixbuf + faviconDatabaseGetFaviconPixbuf , + + +-- ** faviconDatabaseGetFaviconPixbufFinish + faviconDatabaseGetFaviconPixbufFinish , + + +-- ** faviconDatabaseGetFaviconUri + faviconDatabaseGetFaviconUri , + + +-- ** faviconDatabaseGetPath + faviconDatabaseGetPath , + + +-- ** faviconDatabaseSetPath + faviconDatabaseSetPath , + + +-- ** faviconDatabaseTryGetFaviconPixbuf + faviconDatabaseTryGetFaviconPixbuf , + + + + + -- * Properties +-- ** Path + FaviconDatabasePathPropertyInfo , + constructFaviconDatabasePath , + getFaviconDatabasePath , + setFaviconDatabasePath , + + + + + -- * Signals +-- ** IconLoaded + FaviconDatabaseIconLoadedCallback , + FaviconDatabaseIconLoadedCallbackC , + FaviconDatabaseIconLoadedSignalInfo , + afterFaviconDatabaseIconLoaded , + faviconDatabaseIconLoadedCallbackWrapper, + faviconDatabaseIconLoadedClosure , + mkFaviconDatabaseIconLoadedCallback , + noFaviconDatabaseIconLoadedCallback , + onFaviconDatabaseIconLoaded , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Gio as Gio + +newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase) +foreign import ccall "webkit_favicon_database_get_type" + c_webkit_favicon_database_get_type :: IO GType + +type instance ParentTypes FaviconDatabase = FaviconDatabaseParentTypes +type FaviconDatabaseParentTypes = '[GObject.Object] + +instance GObject FaviconDatabase where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_favicon_database_get_type + + +class GObject o => FaviconDatabaseK o +instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o + +toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase +toFaviconDatabase = unsafeCastTo FaviconDatabase + +noFaviconDatabase :: Maybe FaviconDatabase +noFaviconDatabase = Nothing + +-- signal FaviconDatabase::icon-loaded +type FaviconDatabaseIconLoadedCallback = + T.Text -> + IO () + +noFaviconDatabaseIconLoadedCallback :: Maybe FaviconDatabaseIconLoadedCallback +noFaviconDatabaseIconLoadedCallback = Nothing + +type FaviconDatabaseIconLoadedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkFaviconDatabaseIconLoadedCallback :: FaviconDatabaseIconLoadedCallbackC -> IO (FunPtr FaviconDatabaseIconLoadedCallbackC) + +faviconDatabaseIconLoadedClosure :: FaviconDatabaseIconLoadedCallback -> IO Closure +faviconDatabaseIconLoadedClosure cb = newCClosure =<< mkFaviconDatabaseIconLoadedCallback wrapped + where wrapped = faviconDatabaseIconLoadedCallbackWrapper cb + +faviconDatabaseIconLoadedCallbackWrapper :: + FaviconDatabaseIconLoadedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +faviconDatabaseIconLoadedCallbackWrapper _cb _ frame_uri _ = do + frame_uri' <- cstringToText frame_uri + _cb frame_uri' + +onFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> FaviconDatabaseIconLoadedCallback -> m SignalHandlerId +onFaviconDatabaseIconLoaded obj cb = liftIO $ connectFaviconDatabaseIconLoaded obj cb SignalConnectBefore +afterFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> FaviconDatabaseIconLoadedCallback -> m SignalHandlerId +afterFaviconDatabaseIconLoaded obj cb = connectFaviconDatabaseIconLoaded obj cb SignalConnectAfter + +connectFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) => + a -> FaviconDatabaseIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId +connectFaviconDatabaseIconLoaded obj cb after = liftIO $ do + cb' <- mkFaviconDatabaseIconLoadedCallback (faviconDatabaseIconLoadedCallbackWrapper cb) + connectSignalFunPtr obj "icon-loaded" cb' after + +-- VVV Prop "path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> m T.Text +getFaviconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" + +setFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> T.Text -> m () +setFaviconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val + +constructFaviconDatabasePath :: T.Text -> IO ([Char], GValue) +constructFaviconDatabasePath val = constructObjectPropertyString "path" val + +data FaviconDatabasePathPropertyInfo +instance AttrInfo FaviconDatabasePathPropertyInfo where + type AttrAllowedOps FaviconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FaviconDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FaviconDatabasePathPropertyInfo = FaviconDatabaseK + type AttrGetType FaviconDatabasePathPropertyInfo = T.Text + type AttrLabel FaviconDatabasePathPropertyInfo = "FaviconDatabase::path" + attrGet _ = getFaviconDatabasePath + attrSet _ = setFaviconDatabasePath + attrConstruct _ = constructFaviconDatabasePath + +type instance AttributeList FaviconDatabase = FaviconDatabaseAttributeList +type FaviconDatabaseAttributeList = ('[ '("path", FaviconDatabasePathPropertyInfo)] :: [(Symbol, *)]) + +data FaviconDatabaseIconLoadedSignalInfo +instance SignalInfo FaviconDatabaseIconLoadedSignalInfo where + type HaskellCallbackType FaviconDatabaseIconLoadedSignalInfo = FaviconDatabaseIconLoadedCallback + connectSignal _ = connectFaviconDatabaseIconLoaded + +type instance SignalList FaviconDatabase = FaviconDatabaseSignalList +type FaviconDatabaseSignalList = ('[ '("icon-loaded", FaviconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method FaviconDatabase::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + IO () + + +faviconDatabaseClear :: + (MonadIO m, FaviconDatabaseK a) => + a -> -- _obj + m () +faviconDatabaseClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_favicon_database_clear _obj' + touchManagedPtr _obj + return () + +-- method FaviconDatabase::get_favicon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_get_favicon_pixbuf" webkit_favicon_database_get_favicon_pixbuf :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + CString -> -- page_uri : TBasicType TUTF8 + Word32 -> -- width : TBasicType TUInt32 + Word32 -> -- height : TBasicType TUInt32 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +faviconDatabaseGetFaviconPixbuf :: + (MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) => + a -> -- _obj + T.Text -> -- page_uri + Word32 -> -- width + Word32 -> -- height + Maybe (b) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +faviconDatabaseGetFaviconPixbuf _obj page_uri width height cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + page_uri' <- textToCString page_uri + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + webkit_favicon_database_get_favicon_pixbuf _obj' page_uri' width height maybeCancellable maybeCallback user_data + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem page_uri' + return () + +-- method FaviconDatabase::get_favicon_pixbuf_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_favicon_database_get_favicon_pixbuf_finish" webkit_favicon_database_get_favicon_pixbuf_finish :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr GdkPixbuf.Pixbuf) + + +faviconDatabaseGetFaviconPixbufFinish :: + (MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) => + a -> -- _obj + b -> -- result + m GdkPixbuf.Pixbuf +faviconDatabaseGetFaviconPixbufFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ webkit_favicon_database_get_favicon_pixbuf_finish _obj' result_' + checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_pixbuf_finish" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +-- method FaviconDatabase::get_favicon_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + CString -> -- page_uri : TBasicType TUTF8 + IO CString + + +faviconDatabaseGetFaviconUri :: + (MonadIO m, FaviconDatabaseK a) => + a -> -- _obj + T.Text -> -- page_uri + m T.Text +faviconDatabaseGetFaviconUri _obj page_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + page_uri' <- textToCString page_uri + result <- webkit_favicon_database_get_favicon_uri _obj' page_uri' + checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem page_uri' + return result' + +-- method FaviconDatabase::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_get_path" webkit_favicon_database_get_path :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + IO CString + + +faviconDatabaseGetPath :: + (MonadIO m, FaviconDatabaseK a) => + a -> -- _obj + m T.Text +faviconDatabaseGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_favicon_database_get_path _obj' + checkUnexpectedReturnNULL "webkit_favicon_database_get_path" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method FaviconDatabase::set_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_set_path" webkit_favicon_database_set_path :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + CString -> -- path : TBasicType TUTF8 + IO () + + +faviconDatabaseSetPath :: + (MonadIO m, FaviconDatabaseK a) => + a -> -- _obj + Maybe (T.Text) -> -- path + m () +faviconDatabaseSetPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + jPath' <- textToCString jPath + return jPath' + webkit_favicon_database_set_path _obj' maybePath + touchManagedPtr _obj + freeMem maybePath + return () + +-- method FaviconDatabase::try_get_favicon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_favicon_database_try_get_favicon_pixbuf" webkit_favicon_database_try_get_favicon_pixbuf :: + Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" + CString -> -- page_uri : TBasicType TUTF8 + Word32 -> -- width : TBasicType TUInt32 + Word32 -> -- height : TBasicType TUInt32 + IO (Ptr GdkPixbuf.Pixbuf) + + +faviconDatabaseTryGetFaviconPixbuf :: + (MonadIO m, FaviconDatabaseK a) => + a -> -- _obj + T.Text -> -- page_uri + Word32 -> -- width + Word32 -> -- height + m GdkPixbuf.Pixbuf +faviconDatabaseTryGetFaviconPixbuf _obj page_uri width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + page_uri' <- textToCString page_uri + result <- webkit_favicon_database_try_get_favicon_pixbuf _obj' page_uri' width height + checkUnexpectedReturnNULL "webkit_favicon_database_try_get_favicon_pixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + freeMem page_uri' + return result' + + diff --git a/GI/WebKit/Objects/FaviconDatabase.hs-boot b/GI/WebKit/Objects/FaviconDatabase.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/FaviconDatabase.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.FaviconDatabase where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase) +instance GObject FaviconDatabase where +class GObject o => FaviconDatabaseK o +instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o +data FaviconDatabasePathPropertyInfo +data FaviconDatabaseIconLoadedSignalInfo diff --git a/GI/WebKit/Objects/FileChooserRequest.hs b/GI/WebKit/Objects/FileChooserRequest.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/FileChooserRequest.hs @@ -0,0 +1,309 @@ + +{- | +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.WebKit.Objects.FileChooserRequest + ( + +-- * Exported types + FileChooserRequest(..) , + FileChooserRequestK , + toFileChooserRequest , + noFileChooserRequest , + + + -- * Methods +-- ** fileChooserRequestGetMimeTypes + fileChooserRequestGetMimeTypes , + + +-- ** fileChooserRequestGetMimeTypesFilter + fileChooserRequestGetMimeTypesFilter , + + +-- ** fileChooserRequestGetSelectMultiple + fileChooserRequestGetSelectMultiple , + + +-- ** fileChooserRequestGetSelectedFiles + fileChooserRequestGetSelectedFiles , + + +-- ** fileChooserRequestSelectFiles + fileChooserRequestSelectFiles , + + + + + -- * Properties +-- ** Filter + FileChooserRequestFilterPropertyInfo , + getFileChooserRequestFilter , + + +-- ** MimeTypes + FileChooserRequestMimeTypesPropertyInfo , + getFileChooserRequestMimeTypes , + + +-- ** SelectMultiple + FileChooserRequestSelectMultiplePropertyInfo, + getFileChooserRequestSelectMultiple , + + +-- ** SelectedFiles + FileChooserRequestSelectedFilesPropertyInfo, + getFileChooserRequestSelectedFiles , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gtk as Gtk + +newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest) +foreign import ccall "webkit_file_chooser_request_get_type" + c_webkit_file_chooser_request_get_type :: IO GType + +type instance ParentTypes FileChooserRequest = FileChooserRequestParentTypes +type FileChooserRequestParentTypes = '[GObject.Object] + +instance GObject FileChooserRequest where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_file_chooser_request_get_type + + +class GObject o => FileChooserRequestK o +instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o + +toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest +toFileChooserRequest = unsafeCastTo FileChooserRequest + +noFileChooserRequest :: Maybe FileChooserRequest +noFileChooserRequest = Nothing + +-- VVV Prop "filter" + -- Type: TInterface "Gtk" "FileFilter" + -- Flags: [PropertyReadable] + +getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter +getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter + +data FileChooserRequestFilterPropertyInfo +instance AttrInfo FileChooserRequestFilterPropertyInfo where + type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter + type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter" + attrGet _ = getFileChooserRequestFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-types" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable] + +getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] +getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types" + +data FileChooserRequestMimeTypesPropertyInfo +instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where + type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text] + type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types" + attrGet _ = getFileChooserRequestMimeTypes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool +getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" + +data FileChooserRequestSelectMultiplePropertyInfo +instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where + type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool + type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple" + attrGet _ = getFileChooserRequestSelectMultiple + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-files" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable] + +getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] +getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files" + +data FileChooserRequestSelectedFilesPropertyInfo +instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where + type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text] + type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::selected-files" + attrGet _ = getFileChooserRequestSelectedFiles + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList FileChooserRequest = FileChooserRequestAttributeList +type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mime-types", FileChooserRequestMimeTypesPropertyInfo), '("select-multiple", FileChooserRequestSelectMultiplePropertyInfo), '("selected-files", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList FileChooserRequest = FileChooserRequestSignalList +type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method FileChooserRequest::get_mime_types +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: + Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest" + IO (Ptr CString) + + +fileChooserRequestGetMimeTypes :: + (MonadIO m, FileChooserRequestK a) => + a -> -- _obj + m [T.Text] +fileChooserRequestGetMimeTypes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_file_chooser_request_get_mime_types _obj' + checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types" result + result' <- unpackZeroTerminatedUTF8CArray result + touchManagedPtr _obj + return result' + +-- method FileChooserRequest::get_mime_types_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "FileFilter" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter :: + Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest" + IO (Ptr Gtk.FileFilter) + + +fileChooserRequestGetMimeTypesFilter :: + (MonadIO m, FileChooserRequestK a) => + a -> -- _obj + m Gtk.FileFilter +fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_file_chooser_request_get_mime_types_filter _obj' + checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types_filter" result + result' <- (newObject Gtk.FileFilter) result + touchManagedPtr _obj + return result' + +-- method FileChooserRequest::get_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: + Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest" + IO CInt + + +fileChooserRequestGetSelectMultiple :: + (MonadIO m, FileChooserRequestK a) => + a -> -- _obj + m Bool +fileChooserRequestGetSelectMultiple _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_file_chooser_request_get_select_multiple _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method FileChooserRequest::get_selected_files +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: + Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest" + IO (Ptr CString) + + +fileChooserRequestGetSelectedFiles :: + (MonadIO m, FileChooserRequestK a) => + a -> -- _obj + m [T.Text] +fileChooserRequestGetSelectedFiles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_file_chooser_request_get_selected_files _obj' + checkUnexpectedReturnNULL "webkit_file_chooser_request_get_selected_files" result + result' <- unpackZeroTerminatedUTF8CArray result + touchManagedPtr _obj + return result' + +-- method FileChooserRequest::select_files +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files :: + Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest" + Ptr CString -> -- files : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + + +fileChooserRequestSelectFiles :: + (MonadIO m, FileChooserRequestK a) => + a -> -- _obj + [T.Text] -> -- files + m () +fileChooserRequestSelectFiles _obj files = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + files' <- packZeroTerminatedUTF8CArray files + webkit_file_chooser_request_select_files _obj' files' + touchManagedPtr _obj + mapZeroTerminatedCArray freeMem files' + freeMem files' + return () + + diff --git a/GI/WebKit/Objects/FileChooserRequest.hs-boot b/GI/WebKit/Objects/FileChooserRequest.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/FileChooserRequest.hs-boot @@ -0,0 +1,17 @@ +module GI.WebKit.Objects.FileChooserRequest where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest) +instance GObject FileChooserRequest where +class GObject o => FileChooserRequestK o +instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o +data FileChooserRequestFilterPropertyInfo +data FileChooserRequestMimeTypesPropertyInfo +data FileChooserRequestSelectMultiplePropertyInfo +data FileChooserRequestSelectedFilesPropertyInfo diff --git a/GI/WebKit/Objects/GeolocationPolicyDecision.hs b/GI/WebKit/Objects/GeolocationPolicyDecision.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/GeolocationPolicyDecision.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.GeolocationPolicyDecision + ( + +-- * Exported types + GeolocationPolicyDecision(..) , + GeolocationPolicyDecisionK , + toGeolocationPolicyDecision , + noGeolocationPolicyDecision , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype GeolocationPolicyDecision = GeolocationPolicyDecision (ForeignPtr GeolocationPolicyDecision) +foreign import ccall "webkit_geolocation_policy_decision_get_type" + c_webkit_geolocation_policy_decision_get_type :: IO GType + +type instance ParentTypes GeolocationPolicyDecision = GeolocationPolicyDecisionParentTypes +type GeolocationPolicyDecisionParentTypes = '[GObject.Object] + +instance GObject GeolocationPolicyDecision where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_geolocation_policy_decision_get_type + + +class GObject o => GeolocationPolicyDecisionK o +instance (GObject o, IsDescendantOf GeolocationPolicyDecision o) => GeolocationPolicyDecisionK o + +toGeolocationPolicyDecision :: GeolocationPolicyDecisionK o => o -> IO GeolocationPolicyDecision +toGeolocationPolicyDecision = unsafeCastTo GeolocationPolicyDecision + +noGeolocationPolicyDecision :: Maybe GeolocationPolicyDecision +noGeolocationPolicyDecision = Nothing + +type instance AttributeList GeolocationPolicyDecision = GeolocationPolicyDecisionAttributeList +type GeolocationPolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList GeolocationPolicyDecision = GeolocationPolicyDecisionSignalList +type GeolocationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot b/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.GeolocationPolicyDecision where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype GeolocationPolicyDecision = GeolocationPolicyDecision (ForeignPtr GeolocationPolicyDecision) +instance GObject GeolocationPolicyDecision where +class GObject o => GeolocationPolicyDecisionK o +instance (GObject o, IsDescendantOf GeolocationPolicyDecision o) => GeolocationPolicyDecisionK o diff --git a/GI/WebKit/Objects/HitTestResult.hs b/GI/WebKit/Objects/HitTestResult.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/HitTestResult.hs @@ -0,0 +1,250 @@ + +{- | +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.WebKit.Objects.HitTestResult + ( + +-- * Exported types + HitTestResult(..) , + HitTestResultK , + toHitTestResult , + noHitTestResult , + + + -- * Properties +-- ** Context + HitTestResultContextPropertyInfo , + constructHitTestResultContext , + getHitTestResultContext , + + +-- ** ImageUri + HitTestResultImageUriPropertyInfo , + constructHitTestResultImageUri , + getHitTestResultImageUri , + + +-- ** InnerNode + HitTestResultInnerNodePropertyInfo , + constructHitTestResultInnerNode , + getHitTestResultInnerNode , + + +-- ** LinkUri + HitTestResultLinkUriPropertyInfo , + constructHitTestResultLinkUri , + getHitTestResultLinkUri , + + +-- ** MediaUri + HitTestResultMediaUriPropertyInfo , + constructHitTestResultMediaUri , + getHitTestResultMediaUri , + + +-- ** X + HitTestResultXPropertyInfo , + constructHitTestResultX , + getHitTestResultX , + + +-- ** Y + HitTestResultYPropertyInfo , + constructHitTestResultY , + getHitTestResultY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult) +foreign import ccall "webkit_hit_test_result_get_type" + c_webkit_hit_test_result_get_type :: IO GType + +type instance ParentTypes HitTestResult = HitTestResultParentTypes +type HitTestResultParentTypes = '[GObject.Object] + +instance GObject HitTestResult where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_hit_test_result_get_type + + +class GObject o => HitTestResultK o +instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o + +toHitTestResult :: HitTestResultK o => o -> IO HitTestResult +toHitTestResult = unsafeCastTo HitTestResult + +noHitTestResult :: Maybe HitTestResult +noHitTestResult = Nothing + +-- VVV Prop "context" + -- Type: TInterface "WebKit" "HitTestResultContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m [HitTestResultContext] +getHitTestResultContext obj = liftIO $ getObjectPropertyFlags obj "context" + +constructHitTestResultContext :: [HitTestResultContext] -> IO ([Char], GValue) +constructHitTestResultContext val = constructObjectPropertyFlags "context" val + +data HitTestResultContextPropertyInfo +instance AttrInfo HitTestResultContextPropertyInfo where + type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) [HitTestResultContext] + type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK + type AttrGetType HitTestResultContextPropertyInfo = [HitTestResultContext] + type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context" + attrGet _ = getHitTestResultContext + attrSet _ = undefined + attrConstruct _ = constructHitTestResultContext + +-- VVV Prop "image-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri" + +constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val + +data HitTestResultImageUriPropertyInfo +instance AttrInfo HitTestResultImageUriPropertyInfo where + type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultImageUriPropertyInfo = T.Text + type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri" + attrGet _ = getHitTestResultImageUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultImageUri + +-- VVV Prop "inner-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultInnerNode :: (MonadIO m, HitTestResultK o) => o -> m DOMNode +getHitTestResultInnerNode obj = liftIO $ getObjectPropertyObject obj "inner-node" DOMNode + +constructHitTestResultInnerNode :: (DOMNodeK a) => a -> IO ([Char], GValue) +constructHitTestResultInnerNode val = constructObjectPropertyObject "inner-node" val + +data HitTestResultInnerNodePropertyInfo +instance AttrInfo HitTestResultInnerNodePropertyInfo where + type AttrAllowedOps HitTestResultInnerNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultInnerNodePropertyInfo = DOMNodeK + type AttrBaseTypeConstraint HitTestResultInnerNodePropertyInfo = HitTestResultK + type AttrGetType HitTestResultInnerNodePropertyInfo = DOMNode + type AttrLabel HitTestResultInnerNodePropertyInfo = "HitTestResult::inner-node" + attrGet _ = getHitTestResultInnerNode + attrSet _ = undefined + attrConstruct _ = constructHitTestResultInnerNode + +-- VVV Prop "link-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri" + +constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val + +data HitTestResultLinkUriPropertyInfo +instance AttrInfo HitTestResultLinkUriPropertyInfo where + type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text + type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri" + attrGet _ = getHitTestResultLinkUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultLinkUri + +-- VVV Prop "media-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri" + +constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val + +data HitTestResultMediaUriPropertyInfo +instance AttrInfo HitTestResultMediaUriPropertyInfo where + type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text + type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri" + attrGet _ = getHitTestResultMediaUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultMediaUri + +-- VVV Prop "x" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultX :: (MonadIO m, HitTestResultK o) => o -> m Int32 +getHitTestResultX obj = liftIO $ getObjectPropertyCInt obj "x" + +constructHitTestResultX :: Int32 -> IO ([Char], GValue) +constructHitTestResultX val = constructObjectPropertyCInt "x" val + +data HitTestResultXPropertyInfo +instance AttrInfo HitTestResultXPropertyInfo where + type AttrAllowedOps HitTestResultXPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultXPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint HitTestResultXPropertyInfo = HitTestResultK + type AttrGetType HitTestResultXPropertyInfo = Int32 + type AttrLabel HitTestResultXPropertyInfo = "HitTestResult::x" + attrGet _ = getHitTestResultX + attrSet _ = undefined + attrConstruct _ = constructHitTestResultX + +-- VVV Prop "y" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultY :: (MonadIO m, HitTestResultK o) => o -> m Int32 +getHitTestResultY obj = liftIO $ getObjectPropertyCInt obj "y" + +constructHitTestResultY :: Int32 -> IO ([Char], GValue) +constructHitTestResultY val = constructObjectPropertyCInt "y" val + +data HitTestResultYPropertyInfo +instance AttrInfo HitTestResultYPropertyInfo where + type AttrAllowedOps HitTestResultYPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultYPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint HitTestResultYPropertyInfo = HitTestResultK + type AttrGetType HitTestResultYPropertyInfo = Int32 + type AttrLabel HitTestResultYPropertyInfo = "HitTestResult::y" + attrGet _ = getHitTestResultY + attrSet _ = undefined + attrConstruct _ = constructHitTestResultY + +type instance AttributeList HitTestResult = HitTestResultAttributeList +type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("inner-node", HitTestResultInnerNodePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo), '("x", HitTestResultXPropertyInfo), '("y", HitTestResultYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList HitTestResult = HitTestResultSignalList +type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/HitTestResult.hs-boot b/GI/WebKit/Objects/HitTestResult.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/HitTestResult.hs-boot @@ -0,0 +1,20 @@ +module GI.WebKit.Objects.HitTestResult where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult) +instance GObject HitTestResult where +class GObject o => HitTestResultK o +instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o +data HitTestResultContextPropertyInfo +data HitTestResultImageUriPropertyInfo +data HitTestResultInnerNodePropertyInfo +data HitTestResultLinkUriPropertyInfo +data HitTestResultMediaUriPropertyInfo +data HitTestResultXPropertyInfo +data HitTestResultYPropertyInfo diff --git a/GI/WebKit/Objects/IconDatabase.hs b/GI/WebKit/Objects/IconDatabase.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/IconDatabase.hs @@ -0,0 +1,321 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.IconDatabase + ( + +-- * Exported types + IconDatabase(..) , + IconDatabaseK , + toIconDatabase , + noIconDatabase , + + + -- * Methods +-- ** iconDatabaseClear + iconDatabaseClear , + + +-- ** iconDatabaseGetIconPixbuf + iconDatabaseGetIconPixbuf , + + +-- ** iconDatabaseGetIconUri + iconDatabaseGetIconUri , + + +-- ** iconDatabaseGetPath + iconDatabaseGetPath , + + +-- ** iconDatabaseSetPath + iconDatabaseSetPath , + + + + + -- * Properties +-- ** Path + IconDatabasePathPropertyInfo , + constructIconDatabasePath , + getIconDatabasePath , + setIconDatabasePath , + + + + + -- * Signals +-- ** IconLoaded + IconDatabaseIconLoadedCallback , + IconDatabaseIconLoadedCallbackC , + IconDatabaseIconLoadedSignalInfo , + afterIconDatabaseIconLoaded , + iconDatabaseIconLoadedCallbackWrapper , + iconDatabaseIconLoadedClosure , + mkIconDatabaseIconLoadedCallback , + noIconDatabaseIconLoadedCallback , + onIconDatabaseIconLoaded , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.GdkPixbuf as GdkPixbuf + +newtype IconDatabase = IconDatabase (ForeignPtr IconDatabase) +foreign import ccall "webkit_icon_database_get_type" + c_webkit_icon_database_get_type :: IO GType + +type instance ParentTypes IconDatabase = IconDatabaseParentTypes +type IconDatabaseParentTypes = '[GObject.Object] + +instance GObject IconDatabase where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_icon_database_get_type + + +class GObject o => IconDatabaseK o +instance (GObject o, IsDescendantOf IconDatabase o) => IconDatabaseK o + +toIconDatabase :: IconDatabaseK o => o -> IO IconDatabase +toIconDatabase = unsafeCastTo IconDatabase + +noIconDatabase :: Maybe IconDatabase +noIconDatabase = Nothing + +-- signal IconDatabase::icon-loaded +type IconDatabaseIconLoadedCallback = + WebFrame -> + T.Text -> + IO () + +noIconDatabaseIconLoadedCallback :: Maybe IconDatabaseIconLoadedCallback +noIconDatabaseIconLoadedCallback = Nothing + +type IconDatabaseIconLoadedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconDatabaseIconLoadedCallback :: IconDatabaseIconLoadedCallbackC -> IO (FunPtr IconDatabaseIconLoadedCallbackC) + +iconDatabaseIconLoadedClosure :: IconDatabaseIconLoadedCallback -> IO Closure +iconDatabaseIconLoadedClosure cb = newCClosure =<< mkIconDatabaseIconLoadedCallback wrapped + where wrapped = iconDatabaseIconLoadedCallbackWrapper cb + +iconDatabaseIconLoadedCallbackWrapper :: + IconDatabaseIconLoadedCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + Ptr () -> + IO () +iconDatabaseIconLoadedCallbackWrapper _cb _ frame frame_uri _ = do + frame' <- (newObject WebFrame) frame + frame_uri' <- cstringToText frame_uri + _cb frame' frame_uri' + +onIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId +onIconDatabaseIconLoaded obj cb = liftIO $ connectIconDatabaseIconLoaded obj cb SignalConnectBefore +afterIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId +afterIconDatabaseIconLoaded obj cb = connectIconDatabaseIconLoaded obj cb SignalConnectAfter + +connectIconDatabaseIconLoaded :: (GObject a, MonadIO m) => + a -> IconDatabaseIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId +connectIconDatabaseIconLoaded obj cb after = liftIO $ do + cb' <- mkIconDatabaseIconLoadedCallback (iconDatabaseIconLoadedCallbackWrapper cb) + connectSignalFunPtr obj "icon-loaded" cb' after + +-- VVV Prop "path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> m T.Text +getIconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" + +setIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> T.Text -> m () +setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val + +constructIconDatabasePath :: T.Text -> IO ([Char], GValue) +constructIconDatabasePath val = constructObjectPropertyString "path" val + +data IconDatabasePathPropertyInfo +instance AttrInfo IconDatabasePathPropertyInfo where + type AttrAllowedOps IconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint IconDatabasePathPropertyInfo = IconDatabaseK + type AttrGetType IconDatabasePathPropertyInfo = T.Text + type AttrLabel IconDatabasePathPropertyInfo = "IconDatabase::path" + attrGet _ = getIconDatabasePath + attrSet _ = setIconDatabasePath + attrConstruct _ = constructIconDatabasePath + +type instance AttributeList IconDatabase = IconDatabaseAttributeList +type IconDatabaseAttributeList = ('[ '("path", IconDatabasePathPropertyInfo)] :: [(Symbol, *)]) + +data IconDatabaseIconLoadedSignalInfo +instance SignalInfo IconDatabaseIconLoadedSignalInfo where + type HaskellCallbackType IconDatabaseIconLoadedSignalInfo = IconDatabaseIconLoadedCallback + connectSignal _ = connectIconDatabaseIconLoaded + +type instance SignalList IconDatabase = IconDatabaseSignalList +type IconDatabaseSignalList = ('[ '("icon-loaded", IconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method IconDatabase::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_icon_database_clear" webkit_icon_database_clear :: + Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase" + IO () + +{-# DEPRECATED iconDatabaseClear ["(Since version 1.8)","Use webkit_favicon_database_clear() instead."]#-} +iconDatabaseClear :: + (MonadIO m, IconDatabaseK a) => + a -> -- _obj + m () +iconDatabaseClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_icon_database_clear _obj' + touchManagedPtr _obj + return () + +-- method IconDatabase::get_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_icon_database_get_icon_pixbuf" webkit_icon_database_get_icon_pixbuf :: + Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase" + CString -> -- page_uri : TBasicType TUTF8 + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED iconDatabaseGetIconPixbuf ["(Since version 1.8)","Use webkit_favicon_database_try_get_favicon_pixbuf() instead."]#-} +iconDatabaseGetIconPixbuf :: + (MonadIO m, IconDatabaseK a) => + a -> -- _obj + T.Text -> -- page_uri + m GdkPixbuf.Pixbuf +iconDatabaseGetIconPixbuf _obj page_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + page_uri' <- textToCString page_uri + result <- webkit_icon_database_get_icon_pixbuf _obj' page_uri' + checkUnexpectedReturnNULL "webkit_icon_database_get_icon_pixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + freeMem page_uri' + return result' + +-- method IconDatabase::get_icon_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_icon_database_get_icon_uri" webkit_icon_database_get_icon_uri :: + Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase" + CString -> -- page_uri : TBasicType TUTF8 + IO CString + +{-# DEPRECATED iconDatabaseGetIconUri ["(Since version 1.8)","Use webkit_favicon_database_get_favicon_uri() instead."]#-} +iconDatabaseGetIconUri :: + (MonadIO m, IconDatabaseK a) => + a -> -- _obj + T.Text -> -- page_uri + m T.Text +iconDatabaseGetIconUri _obj page_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + page_uri' <- textToCString page_uri + result <- webkit_icon_database_get_icon_uri _obj' page_uri' + checkUnexpectedReturnNULL "webkit_icon_database_get_icon_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem page_uri' + return result' + +-- method IconDatabase::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_icon_database_get_path" webkit_icon_database_get_path :: + Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase" + IO CString + +{-# DEPRECATED iconDatabaseGetPath ["(Since version 1.8)","Use webkit_favicon_database_get_path() instead."]#-} +iconDatabaseGetPath :: + (MonadIO m, IconDatabaseK a) => + a -> -- _obj + m T.Text +iconDatabaseGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_icon_database_get_path _obj' + checkUnexpectedReturnNULL "webkit_icon_database_get_path" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method IconDatabase::set_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_icon_database_set_path" webkit_icon_database_set_path :: + Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase" + CString -> -- path : TBasicType TUTF8 + IO () + +{-# DEPRECATED iconDatabaseSetPath ["(Since version 1.8)","Use webkit_favicon_database_set_path() instead."]#-} +iconDatabaseSetPath :: + (MonadIO m, IconDatabaseK a) => + a -> -- _obj + T.Text -> -- path + m () +iconDatabaseSetPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path' <- textToCString path + webkit_icon_database_set_path _obj' path' + touchManagedPtr _obj + freeMem path' + return () + + diff --git a/GI/WebKit/Objects/IconDatabase.hs-boot b/GI/WebKit/Objects/IconDatabase.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/IconDatabase.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.IconDatabase where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype IconDatabase = IconDatabase (ForeignPtr IconDatabase) +instance GObject IconDatabase where +class GObject o => IconDatabaseK o +instance (GObject o, IsDescendantOf IconDatabase o) => IconDatabaseK o +data IconDatabasePathPropertyInfo +data IconDatabaseIconLoadedSignalInfo diff --git a/GI/WebKit/Objects/NetworkRequest.hs b/GI/WebKit/Objects/NetworkRequest.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/NetworkRequest.hs @@ -0,0 +1,245 @@ + +{- | +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.WebKit.Objects.NetworkRequest + ( + +-- * Exported types + NetworkRequest(..) , + NetworkRequestK , + toNetworkRequest , + noNetworkRequest , + + + -- * Methods +-- ** networkRequestGetMessage + networkRequestGetMessage , + + +-- ** networkRequestGetUri + networkRequestGetUri , + + +-- ** networkRequestNew + networkRequestNew , + + +-- ** networkRequestSetUri + networkRequestSetUri , + + + + + -- * Properties +-- ** Message + NetworkRequestMessagePropertyInfo , + constructNetworkRequestMessage , + getNetworkRequestMessage , + + +-- ** Uri + NetworkRequestUriPropertyInfo , + constructNetworkRequestUri , + getNetworkRequestUri , + setNetworkRequestUri , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Soup as Soup + +newtype NetworkRequest = NetworkRequest (ForeignPtr NetworkRequest) +foreign import ccall "webkit_network_request_get_type" + c_webkit_network_request_get_type :: IO GType + +type instance ParentTypes NetworkRequest = NetworkRequestParentTypes +type NetworkRequestParentTypes = '[GObject.Object] + +instance GObject NetworkRequest where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_network_request_get_type + + +class GObject o => NetworkRequestK o +instance (GObject o, IsDescendantOf NetworkRequest o) => NetworkRequestK o + +toNetworkRequest :: NetworkRequestK o => o -> IO NetworkRequest +toNetworkRequest = unsafeCastTo NetworkRequest + +noNetworkRequest :: Maybe NetworkRequest +noNetworkRequest = Nothing + +-- VVV Prop "message" + -- Type: TInterface "Soup" "Message" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getNetworkRequestMessage :: (MonadIO m, NetworkRequestK o) => o -> m Soup.Message +getNetworkRequestMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message + +constructNetworkRequestMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) +constructNetworkRequestMessage val = constructObjectPropertyObject "message" val + +data NetworkRequestMessagePropertyInfo +instance AttrInfo NetworkRequestMessagePropertyInfo where + type AttrAllowedOps NetworkRequestMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkRequestMessagePropertyInfo = Soup.MessageK + type AttrBaseTypeConstraint NetworkRequestMessagePropertyInfo = NetworkRequestK + type AttrGetType NetworkRequestMessagePropertyInfo = Soup.Message + type AttrLabel NetworkRequestMessagePropertyInfo = "NetworkRequest::message" + attrGet _ = getNetworkRequestMessage + attrSet _ = undefined + attrConstruct _ = constructNetworkRequestMessage + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> m T.Text +getNetworkRequestUri obj = liftIO $ getObjectPropertyString obj "uri" + +setNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> T.Text -> m () +setNetworkRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val + +constructNetworkRequestUri :: T.Text -> IO ([Char], GValue) +constructNetworkRequestUri val = constructObjectPropertyString "uri" val + +data NetworkRequestUriPropertyInfo +instance AttrInfo NetworkRequestUriPropertyInfo where + type AttrAllowedOps NetworkRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkRequestUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NetworkRequestUriPropertyInfo = NetworkRequestK + type AttrGetType NetworkRequestUriPropertyInfo = T.Text + type AttrLabel NetworkRequestUriPropertyInfo = "NetworkRequest::uri" + attrGet _ = getNetworkRequestUri + attrSet _ = setNetworkRequestUri + attrConstruct _ = constructNetworkRequestUri + +type instance AttributeList NetworkRequest = NetworkRequestAttributeList +type NetworkRequestAttributeList = ('[ '("message", NetworkRequestMessagePropertyInfo), '("uri", NetworkRequestUriPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList NetworkRequest = NetworkRequestSignalList +type NetworkRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method NetworkRequest::new +-- method type : Constructor +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkRequest" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_request_new" webkit_network_request_new :: + CString -> -- uri : TBasicType TUTF8 + IO (Ptr NetworkRequest) + + +networkRequestNew :: + (MonadIO m) => + T.Text -> -- uri + m NetworkRequest +networkRequestNew uri = liftIO $ do + uri' <- textToCString uri + result <- webkit_network_request_new uri' + checkUnexpectedReturnNULL "webkit_network_request_new" result + result' <- (wrapObject NetworkRequest) result + freeMem uri' + return result' + +-- method NetworkRequest::get_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_request_get_message" webkit_network_request_get_message :: + Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest" + IO (Ptr Soup.Message) + + +networkRequestGetMessage :: + (MonadIO m, NetworkRequestK a) => + a -> -- _obj + m Soup.Message +networkRequestGetMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_network_request_get_message _obj' + checkUnexpectedReturnNULL "webkit_network_request_get_message" result + result' <- (newObject Soup.Message) result + touchManagedPtr _obj + return result' + +-- method NetworkRequest::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_request_get_uri" webkit_network_request_get_uri :: + Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest" + IO CString + + +networkRequestGetUri :: + (MonadIO m, NetworkRequestK a) => + a -> -- _obj + m T.Text +networkRequestGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_network_request_get_uri _obj' + checkUnexpectedReturnNULL "webkit_network_request_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method NetworkRequest::set_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_request_set_uri" webkit_network_request_set_uri :: + Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest" + CString -> -- uri : TBasicType TUTF8 + IO () + + +networkRequestSetUri :: + (MonadIO m, NetworkRequestK a) => + a -> -- _obj + T.Text -> -- uri + m () +networkRequestSetUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_network_request_set_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + + diff --git a/GI/WebKit/Objects/NetworkRequest.hs-boot b/GI/WebKit/Objects/NetworkRequest.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/NetworkRequest.hs-boot @@ -0,0 +1,15 @@ +module GI.WebKit.Objects.NetworkRequest where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype NetworkRequest = NetworkRequest (ForeignPtr NetworkRequest) +instance GObject NetworkRequest where +class GObject o => NetworkRequestK o +instance (GObject o, IsDescendantOf NetworkRequest o) => NetworkRequestK o +data NetworkRequestMessagePropertyInfo +data NetworkRequestUriPropertyInfo diff --git a/GI/WebKit/Objects/NetworkResponse.hs b/GI/WebKit/Objects/NetworkResponse.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/NetworkResponse.hs @@ -0,0 +1,298 @@ + +{- | +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.WebKit.Objects.NetworkResponse + ( + +-- * Exported types + NetworkResponse(..) , + NetworkResponseK , + toNetworkResponse , + noNetworkResponse , + + + -- * Methods +-- ** networkResponseGetMessage + networkResponseGetMessage , + + +-- ** networkResponseGetSuggestedFilename + networkResponseGetSuggestedFilename , + + +-- ** networkResponseGetUri + networkResponseGetUri , + + +-- ** networkResponseNew + networkResponseNew , + + +-- ** networkResponseSetUri + networkResponseSetUri , + + + + + -- * Properties +-- ** Message + NetworkResponseMessagePropertyInfo , + constructNetworkResponseMessage , + getNetworkResponseMessage , + + +-- ** SuggestedFilename + NetworkResponseSuggestedFilenamePropertyInfo, + getNetworkResponseSuggestedFilename , + + +-- ** Uri + NetworkResponseUriPropertyInfo , + constructNetworkResponseUri , + getNetworkResponseUri , + setNetworkResponseUri , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Soup as Soup + +newtype NetworkResponse = NetworkResponse (ForeignPtr NetworkResponse) +foreign import ccall "webkit_network_response_get_type" + c_webkit_network_response_get_type :: IO GType + +type instance ParentTypes NetworkResponse = NetworkResponseParentTypes +type NetworkResponseParentTypes = '[GObject.Object] + +instance GObject NetworkResponse where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_network_response_get_type + + +class GObject o => NetworkResponseK o +instance (GObject o, IsDescendantOf NetworkResponse o) => NetworkResponseK o + +toNetworkResponse :: NetworkResponseK o => o -> IO NetworkResponse +toNetworkResponse = unsafeCastTo NetworkResponse + +noNetworkResponse :: Maybe NetworkResponse +noNetworkResponse = Nothing + +-- VVV Prop "message" + -- Type: TInterface "Soup" "Message" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getNetworkResponseMessage :: (MonadIO m, NetworkResponseK o) => o -> m Soup.Message +getNetworkResponseMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message + +constructNetworkResponseMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) +constructNetworkResponseMessage val = constructObjectPropertyObject "message" val + +data NetworkResponseMessagePropertyInfo +instance AttrInfo NetworkResponseMessagePropertyInfo where + type AttrAllowedOps NetworkResponseMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkResponseMessagePropertyInfo = Soup.MessageK + type AttrBaseTypeConstraint NetworkResponseMessagePropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseMessagePropertyInfo = Soup.Message + type AttrLabel NetworkResponseMessagePropertyInfo = "NetworkResponse::message" + attrGet _ = getNetworkResponseMessage + attrSet _ = undefined + attrConstruct _ = constructNetworkResponseMessage + +-- VVV Prop "suggested-filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getNetworkResponseSuggestedFilename :: (MonadIO m, NetworkResponseK o) => o -> m T.Text +getNetworkResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" + +data NetworkResponseSuggestedFilenamePropertyInfo +instance AttrInfo NetworkResponseSuggestedFilenamePropertyInfo where + type AttrAllowedOps NetworkResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseSuggestedFilenamePropertyInfo = T.Text + type AttrLabel NetworkResponseSuggestedFilenamePropertyInfo = "NetworkResponse::suggested-filename" + attrGet _ = getNetworkResponseSuggestedFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> m T.Text +getNetworkResponseUri obj = liftIO $ getObjectPropertyString obj "uri" + +setNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> T.Text -> m () +setNetworkResponseUri obj val = liftIO $ setObjectPropertyString obj "uri" val + +constructNetworkResponseUri :: T.Text -> IO ([Char], GValue) +constructNetworkResponseUri val = constructObjectPropertyString "uri" val + +data NetworkResponseUriPropertyInfo +instance AttrInfo NetworkResponseUriPropertyInfo where + type AttrAllowedOps NetworkResponseUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkResponseUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NetworkResponseUriPropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseUriPropertyInfo = T.Text + type AttrLabel NetworkResponseUriPropertyInfo = "NetworkResponse::uri" + attrGet _ = getNetworkResponseUri + attrSet _ = setNetworkResponseUri + attrConstruct _ = constructNetworkResponseUri + +type instance AttributeList NetworkResponse = NetworkResponseAttributeList +type NetworkResponseAttributeList = ('[ '("message", NetworkResponseMessagePropertyInfo), '("suggested-filename", NetworkResponseSuggestedFilenamePropertyInfo), '("uri", NetworkResponseUriPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList NetworkResponse = NetworkResponseSignalList +type NetworkResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method NetworkResponse::new +-- method type : Constructor +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkResponse" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_response_new" webkit_network_response_new :: + CString -> -- uri : TBasicType TUTF8 + IO (Ptr NetworkResponse) + + +networkResponseNew :: + (MonadIO m) => + T.Text -> -- uri + m NetworkResponse +networkResponseNew uri = liftIO $ do + uri' <- textToCString uri + result <- webkit_network_response_new uri' + checkUnexpectedReturnNULL "webkit_network_response_new" result + result' <- (wrapObject NetworkResponse) result + freeMem uri' + return result' + +-- method NetworkResponse::get_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_response_get_message" webkit_network_response_get_message :: + Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse" + IO (Ptr Soup.Message) + + +networkResponseGetMessage :: + (MonadIO m, NetworkResponseK a) => + a -> -- _obj + m Soup.Message +networkResponseGetMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_network_response_get_message _obj' + checkUnexpectedReturnNULL "webkit_network_response_get_message" result + result' <- (newObject Soup.Message) result + touchManagedPtr _obj + return result' + +-- method NetworkResponse::get_suggested_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_response_get_suggested_filename" webkit_network_response_get_suggested_filename :: + Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse" + IO CString + + +networkResponseGetSuggestedFilename :: + (MonadIO m, NetworkResponseK a) => + a -> -- _obj + m T.Text +networkResponseGetSuggestedFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_network_response_get_suggested_filename _obj' + checkUnexpectedReturnNULL "webkit_network_response_get_suggested_filename" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method NetworkResponse::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_response_get_uri" webkit_network_response_get_uri :: + Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse" + IO CString + + +networkResponseGetUri :: + (MonadIO m, NetworkResponseK a) => + a -> -- _obj + m T.Text +networkResponseGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_network_response_get_uri _obj' + checkUnexpectedReturnNULL "webkit_network_response_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method NetworkResponse::set_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_network_response_set_uri" webkit_network_response_set_uri :: + Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse" + CString -> -- uri : TBasicType TUTF8 + IO () + + +networkResponseSetUri :: + (MonadIO m, NetworkResponseK a) => + a -> -- _obj + T.Text -> -- uri + m () +networkResponseSetUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_network_response_set_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + + diff --git a/GI/WebKit/Objects/NetworkResponse.hs-boot b/GI/WebKit/Objects/NetworkResponse.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/NetworkResponse.hs-boot @@ -0,0 +1,16 @@ +module GI.WebKit.Objects.NetworkResponse where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype NetworkResponse = NetworkResponse (ForeignPtr NetworkResponse) +instance GObject NetworkResponse where +class GObject o => NetworkResponseK o +instance (GObject o, IsDescendantOf NetworkResponse o) => NetworkResponseK o +data NetworkResponseMessagePropertyInfo +data NetworkResponseSuggestedFilenamePropertyInfo +data NetworkResponseUriPropertyInfo diff --git a/GI/WebKit/Objects/SecurityOrigin.hs b/GI/WebKit/Objects/SecurityOrigin.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/SecurityOrigin.hs @@ -0,0 +1,393 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Objects.SecurityOrigin + ( + +-- * Exported types + SecurityOrigin(..) , + SecurityOriginK , + toSecurityOrigin , + noSecurityOrigin , + + + -- * Methods +-- ** securityOriginGetAllWebDatabases + securityOriginGetAllWebDatabases , + + +-- ** securityOriginGetHost + securityOriginGetHost , + + +-- ** securityOriginGetPort + securityOriginGetPort , + + +-- ** securityOriginGetProtocol + securityOriginGetProtocol , + + +-- ** securityOriginGetWebDatabaseQuota + securityOriginGetWebDatabaseQuota , + + +-- ** securityOriginGetWebDatabaseUsage + securityOriginGetWebDatabaseUsage , + + +-- ** securityOriginSetWebDatabaseQuota + securityOriginSetWebDatabaseQuota , + + + + + -- * Properties +-- ** Host + SecurityOriginHostPropertyInfo , + getSecurityOriginHost , + + +-- ** Port + SecurityOriginPortPropertyInfo , + getSecurityOriginPort , + + +-- ** Protocol + SecurityOriginProtocolPropertyInfo , + getSecurityOriginProtocol , + + +-- ** WebDatabaseQuota + SecurityOriginWebDatabaseQuotaPropertyInfo, + constructSecurityOriginWebDatabaseQuota , + getSecurityOriginWebDatabaseQuota , + setSecurityOriginWebDatabaseQuota , + + +-- ** WebDatabaseUsage + SecurityOriginWebDatabaseUsagePropertyInfo, + getSecurityOriginWebDatabaseUsage , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype SecurityOrigin = SecurityOrigin (ForeignPtr SecurityOrigin) +foreign import ccall "webkit_security_origin_get_type" + c_webkit_security_origin_get_type :: IO GType + +type instance ParentTypes SecurityOrigin = SecurityOriginParentTypes +type SecurityOriginParentTypes = '[GObject.Object] + +instance GObject SecurityOrigin where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_security_origin_get_type + + +class GObject o => SecurityOriginK o +instance (GObject o, IsDescendantOf SecurityOrigin o) => SecurityOriginK o + +toSecurityOrigin :: SecurityOriginK o => o -> IO SecurityOrigin +toSecurityOrigin = unsafeCastTo SecurityOrigin + +noSecurityOrigin :: Maybe SecurityOrigin +noSecurityOrigin = Nothing + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getSecurityOriginHost :: (MonadIO m, SecurityOriginK o) => o -> m T.Text +getSecurityOriginHost obj = liftIO $ getObjectPropertyString obj "host" + +data SecurityOriginHostPropertyInfo +instance AttrInfo SecurityOriginHostPropertyInfo where + type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginHostPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginHostPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginHostPropertyInfo = T.Text + type AttrLabel SecurityOriginHostPropertyInfo = "SecurityOrigin::host" + attrGet _ = getSecurityOriginHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "port" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getSecurityOriginPort :: (MonadIO m, SecurityOriginK o) => o -> m Word32 +getSecurityOriginPort obj = liftIO $ getObjectPropertyCUInt obj "port" + +data SecurityOriginPortPropertyInfo +instance AttrInfo SecurityOriginPortPropertyInfo where + type AttrAllowedOps SecurityOriginPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginPortPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginPortPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginPortPropertyInfo = Word32 + type AttrLabel SecurityOriginPortPropertyInfo = "SecurityOrigin::port" + attrGet _ = getSecurityOriginPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getSecurityOriginProtocol :: (MonadIO m, SecurityOriginK o) => o -> m T.Text +getSecurityOriginProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data SecurityOriginProtocolPropertyInfo +instance AttrInfo SecurityOriginProtocolPropertyInfo where + type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginProtocolPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginProtocolPropertyInfo = T.Text + type AttrLabel SecurityOriginProtocolPropertyInfo = "SecurityOrigin::protocol" + attrGet _ = getSecurityOriginProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "web-database-quota" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> m Word64 +getSecurityOriginWebDatabaseQuota obj = liftIO $ getObjectPropertyUInt64 obj "web-database-quota" + +setSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> Word64 -> m () +setSecurityOriginWebDatabaseQuota obj val = liftIO $ setObjectPropertyUInt64 obj "web-database-quota" val + +constructSecurityOriginWebDatabaseQuota :: Word64 -> IO ([Char], GValue) +constructSecurityOriginWebDatabaseQuota val = constructObjectPropertyUInt64 "web-database-quota" val + +data SecurityOriginWebDatabaseQuotaPropertyInfo +instance AttrInfo SecurityOriginWebDatabaseQuotaPropertyInfo where + type AttrAllowedOps SecurityOriginWebDatabaseQuotaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginWebDatabaseQuotaPropertyInfo = Word64 + type AttrLabel SecurityOriginWebDatabaseQuotaPropertyInfo = "SecurityOrigin::web-database-quota" + attrGet _ = getSecurityOriginWebDatabaseQuota + attrSet _ = setSecurityOriginWebDatabaseQuota + attrConstruct _ = constructSecurityOriginWebDatabaseQuota + +-- VVV Prop "web-database-usage" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getSecurityOriginWebDatabaseUsage :: (MonadIO m, SecurityOriginK o) => o -> m Word64 +getSecurityOriginWebDatabaseUsage obj = liftIO $ getObjectPropertyUInt64 obj "web-database-usage" + +data SecurityOriginWebDatabaseUsagePropertyInfo +instance AttrInfo SecurityOriginWebDatabaseUsagePropertyInfo where + type AttrAllowedOps SecurityOriginWebDatabaseUsagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginWebDatabaseUsagePropertyInfo = Word64 + type AttrLabel SecurityOriginWebDatabaseUsagePropertyInfo = "SecurityOrigin::web-database-usage" + attrGet _ = getSecurityOriginWebDatabaseUsage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList SecurityOrigin = SecurityOriginAttributeList +type SecurityOriginAttributeList = ('[ '("host", SecurityOriginHostPropertyInfo), '("port", SecurityOriginPortPropertyInfo), '("protocol", SecurityOriginProtocolPropertyInfo), '("web-database-quota", SecurityOriginWebDatabaseQuotaPropertyInfo), '("web-database-usage", SecurityOriginWebDatabaseUsagePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList SecurityOrigin = SecurityOriginSignalList +type SecurityOriginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method SecurityOrigin::get_all_web_databases +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGList (TInterface "WebKit" "WebDatabase") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_all_web_databases" webkit_security_origin_get_all_web_databases :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO (Ptr (GList (Ptr WebDatabase))) + + +securityOriginGetAllWebDatabases :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m [WebDatabase] +securityOriginGetAllWebDatabases _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_all_web_databases _obj' + checkUnexpectedReturnNULL "webkit_security_origin_get_all_web_databases" result + result' <- unpackGList result + result'' <- mapM (newObject WebDatabase) result' + g_list_free result + touchManagedPtr _obj + return result'' + +-- method SecurityOrigin::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_host" webkit_security_origin_get_host :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO CString + + +securityOriginGetHost :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m T.Text +securityOriginGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_host _obj' + checkUnexpectedReturnNULL "webkit_security_origin_get_host" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method SecurityOrigin::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_port" webkit_security_origin_get_port :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO Word32 + + +securityOriginGetPort :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m Word32 +securityOriginGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_port _obj' + touchManagedPtr _obj + return result + +-- method SecurityOrigin::get_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_protocol" webkit_security_origin_get_protocol :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO CString + + +securityOriginGetProtocol :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m T.Text +securityOriginGetProtocol _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_protocol _obj' + checkUnexpectedReturnNULL "webkit_security_origin_get_protocol" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method SecurityOrigin::get_web_database_quota +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_web_database_quota" webkit_security_origin_get_web_database_quota :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO Word64 + + +securityOriginGetWebDatabaseQuota :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m Word64 +securityOriginGetWebDatabaseQuota _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_web_database_quota _obj' + touchManagedPtr _obj + return result + +-- method SecurityOrigin::get_web_database_usage +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_get_web_database_usage" webkit_security_origin_get_web_database_usage :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + IO Word64 + + +securityOriginGetWebDatabaseUsage :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + m Word64 +securityOriginGetWebDatabaseUsage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_security_origin_get_web_database_usage _obj' + touchManagedPtr _obj + return result + +-- method SecurityOrigin::set_web_database_quota +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_security_origin_set_web_database_quota" webkit_security_origin_set_web_database_quota :: + Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin" + Word64 -> -- quota : TBasicType TUInt64 + IO () + + +securityOriginSetWebDatabaseQuota :: + (MonadIO m, SecurityOriginK a) => + a -> -- _obj + Word64 -> -- quota + m () +securityOriginSetWebDatabaseQuota _obj quota = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_security_origin_set_web_database_quota _obj' quota + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/SecurityOrigin.hs-boot b/GI/WebKit/Objects/SecurityOrigin.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/SecurityOrigin.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.SecurityOrigin where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype SecurityOrigin = SecurityOrigin (ForeignPtr SecurityOrigin) +instance GObject SecurityOrigin where +class GObject o => SecurityOriginK o +instance (GObject o, IsDescendantOf SecurityOrigin o) => SecurityOriginK o +data SecurityOriginHostPropertyInfo +data SecurityOriginPortPropertyInfo +data SecurityOriginProtocolPropertyInfo +data SecurityOriginWebDatabaseQuotaPropertyInfo +data SecurityOriginWebDatabaseUsagePropertyInfo diff --git a/GI/WebKit/Objects/SoupAuthDialog.hs b/GI/WebKit/Objects/SoupAuthDialog.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/SoupAuthDialog.hs @@ -0,0 +1,124 @@ + +{- | +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.WebKit.Objects.SoupAuthDialog + ( + +-- * Exported types + SoupAuthDialog(..) , + SoupAuthDialogK , + toSoupAuthDialog , + noSoupAuthDialog , + + + -- * Signals +-- ** CurrentToplevel + SoupAuthDialogCurrentToplevelCallback , + SoupAuthDialogCurrentToplevelCallbackC , + SoupAuthDialogCurrentToplevelSignalInfo , + afterSoupAuthDialogCurrentToplevel , + mkSoupAuthDialogCurrentToplevelCallback , + noSoupAuthDialogCurrentToplevelCallback , + onSoupAuthDialogCurrentToplevel , + soupAuthDialogCurrentToplevelCallbackWrapper, + soupAuthDialogCurrentToplevelClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gtk as Gtk +import qualified GI.Soup as Soup + +newtype SoupAuthDialog = SoupAuthDialog (ForeignPtr SoupAuthDialog) +foreign import ccall "webkit_soup_auth_dialog_get_type" + c_webkit_soup_auth_dialog_get_type :: IO GType + +type instance ParentTypes SoupAuthDialog = SoupAuthDialogParentTypes +type SoupAuthDialogParentTypes = '[GObject.Object, Soup.SessionFeature] + +instance GObject SoupAuthDialog where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_soup_auth_dialog_get_type + + +class GObject o => SoupAuthDialogK o +instance (GObject o, IsDescendantOf SoupAuthDialog o) => SoupAuthDialogK o + +toSoupAuthDialog :: SoupAuthDialogK o => o -> IO SoupAuthDialog +toSoupAuthDialog = unsafeCastTo SoupAuthDialog + +noSoupAuthDialog :: Maybe SoupAuthDialog +noSoupAuthDialog = Nothing + +-- signal SoupAuthDialog::current-toplevel +type SoupAuthDialogCurrentToplevelCallback = + Soup.Message -> + IO Gtk.Widget + +noSoupAuthDialogCurrentToplevelCallback :: Maybe SoupAuthDialogCurrentToplevelCallback +noSoupAuthDialogCurrentToplevelCallback = Nothing + +type SoupAuthDialogCurrentToplevelCallbackC = + Ptr () -> -- object + Ptr Soup.Message -> + Ptr () -> -- user_data + IO (Ptr Gtk.Widget) + +foreign import ccall "wrapper" + mkSoupAuthDialogCurrentToplevelCallback :: SoupAuthDialogCurrentToplevelCallbackC -> IO (FunPtr SoupAuthDialogCurrentToplevelCallbackC) + +soupAuthDialogCurrentToplevelClosure :: SoupAuthDialogCurrentToplevelCallback -> IO Closure +soupAuthDialogCurrentToplevelClosure cb = newCClosure =<< mkSoupAuthDialogCurrentToplevelCallback wrapped + where wrapped = soupAuthDialogCurrentToplevelCallbackWrapper cb + +soupAuthDialogCurrentToplevelCallbackWrapper :: + SoupAuthDialogCurrentToplevelCallback -> + Ptr () -> + Ptr Soup.Message -> + Ptr () -> + IO (Ptr Gtk.Widget) +soupAuthDialogCurrentToplevelCallbackWrapper _cb _ message _ = do + message' <- (newObject Soup.Message) message + result <- _cb message' + let result' = unsafeManagedPtrCastPtr result + return result' + +onSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) => a -> SoupAuthDialogCurrentToplevelCallback -> m SignalHandlerId +onSoupAuthDialogCurrentToplevel obj cb = liftIO $ connectSoupAuthDialogCurrentToplevel obj cb SignalConnectBefore +afterSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) => a -> SoupAuthDialogCurrentToplevelCallback -> m SignalHandlerId +afterSoupAuthDialogCurrentToplevel obj cb = connectSoupAuthDialogCurrentToplevel obj cb SignalConnectAfter + +connectSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) => + a -> SoupAuthDialogCurrentToplevelCallback -> SignalConnectMode -> m SignalHandlerId +connectSoupAuthDialogCurrentToplevel obj cb after = liftIO $ do + cb' <- mkSoupAuthDialogCurrentToplevelCallback (soupAuthDialogCurrentToplevelCallbackWrapper cb) + connectSignalFunPtr obj "current-toplevel" cb' after + +type instance AttributeList SoupAuthDialog = SoupAuthDialogAttributeList +type SoupAuthDialogAttributeList = ('[ ] :: [(Symbol, *)]) + +data SoupAuthDialogCurrentToplevelSignalInfo +instance SignalInfo SoupAuthDialogCurrentToplevelSignalInfo where + type HaskellCallbackType SoupAuthDialogCurrentToplevelSignalInfo = SoupAuthDialogCurrentToplevelCallback + connectSignal _ = connectSoupAuthDialogCurrentToplevel + +type instance SignalList SoupAuthDialog = SoupAuthDialogSignalList +type SoupAuthDialogSignalList = ('[ '("current-toplevel", SoupAuthDialogCurrentToplevelSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/WebKit/Objects/SoupAuthDialog.hs-boot b/GI/WebKit/Objects/SoupAuthDialog.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/SoupAuthDialog.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.SoupAuthDialog where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype SoupAuthDialog = SoupAuthDialog (ForeignPtr SoupAuthDialog) +instance GObject SoupAuthDialog where +class GObject o => SoupAuthDialogK o +instance (GObject o, IsDescendantOf SoupAuthDialog o) => SoupAuthDialogK o +data SoupAuthDialogCurrentToplevelSignalInfo diff --git a/GI/WebKit/Objects/ViewportAttributes.hs b/GI/WebKit/Objects/ViewportAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/ViewportAttributes.hs @@ -0,0 +1,462 @@ + +{- | +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.WebKit.Objects.ViewportAttributes + ( + +-- * Exported types + ViewportAttributes(..) , + ViewportAttributesK , + toViewportAttributes , + noViewportAttributes , + + + -- * Methods +-- ** viewportAttributesRecompute + viewportAttributesRecompute , + + + + + -- * Properties +-- ** AvailableHeight + ViewportAttributesAvailableHeightPropertyInfo, + constructViewportAttributesAvailableHeight, + getViewportAttributesAvailableHeight , + setViewportAttributesAvailableHeight , + + +-- ** AvailableWidth + ViewportAttributesAvailableWidthPropertyInfo, + constructViewportAttributesAvailableWidth, + getViewportAttributesAvailableWidth , + setViewportAttributesAvailableWidth , + + +-- ** DesktopWidth + ViewportAttributesDesktopWidthPropertyInfo, + constructViewportAttributesDesktopWidth , + getViewportAttributesDesktopWidth , + setViewportAttributesDesktopWidth , + + +-- ** DeviceDpi + ViewportAttributesDeviceDpiPropertyInfo , + constructViewportAttributesDeviceDpi , + getViewportAttributesDeviceDpi , + setViewportAttributesDeviceDpi , + + +-- ** DeviceHeight + ViewportAttributesDeviceHeightPropertyInfo, + constructViewportAttributesDeviceHeight , + getViewportAttributesDeviceHeight , + setViewportAttributesDeviceHeight , + + +-- ** DevicePixelRatio + ViewportAttributesDevicePixelRatioPropertyInfo, + getViewportAttributesDevicePixelRatio , + + +-- ** DeviceWidth + ViewportAttributesDeviceWidthPropertyInfo, + constructViewportAttributesDeviceWidth , + getViewportAttributesDeviceWidth , + setViewportAttributesDeviceWidth , + + +-- ** Height + ViewportAttributesHeightPropertyInfo , + getViewportAttributesHeight , + + +-- ** InitialScaleFactor + ViewportAttributesInitialScaleFactorPropertyInfo, + getViewportAttributesInitialScaleFactor , + + +-- ** MaximumScaleFactor + ViewportAttributesMaximumScaleFactorPropertyInfo, + getViewportAttributesMaximumScaleFactor , + + +-- ** MinimumScaleFactor + ViewportAttributesMinimumScaleFactorPropertyInfo, + getViewportAttributesMinimumScaleFactor , + + +-- ** UserScalable + ViewportAttributesUserScalablePropertyInfo, + getViewportAttributesUserScalable , + + +-- ** Valid + ViewportAttributesValidPropertyInfo , + getViewportAttributesValid , + + +-- ** Width + ViewportAttributesWidthPropertyInfo , + getViewportAttributesWidth , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype ViewportAttributes = ViewportAttributes (ForeignPtr ViewportAttributes) +foreign import ccall "webkit_viewport_attributes_get_type" + c_webkit_viewport_attributes_get_type :: IO GType + +type instance ParentTypes ViewportAttributes = ViewportAttributesParentTypes +type ViewportAttributesParentTypes = '[GObject.Object] + +instance GObject ViewportAttributes where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_viewport_attributes_get_type + + +class GObject o => ViewportAttributesK o +instance (GObject o, IsDescendantOf ViewportAttributes o) => ViewportAttributesK o + +toViewportAttributes :: ViewportAttributesK o => o -> IO ViewportAttributes +toViewportAttributes = unsafeCastTo ViewportAttributes + +noViewportAttributes :: Maybe ViewportAttributes +noViewportAttributes = Nothing + +-- VVV Prop "available-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyCInt obj "available-height" + +setViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyCInt obj "available-height" val + +constructViewportAttributesAvailableHeight :: Int32 -> IO ([Char], GValue) +constructViewportAttributesAvailableHeight val = constructObjectPropertyCInt "available-height" val + +data ViewportAttributesAvailableHeightPropertyInfo +instance AttrInfo ViewportAttributesAvailableHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesAvailableHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesAvailableHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesAvailableHeightPropertyInfo = "ViewportAttributes::available-height" + attrGet _ = getViewportAttributesAvailableHeight + attrSet _ = setViewportAttributesAvailableHeight + attrConstruct _ = constructViewportAttributesAvailableHeight + +-- VVV Prop "available-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyCInt obj "available-width" + +setViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyCInt obj "available-width" val + +constructViewportAttributesAvailableWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesAvailableWidth val = constructObjectPropertyCInt "available-width" val + +data ViewportAttributesAvailableWidthPropertyInfo +instance AttrInfo ViewportAttributesAvailableWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesAvailableWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesAvailableWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesAvailableWidthPropertyInfo = "ViewportAttributes::available-width" + attrGet _ = getViewportAttributesAvailableWidth + attrSet _ = setViewportAttributesAvailableWidth + attrConstruct _ = constructViewportAttributesAvailableWidth + +-- VVV Prop "desktop-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyCInt obj "desktop-width" + +setViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyCInt obj "desktop-width" val + +constructViewportAttributesDesktopWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDesktopWidth val = constructObjectPropertyCInt "desktop-width" val + +data ViewportAttributesDesktopWidthPropertyInfo +instance AttrInfo ViewportAttributesDesktopWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesDesktopWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDesktopWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesDesktopWidthPropertyInfo = "ViewportAttributes::desktop-width" + attrGet _ = getViewportAttributesDesktopWidth + attrSet _ = setViewportAttributesDesktopWidth + attrConstruct _ = constructViewportAttributesDesktopWidth + +-- VVV Prop "device-dpi" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyCInt obj "device-dpi" + +setViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyCInt obj "device-dpi" val + +constructViewportAttributesDeviceDpi :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceDpi val = constructObjectPropertyCInt "device-dpi" val + +data ViewportAttributesDeviceDpiPropertyInfo +instance AttrInfo ViewportAttributesDeviceDpiPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceDpiPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceDpiPropertyInfo = "ViewportAttributes::device-dpi" + attrGet _ = getViewportAttributesDeviceDpi + attrSet _ = setViewportAttributesDeviceDpi + attrConstruct _ = constructViewportAttributesDeviceDpi + +-- VVV Prop "device-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyCInt obj "device-height" + +setViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyCInt obj "device-height" val + +constructViewportAttributesDeviceHeight :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceHeight val = constructObjectPropertyCInt "device-height" val + +data ViewportAttributesDeviceHeightPropertyInfo +instance AttrInfo ViewportAttributesDeviceHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceHeightPropertyInfo = "ViewportAttributes::device-height" + attrGet _ = getViewportAttributesDeviceHeight + attrSet _ = setViewportAttributesDeviceHeight + attrConstruct _ = constructViewportAttributesDeviceHeight + +-- VVV Prop "device-pixel-ratio" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesDevicePixelRatio :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesDevicePixelRatio obj = liftIO $ getObjectPropertyFloat obj "device-pixel-ratio" + +data ViewportAttributesDevicePixelRatioPropertyInfo +instance AttrInfo ViewportAttributesDevicePixelRatioPropertyInfo where + type AttrAllowedOps ViewportAttributesDevicePixelRatioPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDevicePixelRatioPropertyInfo = Float + type AttrLabel ViewportAttributesDevicePixelRatioPropertyInfo = "ViewportAttributes::device-pixel-ratio" + attrGet _ = getViewportAttributesDevicePixelRatio + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "device-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyCInt obj "device-width" + +setViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyCInt obj "device-width" val + +constructViewportAttributesDeviceWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceWidth val = constructObjectPropertyCInt "device-width" val + +data ViewportAttributesDeviceWidthPropertyInfo +instance AttrInfo ViewportAttributesDeviceWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceWidthPropertyInfo = "ViewportAttributes::device-width" + attrGet _ = getViewportAttributesDeviceWidth + attrSet _ = setViewportAttributesDeviceWidth + attrConstruct _ = constructViewportAttributesDeviceWidth + +-- VVV Prop "height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getViewportAttributesHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesHeight obj = liftIO $ getObjectPropertyCInt obj "height" + +data ViewportAttributesHeightPropertyInfo +instance AttrInfo ViewportAttributesHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesHeightPropertyInfo = "ViewportAttributes::height" + attrGet _ = getViewportAttributesHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "initial-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesInitialScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesInitialScaleFactor obj = liftIO $ getObjectPropertyFloat obj "initial-scale-factor" + +data ViewportAttributesInitialScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesInitialScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesInitialScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesInitialScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesInitialScaleFactorPropertyInfo = "ViewportAttributes::initial-scale-factor" + attrGet _ = getViewportAttributesInitialScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "maximum-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesMaximumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesMaximumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "maximum-scale-factor" + +data ViewportAttributesMaximumScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesMaximumScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesMaximumScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesMaximumScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesMaximumScaleFactorPropertyInfo = "ViewportAttributes::maximum-scale-factor" + attrGet _ = getViewportAttributesMaximumScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "minimum-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesMinimumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesMinimumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "minimum-scale-factor" + +data ViewportAttributesMinimumScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesMinimumScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesMinimumScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesMinimumScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesMinimumScaleFactorPropertyInfo = "ViewportAttributes::minimum-scale-factor" + attrGet _ = getViewportAttributesMinimumScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "user-scalable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getViewportAttributesUserScalable :: (MonadIO m, ViewportAttributesK o) => o -> m Bool +getViewportAttributesUserScalable obj = liftIO $ getObjectPropertyBool obj "user-scalable" + +data ViewportAttributesUserScalablePropertyInfo +instance AttrInfo ViewportAttributesUserScalablePropertyInfo where + type AttrAllowedOps ViewportAttributesUserScalablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesUserScalablePropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesUserScalablePropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesUserScalablePropertyInfo = Bool + type AttrLabel ViewportAttributesUserScalablePropertyInfo = "ViewportAttributes::user-scalable" + attrGet _ = getViewportAttributesUserScalable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "valid" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getViewportAttributesValid :: (MonadIO m, ViewportAttributesK o) => o -> m Bool +getViewportAttributesValid obj = liftIO $ getObjectPropertyBool obj "valid" + +data ViewportAttributesValidPropertyInfo +instance AttrInfo ViewportAttributesValidPropertyInfo where + type AttrAllowedOps ViewportAttributesValidPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesValidPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesValidPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesValidPropertyInfo = Bool + type AttrLabel ViewportAttributesValidPropertyInfo = "ViewportAttributes::valid" + attrGet _ = getViewportAttributesValid + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getViewportAttributesWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesWidth obj = liftIO $ getObjectPropertyCInt obj "width" + +data ViewportAttributesWidthPropertyInfo +instance AttrInfo ViewportAttributesWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesWidthPropertyInfo = "ViewportAttributes::width" + attrGet _ = getViewportAttributesWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList ViewportAttributes = ViewportAttributesAttributeList +type ViewportAttributesAttributeList = ('[ '("available-height", ViewportAttributesAvailableHeightPropertyInfo), '("available-width", ViewportAttributesAvailableWidthPropertyInfo), '("desktop-width", ViewportAttributesDesktopWidthPropertyInfo), '("device-dpi", ViewportAttributesDeviceDpiPropertyInfo), '("device-height", ViewportAttributesDeviceHeightPropertyInfo), '("device-pixel-ratio", ViewportAttributesDevicePixelRatioPropertyInfo), '("device-width", ViewportAttributesDeviceWidthPropertyInfo), '("height", ViewportAttributesHeightPropertyInfo), '("initial-scale-factor", ViewportAttributesInitialScaleFactorPropertyInfo), '("maximum-scale-factor", ViewportAttributesMaximumScaleFactorPropertyInfo), '("minimum-scale-factor", ViewportAttributesMinimumScaleFactorPropertyInfo), '("user-scalable", ViewportAttributesUserScalablePropertyInfo), '("valid", ViewportAttributesValidPropertyInfo), '("width", ViewportAttributesWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList ViewportAttributes = ViewportAttributesSignalList +type ViewportAttributesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method ViewportAttributes::recompute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_viewport_attributes_recompute" webkit_viewport_attributes_recompute :: + Ptr ViewportAttributes -> -- _obj : TInterface "WebKit" "ViewportAttributes" + IO () + + +viewportAttributesRecompute :: + (MonadIO m, ViewportAttributesK a) => + a -> -- _obj + m () +viewportAttributesRecompute _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_viewport_attributes_recompute _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/ViewportAttributes.hs-boot b/GI/WebKit/Objects/ViewportAttributes.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/ViewportAttributes.hs-boot @@ -0,0 +1,27 @@ +module GI.WebKit.Objects.ViewportAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype ViewportAttributes = ViewportAttributes (ForeignPtr ViewportAttributes) +instance GObject ViewportAttributes where +class GObject o => ViewportAttributesK o +instance (GObject o, IsDescendantOf ViewportAttributes o) => ViewportAttributesK o +data ViewportAttributesAvailableHeightPropertyInfo +data ViewportAttributesAvailableWidthPropertyInfo +data ViewportAttributesDesktopWidthPropertyInfo +data ViewportAttributesDeviceDpiPropertyInfo +data ViewportAttributesDeviceHeightPropertyInfo +data ViewportAttributesDevicePixelRatioPropertyInfo +data ViewportAttributesDeviceWidthPropertyInfo +data ViewportAttributesHeightPropertyInfo +data ViewportAttributesInitialScaleFactorPropertyInfo +data ViewportAttributesMaximumScaleFactorPropertyInfo +data ViewportAttributesMinimumScaleFactorPropertyInfo +data ViewportAttributesUserScalablePropertyInfo +data ViewportAttributesValidPropertyInfo +data ViewportAttributesWidthPropertyInfo diff --git a/GI/WebKit/Objects/WebBackForwardList.hs b/GI/WebKit/Objects/WebBackForwardList.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebBackForwardList.hs @@ -0,0 +1,546 @@ + +{- | +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.WebKit.Objects.WebBackForwardList + ( + +-- * Exported types + WebBackForwardList(..) , + WebBackForwardListK , + toWebBackForwardList , + noWebBackForwardList , + + + -- * Methods +-- ** webBackForwardListAddItem + webBackForwardListAddItem , + + +-- ** webBackForwardListClear + webBackForwardListClear , + + +-- ** webBackForwardListContainsItem + webBackForwardListContainsItem , + + +-- ** webBackForwardListGetBackItem + webBackForwardListGetBackItem , + + +-- ** webBackForwardListGetBackLength + webBackForwardListGetBackLength , + + +-- ** webBackForwardListGetBackListWithLimit + webBackForwardListGetBackListWithLimit , + + +-- ** webBackForwardListGetCurrentItem + webBackForwardListGetCurrentItem , + + +-- ** webBackForwardListGetForwardItem + webBackForwardListGetForwardItem , + + +-- ** webBackForwardListGetForwardLength + webBackForwardListGetForwardLength , + + +-- ** webBackForwardListGetForwardListWithLimit + webBackForwardListGetForwardListWithLimit, + + +-- ** webBackForwardListGetLimit + webBackForwardListGetLimit , + + +-- ** webBackForwardListGetNthItem + webBackForwardListGetNthItem , + + +-- ** webBackForwardListGoBack + webBackForwardListGoBack , + + +-- ** webBackForwardListGoForward + webBackForwardListGoForward , + + +-- ** webBackForwardListGoToItem + webBackForwardListGoToItem , + + +-- ** webBackForwardListSetLimit + webBackForwardListSetLimit , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebBackForwardList = WebBackForwardList (ForeignPtr WebBackForwardList) +foreign import ccall "webkit_web_back_forward_list_get_type" + c_webkit_web_back_forward_list_get_type :: IO GType + +type instance ParentTypes WebBackForwardList = WebBackForwardListParentTypes +type WebBackForwardListParentTypes = '[GObject.Object] + +instance GObject WebBackForwardList where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_back_forward_list_get_type + + +class GObject o => WebBackForwardListK o +instance (GObject o, IsDescendantOf WebBackForwardList o) => WebBackForwardListK o + +toWebBackForwardList :: WebBackForwardListK o => o -> IO WebBackForwardList +toWebBackForwardList = unsafeCastTo WebBackForwardList + +noWebBackForwardList :: Maybe WebBackForwardList +noWebBackForwardList = Nothing + +type instance AttributeList WebBackForwardList = WebBackForwardListAttributeList +type WebBackForwardListAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList WebBackForwardList = WebBackForwardListSignalList +type WebBackForwardListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebBackForwardList::add_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_add_item" webkit_web_back_forward_list_add_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem" + IO () + + +webBackForwardListAddItem :: + (MonadIO m, WebBackForwardListK a, WebHistoryItemK b) => + a -> -- _obj + b -> -- history_item + m () +webBackForwardListAddItem _obj history_item = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let history_item' = unsafeManagedPtrCastPtr history_item + webkit_web_back_forward_list_add_item _obj' history_item' + touchManagedPtr _obj + touchManagedPtr history_item + return () + +-- method WebBackForwardList::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_clear" webkit_web_back_forward_list_clear :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO () + + +webBackForwardListClear :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m () +webBackForwardListClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_back_forward_list_clear _obj' + touchManagedPtr _obj + return () + +-- method WebBackForwardList::contains_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_contains_item" webkit_web_back_forward_list_contains_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem" + IO CInt + + +webBackForwardListContainsItem :: + (MonadIO m, WebBackForwardListK a, WebHistoryItemK b) => + a -> -- _obj + b -> -- history_item + m Bool +webBackForwardListContainsItem _obj history_item = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let history_item' = unsafeManagedPtrCastPtr history_item + result <- webkit_web_back_forward_list_contains_item _obj' history_item' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr history_item + return result' + +-- method WebBackForwardList::get_back_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_back_item" webkit_web_back_forward_list_get_back_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO (Ptr WebHistoryItem) + + +webBackForwardListGetBackItem :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m WebHistoryItem +webBackForwardListGetBackItem _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_back_item _obj' + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_back_item" result + result' <- (newObject WebHistoryItem) result + touchManagedPtr _obj + return result' + +-- method WebBackForwardList::get_back_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_back_length" webkit_web_back_forward_list_get_back_length :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO Int32 + + +webBackForwardListGetBackLength :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m Int32 +webBackForwardListGetBackLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_back_length _obj' + touchManagedPtr _obj + return result + +-- method WebBackForwardList::get_back_list_with_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGList (TInterface "WebKit" "WebHistoryItem") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_back_list_with_limit" webkit_web_back_forward_list_get_back_list_with_limit :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Int32 -> -- limit : TBasicType TInt32 + IO (Ptr (GList (Ptr WebHistoryItem))) + + +webBackForwardListGetBackListWithLimit :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + Int32 -> -- limit + m [WebHistoryItem] +webBackForwardListGetBackListWithLimit _obj limit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_back_list_with_limit _obj' limit + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_back_list_with_limit" result + result' <- unpackGList result + result'' <- mapM (newObject WebHistoryItem) result' + g_list_free result + touchManagedPtr _obj + return result'' + +-- method WebBackForwardList::get_current_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_current_item" webkit_web_back_forward_list_get_current_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO (Ptr WebHistoryItem) + + +webBackForwardListGetCurrentItem :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m WebHistoryItem +webBackForwardListGetCurrentItem _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_current_item _obj' + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_current_item" result + result' <- (newObject WebHistoryItem) result + touchManagedPtr _obj + return result' + +-- method WebBackForwardList::get_forward_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_forward_item" webkit_web_back_forward_list_get_forward_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO (Ptr WebHistoryItem) + + +webBackForwardListGetForwardItem :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m WebHistoryItem +webBackForwardListGetForwardItem _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_forward_item _obj' + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_forward_item" result + result' <- (newObject WebHistoryItem) result + touchManagedPtr _obj + return result' + +-- method WebBackForwardList::get_forward_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_forward_length" webkit_web_back_forward_list_get_forward_length :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO Int32 + + +webBackForwardListGetForwardLength :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m Int32 +webBackForwardListGetForwardLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_forward_length _obj' + touchManagedPtr _obj + return result + +-- method WebBackForwardList::get_forward_list_with_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGList (TInterface "WebKit" "WebHistoryItem") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_forward_list_with_limit" webkit_web_back_forward_list_get_forward_list_with_limit :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Int32 -> -- limit : TBasicType TInt32 + IO (Ptr (GList (Ptr WebHistoryItem))) + + +webBackForwardListGetForwardListWithLimit :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + Int32 -> -- limit + m [WebHistoryItem] +webBackForwardListGetForwardListWithLimit _obj limit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_forward_list_with_limit _obj' limit + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_forward_list_with_limit" result + result' <- unpackGList result + result'' <- mapM (newObject WebHistoryItem) result' + g_list_free result + touchManagedPtr _obj + return result'' + +-- method WebBackForwardList::get_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_limit" webkit_web_back_forward_list_get_limit :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO Int32 + + +webBackForwardListGetLimit :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m Int32 +webBackForwardListGetLimit _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_limit _obj' + touchManagedPtr _obj + return result + +-- method WebBackForwardList::get_nth_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_get_nth_item" webkit_web_back_forward_list_get_nth_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Int32 -> -- index : TBasicType TInt32 + IO (Ptr WebHistoryItem) + + +webBackForwardListGetNthItem :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + Int32 -> -- index + m WebHistoryItem +webBackForwardListGetNthItem _obj index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_back_forward_list_get_nth_item _obj' index + checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_nth_item" result + result' <- (newObject WebHistoryItem) result + touchManagedPtr _obj + return result' + +-- method WebBackForwardList::go_back +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_go_back" webkit_web_back_forward_list_go_back :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO () + + +webBackForwardListGoBack :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m () +webBackForwardListGoBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_back_forward_list_go_back _obj' + touchManagedPtr _obj + return () + +-- method WebBackForwardList::go_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_go_forward" webkit_web_back_forward_list_go_forward :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + IO () + + +webBackForwardListGoForward :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + m () +webBackForwardListGoForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_back_forward_list_go_forward _obj' + touchManagedPtr _obj + return () + +-- method WebBackForwardList::go_to_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_go_to_item" webkit_web_back_forward_list_go_to_item :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem" + IO () + + +webBackForwardListGoToItem :: + (MonadIO m, WebBackForwardListK a, WebHistoryItemK b) => + a -> -- _obj + b -> -- history_item + m () +webBackForwardListGoToItem _obj history_item = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let history_item' = unsafeManagedPtrCastPtr history_item + webkit_web_back_forward_list_go_to_item _obj' history_item' + touchManagedPtr _obj + touchManagedPtr history_item + return () + +-- method WebBackForwardList::set_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_back_forward_list_set_limit" webkit_web_back_forward_list_set_limit :: + Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" + Int32 -> -- limit : TBasicType TInt32 + IO () + + +webBackForwardListSetLimit :: + (MonadIO m, WebBackForwardListK a) => + a -> -- _obj + Int32 -> -- limit + m () +webBackForwardListSetLimit _obj limit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_back_forward_list_set_limit _obj' limit + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebBackForwardList.hs-boot b/GI/WebKit/Objects/WebBackForwardList.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebBackForwardList.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.WebBackForwardList where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebBackForwardList = WebBackForwardList (ForeignPtr WebBackForwardList) +instance GObject WebBackForwardList where +class GObject o => WebBackForwardListK o +instance (GObject o, IsDescendantOf WebBackForwardList o) => WebBackForwardListK o diff --git a/GI/WebKit/Objects/WebDataSource.hs b/GI/WebKit/Objects/WebDataSource.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebDataSource.hs @@ -0,0 +1,389 @@ + +{- | +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.WebKit.Objects.WebDataSource + ( + +-- * Exported types + WebDataSource(..) , + WebDataSourceK , + toWebDataSource , + noWebDataSource , + + + -- * Methods +-- ** webDataSourceGetData + webDataSourceGetData , + + +-- ** webDataSourceGetEncoding + webDataSourceGetEncoding , + + +-- ** webDataSourceGetInitialRequest + webDataSourceGetInitialRequest , + + +-- ** webDataSourceGetMainResource + webDataSourceGetMainResource , + + +-- ** webDataSourceGetRequest + webDataSourceGetRequest , + + +-- ** webDataSourceGetSubresources + webDataSourceGetSubresources , + + +-- ** webDataSourceGetUnreachableUri + webDataSourceGetUnreachableUri , + + +-- ** webDataSourceGetWebFrame + webDataSourceGetWebFrame , + + +-- ** webDataSourceIsLoading + webDataSourceIsLoading , + + +-- ** webDataSourceNew + webDataSourceNew , + + +-- ** webDataSourceNewWithRequest + webDataSourceNewWithRequest , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +newtype WebDataSource = WebDataSource (ForeignPtr WebDataSource) +foreign import ccall "webkit_web_data_source_get_type" + c_webkit_web_data_source_get_type :: IO GType + +type instance ParentTypes WebDataSource = WebDataSourceParentTypes +type WebDataSourceParentTypes = '[GObject.Object] + +instance GObject WebDataSource where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_data_source_get_type + + +class GObject o => WebDataSourceK o +instance (GObject o, IsDescendantOf WebDataSource o) => WebDataSourceK o + +toWebDataSource :: WebDataSourceK o => o -> IO WebDataSource +toWebDataSource = unsafeCastTo WebDataSource + +noWebDataSource :: Maybe WebDataSource +noWebDataSource = Nothing + +type instance AttributeList WebDataSource = WebDataSourceAttributeList +type WebDataSourceAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList WebDataSource = WebDataSourceSignalList +type WebDataSourceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebDataSource::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebDataSource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_new" webkit_web_data_source_new :: + IO (Ptr WebDataSource) + + +webDataSourceNew :: + (MonadIO m) => + m WebDataSource +webDataSourceNew = liftIO $ do + result <- webkit_web_data_source_new + checkUnexpectedReturnNULL "webkit_web_data_source_new" result + result' <- (wrapObject WebDataSource) result + return result' + +-- method WebDataSource::new_with_request +-- method type : Constructor +-- Args : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebDataSource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_new_with_request" webkit_web_data_source_new_with_request :: + Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest" + IO (Ptr WebDataSource) + + +webDataSourceNewWithRequest :: + (MonadIO m, NetworkRequestK a) => + a -> -- request + m WebDataSource +webDataSourceNewWithRequest request = liftIO $ do + let request' = unsafeManagedPtrCastPtr request + result <- webkit_web_data_source_new_with_request request' + checkUnexpectedReturnNULL "webkit_web_data_source_new_with_request" result + result' <- (wrapObject WebDataSource) result + touchManagedPtr request + return result' + +-- method WebDataSource::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_data" webkit_web_data_source_get_data :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr GLib.String) + + +webDataSourceGetData :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m GLib.String +webDataSourceGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_data _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_data" result + result' <- (newBoxed GLib.String) result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_encoding" webkit_web_data_source_get_encoding :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO CString + + +webDataSourceGetEncoding :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m T.Text +webDataSourceGetEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_encoding _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_encoding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_initial_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkRequest" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_initial_request" webkit_web_data_source_get_initial_request :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr NetworkRequest) + + +webDataSourceGetInitialRequest :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m NetworkRequest +webDataSourceGetInitialRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_initial_request _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_initial_request" result + result' <- (newObject NetworkRequest) result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_main_resource +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebResource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_main_resource" webkit_web_data_source_get_main_resource :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr WebResource) + + +webDataSourceGetMainResource :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m WebResource +webDataSourceGetMainResource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_main_resource _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_main_resource" result + result' <- (newObject WebResource) result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkRequest" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_request" webkit_web_data_source_get_request :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr NetworkRequest) + + +webDataSourceGetRequest :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m NetworkRequest +webDataSourceGetRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_request _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_request" result + result' <- (newObject NetworkRequest) result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_subresources +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGList (TInterface "WebKit" "WebResource") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_subresources" webkit_web_data_source_get_subresources :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr (GList (Ptr WebResource))) + + +webDataSourceGetSubresources :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m [WebResource] +webDataSourceGetSubresources _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_subresources _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_subresources" result + result' <- unpackGList result + result'' <- mapM (newObject WebResource) result' + g_list_free result + touchManagedPtr _obj + return result'' + +-- method WebDataSource::get_unreachable_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_unreachable_uri" webkit_web_data_source_get_unreachable_uri :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO CString + + +webDataSourceGetUnreachableUri :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m T.Text +webDataSourceGetUnreachableUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_unreachable_uri _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_unreachable_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebDataSource::get_web_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_get_web_frame" webkit_web_data_source_get_web_frame :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO (Ptr WebFrame) + + +webDataSourceGetWebFrame :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m WebFrame +webDataSourceGetWebFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_get_web_frame _obj' + checkUnexpectedReturnNULL "webkit_web_data_source_get_web_frame" result + result' <- (newObject WebFrame) result + touchManagedPtr _obj + return result' + +-- method WebDataSource::is_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_data_source_is_loading" webkit_web_data_source_is_loading :: + Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource" + IO CInt + + +webDataSourceIsLoading :: + (MonadIO m, WebDataSourceK a) => + a -> -- _obj + m Bool +webDataSourceIsLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_data_source_is_loading _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/WebDataSource.hs-boot b/GI/WebKit/Objects/WebDataSource.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebDataSource.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.WebDataSource where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebDataSource = WebDataSource (ForeignPtr WebDataSource) +instance GObject WebDataSource where +class GObject o => WebDataSourceK o +instance (GObject o, IsDescendantOf WebDataSource o) => WebDataSourceK o diff --git a/GI/WebKit/Objects/WebDatabase.hs b/GI/WebKit/Objects/WebDatabase.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebDatabase.hs @@ -0,0 +1,414 @@ + +{- | +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.WebKit.Objects.WebDatabase + ( + +-- * Exported types + WebDatabase(..) , + WebDatabaseK , + toWebDatabase , + noWebDatabase , + + + -- * Methods +-- ** webDatabaseGetDisplayName + webDatabaseGetDisplayName , + + +-- ** webDatabaseGetExpectedSize + webDatabaseGetExpectedSize , + + +-- ** webDatabaseGetFilename + webDatabaseGetFilename , + + +-- ** webDatabaseGetName + webDatabaseGetName , + + +-- ** webDatabaseGetSecurityOrigin + webDatabaseGetSecurityOrigin , + + +-- ** webDatabaseGetSize + webDatabaseGetSize , + + +-- ** webDatabaseRemove + webDatabaseRemove , + + + + + -- * Properties +-- ** DisplayName + WebDatabaseDisplayNamePropertyInfo , + getWebDatabaseDisplayName , + + +-- ** ExpectedSize + WebDatabaseExpectedSizePropertyInfo , + getWebDatabaseExpectedSize , + + +-- ** Filename + WebDatabaseFilenamePropertyInfo , + getWebDatabaseFilename , + + +-- ** Name + WebDatabaseNamePropertyInfo , + constructWebDatabaseName , + getWebDatabaseName , + + +-- ** SecurityOrigin + WebDatabaseSecurityOriginPropertyInfo , + constructWebDatabaseSecurityOrigin , + getWebDatabaseSecurityOrigin , + + +-- ** Size + WebDatabaseSizePropertyInfo , + getWebDatabaseSize , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebDatabase = WebDatabase (ForeignPtr WebDatabase) +foreign import ccall "webkit_web_database_get_type" + c_webkit_web_database_get_type :: IO GType + +type instance ParentTypes WebDatabase = WebDatabaseParentTypes +type WebDatabaseParentTypes = '[GObject.Object] + +instance GObject WebDatabase where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_database_get_type + + +class GObject o => WebDatabaseK o +instance (GObject o, IsDescendantOf WebDatabase o) => WebDatabaseK o + +toWebDatabase :: WebDatabaseK o => o -> IO WebDatabase +toWebDatabase = unsafeCastTo WebDatabase + +noWebDatabase :: Maybe WebDatabase +noWebDatabase = Nothing + +-- VVV Prop "display-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebDatabaseDisplayName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseDisplayName obj = liftIO $ getObjectPropertyString obj "display-name" + +data WebDatabaseDisplayNamePropertyInfo +instance AttrInfo WebDatabaseDisplayNamePropertyInfo where + type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseDisplayNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseDisplayNamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseDisplayNamePropertyInfo = T.Text + type AttrLabel WebDatabaseDisplayNamePropertyInfo = "WebDatabase::display-name" + attrGet _ = getWebDatabaseDisplayName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "expected-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getWebDatabaseExpectedSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 +getWebDatabaseExpectedSize obj = liftIO $ getObjectPropertyUInt64 obj "expected-size" + +data WebDatabaseExpectedSizePropertyInfo +instance AttrInfo WebDatabaseExpectedSizePropertyInfo where + type AttrAllowedOps WebDatabaseExpectedSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseExpectedSizePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseExpectedSizePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseExpectedSizePropertyInfo = Word64 + type AttrLabel WebDatabaseExpectedSizePropertyInfo = "WebDatabase::expected-size" + attrGet _ = getWebDatabaseExpectedSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebDatabaseFilename :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseFilename obj = liftIO $ getObjectPropertyString obj "filename" + +data WebDatabaseFilenamePropertyInfo +instance AttrInfo WebDatabaseFilenamePropertyInfo where + type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseFilenamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseFilenamePropertyInfo = T.Text + type AttrLabel WebDatabaseFilenamePropertyInfo = "WebDatabase::filename" + attrGet _ = getWebDatabaseFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebDatabaseName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseName obj = liftIO $ getObjectPropertyString obj "name" + +constructWebDatabaseName :: T.Text -> IO ([Char], GValue) +constructWebDatabaseName val = constructObjectPropertyString "name" val + +data WebDatabaseNamePropertyInfo +instance AttrInfo WebDatabaseNamePropertyInfo where + type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebDatabaseNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebDatabaseNamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseNamePropertyInfo = T.Text + type AttrLabel WebDatabaseNamePropertyInfo = "WebDatabase::name" + attrGet _ = getWebDatabaseName + attrSet _ = undefined + attrConstruct _ = constructWebDatabaseName + +-- VVV Prop "security-origin" + -- Type: TInterface "WebKit" "SecurityOrigin" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebDatabaseSecurityOrigin :: (MonadIO m, WebDatabaseK o) => o -> m SecurityOrigin +getWebDatabaseSecurityOrigin obj = liftIO $ getObjectPropertyObject obj "security-origin" SecurityOrigin + +constructWebDatabaseSecurityOrigin :: (SecurityOriginK a) => a -> IO ([Char], GValue) +constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" val + +data WebDatabaseSecurityOriginPropertyInfo +instance AttrInfo WebDatabaseSecurityOriginPropertyInfo where + type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebDatabaseSecurityOriginPropertyInfo = SecurityOriginK + type AttrBaseTypeConstraint WebDatabaseSecurityOriginPropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseSecurityOriginPropertyInfo = SecurityOrigin + type AttrLabel WebDatabaseSecurityOriginPropertyInfo = "WebDatabase::security-origin" + attrGet _ = getWebDatabaseSecurityOrigin + attrSet _ = undefined + attrConstruct _ = constructWebDatabaseSecurityOrigin + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getWebDatabaseSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 +getWebDatabaseSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +data WebDatabaseSizePropertyInfo +instance AttrInfo WebDatabaseSizePropertyInfo where + type AttrAllowedOps WebDatabaseSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseSizePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseSizePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseSizePropertyInfo = Word64 + type AttrLabel WebDatabaseSizePropertyInfo = "WebDatabase::size" + attrGet _ = getWebDatabaseSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebDatabase = WebDatabaseAttributeList +type WebDatabaseAttributeList = ('[ '("display-name", WebDatabaseDisplayNamePropertyInfo), '("expected-size", WebDatabaseExpectedSizePropertyInfo), '("filename", WebDatabaseFilenamePropertyInfo), '("name", WebDatabaseNamePropertyInfo), '("security-origin", WebDatabaseSecurityOriginPropertyInfo), '("size", WebDatabaseSizePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebDatabase = WebDatabaseSignalList +type WebDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebDatabase::get_display_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_display_name" webkit_web_database_get_display_name :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO CString + + +webDatabaseGetDisplayName :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m T.Text +webDatabaseGetDisplayName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_display_name _obj' + checkUnexpectedReturnNULL "webkit_web_database_get_display_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebDatabase::get_expected_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_expected_size" webkit_web_database_get_expected_size :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO Word64 + + +webDatabaseGetExpectedSize :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m Word64 +webDatabaseGetExpectedSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_expected_size _obj' + touchManagedPtr _obj + return result + +-- method WebDatabase::get_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_filename" webkit_web_database_get_filename :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO CString + + +webDatabaseGetFilename :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m T.Text +webDatabaseGetFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_filename _obj' + checkUnexpectedReturnNULL "webkit_web_database_get_filename" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebDatabase::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_name" webkit_web_database_get_name :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO CString + + +webDatabaseGetName :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m T.Text +webDatabaseGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_name _obj' + checkUnexpectedReturnNULL "webkit_web_database_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebDatabase::get_security_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "SecurityOrigin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_security_origin" webkit_web_database_get_security_origin :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO (Ptr SecurityOrigin) + + +webDatabaseGetSecurityOrigin :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m SecurityOrigin +webDatabaseGetSecurityOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_security_origin _obj' + checkUnexpectedReturnNULL "webkit_web_database_get_security_origin" result + result' <- (newObject SecurityOrigin) result + touchManagedPtr _obj + return result' + +-- method WebDatabase::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_get_size" webkit_web_database_get_size :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO Word64 + + +webDatabaseGetSize :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m Word64 +webDatabaseGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_database_get_size _obj' + touchManagedPtr _obj + return result + +-- method WebDatabase::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_database_remove" webkit_web_database_remove :: + Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase" + IO () + + +webDatabaseRemove :: + (MonadIO m, WebDatabaseK a) => + a -> -- _obj + m () +webDatabaseRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_database_remove _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebDatabase.hs-boot b/GI/WebKit/Objects/WebDatabase.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebDatabase.hs-boot @@ -0,0 +1,19 @@ +module GI.WebKit.Objects.WebDatabase where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebDatabase = WebDatabase (ForeignPtr WebDatabase) +instance GObject WebDatabase where +class GObject o => WebDatabaseK o +instance (GObject o, IsDescendantOf WebDatabase o) => WebDatabaseK o +data WebDatabaseDisplayNamePropertyInfo +data WebDatabaseExpectedSizePropertyInfo +data WebDatabaseFilenamePropertyInfo +data WebDatabaseNamePropertyInfo +data WebDatabaseSecurityOriginPropertyInfo +data WebDatabaseSizePropertyInfo diff --git a/GI/WebKit/Objects/WebFrame.hs b/GI/WebKit/Objects/WebFrame.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebFrame.hs @@ -0,0 +1,1689 @@ + +{- | +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.WebKit.Objects.WebFrame + ( + +-- * Exported types + WebFrame(..) , + WebFrameK , + toWebFrame , + noWebFrame , + + + -- * Methods +-- ** webFrameFindFrame + webFrameFindFrame , + + +-- ** webFrameGetDataSource + webFrameGetDataSource , + + +-- ** webFrameGetDomDocument + webFrameGetDomDocument , + + +-- ** webFrameGetGlobalContext + webFrameGetGlobalContext , + + +-- ** webFrameGetHorizontalScrollbarPolicy + webFrameGetHorizontalScrollbarPolicy , + + +-- ** webFrameGetLoadStatus + webFrameGetLoadStatus , + + +-- ** webFrameGetName + webFrameGetName , + + +-- ** webFrameGetNetworkResponse + webFrameGetNetworkResponse , + + +-- ** webFrameGetParent + webFrameGetParent , + + +-- ** webFrameGetProvisionalDataSource + webFrameGetProvisionalDataSource , + + +-- ** webFrameGetRangeForWordAroundCaret + webFrameGetRangeForWordAroundCaret , + + +-- ** webFrameGetSecurityOrigin + webFrameGetSecurityOrigin , + + +-- ** webFrameGetTitle + webFrameGetTitle , + + +-- ** webFrameGetUri + webFrameGetUri , + + +-- ** webFrameGetVerticalScrollbarPolicy + webFrameGetVerticalScrollbarPolicy , + + +-- ** webFrameGetWebView + webFrameGetWebView , + + +-- ** webFrameLoadAlternateString + webFrameLoadAlternateString , + + +-- ** webFrameLoadRequest + webFrameLoadRequest , + + +-- ** webFrameLoadString + webFrameLoadString , + + +-- ** webFrameLoadUri + webFrameLoadUri , + + +-- ** webFrameNew + webFrameNew , + + +-- ** webFramePrint + webFramePrint , + + +-- ** webFramePrintFull + webFramePrintFull , + + +-- ** webFrameReload + webFrameReload , + + +-- ** webFrameReplaceSelection + webFrameReplaceSelection , + + +-- ** webFrameStopLoading + webFrameStopLoading , + + + + + -- * Properties +-- ** HorizontalScrollbarPolicy + WebFrameHorizontalScrollbarPolicyPropertyInfo, + getWebFrameHorizontalScrollbarPolicy , + + +-- ** LoadStatus + WebFrameLoadStatusPropertyInfo , + getWebFrameLoadStatus , + + +-- ** Name + WebFrameNamePropertyInfo , + getWebFrameName , + + +-- ** Title + WebFrameTitlePropertyInfo , + getWebFrameTitle , + + +-- ** Uri + WebFrameUriPropertyInfo , + getWebFrameUri , + + +-- ** VerticalScrollbarPolicy + WebFrameVerticalScrollbarPolicyPropertyInfo, + getWebFrameVerticalScrollbarPolicy , + + + + + -- * Signals +-- ** Cleared + WebFrameClearedCallback , + WebFrameClearedCallbackC , + WebFrameClearedSignalInfo , + afterWebFrameCleared , + mkWebFrameClearedCallback , + noWebFrameClearedCallback , + onWebFrameCleared , + webFrameClearedCallbackWrapper , + webFrameClearedClosure , + + +-- ** HoveringOverLink + WebFrameHoveringOverLinkCallback , + WebFrameHoveringOverLinkCallbackC , + WebFrameHoveringOverLinkSignalInfo , + afterWebFrameHoveringOverLink , + mkWebFrameHoveringOverLinkCallback , + noWebFrameHoveringOverLinkCallback , + onWebFrameHoveringOverLink , + webFrameHoveringOverLinkCallbackWrapper , + webFrameHoveringOverLinkClosure , + + +-- ** InsecureContentRun + WebFrameInsecureContentRunCallback , + WebFrameInsecureContentRunCallbackC , + WebFrameInsecureContentRunSignalInfo , + afterWebFrameInsecureContentRun , + mkWebFrameInsecureContentRunCallback , + noWebFrameInsecureContentRunCallback , + onWebFrameInsecureContentRun , + webFrameInsecureContentRunCallbackWrapper, + webFrameInsecureContentRunClosure , + + +-- ** LoadCommitted + WebFrameLoadCommittedCallback , + WebFrameLoadCommittedCallbackC , + WebFrameLoadCommittedSignalInfo , + afterWebFrameLoadCommitted , + mkWebFrameLoadCommittedCallback , + noWebFrameLoadCommittedCallback , + onWebFrameLoadCommitted , + webFrameLoadCommittedCallbackWrapper , + webFrameLoadCommittedClosure , + + +-- ** ResourceContentLengthReceived + WebFrameResourceContentLengthReceivedCallback, + WebFrameResourceContentLengthReceivedCallbackC, + WebFrameResourceContentLengthReceivedSignalInfo, + afterWebFrameResourceContentLengthReceived, + mkWebFrameResourceContentLengthReceivedCallback, + noWebFrameResourceContentLengthReceivedCallback, + onWebFrameResourceContentLengthReceived , + webFrameResourceContentLengthReceivedCallbackWrapper, + webFrameResourceContentLengthReceivedClosure, + + +-- ** ResourceLoadFailed + WebFrameResourceLoadFailedCallback , + WebFrameResourceLoadFailedCallbackC , + WebFrameResourceLoadFailedSignalInfo , + afterWebFrameResourceLoadFailed , + mkWebFrameResourceLoadFailedCallback , + noWebFrameResourceLoadFailedCallback , + onWebFrameResourceLoadFailed , + webFrameResourceLoadFailedCallbackWrapper, + webFrameResourceLoadFailedClosure , + + +-- ** ResourceLoadFinished + WebFrameResourceLoadFinishedCallback , + WebFrameResourceLoadFinishedCallbackC , + WebFrameResourceLoadFinishedSignalInfo , + afterWebFrameResourceLoadFinished , + mkWebFrameResourceLoadFinishedCallback , + noWebFrameResourceLoadFinishedCallback , + onWebFrameResourceLoadFinished , + webFrameResourceLoadFinishedCallbackWrapper, + webFrameResourceLoadFinishedClosure , + + +-- ** ResourceRequestStarting + WebFrameResourceRequestStartingCallback , + WebFrameResourceRequestStartingCallbackC, + WebFrameResourceRequestStartingSignalInfo, + afterWebFrameResourceRequestStarting , + mkWebFrameResourceRequestStartingCallback, + noWebFrameResourceRequestStartingCallback, + onWebFrameResourceRequestStarting , + webFrameResourceRequestStartingCallbackWrapper, + webFrameResourceRequestStartingClosure , + + +-- ** ResourceResponseReceived + WebFrameResourceResponseReceivedCallback, + WebFrameResourceResponseReceivedCallbackC, + WebFrameResourceResponseReceivedSignalInfo, + afterWebFrameResourceResponseReceived , + mkWebFrameResourceResponseReceivedCallback, + noWebFrameResourceResponseReceivedCallback, + onWebFrameResourceResponseReceived , + webFrameResourceResponseReceivedCallbackWrapper, + webFrameResourceResponseReceivedClosure , + + +-- ** ScrollbarsPolicyChanged + WebFrameScrollbarsPolicyChangedCallback , + WebFrameScrollbarsPolicyChangedCallbackC, + WebFrameScrollbarsPolicyChangedSignalInfo, + afterWebFrameScrollbarsPolicyChanged , + mkWebFrameScrollbarsPolicyChangedCallback, + noWebFrameScrollbarsPolicyChangedCallback, + onWebFrameScrollbarsPolicyChanged , + webFrameScrollbarsPolicyChangedCallbackWrapper, + webFrameScrollbarsPolicyChangedClosure , + + +-- ** TitleChanged + WebFrameTitleChangedCallback , + WebFrameTitleChangedCallbackC , + WebFrameTitleChangedSignalInfo , + afterWebFrameTitleChanged , + mkWebFrameTitleChangedCallback , + noWebFrameTitleChangedCallback , + onWebFrameTitleChanged , + webFrameTitleChangedCallbackWrapper , + webFrameTitleChangedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gtk as Gtk +import qualified GI.JavaScriptCore as JavaScriptCore + +newtype WebFrame = WebFrame (ForeignPtr WebFrame) +foreign import ccall "webkit_web_frame_get_type" + c_webkit_web_frame_get_type :: IO GType + +type instance ParentTypes WebFrame = WebFrameParentTypes +type WebFrameParentTypes = '[GObject.Object] + +instance GObject WebFrame where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_frame_get_type + + +class GObject o => WebFrameK o +instance (GObject o, IsDescendantOf WebFrame o) => WebFrameK o + +toWebFrame :: WebFrameK o => o -> IO WebFrame +toWebFrame = unsafeCastTo WebFrame + +noWebFrame :: Maybe WebFrame +noWebFrame = Nothing + +-- signal WebFrame::cleared +type WebFrameClearedCallback = + IO () + +noWebFrameClearedCallback :: Maybe WebFrameClearedCallback +noWebFrameClearedCallback = Nothing + +type WebFrameClearedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameClearedCallback :: WebFrameClearedCallbackC -> IO (FunPtr WebFrameClearedCallbackC) + +webFrameClearedClosure :: WebFrameClearedCallback -> IO Closure +webFrameClearedClosure cb = newCClosure =<< mkWebFrameClearedCallback wrapped + where wrapped = webFrameClearedCallbackWrapper cb + +webFrameClearedCallbackWrapper :: + WebFrameClearedCallback -> + Ptr () -> + Ptr () -> + IO () +webFrameClearedCallbackWrapper _cb _ _ = do + _cb + +onWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId +onWebFrameCleared obj cb = liftIO $ connectWebFrameCleared obj cb SignalConnectBefore +afterWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId +afterWebFrameCleared obj cb = connectWebFrameCleared obj cb SignalConnectAfter + +connectWebFrameCleared :: (GObject a, MonadIO m) => + a -> WebFrameClearedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameCleared obj cb after = liftIO $ do + cb' <- mkWebFrameClearedCallback (webFrameClearedCallbackWrapper cb) + connectSignalFunPtr obj "cleared" cb' after + +-- signal WebFrame::hovering-over-link +type WebFrameHoveringOverLinkCallback = + T.Text -> + T.Text -> + IO () + +noWebFrameHoveringOverLinkCallback :: Maybe WebFrameHoveringOverLinkCallback +noWebFrameHoveringOverLinkCallback = Nothing + +type WebFrameHoveringOverLinkCallbackC = + Ptr () -> -- object + CString -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameHoveringOverLinkCallback :: WebFrameHoveringOverLinkCallbackC -> IO (FunPtr WebFrameHoveringOverLinkCallbackC) + +webFrameHoveringOverLinkClosure :: WebFrameHoveringOverLinkCallback -> IO Closure +webFrameHoveringOverLinkClosure cb = newCClosure =<< mkWebFrameHoveringOverLinkCallback wrapped + where wrapped = webFrameHoveringOverLinkCallbackWrapper cb + +webFrameHoveringOverLinkCallbackWrapper :: + WebFrameHoveringOverLinkCallback -> + Ptr () -> + CString -> + CString -> + Ptr () -> + IO () +webFrameHoveringOverLinkCallbackWrapper _cb _ object p0 _ = do + object' <- cstringToText object + p0' <- cstringToText p0 + _cb object' p0' + +onWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId +onWebFrameHoveringOverLink obj cb = liftIO $ connectWebFrameHoveringOverLink obj cb SignalConnectBefore +afterWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId +afterWebFrameHoveringOverLink obj cb = connectWebFrameHoveringOverLink obj cb SignalConnectAfter + +connectWebFrameHoveringOverLink :: (GObject a, MonadIO m) => + a -> WebFrameHoveringOverLinkCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameHoveringOverLink obj cb after = liftIO $ do + cb' <- mkWebFrameHoveringOverLinkCallback (webFrameHoveringOverLinkCallbackWrapper cb) + connectSignalFunPtr obj "hovering-over-link" cb' after + +-- signal WebFrame::insecure-content-run +type WebFrameInsecureContentRunCallback = + SecurityOrigin -> + T.Text -> + IO () + +noWebFrameInsecureContentRunCallback :: Maybe WebFrameInsecureContentRunCallback +noWebFrameInsecureContentRunCallback = Nothing + +type WebFrameInsecureContentRunCallbackC = + Ptr () -> -- object + Ptr SecurityOrigin -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameInsecureContentRunCallback :: WebFrameInsecureContentRunCallbackC -> IO (FunPtr WebFrameInsecureContentRunCallbackC) + +webFrameInsecureContentRunClosure :: WebFrameInsecureContentRunCallback -> IO Closure +webFrameInsecureContentRunClosure cb = newCClosure =<< mkWebFrameInsecureContentRunCallback wrapped + where wrapped = webFrameInsecureContentRunCallbackWrapper cb + +webFrameInsecureContentRunCallbackWrapper :: + WebFrameInsecureContentRunCallback -> + Ptr () -> + Ptr SecurityOrigin -> + CString -> + Ptr () -> + IO () +webFrameInsecureContentRunCallbackWrapper _cb _ security_origin url _ = do + security_origin' <- (newObject SecurityOrigin) security_origin + url' <- cstringToText url + _cb security_origin' url' + +onWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId +onWebFrameInsecureContentRun obj cb = liftIO $ connectWebFrameInsecureContentRun obj cb SignalConnectBefore +afterWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId +afterWebFrameInsecureContentRun obj cb = connectWebFrameInsecureContentRun obj cb SignalConnectAfter + +connectWebFrameInsecureContentRun :: (GObject a, MonadIO m) => + a -> WebFrameInsecureContentRunCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameInsecureContentRun obj cb after = liftIO $ do + cb' <- mkWebFrameInsecureContentRunCallback (webFrameInsecureContentRunCallbackWrapper cb) + connectSignalFunPtr obj "insecure-content-run" cb' after + +-- signal WebFrame::load-committed +type WebFrameLoadCommittedCallback = + IO () + +noWebFrameLoadCommittedCallback :: Maybe WebFrameLoadCommittedCallback +noWebFrameLoadCommittedCallback = Nothing + +type WebFrameLoadCommittedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameLoadCommittedCallback :: WebFrameLoadCommittedCallbackC -> IO (FunPtr WebFrameLoadCommittedCallbackC) + +webFrameLoadCommittedClosure :: WebFrameLoadCommittedCallback -> IO Closure +webFrameLoadCommittedClosure cb = newCClosure =<< mkWebFrameLoadCommittedCallback wrapped + where wrapped = webFrameLoadCommittedCallbackWrapper cb + +webFrameLoadCommittedCallbackWrapper :: + WebFrameLoadCommittedCallback -> + Ptr () -> + Ptr () -> + IO () +webFrameLoadCommittedCallbackWrapper _cb _ _ = do + _cb + +onWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId +onWebFrameLoadCommitted obj cb = liftIO $ connectWebFrameLoadCommitted obj cb SignalConnectBefore +afterWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId +afterWebFrameLoadCommitted obj cb = connectWebFrameLoadCommitted obj cb SignalConnectAfter + +connectWebFrameLoadCommitted :: (GObject a, MonadIO m) => + a -> WebFrameLoadCommittedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameLoadCommitted obj cb after = liftIO $ do + cb' <- mkWebFrameLoadCommittedCallback (webFrameLoadCommittedCallbackWrapper cb) + connectSignalFunPtr obj "load-committed" cb' after + +-- signal WebFrame::resource-content-length-received +type WebFrameResourceContentLengthReceivedCallback = + WebResource -> + Int32 -> + IO () + +noWebFrameResourceContentLengthReceivedCallback :: Maybe WebFrameResourceContentLengthReceivedCallback +noWebFrameResourceContentLengthReceivedCallback = Nothing + +type WebFrameResourceContentLengthReceivedCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameResourceContentLengthReceivedCallback :: WebFrameResourceContentLengthReceivedCallbackC -> IO (FunPtr WebFrameResourceContentLengthReceivedCallbackC) + +webFrameResourceContentLengthReceivedClosure :: WebFrameResourceContentLengthReceivedCallback -> IO Closure +webFrameResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebFrameResourceContentLengthReceivedCallback wrapped + where wrapped = webFrameResourceContentLengthReceivedCallbackWrapper cb + +webFrameResourceContentLengthReceivedCallbackWrapper :: + WebFrameResourceContentLengthReceivedCallback -> + Ptr () -> + Ptr WebResource -> + Int32 -> + Ptr () -> + IO () +webFrameResourceContentLengthReceivedCallbackWrapper _cb _ web_resource length_received _ = do + web_resource' <- (newObject WebResource) web_resource + _cb web_resource' length_received + +onWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId +onWebFrameResourceContentLengthReceived obj cb = liftIO $ connectWebFrameResourceContentLengthReceived obj cb SignalConnectBefore +afterWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId +afterWebFrameResourceContentLengthReceived obj cb = connectWebFrameResourceContentLengthReceived obj cb SignalConnectAfter + +connectWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => + a -> WebFrameResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameResourceContentLengthReceived obj cb after = liftIO $ do + cb' <- mkWebFrameResourceContentLengthReceivedCallback (webFrameResourceContentLengthReceivedCallbackWrapper cb) + connectSignalFunPtr obj "resource-content-length-received" cb' after + +-- signal WebFrame::resource-load-failed +type WebFrameResourceLoadFailedCallback = + WebResource -> + Ptr () -> + IO () + +noWebFrameResourceLoadFailedCallback :: Maybe WebFrameResourceLoadFailedCallback +noWebFrameResourceLoadFailedCallback = Nothing + +type WebFrameResourceLoadFailedCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameResourceLoadFailedCallback :: WebFrameResourceLoadFailedCallbackC -> IO (FunPtr WebFrameResourceLoadFailedCallbackC) + +webFrameResourceLoadFailedClosure :: WebFrameResourceLoadFailedCallback -> IO Closure +webFrameResourceLoadFailedClosure cb = newCClosure =<< mkWebFrameResourceLoadFailedCallback wrapped + where wrapped = webFrameResourceLoadFailedCallbackWrapper cb + +webFrameResourceLoadFailedCallbackWrapper :: + WebFrameResourceLoadFailedCallback -> + Ptr () -> + Ptr WebResource -> + Ptr () -> + Ptr () -> + IO () +webFrameResourceLoadFailedCallbackWrapper _cb _ web_resource error_ _ = do + web_resource' <- (newObject WebResource) web_resource + _cb web_resource' error_ + +onWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId +onWebFrameResourceLoadFailed obj cb = liftIO $ connectWebFrameResourceLoadFailed obj cb SignalConnectBefore +afterWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId +afterWebFrameResourceLoadFailed obj cb = connectWebFrameResourceLoadFailed obj cb SignalConnectAfter + +connectWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => + a -> WebFrameResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameResourceLoadFailed obj cb after = liftIO $ do + cb' <- mkWebFrameResourceLoadFailedCallback (webFrameResourceLoadFailedCallbackWrapper cb) + connectSignalFunPtr obj "resource-load-failed" cb' after + +-- signal WebFrame::resource-load-finished +type WebFrameResourceLoadFinishedCallback = + WebResource -> + IO () + +noWebFrameResourceLoadFinishedCallback :: Maybe WebFrameResourceLoadFinishedCallback +noWebFrameResourceLoadFinishedCallback = Nothing + +type WebFrameResourceLoadFinishedCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameResourceLoadFinishedCallback :: WebFrameResourceLoadFinishedCallbackC -> IO (FunPtr WebFrameResourceLoadFinishedCallbackC) + +webFrameResourceLoadFinishedClosure :: WebFrameResourceLoadFinishedCallback -> IO Closure +webFrameResourceLoadFinishedClosure cb = newCClosure =<< mkWebFrameResourceLoadFinishedCallback wrapped + where wrapped = webFrameResourceLoadFinishedCallbackWrapper cb + +webFrameResourceLoadFinishedCallbackWrapper :: + WebFrameResourceLoadFinishedCallback -> + Ptr () -> + Ptr WebResource -> + Ptr () -> + IO () +webFrameResourceLoadFinishedCallbackWrapper _cb _ web_resource _ = do + web_resource' <- (newObject WebResource) web_resource + _cb web_resource' + +onWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId +onWebFrameResourceLoadFinished obj cb = liftIO $ connectWebFrameResourceLoadFinished obj cb SignalConnectBefore +afterWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId +afterWebFrameResourceLoadFinished obj cb = connectWebFrameResourceLoadFinished obj cb SignalConnectAfter + +connectWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => + a -> WebFrameResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameResourceLoadFinished obj cb after = liftIO $ do + cb' <- mkWebFrameResourceLoadFinishedCallback (webFrameResourceLoadFinishedCallbackWrapper cb) + connectSignalFunPtr obj "resource-load-finished" cb' after + +-- signal WebFrame::resource-request-starting +type WebFrameResourceRequestStartingCallback = + WebResource -> + NetworkRequest -> + NetworkResponse -> + IO () + +noWebFrameResourceRequestStartingCallback :: Maybe WebFrameResourceRequestStartingCallback +noWebFrameResourceRequestStartingCallback = Nothing + +type WebFrameResourceRequestStartingCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Ptr NetworkRequest -> + Ptr NetworkResponse -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameResourceRequestStartingCallback :: WebFrameResourceRequestStartingCallbackC -> IO (FunPtr WebFrameResourceRequestStartingCallbackC) + +webFrameResourceRequestStartingClosure :: WebFrameResourceRequestStartingCallback -> IO Closure +webFrameResourceRequestStartingClosure cb = newCClosure =<< mkWebFrameResourceRequestStartingCallback wrapped + where wrapped = webFrameResourceRequestStartingCallbackWrapper cb + +webFrameResourceRequestStartingCallbackWrapper :: + WebFrameResourceRequestStartingCallback -> + Ptr () -> + Ptr WebResource -> + Ptr NetworkRequest -> + Ptr NetworkResponse -> + Ptr () -> + IO () +webFrameResourceRequestStartingCallbackWrapper _cb _ web_resource request response _ = do + web_resource' <- (newObject WebResource) web_resource + request' <- (newObject NetworkRequest) request + response' <- (newObject NetworkResponse) response + _cb web_resource' request' response' + +onWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId +onWebFrameResourceRequestStarting obj cb = liftIO $ connectWebFrameResourceRequestStarting obj cb SignalConnectBefore +afterWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId +afterWebFrameResourceRequestStarting obj cb = connectWebFrameResourceRequestStarting obj cb SignalConnectAfter + +connectWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => + a -> WebFrameResourceRequestStartingCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameResourceRequestStarting obj cb after = liftIO $ do + cb' <- mkWebFrameResourceRequestStartingCallback (webFrameResourceRequestStartingCallbackWrapper cb) + connectSignalFunPtr obj "resource-request-starting" cb' after + +-- signal WebFrame::resource-response-received +type WebFrameResourceResponseReceivedCallback = + WebResource -> + NetworkResponse -> + IO () + +noWebFrameResourceResponseReceivedCallback :: Maybe WebFrameResourceResponseReceivedCallback +noWebFrameResourceResponseReceivedCallback = Nothing + +type WebFrameResourceResponseReceivedCallbackC = + Ptr () -> -- object + Ptr WebResource -> + Ptr NetworkResponse -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameResourceResponseReceivedCallback :: WebFrameResourceResponseReceivedCallbackC -> IO (FunPtr WebFrameResourceResponseReceivedCallbackC) + +webFrameResourceResponseReceivedClosure :: WebFrameResourceResponseReceivedCallback -> IO Closure +webFrameResourceResponseReceivedClosure cb = newCClosure =<< mkWebFrameResourceResponseReceivedCallback wrapped + where wrapped = webFrameResourceResponseReceivedCallbackWrapper cb + +webFrameResourceResponseReceivedCallbackWrapper :: + WebFrameResourceResponseReceivedCallback -> + Ptr () -> + Ptr WebResource -> + Ptr NetworkResponse -> + Ptr () -> + IO () +webFrameResourceResponseReceivedCallbackWrapper _cb _ web_resource response _ = do + web_resource' <- (newObject WebResource) web_resource + response' <- (newObject NetworkResponse) response + _cb web_resource' response' + +onWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId +onWebFrameResourceResponseReceived obj cb = liftIO $ connectWebFrameResourceResponseReceived obj cb SignalConnectBefore +afterWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId +afterWebFrameResourceResponseReceived obj cb = connectWebFrameResourceResponseReceived obj cb SignalConnectAfter + +connectWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => + a -> WebFrameResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameResourceResponseReceived obj cb after = liftIO $ do + cb' <- mkWebFrameResourceResponseReceivedCallback (webFrameResourceResponseReceivedCallbackWrapper cb) + connectSignalFunPtr obj "resource-response-received" cb' after + +-- signal WebFrame::scrollbars-policy-changed +type WebFrameScrollbarsPolicyChangedCallback = + IO Bool + +noWebFrameScrollbarsPolicyChangedCallback :: Maybe WebFrameScrollbarsPolicyChangedCallback +noWebFrameScrollbarsPolicyChangedCallback = Nothing + +type WebFrameScrollbarsPolicyChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebFrameScrollbarsPolicyChangedCallback :: WebFrameScrollbarsPolicyChangedCallbackC -> IO (FunPtr WebFrameScrollbarsPolicyChangedCallbackC) + +webFrameScrollbarsPolicyChangedClosure :: WebFrameScrollbarsPolicyChangedCallback -> IO Closure +webFrameScrollbarsPolicyChangedClosure cb = newCClosure =<< mkWebFrameScrollbarsPolicyChangedCallback wrapped + where wrapped = webFrameScrollbarsPolicyChangedCallbackWrapper cb + +webFrameScrollbarsPolicyChangedCallbackWrapper :: + WebFrameScrollbarsPolicyChangedCallback -> + Ptr () -> + Ptr () -> + IO CInt +webFrameScrollbarsPolicyChangedCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId +onWebFrameScrollbarsPolicyChanged obj cb = liftIO $ connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectBefore +afterWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId +afterWebFrameScrollbarsPolicyChanged obj cb = connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectAfter + +connectWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => + a -> WebFrameScrollbarsPolicyChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameScrollbarsPolicyChanged obj cb after = liftIO $ do + cb' <- mkWebFrameScrollbarsPolicyChangedCallback (webFrameScrollbarsPolicyChangedCallbackWrapper cb) + connectSignalFunPtr obj "scrollbars-policy-changed" cb' after + +-- signal WebFrame::title-changed +type WebFrameTitleChangedCallback = + T.Text -> + IO () + +noWebFrameTitleChangedCallback :: Maybe WebFrameTitleChangedCallback +noWebFrameTitleChangedCallback = Nothing + +type WebFrameTitleChangedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebFrameTitleChangedCallback :: WebFrameTitleChangedCallbackC -> IO (FunPtr WebFrameTitleChangedCallbackC) + +webFrameTitleChangedClosure :: WebFrameTitleChangedCallback -> IO Closure +webFrameTitleChangedClosure cb = newCClosure =<< mkWebFrameTitleChangedCallback wrapped + where wrapped = webFrameTitleChangedCallbackWrapper cb + +webFrameTitleChangedCallbackWrapper :: + WebFrameTitleChangedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +webFrameTitleChangedCallbackWrapper _cb _ title _ = do + title' <- cstringToText title + _cb title' + +onWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId +onWebFrameTitleChanged obj cb = liftIO $ connectWebFrameTitleChanged obj cb SignalConnectBefore +afterWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId +afterWebFrameTitleChanged obj cb = connectWebFrameTitleChanged obj cb SignalConnectAfter + +connectWebFrameTitleChanged :: (GObject a, MonadIO m) => + a -> WebFrameTitleChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebFrameTitleChanged obj cb after = liftIO $ do + cb' <- mkWebFrameTitleChangedCallback (webFrameTitleChangedCallbackWrapper cb) + connectSignalFunPtr obj "title-changed" cb' after + +-- VVV Prop "horizontal-scrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable] + +getWebFrameHorizontalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType +getWebFrameHorizontalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "horizontal-scrollbar-policy" + +data WebFrameHorizontalScrollbarPolicyPropertyInfo +instance AttrInfo WebFrameHorizontalScrollbarPolicyPropertyInfo where + type AttrAllowedOps WebFrameHorizontalScrollbarPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = WebFrameK + type AttrGetType WebFrameHorizontalScrollbarPolicyPropertyInfo = Gtk.PolicyType + type AttrLabel WebFrameHorizontalScrollbarPolicyPropertyInfo = "WebFrame::horizontal-scrollbar-policy" + attrGet _ = getWebFrameHorizontalScrollbarPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-status" + -- Type: TInterface "WebKit" "LoadStatus" + -- Flags: [PropertyReadable] + +getWebFrameLoadStatus :: (MonadIO m, WebFrameK o) => o -> m LoadStatus +getWebFrameLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" + +data WebFrameLoadStatusPropertyInfo +instance AttrInfo WebFrameLoadStatusPropertyInfo where + type AttrAllowedOps WebFrameLoadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameLoadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameLoadStatusPropertyInfo = WebFrameK + type AttrGetType WebFrameLoadStatusPropertyInfo = LoadStatus + type AttrLabel WebFrameLoadStatusPropertyInfo = "WebFrame::load-status" + attrGet _ = getWebFrameLoadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameName :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameName obj = liftIO $ getObjectPropertyString obj "name" + +data WebFrameNamePropertyInfo +instance AttrInfo WebFrameNamePropertyInfo where + type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameNamePropertyInfo = WebFrameK + type AttrGetType WebFrameNamePropertyInfo = T.Text + type AttrLabel WebFrameNamePropertyInfo = "WebFrame::name" + attrGet _ = getWebFrameName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameTitle :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebFrameTitlePropertyInfo +instance AttrInfo WebFrameTitlePropertyInfo where + type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameTitlePropertyInfo = WebFrameK + type AttrGetType WebFrameTitlePropertyInfo = T.Text + type AttrLabel WebFrameTitlePropertyInfo = "WebFrame::title" + attrGet _ = getWebFrameTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameUri :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebFrameUriPropertyInfo +instance AttrInfo WebFrameUriPropertyInfo where + type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameUriPropertyInfo = WebFrameK + type AttrGetType WebFrameUriPropertyInfo = T.Text + type AttrLabel WebFrameUriPropertyInfo = "WebFrame::uri" + attrGet _ = getWebFrameUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vertical-scrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable] + +getWebFrameVerticalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType +getWebFrameVerticalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vertical-scrollbar-policy" + +data WebFrameVerticalScrollbarPolicyPropertyInfo +instance AttrInfo WebFrameVerticalScrollbarPolicyPropertyInfo where + type AttrAllowedOps WebFrameVerticalScrollbarPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = WebFrameK + type AttrGetType WebFrameVerticalScrollbarPolicyPropertyInfo = Gtk.PolicyType + type AttrLabel WebFrameVerticalScrollbarPolicyPropertyInfo = "WebFrame::vertical-scrollbar-policy" + attrGet _ = getWebFrameVerticalScrollbarPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebFrame = WebFrameAttributeList +type WebFrameAttributeList = ('[ '("horizontal-scrollbar-policy", WebFrameHorizontalScrollbarPolicyPropertyInfo), '("load-status", WebFrameLoadStatusPropertyInfo), '("name", WebFrameNamePropertyInfo), '("title", WebFrameTitlePropertyInfo), '("uri", WebFrameUriPropertyInfo), '("vertical-scrollbar-policy", WebFrameVerticalScrollbarPolicyPropertyInfo)] :: [(Symbol, *)]) + +data WebFrameClearedSignalInfo +instance SignalInfo WebFrameClearedSignalInfo where + type HaskellCallbackType WebFrameClearedSignalInfo = WebFrameClearedCallback + connectSignal _ = connectWebFrameCleared + +data WebFrameHoveringOverLinkSignalInfo +instance SignalInfo WebFrameHoveringOverLinkSignalInfo where + type HaskellCallbackType WebFrameHoveringOverLinkSignalInfo = WebFrameHoveringOverLinkCallback + connectSignal _ = connectWebFrameHoveringOverLink + +data WebFrameInsecureContentRunSignalInfo +instance SignalInfo WebFrameInsecureContentRunSignalInfo where + type HaskellCallbackType WebFrameInsecureContentRunSignalInfo = WebFrameInsecureContentRunCallback + connectSignal _ = connectWebFrameInsecureContentRun + +data WebFrameLoadCommittedSignalInfo +instance SignalInfo WebFrameLoadCommittedSignalInfo where + type HaskellCallbackType WebFrameLoadCommittedSignalInfo = WebFrameLoadCommittedCallback + connectSignal _ = connectWebFrameLoadCommitted + +data WebFrameResourceContentLengthReceivedSignalInfo +instance SignalInfo WebFrameResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebFrameResourceContentLengthReceivedSignalInfo = WebFrameResourceContentLengthReceivedCallback + connectSignal _ = connectWebFrameResourceContentLengthReceived + +data WebFrameResourceLoadFailedSignalInfo +instance SignalInfo WebFrameResourceLoadFailedSignalInfo where + type HaskellCallbackType WebFrameResourceLoadFailedSignalInfo = WebFrameResourceLoadFailedCallback + connectSignal _ = connectWebFrameResourceLoadFailed + +data WebFrameResourceLoadFinishedSignalInfo +instance SignalInfo WebFrameResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebFrameResourceLoadFinishedSignalInfo = WebFrameResourceLoadFinishedCallback + connectSignal _ = connectWebFrameResourceLoadFinished + +data WebFrameResourceRequestStartingSignalInfo +instance SignalInfo WebFrameResourceRequestStartingSignalInfo where + type HaskellCallbackType WebFrameResourceRequestStartingSignalInfo = WebFrameResourceRequestStartingCallback + connectSignal _ = connectWebFrameResourceRequestStarting + +data WebFrameResourceResponseReceivedSignalInfo +instance SignalInfo WebFrameResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebFrameResourceResponseReceivedSignalInfo = WebFrameResourceResponseReceivedCallback + connectSignal _ = connectWebFrameResourceResponseReceived + +data WebFrameScrollbarsPolicyChangedSignalInfo +instance SignalInfo WebFrameScrollbarsPolicyChangedSignalInfo where + type HaskellCallbackType WebFrameScrollbarsPolicyChangedSignalInfo = WebFrameScrollbarsPolicyChangedCallback + connectSignal _ = connectWebFrameScrollbarsPolicyChanged + +data WebFrameTitleChangedSignalInfo +instance SignalInfo WebFrameTitleChangedSignalInfo where + type HaskellCallbackType WebFrameTitleChangedSignalInfo = WebFrameTitleChangedCallback + connectSignal _ = connectWebFrameTitleChanged + +type instance SignalList WebFrame = WebFrameSignalList +type WebFrameSignalList = ('[ '("cleared", WebFrameClearedSignalInfo), '("hovering-over-link", WebFrameHoveringOverLinkSignalInfo), '("insecure-content-run", WebFrameInsecureContentRunSignalInfo), '("load-committed", WebFrameLoadCommittedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("resource-content-length-received", WebFrameResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebFrameResourceLoadFailedSignalInfo), '("resource-load-finished", WebFrameResourceLoadFinishedSignalInfo), '("resource-request-starting", WebFrameResourceRequestStartingSignalInfo), '("resource-response-received", WebFrameResourceResponseReceivedSignalInfo), '("scrollbars-policy-changed", WebFrameScrollbarsPolicyChangedSignalInfo), '("title-changed", WebFrameTitleChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebFrame::new +-- method type : Constructor +-- Args : [Arg {argName = "web_view", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "web_view", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_new" webkit_web_frame_new :: + Ptr WebView -> -- web_view : TInterface "WebKit" "WebView" + IO (Ptr WebFrame) + +{-# DEPRECATED webFrameNew ["(Since version 1.0.2)","#WebKitWebFrame can only be used to inspect existing","frames."]#-} +webFrameNew :: + (MonadIO m, WebViewK a) => + a -> -- web_view + m WebFrame +webFrameNew web_view = liftIO $ do + let web_view' = unsafeManagedPtrCastPtr web_view + result <- webkit_web_frame_new web_view' + checkUnexpectedReturnNULL "webkit_web_frame_new" result + result' <- (wrapObject WebFrame) result + touchManagedPtr web_view + return result' + +-- method WebFrame::find_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_find_frame" webkit_web_frame_find_frame :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + CString -> -- name : TBasicType TUTF8 + IO (Ptr WebFrame) + + +webFrameFindFrame :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + T.Text -> -- name + m WebFrame +webFrameFindFrame _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_web_frame_find_frame _obj' name' + checkUnexpectedReturnNULL "webkit_web_frame_find_frame" result + result' <- (newObject WebFrame) result + touchManagedPtr _obj + freeMem name' + return result' + +-- method WebFrame::get_data_source +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebDataSource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_data_source" webkit_web_frame_get_data_source :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr WebDataSource) + + +webFrameGetDataSource :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m WebDataSource +webFrameGetDataSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_data_source _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_data_source" result + result' <- (newObject WebDataSource) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_dom_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_dom_document" webkit_web_frame_get_dom_document :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr DOMDocument) + + +webFrameGetDomDocument :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m DOMDocument +webFrameGetDomDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_dom_document _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_dom_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_global_context +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "JavaScriptCore" "GlobalContext" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_global_context" webkit_web_frame_get_global_context :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr JavaScriptCore.GlobalContext) + + +webFrameGetGlobalContext :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m JavaScriptCore.GlobalContext +webFrameGetGlobalContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_global_context _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_global_context" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_horizontal_scrollbar_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "PolicyType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_horizontal_scrollbar_policy" webkit_web_frame_get_horizontal_scrollbar_policy :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CUInt + + +webFrameGetHorizontalScrollbarPolicy :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m Gtk.PolicyType +webFrameGetHorizontalScrollbarPolicy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_horizontal_scrollbar_policy _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_load_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "LoadStatus" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_load_status" webkit_web_frame_get_load_status :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CUInt + + +webFrameGetLoadStatus :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m LoadStatus +webFrameGetLoadStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_load_status _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_name" webkit_web_frame_get_name :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CString + + +webFrameGetName :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m T.Text +webFrameGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_name _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_network_response +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "NetworkResponse" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_network_response" webkit_web_frame_get_network_response :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr NetworkResponse) + + +webFrameGetNetworkResponse :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m NetworkResponse +webFrameGetNetworkResponse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_network_response _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_network_response" result + result' <- (wrapObject NetworkResponse) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_parent" webkit_web_frame_get_parent :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr WebFrame) + + +webFrameGetParent :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m WebFrame +webFrameGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_parent _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_parent" result + result' <- (newObject WebFrame) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_provisional_data_source +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebDataSource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_provisional_data_source" webkit_web_frame_get_provisional_data_source :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr WebDataSource) + + +webFrameGetProvisionalDataSource :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m WebDataSource +webFrameGetProvisionalDataSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_provisional_data_source _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_provisional_data_source" result + result' <- (newObject WebDataSource) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_range_for_word_around_caret +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMRange" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_range_for_word_around_caret" webkit_web_frame_get_range_for_word_around_caret :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr DOMRange) + + +webFrameGetRangeForWordAroundCaret :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m DOMRange +webFrameGetRangeForWordAroundCaret _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_range_for_word_around_caret _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_range_for_word_around_caret" result + result' <- (newObject DOMRange) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_security_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "SecurityOrigin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_security_origin" webkit_web_frame_get_security_origin :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr SecurityOrigin) + + +webFrameGetSecurityOrigin :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m SecurityOrigin +webFrameGetSecurityOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_security_origin _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_security_origin" result + result' <- (newObject SecurityOrigin) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_title" webkit_web_frame_get_title :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CString + + +webFrameGetTitle :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m T.Text +webFrameGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_title _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_uri" webkit_web_frame_get_uri :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CString + + +webFrameGetUri :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m T.Text +webFrameGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_uri _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_vertical_scrollbar_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "PolicyType" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_vertical_scrollbar_policy" webkit_web_frame_get_vertical_scrollbar_policy :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO CUInt + + +webFrameGetVerticalScrollbarPolicy :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m Gtk.PolicyType +webFrameGetVerticalScrollbarPolicy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_vertical_scrollbar_policy _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebFrame::get_web_view +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_get_web_view" webkit_web_frame_get_web_view :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO (Ptr WebView) + + +webFrameGetWebView :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m WebView +webFrameGetWebView _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_frame_get_web_view _obj' + checkUnexpectedReturnNULL "webkit_web_frame_get_web_view" result + result' <- (newObject WebView) result + touchManagedPtr _obj + return result' + +-- method WebFrame::load_alternate_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unreachable_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unreachable_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_load_alternate_string" webkit_web_frame_load_alternate_string :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + CString -> -- content : TBasicType TUTF8 + CString -> -- base_url : TBasicType TUTF8 + CString -> -- unreachable_url : TBasicType TUTF8 + IO () + + +webFrameLoadAlternateString :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + T.Text -> -- content + T.Text -> -- base_url + T.Text -> -- unreachable_url + m () +webFrameLoadAlternateString _obj content base_url unreachable_url = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + base_url' <- textToCString base_url + unreachable_url' <- textToCString unreachable_url + webkit_web_frame_load_alternate_string _obj' content' base_url' unreachable_url' + touchManagedPtr _obj + freeMem content' + freeMem base_url' + freeMem unreachable_url' + return () + +-- method WebFrame::load_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_load_request" webkit_web_frame_load_request :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest" + IO () + + +webFrameLoadRequest :: + (MonadIO m, WebFrameK a, NetworkRequestK b) => + a -> -- _obj + b -> -- request + m () +webFrameLoadRequest _obj request = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let request' = unsafeManagedPtrCastPtr request + webkit_web_frame_load_request _obj' request' + touchManagedPtr _obj + touchManagedPtr request + return () + +-- method WebFrame::load_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_load_string" webkit_web_frame_load_string :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + CString -> -- content : TBasicType TUTF8 + CString -> -- mime_type : TBasicType TUTF8 + CString -> -- encoding : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + + +webFrameLoadString :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + T.Text -> -- content + T.Text -> -- mime_type + T.Text -> -- encoding + T.Text -> -- base_uri + m () +webFrameLoadString _obj content mime_type encoding base_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + mime_type' <- textToCString mime_type + encoding' <- textToCString encoding + base_uri' <- textToCString base_uri + webkit_web_frame_load_string _obj' content' mime_type' encoding' base_uri' + touchManagedPtr _obj + freeMem content' + freeMem mime_type' + freeMem encoding' + freeMem base_uri' + return () + +-- method WebFrame::load_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_load_uri" webkit_web_frame_load_uri :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + CString -> -- uri : TBasicType TUTF8 + IO () + + +webFrameLoadUri :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + T.Text -> -- uri + m () +webFrameLoadUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_web_frame_load_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + +-- method WebFrame::print +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_print" webkit_web_frame_print :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO () + + +webFramePrint :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m () +webFramePrint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_frame_print _obj' + touchManagedPtr _obj + return () + +-- method WebFrame::print_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "operation", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "operation", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "PrintOperationResult" +-- throws : True +-- Skip return : False + +foreign import ccall "webkit_web_frame_print_full" webkit_web_frame_print_full :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + Ptr Gtk.PrintOperation -> -- operation : TInterface "Gtk" "PrintOperation" + CUInt -> -- action : TInterface "Gtk" "PrintOperationAction" + Ptr (Ptr GError) -> -- error + IO CUInt + + +webFramePrintFull :: + (MonadIO m, WebFrameK a, Gtk.PrintOperationK b) => + a -> -- _obj + b -> -- operation + Gtk.PrintOperationAction -> -- action + m Gtk.PrintOperationResult +webFramePrintFull _obj operation action = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let operation' = unsafeManagedPtrCastPtr operation + let action' = (fromIntegral . fromEnum) action + onException (do + result <- propagateGError $ webkit_web_frame_print_full _obj' operation' action' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + touchManagedPtr operation + return result' + ) (do + return () + ) + +-- method WebFrame::reload +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_reload" webkit_web_frame_reload :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO () + + +webFrameReload :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m () +webFrameReload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_frame_reload _obj' + touchManagedPtr _obj + return () + +-- method WebFrame::replace_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_replace_selection" webkit_web_frame_replace_selection :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + CString -> -- text : TBasicType TUTF8 + IO () + + +webFrameReplaceSelection :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + T.Text -> -- text + m () +webFrameReplaceSelection _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + webkit_web_frame_replace_selection _obj' text' + touchManagedPtr _obj + freeMem text' + return () + +-- method WebFrame::stop_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_frame_stop_loading" webkit_web_frame_stop_loading :: + Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame" + IO () + + +webFrameStopLoading :: + (MonadIO m, WebFrameK a) => + a -> -- _obj + m () +webFrameStopLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_frame_stop_loading _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebFrame.hs-boot b/GI/WebKit/Objects/WebFrame.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebFrame.hs-boot @@ -0,0 +1,30 @@ +module GI.WebKit.Objects.WebFrame where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebFrame = WebFrame (ForeignPtr WebFrame) +instance GObject WebFrame where +class GObject o => WebFrameK o +instance (GObject o, IsDescendantOf WebFrame o) => WebFrameK o +data WebFrameHorizontalScrollbarPolicyPropertyInfo +data WebFrameLoadStatusPropertyInfo +data WebFrameNamePropertyInfo +data WebFrameTitlePropertyInfo +data WebFrameUriPropertyInfo +data WebFrameVerticalScrollbarPolicyPropertyInfo +data WebFrameClearedSignalInfo +data WebFrameHoveringOverLinkSignalInfo +data WebFrameInsecureContentRunSignalInfo +data WebFrameLoadCommittedSignalInfo +data WebFrameResourceContentLengthReceivedSignalInfo +data WebFrameResourceLoadFailedSignalInfo +data WebFrameResourceLoadFinishedSignalInfo +data WebFrameResourceRequestStartingSignalInfo +data WebFrameResourceResponseReceivedSignalInfo +data WebFrameScrollbarsPolicyChangedSignalInfo +data WebFrameTitleChangedSignalInfo diff --git a/GI/WebKit/Objects/WebHistoryItem.hs b/GI/WebKit/Objects/WebHistoryItem.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebHistoryItem.hs @@ -0,0 +1,458 @@ + +{- | +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.WebKit.Objects.WebHistoryItem + ( + +-- * Exported types + WebHistoryItem(..) , + WebHistoryItemK , + toWebHistoryItem , + noWebHistoryItem , + + + -- * Methods +-- ** webHistoryItemCopy + webHistoryItemCopy , + + +-- ** webHistoryItemGetAlternateTitle + webHistoryItemGetAlternateTitle , + + +-- ** webHistoryItemGetLastVisitedTime + webHistoryItemGetLastVisitedTime , + + +-- ** webHistoryItemGetOriginalUri + webHistoryItemGetOriginalUri , + + +-- ** webHistoryItemGetTitle + webHistoryItemGetTitle , + + +-- ** webHistoryItemGetUri + webHistoryItemGetUri , + + +-- ** webHistoryItemNew + webHistoryItemNew , + + +-- ** webHistoryItemNewWithData + webHistoryItemNewWithData , + + +-- ** webHistoryItemSetAlternateTitle + webHistoryItemSetAlternateTitle , + + + + + -- * Properties +-- ** AlternateTitle + WebHistoryItemAlternateTitlePropertyInfo, + constructWebHistoryItemAlternateTitle , + getWebHistoryItemAlternateTitle , + setWebHistoryItemAlternateTitle , + + +-- ** LastVisitedTime + WebHistoryItemLastVisitedTimePropertyInfo, + getWebHistoryItemLastVisitedTime , + + +-- ** OriginalUri + WebHistoryItemOriginalUriPropertyInfo , + getWebHistoryItemOriginalUri , + + +-- ** Title + WebHistoryItemTitlePropertyInfo , + getWebHistoryItemTitle , + + +-- ** Uri + WebHistoryItemUriPropertyInfo , + getWebHistoryItemUri , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebHistoryItem = WebHistoryItem (ForeignPtr WebHistoryItem) +foreign import ccall "webkit_web_history_item_get_type" + c_webkit_web_history_item_get_type :: IO GType + +type instance ParentTypes WebHistoryItem = WebHistoryItemParentTypes +type WebHistoryItemParentTypes = '[GObject.Object] + +instance GObject WebHistoryItem where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_history_item_get_type + + +class GObject o => WebHistoryItemK o +instance (GObject o, IsDescendantOf WebHistoryItem o) => WebHistoryItemK o + +toWebHistoryItem :: WebHistoryItemK o => o -> IO WebHistoryItem +toWebHistoryItem = unsafeCastTo WebHistoryItem + +noWebHistoryItem :: Maybe WebHistoryItem +noWebHistoryItem = Nothing + +-- VVV Prop "alternate-title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemAlternateTitle obj = liftIO $ getObjectPropertyString obj "alternate-title" + +setWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> T.Text -> m () +setWebHistoryItemAlternateTitle obj val = liftIO $ setObjectPropertyString obj "alternate-title" val + +constructWebHistoryItemAlternateTitle :: T.Text -> IO ([Char], GValue) +constructWebHistoryItemAlternateTitle val = constructObjectPropertyString "alternate-title" val + +data WebHistoryItemAlternateTitlePropertyInfo +instance AttrInfo WebHistoryItemAlternateTitlePropertyInfo where + type AttrAllowedOps WebHistoryItemAlternateTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemAlternateTitlePropertyInfo = T.Text + type AttrLabel WebHistoryItemAlternateTitlePropertyInfo = "WebHistoryItem::alternate-title" + attrGet _ = getWebHistoryItemAlternateTitle + attrSet _ = setWebHistoryItemAlternateTitle + attrConstruct _ = constructWebHistoryItemAlternateTitle + +-- VVV Prop "last-visited-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getWebHistoryItemLastVisitedTime :: (MonadIO m, WebHistoryItemK o) => o -> m Double +getWebHistoryItemLastVisitedTime obj = liftIO $ getObjectPropertyDouble obj "last-visited-time" + +data WebHistoryItemLastVisitedTimePropertyInfo +instance AttrInfo WebHistoryItemLastVisitedTimePropertyInfo where + type AttrAllowedOps WebHistoryItemLastVisitedTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemLastVisitedTimePropertyInfo = Double + type AttrLabel WebHistoryItemLastVisitedTimePropertyInfo = "WebHistoryItem::last-visited-time" + attrGet _ = getWebHistoryItemLastVisitedTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "original-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemOriginalUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" + +data WebHistoryItemOriginalUriPropertyInfo +instance AttrInfo WebHistoryItemOriginalUriPropertyInfo where + type AttrAllowedOps WebHistoryItemOriginalUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemOriginalUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemOriginalUriPropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemOriginalUriPropertyInfo = T.Text + type AttrLabel WebHistoryItemOriginalUriPropertyInfo = "WebHistoryItem::original-uri" + attrGet _ = getWebHistoryItemOriginalUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebHistoryItemTitlePropertyInfo +instance AttrInfo WebHistoryItemTitlePropertyInfo where + type AttrAllowedOps WebHistoryItemTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemTitlePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemTitlePropertyInfo = T.Text + type AttrLabel WebHistoryItemTitlePropertyInfo = "WebHistoryItem::title" + attrGet _ = getWebHistoryItemTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebHistoryItemUriPropertyInfo +instance AttrInfo WebHistoryItemUriPropertyInfo where + type AttrAllowedOps WebHistoryItemUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemUriPropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemUriPropertyInfo = T.Text + type AttrLabel WebHistoryItemUriPropertyInfo = "WebHistoryItem::uri" + attrGet _ = getWebHistoryItemUri + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebHistoryItem = WebHistoryItemAttributeList +type WebHistoryItemAttributeList = ('[ '("alternate-title", WebHistoryItemAlternateTitlePropertyInfo), '("last-visited-time", WebHistoryItemLastVisitedTimePropertyInfo), '("original-uri", WebHistoryItemOriginalUriPropertyInfo), '("title", WebHistoryItemTitlePropertyInfo), '("uri", WebHistoryItemUriPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebHistoryItem = WebHistoryItemSignalList +type WebHistoryItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebHistoryItem::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_new" webkit_web_history_item_new :: + IO (Ptr WebHistoryItem) + + +webHistoryItemNew :: + (MonadIO m) => + m WebHistoryItem +webHistoryItemNew = liftIO $ do + result <- webkit_web_history_item_new + checkUnexpectedReturnNULL "webkit_web_history_item_new" result + result' <- (wrapObject WebHistoryItem) result + return result' + +-- method WebHistoryItem::new_with_data +-- method type : Constructor +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_new_with_data" webkit_web_history_item_new_with_data :: + CString -> -- uri : TBasicType TUTF8 + CString -> -- title : TBasicType TUTF8 + IO (Ptr WebHistoryItem) + + +webHistoryItemNewWithData :: + (MonadIO m) => + T.Text -> -- uri + T.Text -> -- title + m WebHistoryItem +webHistoryItemNewWithData uri title = liftIO $ do + uri' <- textToCString uri + title' <- textToCString title + result <- webkit_web_history_item_new_with_data uri' title' + checkUnexpectedReturnNULL "webkit_web_history_item_new_with_data" result + result' <- (wrapObject WebHistoryItem) result + freeMem uri' + freeMem title' + return result' + +-- method WebHistoryItem::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebHistoryItem" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_copy" webkit_web_history_item_copy :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO (Ptr WebHistoryItem) + + +webHistoryItemCopy :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m WebHistoryItem +webHistoryItemCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_copy _obj' + checkUnexpectedReturnNULL "webkit_web_history_item_copy" result + result' <- (wrapObject WebHistoryItem) result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::get_alternate_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_get_alternate_title" webkit_web_history_item_get_alternate_title :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO CString + + +webHistoryItemGetAlternateTitle :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m T.Text +webHistoryItemGetAlternateTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_get_alternate_title _obj' + checkUnexpectedReturnNULL "webkit_web_history_item_get_alternate_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::get_last_visited_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_get_last_visited_time" webkit_web_history_item_get_last_visited_time :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO CDouble + + +webHistoryItemGetLastVisitedTime :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m Double +webHistoryItemGetLastVisitedTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_get_last_visited_time _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::get_original_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_get_original_uri" webkit_web_history_item_get_original_uri :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO CString + + +webHistoryItemGetOriginalUri :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m T.Text +webHistoryItemGetOriginalUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_get_original_uri _obj' + checkUnexpectedReturnNULL "webkit_web_history_item_get_original_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_get_title" webkit_web_history_item_get_title :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO CString + + +webHistoryItemGetTitle :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m T.Text +webHistoryItemGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_get_title _obj' + checkUnexpectedReturnNULL "webkit_web_history_item_get_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_get_uri" webkit_web_history_item_get_uri :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + IO CString + + +webHistoryItemGetUri :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + m T.Text +webHistoryItemGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_history_item_get_uri _obj' + checkUnexpectedReturnNULL "webkit_web_history_item_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebHistoryItem::set_alternate_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_history_item_set_alternate_title" webkit_web_history_item_set_alternate_title :: + Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem" + CString -> -- title : TBasicType TUTF8 + IO () + + +webHistoryItemSetAlternateTitle :: + (MonadIO m, WebHistoryItemK a) => + a -> -- _obj + T.Text -> -- title + m () +webHistoryItemSetAlternateTitle _obj title = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + webkit_web_history_item_set_alternate_title _obj' title' + touchManagedPtr _obj + freeMem title' + return () + + diff --git a/GI/WebKit/Objects/WebHistoryItem.hs-boot b/GI/WebKit/Objects/WebHistoryItem.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebHistoryItem.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.WebHistoryItem where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebHistoryItem = WebHistoryItem (ForeignPtr WebHistoryItem) +instance GObject WebHistoryItem where +class GObject o => WebHistoryItemK o +instance (GObject o, IsDescendantOf WebHistoryItem o) => WebHistoryItemK o +data WebHistoryItemAlternateTitlePropertyInfo +data WebHistoryItemLastVisitedTimePropertyInfo +data WebHistoryItemOriginalUriPropertyInfo +data WebHistoryItemTitlePropertyInfo +data WebHistoryItemUriPropertyInfo diff --git a/GI/WebKit/Objects/WebInspector.hs b/GI/WebKit/Objects/WebInspector.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebInspector.hs @@ -0,0 +1,701 @@ + +{- | +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.WebKit.Objects.WebInspector + ( + +-- * Exported types + WebInspector(..) , + WebInspectorK , + toWebInspector , + noWebInspector , + + + -- * Methods +-- ** webInspectorClose + webInspectorClose , + + +-- ** webInspectorGetInspectedUri + webInspectorGetInspectedUri , + + +-- ** webInspectorGetWebView + webInspectorGetWebView , + + +-- ** webInspectorInspectCoordinates + webInspectorInspectCoordinates , + + +-- ** webInspectorInspectNode + webInspectorInspectNode , + + +-- ** webInspectorShow + webInspectorShow , + + + + + -- * Properties +-- ** InspectedUri + WebInspectorInspectedUriPropertyInfo , + getWebInspectorInspectedUri , + + +-- ** JavascriptProfilingEnabled + WebInspectorJavascriptProfilingEnabledPropertyInfo, + constructWebInspectorJavascriptProfilingEnabled, + getWebInspectorJavascriptProfilingEnabled, + setWebInspectorJavascriptProfilingEnabled, + + +-- ** TimelineProfilingEnabled + WebInspectorTimelineProfilingEnabledPropertyInfo, + constructWebInspectorTimelineProfilingEnabled, + getWebInspectorTimelineProfilingEnabled , + setWebInspectorTimelineProfilingEnabled , + + +-- ** WebView + WebInspectorWebViewPropertyInfo , + getWebInspectorWebView , + + + + + -- * Signals +-- ** AttachWindow + WebInspectorAttachWindowCallback , + WebInspectorAttachWindowCallbackC , + WebInspectorAttachWindowSignalInfo , + afterWebInspectorAttachWindow , + mkWebInspectorAttachWindowCallback , + noWebInspectorAttachWindowCallback , + onWebInspectorAttachWindow , + webInspectorAttachWindowCallbackWrapper , + webInspectorAttachWindowClosure , + + +-- ** CloseWindow + WebInspectorCloseWindowCallback , + WebInspectorCloseWindowCallbackC , + WebInspectorCloseWindowSignalInfo , + afterWebInspectorCloseWindow , + mkWebInspectorCloseWindowCallback , + noWebInspectorCloseWindowCallback , + onWebInspectorCloseWindow , + webInspectorCloseWindowCallbackWrapper , + webInspectorCloseWindowClosure , + + +-- ** DetachWindow + WebInspectorDetachWindowCallback , + WebInspectorDetachWindowCallbackC , + WebInspectorDetachWindowSignalInfo , + afterWebInspectorDetachWindow , + mkWebInspectorDetachWindowCallback , + noWebInspectorDetachWindowCallback , + onWebInspectorDetachWindow , + webInspectorDetachWindowCallbackWrapper , + webInspectorDetachWindowClosure , + + +-- ** Finished + WebInspectorFinishedCallback , + WebInspectorFinishedCallbackC , + WebInspectorFinishedSignalInfo , + afterWebInspectorFinished , + mkWebInspectorFinishedCallback , + noWebInspectorFinishedCallback , + onWebInspectorFinished , + webInspectorFinishedCallbackWrapper , + webInspectorFinishedClosure , + + +-- ** InspectWebView + WebInspectorInspectWebViewCallback , + WebInspectorInspectWebViewCallbackC , + WebInspectorInspectWebViewSignalInfo , + afterWebInspectorInspectWebView , + mkWebInspectorInspectWebViewCallback , + noWebInspectorInspectWebViewCallback , + onWebInspectorInspectWebView , + webInspectorInspectWebViewCallbackWrapper, + webInspectorInspectWebViewClosure , + + +-- ** ShowWindow + WebInspectorShowWindowCallback , + WebInspectorShowWindowCallbackC , + WebInspectorShowWindowSignalInfo , + afterWebInspectorShowWindow , + mkWebInspectorShowWindowCallback , + noWebInspectorShowWindowCallback , + onWebInspectorShowWindow , + webInspectorShowWindowCallbackWrapper , + webInspectorShowWindowClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebInspector = WebInspector (ForeignPtr WebInspector) +foreign import ccall "webkit_web_inspector_get_type" + c_webkit_web_inspector_get_type :: IO GType + +type instance ParentTypes WebInspector = WebInspectorParentTypes +type WebInspectorParentTypes = '[GObject.Object] + +instance GObject WebInspector where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_inspector_get_type + + +class GObject o => WebInspectorK o +instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o + +toWebInspector :: WebInspectorK o => o -> IO WebInspector +toWebInspector = unsafeCastTo WebInspector + +noWebInspector :: Maybe WebInspector +noWebInspector = Nothing + +-- signal WebInspector::attach-window +type WebInspectorAttachWindowCallback = + IO Bool + +noWebInspectorAttachWindowCallback :: Maybe WebInspectorAttachWindowCallback +noWebInspectorAttachWindowCallback = Nothing + +type WebInspectorAttachWindowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebInspectorAttachWindowCallback :: WebInspectorAttachWindowCallbackC -> IO (FunPtr WebInspectorAttachWindowCallbackC) + +webInspectorAttachWindowClosure :: WebInspectorAttachWindowCallback -> IO Closure +webInspectorAttachWindowClosure cb = newCClosure =<< mkWebInspectorAttachWindowCallback wrapped + where wrapped = webInspectorAttachWindowCallbackWrapper cb + +webInspectorAttachWindowCallbackWrapper :: + WebInspectorAttachWindowCallback -> + Ptr () -> + Ptr () -> + IO CInt +webInspectorAttachWindowCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId +onWebInspectorAttachWindow obj cb = liftIO $ connectWebInspectorAttachWindow obj cb SignalConnectBefore +afterWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId +afterWebInspectorAttachWindow obj cb = connectWebInspectorAttachWindow obj cb SignalConnectAfter + +connectWebInspectorAttachWindow :: (GObject a, MonadIO m) => + a -> WebInspectorAttachWindowCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorAttachWindow obj cb after = liftIO $ do + cb' <- mkWebInspectorAttachWindowCallback (webInspectorAttachWindowCallbackWrapper cb) + connectSignalFunPtr obj "attach-window" cb' after + +-- signal WebInspector::close-window +type WebInspectorCloseWindowCallback = + IO Bool + +noWebInspectorCloseWindowCallback :: Maybe WebInspectorCloseWindowCallback +noWebInspectorCloseWindowCallback = Nothing + +type WebInspectorCloseWindowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebInspectorCloseWindowCallback :: WebInspectorCloseWindowCallbackC -> IO (FunPtr WebInspectorCloseWindowCallbackC) + +webInspectorCloseWindowClosure :: WebInspectorCloseWindowCallback -> IO Closure +webInspectorCloseWindowClosure cb = newCClosure =<< mkWebInspectorCloseWindowCallback wrapped + where wrapped = webInspectorCloseWindowCallbackWrapper cb + +webInspectorCloseWindowCallbackWrapper :: + WebInspectorCloseWindowCallback -> + Ptr () -> + Ptr () -> + IO CInt +webInspectorCloseWindowCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId +onWebInspectorCloseWindow obj cb = liftIO $ connectWebInspectorCloseWindow obj cb SignalConnectBefore +afterWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId +afterWebInspectorCloseWindow obj cb = connectWebInspectorCloseWindow obj cb SignalConnectAfter + +connectWebInspectorCloseWindow :: (GObject a, MonadIO m) => + a -> WebInspectorCloseWindowCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorCloseWindow obj cb after = liftIO $ do + cb' <- mkWebInspectorCloseWindowCallback (webInspectorCloseWindowCallbackWrapper cb) + connectSignalFunPtr obj "close-window" cb' after + +-- signal WebInspector::detach-window +type WebInspectorDetachWindowCallback = + IO Bool + +noWebInspectorDetachWindowCallback :: Maybe WebInspectorDetachWindowCallback +noWebInspectorDetachWindowCallback = Nothing + +type WebInspectorDetachWindowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebInspectorDetachWindowCallback :: WebInspectorDetachWindowCallbackC -> IO (FunPtr WebInspectorDetachWindowCallbackC) + +webInspectorDetachWindowClosure :: WebInspectorDetachWindowCallback -> IO Closure +webInspectorDetachWindowClosure cb = newCClosure =<< mkWebInspectorDetachWindowCallback wrapped + where wrapped = webInspectorDetachWindowCallbackWrapper cb + +webInspectorDetachWindowCallbackWrapper :: + WebInspectorDetachWindowCallback -> + Ptr () -> + Ptr () -> + IO CInt +webInspectorDetachWindowCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId +onWebInspectorDetachWindow obj cb = liftIO $ connectWebInspectorDetachWindow obj cb SignalConnectBefore +afterWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId +afterWebInspectorDetachWindow obj cb = connectWebInspectorDetachWindow obj cb SignalConnectAfter + +connectWebInspectorDetachWindow :: (GObject a, MonadIO m) => + a -> WebInspectorDetachWindowCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorDetachWindow obj cb after = liftIO $ do + cb' <- mkWebInspectorDetachWindowCallback (webInspectorDetachWindowCallbackWrapper cb) + connectSignalFunPtr obj "detach-window" cb' after + +-- signal WebInspector::finished +type WebInspectorFinishedCallback = + IO () + +noWebInspectorFinishedCallback :: Maybe WebInspectorFinishedCallback +noWebInspectorFinishedCallback = Nothing + +type WebInspectorFinishedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebInspectorFinishedCallback :: WebInspectorFinishedCallbackC -> IO (FunPtr WebInspectorFinishedCallbackC) + +webInspectorFinishedClosure :: WebInspectorFinishedCallback -> IO Closure +webInspectorFinishedClosure cb = newCClosure =<< mkWebInspectorFinishedCallback wrapped + where wrapped = webInspectorFinishedCallbackWrapper cb + +webInspectorFinishedCallbackWrapper :: + WebInspectorFinishedCallback -> + Ptr () -> + Ptr () -> + IO () +webInspectorFinishedCallbackWrapper _cb _ _ = do + _cb + +onWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId +onWebInspectorFinished obj cb = liftIO $ connectWebInspectorFinished obj cb SignalConnectBefore +afterWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId +afterWebInspectorFinished obj cb = connectWebInspectorFinished obj cb SignalConnectAfter + +connectWebInspectorFinished :: (GObject a, MonadIO m) => + a -> WebInspectorFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorFinished obj cb after = liftIO $ do + cb' <- mkWebInspectorFinishedCallback (webInspectorFinishedCallbackWrapper cb) + connectSignalFunPtr obj "finished" cb' after + +-- signal WebInspector::inspect-web-view +type WebInspectorInspectWebViewCallback = + WebView -> + IO WebView + +noWebInspectorInspectWebViewCallback :: Maybe WebInspectorInspectWebViewCallback +noWebInspectorInspectWebViewCallback = Nothing + +type WebInspectorInspectWebViewCallbackC = + Ptr () -> -- object + Ptr WebView -> + Ptr () -> -- user_data + IO (Ptr WebView) + +foreign import ccall "wrapper" + mkWebInspectorInspectWebViewCallback :: WebInspectorInspectWebViewCallbackC -> IO (FunPtr WebInspectorInspectWebViewCallbackC) + +webInspectorInspectWebViewClosure :: WebInspectorInspectWebViewCallback -> IO Closure +webInspectorInspectWebViewClosure cb = newCClosure =<< mkWebInspectorInspectWebViewCallback wrapped + where wrapped = webInspectorInspectWebViewCallbackWrapper cb + +webInspectorInspectWebViewCallbackWrapper :: + WebInspectorInspectWebViewCallback -> + Ptr () -> + Ptr WebView -> + Ptr () -> + IO (Ptr WebView) +webInspectorInspectWebViewCallbackWrapper _cb _ web_view _ = do + web_view' <- (newObject WebView) web_view + result <- _cb web_view' + let result' = unsafeManagedPtrCastPtr result + return result' + +onWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId +onWebInspectorInspectWebView obj cb = liftIO $ connectWebInspectorInspectWebView obj cb SignalConnectBefore +afterWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId +afterWebInspectorInspectWebView obj cb = connectWebInspectorInspectWebView obj cb SignalConnectAfter + +connectWebInspectorInspectWebView :: (GObject a, MonadIO m) => + a -> WebInspectorInspectWebViewCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorInspectWebView obj cb after = liftIO $ do + cb' <- mkWebInspectorInspectWebViewCallback (webInspectorInspectWebViewCallbackWrapper cb) + connectSignalFunPtr obj "inspect-web-view" cb' after + +-- signal WebInspector::show-window +type WebInspectorShowWindowCallback = + IO Bool + +noWebInspectorShowWindowCallback :: Maybe WebInspectorShowWindowCallback +noWebInspectorShowWindowCallback = Nothing + +type WebInspectorShowWindowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebInspectorShowWindowCallback :: WebInspectorShowWindowCallbackC -> IO (FunPtr WebInspectorShowWindowCallbackC) + +webInspectorShowWindowClosure :: WebInspectorShowWindowCallback -> IO Closure +webInspectorShowWindowClosure cb = newCClosure =<< mkWebInspectorShowWindowCallback wrapped + where wrapped = webInspectorShowWindowCallbackWrapper cb + +webInspectorShowWindowCallbackWrapper :: + WebInspectorShowWindowCallback -> + Ptr () -> + Ptr () -> + IO CInt +webInspectorShowWindowCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId +onWebInspectorShowWindow obj cb = liftIO $ connectWebInspectorShowWindow obj cb SignalConnectBefore +afterWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId +afterWebInspectorShowWindow obj cb = connectWebInspectorShowWindow obj cb SignalConnectAfter + +connectWebInspectorShowWindow :: (GObject a, MonadIO m) => + a -> WebInspectorShowWindowCallback -> SignalConnectMode -> m SignalHandlerId +connectWebInspectorShowWindow obj cb after = liftIO $ do + cb' <- mkWebInspectorShowWindowCallback (webInspectorShowWindowCallbackWrapper cb) + connectSignalFunPtr obj "show-window" cb' after + +-- VVV Prop "inspected-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text +getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri" + +data WebInspectorInspectedUriPropertyInfo +instance AttrInfo WebInspectorInspectedUriPropertyInfo where + type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK + type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text + type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::inspected-uri" + attrGet _ = getWebInspectorInspectedUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "javascript-profiling-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool +getWebInspectorJavascriptProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "javascript-profiling-enabled" + +setWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () +setWebInspectorJavascriptProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "javascript-profiling-enabled" val + +constructWebInspectorJavascriptProfilingEnabled :: Bool -> IO ([Char], GValue) +constructWebInspectorJavascriptProfilingEnabled val = constructObjectPropertyBool "javascript-profiling-enabled" val + +data WebInspectorJavascriptProfilingEnabledPropertyInfo +instance AttrInfo WebInspectorJavascriptProfilingEnabledPropertyInfo where + type AttrAllowedOps WebInspectorJavascriptProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = WebInspectorK + type AttrGetType WebInspectorJavascriptProfilingEnabledPropertyInfo = Bool + type AttrLabel WebInspectorJavascriptProfilingEnabledPropertyInfo = "WebInspector::javascript-profiling-enabled" + attrGet _ = getWebInspectorJavascriptProfilingEnabled + attrSet _ = setWebInspectorJavascriptProfilingEnabled + attrConstruct _ = constructWebInspectorJavascriptProfilingEnabled + +-- VVV Prop "timeline-profiling-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool +getWebInspectorTimelineProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "timeline-profiling-enabled" + +setWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () +setWebInspectorTimelineProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "timeline-profiling-enabled" val + +constructWebInspectorTimelineProfilingEnabled :: Bool -> IO ([Char], GValue) +constructWebInspectorTimelineProfilingEnabled val = constructObjectPropertyBool "timeline-profiling-enabled" val + +data WebInspectorTimelineProfilingEnabledPropertyInfo +instance AttrInfo WebInspectorTimelineProfilingEnabledPropertyInfo where + type AttrAllowedOps WebInspectorTimelineProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = WebInspectorK + type AttrGetType WebInspectorTimelineProfilingEnabledPropertyInfo = Bool + type AttrLabel WebInspectorTimelineProfilingEnabledPropertyInfo = "WebInspector::timeline-profiling-enabled" + attrGet _ = getWebInspectorTimelineProfilingEnabled + attrSet _ = setWebInspectorTimelineProfilingEnabled + attrConstruct _ = constructWebInspectorTimelineProfilingEnabled + +-- VVV Prop "web-view" + -- Type: TInterface "WebKit" "WebView" + -- Flags: [PropertyReadable] + +getWebInspectorWebView :: (MonadIO m, WebInspectorK o) => o -> m WebView +getWebInspectorWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView + +data WebInspectorWebViewPropertyInfo +instance AttrInfo WebInspectorWebViewPropertyInfo where + type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebInspectorWebViewPropertyInfo = (~) () + type AttrBaseTypeConstraint WebInspectorWebViewPropertyInfo = WebInspectorK + type AttrGetType WebInspectorWebViewPropertyInfo = WebView + type AttrLabel WebInspectorWebViewPropertyInfo = "WebInspector::web-view" + attrGet _ = getWebInspectorWebView + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebInspector = WebInspectorAttributeList +type WebInspectorAttributeList = ('[ '("inspected-uri", WebInspectorInspectedUriPropertyInfo), '("javascript-profiling-enabled", WebInspectorJavascriptProfilingEnabledPropertyInfo), '("timeline-profiling-enabled", WebInspectorTimelineProfilingEnabledPropertyInfo), '("web-view", WebInspectorWebViewPropertyInfo)] :: [(Symbol, *)]) + +data WebInspectorAttachWindowSignalInfo +instance SignalInfo WebInspectorAttachWindowSignalInfo where + type HaskellCallbackType WebInspectorAttachWindowSignalInfo = WebInspectorAttachWindowCallback + connectSignal _ = connectWebInspectorAttachWindow + +data WebInspectorCloseWindowSignalInfo +instance SignalInfo WebInspectorCloseWindowSignalInfo where + type HaskellCallbackType WebInspectorCloseWindowSignalInfo = WebInspectorCloseWindowCallback + connectSignal _ = connectWebInspectorCloseWindow + +data WebInspectorDetachWindowSignalInfo +instance SignalInfo WebInspectorDetachWindowSignalInfo where + type HaskellCallbackType WebInspectorDetachWindowSignalInfo = WebInspectorDetachWindowCallback + connectSignal _ = connectWebInspectorDetachWindow + +data WebInspectorFinishedSignalInfo +instance SignalInfo WebInspectorFinishedSignalInfo where + type HaskellCallbackType WebInspectorFinishedSignalInfo = WebInspectorFinishedCallback + connectSignal _ = connectWebInspectorFinished + +data WebInspectorInspectWebViewSignalInfo +instance SignalInfo WebInspectorInspectWebViewSignalInfo where + type HaskellCallbackType WebInspectorInspectWebViewSignalInfo = WebInspectorInspectWebViewCallback + connectSignal _ = connectWebInspectorInspectWebView + +data WebInspectorShowWindowSignalInfo +instance SignalInfo WebInspectorShowWindowSignalInfo where + type HaskellCallbackType WebInspectorShowWindowSignalInfo = WebInspectorShowWindowCallback + connectSignal _ = connectWebInspectorShowWindow + +type instance SignalList WebInspector = WebInspectorSignalList +type WebInspectorSignalList = ('[ '("attach-window", WebInspectorAttachWindowSignalInfo), '("close-window", WebInspectorCloseWindowSignalInfo), '("detach-window", WebInspectorDetachWindowSignalInfo), '("finished", WebInspectorFinishedSignalInfo), '("inspect-web-view", WebInspectorInspectWebViewSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("show-window", WebInspectorShowWindowSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebInspector::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + IO () + + +webInspectorClose :: + (MonadIO m, WebInspectorK a) => + a -> -- _obj + m () +webInspectorClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_inspector_close _obj' + touchManagedPtr _obj + return () + +-- method WebInspector::get_inspected_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + IO CString + + +webInspectorGetInspectedUri :: + (MonadIO m, WebInspectorK a) => + a -> -- _obj + m T.Text +webInspectorGetInspectedUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_inspector_get_inspected_uri _obj' + checkUnexpectedReturnNULL "webkit_web_inspector_get_inspected_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebInspector::get_web_view +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + IO (Ptr WebView) + + +webInspectorGetWebView :: + (MonadIO m, WebInspectorK a) => + a -> -- _obj + m WebView +webInspectorGetWebView _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_inspector_get_web_view _obj' + checkUnexpectedReturnNULL "webkit_web_inspector_get_web_view" result + result' <- (newObject WebView) result + touchManagedPtr _obj + return result' + +-- method WebInspector::inspect_coordinates +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_inspect_coordinates" webkit_web_inspector_inspect_coordinates :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + IO () + + +webInspectorInspectCoordinates :: + (MonadIO m, WebInspectorK a) => + a -> -- _obj + Double -> -- x + Double -> -- y + m () +webInspectorInspectCoordinates _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let x' = realToFrac x + let y' = realToFrac y + webkit_web_inspector_inspect_coordinates _obj' x' y' + touchManagedPtr _obj + return () + +-- method WebInspector::inspect_node +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_inspect_node" webkit_web_inspector_inspect_node :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" + IO () + + +webInspectorInspectNode :: + (MonadIO m, WebInspectorK a, DOMNodeK b) => + a -> -- _obj + b -> -- node + m () +webInspectorInspectNode _obj node = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let node' = unsafeManagedPtrCastPtr node + webkit_web_inspector_inspect_node _obj' node' + touchManagedPtr _obj + touchManagedPtr node + return () + +-- method WebInspector::show +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: + Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector" + IO () + + +webInspectorShow :: + (MonadIO m, WebInspectorK a) => + a -> -- _obj + m () +webInspectorShow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_inspector_show _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebInspector.hs-boot b/GI/WebKit/Objects/WebInspector.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebInspector.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.WebInspector where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebInspector = WebInspector (ForeignPtr WebInspector) +instance GObject WebInspector where +class GObject o => WebInspectorK o +instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o +data WebInspectorInspectedUriPropertyInfo +data WebInspectorJavascriptProfilingEnabledPropertyInfo +data WebInspectorTimelineProfilingEnabledPropertyInfo +data WebInspectorWebViewPropertyInfo +data WebInspectorAttachWindowSignalInfo +data WebInspectorCloseWindowSignalInfo +data WebInspectorDetachWindowSignalInfo +data WebInspectorFinishedSignalInfo +data WebInspectorInspectWebViewSignalInfo +data WebInspectorShowWindowSignalInfo diff --git a/GI/WebKit/Objects/WebNavigationAction.hs b/GI/WebKit/Objects/WebNavigationAction.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebNavigationAction.hs @@ -0,0 +1,415 @@ + +{- | +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.WebKit.Objects.WebNavigationAction + ( + +-- * Exported types + WebNavigationAction(..) , + WebNavigationActionK , + toWebNavigationAction , + noWebNavigationAction , + + + -- * Methods +-- ** webNavigationActionGetButton + webNavigationActionGetButton , + + +-- ** webNavigationActionGetModifierState + webNavigationActionGetModifierState , + + +-- ** webNavigationActionGetOriginalUri + webNavigationActionGetOriginalUri , + + +-- ** webNavigationActionGetReason + webNavigationActionGetReason , + + +-- ** webNavigationActionGetTargetFrame + webNavigationActionGetTargetFrame , + + +-- ** webNavigationActionSetOriginalUri + webNavigationActionSetOriginalUri , + + +-- ** webNavigationActionSetReason + webNavigationActionSetReason , + + + + + -- * Properties +-- ** Button + WebNavigationActionButtonPropertyInfo , + constructWebNavigationActionButton , + getWebNavigationActionButton , + + +-- ** ModifierState + WebNavigationActionModifierStatePropertyInfo, + constructWebNavigationActionModifierState, + getWebNavigationActionModifierState , + + +-- ** OriginalUri + WebNavigationActionOriginalUriPropertyInfo, + constructWebNavigationActionOriginalUri , + getWebNavigationActionOriginalUri , + setWebNavigationActionOriginalUri , + + +-- ** Reason + WebNavigationActionReasonPropertyInfo , + constructWebNavigationActionReason , + getWebNavigationActionReason , + setWebNavigationActionReason , + + +-- ** TargetFrame + WebNavigationActionTargetFramePropertyInfo, + constructWebNavigationActionTargetFrame , + getWebNavigationActionTargetFrame , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebNavigationAction = WebNavigationAction (ForeignPtr WebNavigationAction) +foreign import ccall "webkit_web_navigation_action_get_type" + c_webkit_web_navigation_action_get_type :: IO GType + +type instance ParentTypes WebNavigationAction = WebNavigationActionParentTypes +type WebNavigationActionParentTypes = '[GObject.Object] + +instance GObject WebNavigationAction where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_navigation_action_get_type + + +class GObject o => WebNavigationActionK o +instance (GObject o, IsDescendantOf WebNavigationAction o) => WebNavigationActionK o + +toWebNavigationAction :: WebNavigationActionK o => o -> IO WebNavigationAction +toWebNavigationAction = unsafeCastTo WebNavigationAction + +noWebNavigationAction :: Maybe WebNavigationAction +noWebNavigationAction = Nothing + +-- VVV Prop "button" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionButton :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 +getWebNavigationActionButton obj = liftIO $ getObjectPropertyCInt obj "button" + +constructWebNavigationActionButton :: Int32 -> IO ([Char], GValue) +constructWebNavigationActionButton val = constructObjectPropertyCInt "button" val + +data WebNavigationActionButtonPropertyInfo +instance AttrInfo WebNavigationActionButtonPropertyInfo where + type AttrAllowedOps WebNavigationActionButtonPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionButtonPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebNavigationActionButtonPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionButtonPropertyInfo = Int32 + type AttrLabel WebNavigationActionButtonPropertyInfo = "WebNavigationAction::button" + attrGet _ = getWebNavigationActionButton + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionButton + +-- VVV Prop "modifier-state" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionModifierState :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 +getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyCInt obj "modifier-state" + +constructWebNavigationActionModifierState :: Int32 -> IO ([Char], GValue) +constructWebNavigationActionModifierState val = constructObjectPropertyCInt "modifier-state" val + +data WebNavigationActionModifierStatePropertyInfo +instance AttrInfo WebNavigationActionModifierStatePropertyInfo where + type AttrAllowedOps WebNavigationActionModifierStatePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionModifierStatePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebNavigationActionModifierStatePropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionModifierStatePropertyInfo = Int32 + type AttrLabel WebNavigationActionModifierStatePropertyInfo = "WebNavigationAction::modifier-state" + attrGet _ = getWebNavigationActionModifierState + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionModifierState + +-- VVV Prop "original-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text +getWebNavigationActionOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" + +setWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> T.Text -> m () +setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" val + +constructWebNavigationActionOriginalUri :: T.Text -> IO ([Char], GValue) +constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" val + +data WebNavigationActionOriginalUriPropertyInfo +instance AttrInfo WebNavigationActionOriginalUriPropertyInfo where + type AttrAllowedOps WebNavigationActionOriginalUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionOriginalUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebNavigationActionOriginalUriPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionOriginalUriPropertyInfo = T.Text + type AttrLabel WebNavigationActionOriginalUriPropertyInfo = "WebNavigationAction::original-uri" + attrGet _ = getWebNavigationActionOriginalUri + attrSet _ = setWebNavigationActionOriginalUri + attrConstruct _ = constructWebNavigationActionOriginalUri + +-- VVV Prop "reason" + -- Type: TInterface "WebKit" "WebNavigationReason" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> m WebNavigationReason +getWebNavigationActionReason obj = liftIO $ getObjectPropertyEnum obj "reason" + +setWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> WebNavigationReason -> m () +setWebNavigationActionReason obj val = liftIO $ setObjectPropertyEnum obj "reason" val + +constructWebNavigationActionReason :: WebNavigationReason -> IO ([Char], GValue) +constructWebNavigationActionReason val = constructObjectPropertyEnum "reason" val + +data WebNavigationActionReasonPropertyInfo +instance AttrInfo WebNavigationActionReasonPropertyInfo where + type AttrAllowedOps WebNavigationActionReasonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionReasonPropertyInfo = (~) WebNavigationReason + type AttrBaseTypeConstraint WebNavigationActionReasonPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionReasonPropertyInfo = WebNavigationReason + type AttrLabel WebNavigationActionReasonPropertyInfo = "WebNavigationAction::reason" + attrGet _ = getWebNavigationActionReason + attrSet _ = setWebNavigationActionReason + attrConstruct _ = constructWebNavigationActionReason + +-- VVV Prop "target-frame" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionTargetFrame :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text +getWebNavigationActionTargetFrame obj = liftIO $ getObjectPropertyString obj "target-frame" + +constructWebNavigationActionTargetFrame :: T.Text -> IO ([Char], GValue) +constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" val + +data WebNavigationActionTargetFramePropertyInfo +instance AttrInfo WebNavigationActionTargetFramePropertyInfo where + type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionTargetFramePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebNavigationActionTargetFramePropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionTargetFramePropertyInfo = T.Text + type AttrLabel WebNavigationActionTargetFramePropertyInfo = "WebNavigationAction::target-frame" + attrGet _ = getWebNavigationActionTargetFrame + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionTargetFrame + +type instance AttributeList WebNavigationAction = WebNavigationActionAttributeList +type WebNavigationActionAttributeList = ('[ '("button", WebNavigationActionButtonPropertyInfo), '("modifier-state", WebNavigationActionModifierStatePropertyInfo), '("original-uri", WebNavigationActionOriginalUriPropertyInfo), '("reason", WebNavigationActionReasonPropertyInfo), '("target-frame", WebNavigationActionTargetFramePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebNavigationAction = WebNavigationActionSignalList +type WebNavigationActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebNavigationAction::get_button +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_get_button" webkit_web_navigation_action_get_button :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + IO Int32 + + +webNavigationActionGetButton :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + m Int32 +webNavigationActionGetButton _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_navigation_action_get_button _obj' + touchManagedPtr _obj + return result + +-- method WebNavigationAction::get_modifier_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_get_modifier_state" webkit_web_navigation_action_get_modifier_state :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + IO Int32 + + +webNavigationActionGetModifierState :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + m Int32 +webNavigationActionGetModifierState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_navigation_action_get_modifier_state _obj' + touchManagedPtr _obj + return result + +-- method WebNavigationAction::get_original_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_get_original_uri" webkit_web_navigation_action_get_original_uri :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + IO CString + + +webNavigationActionGetOriginalUri :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + m T.Text +webNavigationActionGetOriginalUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_navigation_action_get_original_uri _obj' + checkUnexpectedReturnNULL "webkit_web_navigation_action_get_original_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebNavigationAction::get_reason +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebNavigationReason" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_get_reason" webkit_web_navigation_action_get_reason :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + IO CUInt + + +webNavigationActionGetReason :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + m WebNavigationReason +webNavigationActionGetReason _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_navigation_action_get_reason _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebNavigationAction::get_target_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_get_target_frame" webkit_web_navigation_action_get_target_frame :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + IO CString + + +webNavigationActionGetTargetFrame :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + m T.Text +webNavigationActionGetTargetFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_navigation_action_get_target_frame _obj' + checkUnexpectedReturnNULL "webkit_web_navigation_action_get_target_frame" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebNavigationAction::set_original_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "originalUri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "originalUri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_set_original_uri" webkit_web_navigation_action_set_original_uri :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + CString -> -- originalUri : TBasicType TUTF8 + IO () + + +webNavigationActionSetOriginalUri :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + T.Text -> -- originalUri + m () +webNavigationActionSetOriginalUri _obj originalUri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + originalUri' <- textToCString originalUri + webkit_web_navigation_action_set_original_uri _obj' originalUri' + touchManagedPtr _obj + freeMem originalUri' + return () + +-- method WebNavigationAction::set_reason +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TInterface "WebKit" "WebNavigationReason", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TInterface "WebKit" "WebNavigationReason", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_navigation_action_set_reason" webkit_web_navigation_action_set_reason :: + Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction" + CUInt -> -- reason : TInterface "WebKit" "WebNavigationReason" + IO () + + +webNavigationActionSetReason :: + (MonadIO m, WebNavigationActionK a) => + a -> -- _obj + WebNavigationReason -> -- reason + m () +webNavigationActionSetReason _obj reason = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let reason' = (fromIntegral . fromEnum) reason + webkit_web_navigation_action_set_reason _obj' reason' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebNavigationAction.hs-boot b/GI/WebKit/Objects/WebNavigationAction.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebNavigationAction.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit.Objects.WebNavigationAction where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebNavigationAction = WebNavigationAction (ForeignPtr WebNavigationAction) +instance GObject WebNavigationAction where +class GObject o => WebNavigationActionK o +instance (GObject o, IsDescendantOf WebNavigationAction o) => WebNavigationActionK o +data WebNavigationActionButtonPropertyInfo +data WebNavigationActionModifierStatePropertyInfo +data WebNavigationActionOriginalUriPropertyInfo +data WebNavigationActionReasonPropertyInfo +data WebNavigationActionTargetFramePropertyInfo diff --git a/GI/WebKit/Objects/WebPlugin.hs b/GI/WebKit/Objects/WebPlugin.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPlugin.hs @@ -0,0 +1,245 @@ + +{- | +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.WebKit.Objects.WebPlugin + ( + +-- * Exported types + WebPlugin(..) , + WebPluginK , + toWebPlugin , + noWebPlugin , + + + -- * Methods +-- ** webPluginGetDescription + webPluginGetDescription , + + +-- ** webPluginGetEnabled + webPluginGetEnabled , + + +-- ** webPluginGetName + webPluginGetName , + + +-- ** webPluginGetPath + webPluginGetPath , + + +-- ** webPluginSetEnabled + webPluginSetEnabled , + + + + + -- * Properties +-- ** Enabled + WebPluginEnabledPropertyInfo , + constructWebPluginEnabled , + getWebPluginEnabled , + setWebPluginEnabled , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebPlugin = WebPlugin (ForeignPtr WebPlugin) +foreign import ccall "webkit_web_plugin_get_type" + c_webkit_web_plugin_get_type :: IO GType + +type instance ParentTypes WebPlugin = WebPluginParentTypes +type WebPluginParentTypes = '[GObject.Object] + +instance GObject WebPlugin where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_plugin_get_type + + +class GObject o => WebPluginK o +instance (GObject o, IsDescendantOf WebPlugin o) => WebPluginK o + +toWebPlugin :: WebPluginK o => o -> IO WebPlugin +toWebPlugin = unsafeCastTo WebPlugin + +noWebPlugin :: Maybe WebPlugin +noWebPlugin = Nothing + +-- VVV Prop "enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> m Bool +getWebPluginEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" + +setWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> Bool -> m () +setWebPluginEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val + +constructWebPluginEnabled :: Bool -> IO ([Char], GValue) +constructWebPluginEnabled val = constructObjectPropertyBool "enabled" val + +data WebPluginEnabledPropertyInfo +instance AttrInfo WebPluginEnabledPropertyInfo where + type AttrAllowedOps WebPluginEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebPluginEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebPluginEnabledPropertyInfo = WebPluginK + type AttrGetType WebPluginEnabledPropertyInfo = Bool + type AttrLabel WebPluginEnabledPropertyInfo = "WebPlugin::enabled" + attrGet _ = getWebPluginEnabled + attrSet _ = setWebPluginEnabled + attrConstruct _ = constructWebPluginEnabled + +type instance AttributeList WebPlugin = WebPluginAttributeList +type WebPluginAttributeList = ('[ '("enabled", WebPluginEnabledPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebPlugin = WebPluginSignalList +type WebPluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebPlugin::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_get_description" webkit_web_plugin_get_description :: + Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin" + IO CString + + +webPluginGetDescription :: + (MonadIO m, WebPluginK a) => + a -> -- _obj + m T.Text +webPluginGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_plugin_get_description _obj' + checkUnexpectedReturnNULL "webkit_web_plugin_get_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebPlugin::get_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_get_enabled" webkit_web_plugin_get_enabled :: + Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin" + IO CInt + + +webPluginGetEnabled :: + (MonadIO m, WebPluginK a) => + a -> -- _obj + m Bool +webPluginGetEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_plugin_get_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebPlugin::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_get_name" webkit_web_plugin_get_name :: + Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin" + IO CString + + +webPluginGetName :: + (MonadIO m, WebPluginK a) => + a -> -- _obj + m T.Text +webPluginGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_plugin_get_name _obj' + checkUnexpectedReturnNULL "webkit_web_plugin_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebPlugin::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_get_path" webkit_web_plugin_get_path :: + Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin" + IO CString + + +webPluginGetPath :: + (MonadIO m, WebPluginK a) => + a -> -- _obj + m T.Text +webPluginGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_plugin_get_path _obj' + checkUnexpectedReturnNULL "webkit_web_plugin_get_path" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebPlugin::set_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_set_enabled" webkit_web_plugin_set_enabled :: + Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +webPluginSetEnabled :: + (MonadIO m, WebPluginK a) => + a -> -- _obj + Bool -> -- enabled + m () +webPluginSetEnabled _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + webkit_web_plugin_set_enabled _obj' enabled' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebPlugin.hs-boot b/GI/WebKit/Objects/WebPlugin.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPlugin.hs-boot @@ -0,0 +1,14 @@ +module GI.WebKit.Objects.WebPlugin where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebPlugin = WebPlugin (ForeignPtr WebPlugin) +instance GObject WebPlugin where +class GObject o => WebPluginK o +instance (GObject o, IsDescendantOf WebPlugin o) => WebPluginK o +data WebPluginEnabledPropertyInfo diff --git a/GI/WebKit/Objects/WebPluginDatabase.hs b/GI/WebKit/Objects/WebPluginDatabase.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPluginDatabase.hs @@ -0,0 +1,185 @@ + +{- | +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.WebKit.Objects.WebPluginDatabase + ( + +-- * Exported types + WebPluginDatabase(..) , + WebPluginDatabaseK , + toWebPluginDatabase , + noWebPluginDatabase , + + + -- * Methods +-- ** webPluginDatabaseGetPluginForMimetype + webPluginDatabaseGetPluginForMimetype , + + +-- ** webPluginDatabaseGetPlugins + webPluginDatabaseGetPlugins , + + +-- ** webPluginDatabasePluginsListFree + webPluginDatabasePluginsListFree , + + +-- ** webPluginDatabaseRefresh + webPluginDatabaseRefresh , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebPluginDatabase = WebPluginDatabase (ForeignPtr WebPluginDatabase) +foreign import ccall "webkit_web_plugin_database_get_type" + c_webkit_web_plugin_database_get_type :: IO GType + +type instance ParentTypes WebPluginDatabase = WebPluginDatabaseParentTypes +type WebPluginDatabaseParentTypes = '[GObject.Object] + +instance GObject WebPluginDatabase where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_plugin_database_get_type + + +class GObject o => WebPluginDatabaseK o +instance (GObject o, IsDescendantOf WebPluginDatabase o) => WebPluginDatabaseK o + +toWebPluginDatabase :: WebPluginDatabaseK o => o -> IO WebPluginDatabase +toWebPluginDatabase = unsafeCastTo WebPluginDatabase + +noWebPluginDatabase :: Maybe WebPluginDatabase +noWebPluginDatabase = Nothing + +type instance AttributeList WebPluginDatabase = WebPluginDatabaseAttributeList +type WebPluginDatabaseAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList WebPluginDatabase = WebPluginDatabaseSignalList +type WebPluginDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebPluginDatabase::get_plugin_for_mimetype +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebPlugin" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_database_get_plugin_for_mimetype" webkit_web_plugin_database_get_plugin_for_mimetype :: + Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase" + CString -> -- mime_type : TBasicType TUTF8 + IO (Ptr WebPlugin) + + +webPluginDatabaseGetPluginForMimetype :: + (MonadIO m, WebPluginDatabaseK a) => + a -> -- _obj + T.Text -> -- mime_type + m WebPlugin +webPluginDatabaseGetPluginForMimetype _obj mime_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mime_type' <- textToCString mime_type + result <- webkit_web_plugin_database_get_plugin_for_mimetype _obj' mime_type' + checkUnexpectedReturnNULL "webkit_web_plugin_database_get_plugin_for_mimetype" result + result' <- (wrapObject WebPlugin) result + touchManagedPtr _obj + freeMem mime_type' + return result' + +-- method WebPluginDatabase::get_plugins +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "WebKit" "WebPlugin") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_database_get_plugins" webkit_web_plugin_database_get_plugins :: + Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase" + IO (Ptr (GSList (Ptr WebPlugin))) + + +webPluginDatabaseGetPlugins :: + (MonadIO m, WebPluginDatabaseK a) => + a -> -- _obj + m [WebPlugin] +webPluginDatabaseGetPlugins _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_plugin_database_get_plugins _obj' + checkUnexpectedReturnNULL "webkit_web_plugin_database_get_plugins" result + result' <- unpackGSList result + result'' <- mapM (wrapObject WebPlugin) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method WebPluginDatabase::refresh +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_database_refresh" webkit_web_plugin_database_refresh :: + Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase" + IO () + + +webPluginDatabaseRefresh :: + (MonadIO m, WebPluginDatabaseK a) => + a -> -- _obj + m () +webPluginDatabaseRefresh _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_plugin_database_refresh _obj' + touchManagedPtr _obj + return () + +-- method WebPluginDatabase::plugins_list_free +-- method type : MemberFunction +-- Args : [Arg {argName = "list", argType = TGSList (TInterface "WebKit" "WebPlugin"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "list", argType = TGSList (TInterface "WebKit" "WebPlugin"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_plugin_database_plugins_list_free" webkit_web_plugin_database_plugins_list_free :: + Ptr (GSList (Ptr WebPlugin)) -> -- list : TGSList (TInterface "WebKit" "WebPlugin") + IO () + + +webPluginDatabasePluginsListFree :: + (MonadIO m, WebPluginK a) => + [a] -> -- list + m () +webPluginDatabasePluginsListFree list = liftIO $ do + let list' = map unsafeManagedPtrCastPtr list + list'' <- packGSList list' + webkit_web_plugin_database_plugins_list_free list'' + mapM_ touchManagedPtr list + g_slist_free list'' + return () + + diff --git a/GI/WebKit/Objects/WebPluginDatabase.hs-boot b/GI/WebKit/Objects/WebPluginDatabase.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPluginDatabase.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.WebPluginDatabase where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebPluginDatabase = WebPluginDatabase (ForeignPtr WebPluginDatabase) +instance GObject WebPluginDatabase where +class GObject o => WebPluginDatabaseK o +instance (GObject o, IsDescendantOf WebPluginDatabase o) => WebPluginDatabaseK o diff --git a/GI/WebKit/Objects/WebPolicyDecision.hs b/GI/WebKit/Objects/WebPolicyDecision.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPolicyDecision.hs @@ -0,0 +1,145 @@ + +{- | +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.WebKit.Objects.WebPolicyDecision + ( + +-- * Exported types + WebPolicyDecision(..) , + WebPolicyDecisionK , + toWebPolicyDecision , + noWebPolicyDecision , + + + -- * Methods +-- ** webPolicyDecisionDownload + webPolicyDecisionDownload , + + +-- ** webPolicyDecisionIgnore + webPolicyDecisionIgnore , + + +-- ** webPolicyDecisionUse + webPolicyDecisionUse , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebPolicyDecision = WebPolicyDecision (ForeignPtr WebPolicyDecision) +foreign import ccall "webkit_web_policy_decision_get_type" + c_webkit_web_policy_decision_get_type :: IO GType + +type instance ParentTypes WebPolicyDecision = WebPolicyDecisionParentTypes +type WebPolicyDecisionParentTypes = '[GObject.Object] + +instance GObject WebPolicyDecision where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_policy_decision_get_type + + +class GObject o => WebPolicyDecisionK o +instance (GObject o, IsDescendantOf WebPolicyDecision o) => WebPolicyDecisionK o + +toWebPolicyDecision :: WebPolicyDecisionK o => o -> IO WebPolicyDecision +toWebPolicyDecision = unsafeCastTo WebPolicyDecision + +noWebPolicyDecision :: Maybe WebPolicyDecision +noWebPolicyDecision = Nothing + +type instance AttributeList WebPolicyDecision = WebPolicyDecisionAttributeList +type WebPolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList WebPolicyDecision = WebPolicyDecisionSignalList +type WebPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebPolicyDecision::download +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_policy_decision_download" webkit_web_policy_decision_download :: + Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision" + IO () + + +webPolicyDecisionDownload :: + (MonadIO m, WebPolicyDecisionK a) => + a -> -- _obj + m () +webPolicyDecisionDownload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_policy_decision_download _obj' + touchManagedPtr _obj + return () + +-- method WebPolicyDecision::ignore +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_policy_decision_ignore" webkit_web_policy_decision_ignore :: + Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision" + IO () + + +webPolicyDecisionIgnore :: + (MonadIO m, WebPolicyDecisionK a) => + a -> -- _obj + m () +webPolicyDecisionIgnore _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_policy_decision_ignore _obj' + touchManagedPtr _obj + return () + +-- method WebPolicyDecision::use +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_policy_decision_use" webkit_web_policy_decision_use :: + Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision" + IO () + + +webPolicyDecisionUse :: + (MonadIO m, WebPolicyDecisionK a) => + a -> -- _obj + m () +webPolicyDecisionUse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_policy_decision_use _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebPolicyDecision.hs-boot b/GI/WebKit/Objects/WebPolicyDecision.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebPolicyDecision.hs-boot @@ -0,0 +1,13 @@ +module GI.WebKit.Objects.WebPolicyDecision where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebPolicyDecision = WebPolicyDecision (ForeignPtr WebPolicyDecision) +instance GObject WebPolicyDecision where +class GObject o => WebPolicyDecisionK o +instance (GObject o, IsDescendantOf WebPolicyDecision o) => WebPolicyDecisionK o diff --git a/GI/WebKit/Objects/WebResource.hs b/GI/WebKit/Objects/WebResource.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebResource.hs @@ -0,0 +1,592 @@ + +{- | +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.WebKit.Objects.WebResource + ( + +-- * Exported types + WebResource(..) , + WebResourceK , + toWebResource , + noWebResource , + + + -- * Methods +-- ** webResourceGetData + webResourceGetData , + + +-- ** webResourceGetEncoding + webResourceGetEncoding , + + +-- ** webResourceGetFrameName + webResourceGetFrameName , + + +-- ** webResourceGetMimeType + webResourceGetMimeType , + + +-- ** webResourceGetUri + webResourceGetUri , + + +-- ** webResourceNew + webResourceNew , + + + + + -- * Properties +-- ** Encoding + WebResourceEncodingPropertyInfo , + getWebResourceEncoding , + + +-- ** FrameName + WebResourceFrameNamePropertyInfo , + getWebResourceFrameName , + + +-- ** MimeType + WebResourceMimeTypePropertyInfo , + getWebResourceMimeType , + + +-- ** Uri + WebResourceUriPropertyInfo , + constructWebResourceUri , + getWebResourceUri , + + + + + -- * Signals +-- ** ContentLengthReceived + WebResourceContentLengthReceivedCallback, + WebResourceContentLengthReceivedCallbackC, + WebResourceContentLengthReceivedSignalInfo, + afterWebResourceContentLengthReceived , + mkWebResourceContentLengthReceivedCallback, + noWebResourceContentLengthReceivedCallback, + onWebResourceContentLengthReceived , + webResourceContentLengthReceivedCallbackWrapper, + webResourceContentLengthReceivedClosure , + + +-- ** LoadFailed + WebResourceLoadFailedCallback , + WebResourceLoadFailedCallbackC , + WebResourceLoadFailedSignalInfo , + afterWebResourceLoadFailed , + mkWebResourceLoadFailedCallback , + noWebResourceLoadFailedCallback , + onWebResourceLoadFailed , + webResourceLoadFailedCallbackWrapper , + webResourceLoadFailedClosure , + + +-- ** LoadFinished + WebResourceLoadFinishedCallback , + WebResourceLoadFinishedCallbackC , + WebResourceLoadFinishedSignalInfo , + afterWebResourceLoadFinished , + mkWebResourceLoadFinishedCallback , + noWebResourceLoadFinishedCallback , + onWebResourceLoadFinished , + webResourceLoadFinishedCallbackWrapper , + webResourceLoadFinishedClosure , + + +-- ** ResponseReceived + WebResourceResponseReceivedCallback , + WebResourceResponseReceivedCallbackC , + WebResourceResponseReceivedSignalInfo , + afterWebResourceResponseReceived , + mkWebResourceResponseReceivedCallback , + noWebResourceResponseReceivedCallback , + onWebResourceResponseReceived , + webResourceResponseReceivedCallbackWrapper, + webResourceResponseReceivedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +newtype WebResource = WebResource (ForeignPtr WebResource) +foreign import ccall "webkit_web_resource_get_type" + c_webkit_web_resource_get_type :: IO GType + +type instance ParentTypes WebResource = WebResourceParentTypes +type WebResourceParentTypes = '[GObject.Object] + +instance GObject WebResource where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_resource_get_type + + +class GObject o => WebResourceK o +instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o + +toWebResource :: WebResourceK o => o -> IO WebResource +toWebResource = unsafeCastTo WebResource + +noWebResource :: Maybe WebResource +noWebResource = Nothing + +-- signal WebResource::content-length-received +type WebResourceContentLengthReceivedCallback = + Int32 -> + IO () + +noWebResourceContentLengthReceivedCallback :: Maybe WebResourceContentLengthReceivedCallback +noWebResourceContentLengthReceivedCallback = Nothing + +type WebResourceContentLengthReceivedCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebResourceContentLengthReceivedCallback :: WebResourceContentLengthReceivedCallbackC -> IO (FunPtr WebResourceContentLengthReceivedCallbackC) + +webResourceContentLengthReceivedClosure :: WebResourceContentLengthReceivedCallback -> IO Closure +webResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebResourceContentLengthReceivedCallback wrapped + where wrapped = webResourceContentLengthReceivedCallbackWrapper cb + +webResourceContentLengthReceivedCallbackWrapper :: + WebResourceContentLengthReceivedCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO () +webResourceContentLengthReceivedCallbackWrapper _cb _ length_received _ = do + _cb length_received + +onWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId +onWebResourceContentLengthReceived obj cb = liftIO $ connectWebResourceContentLengthReceived obj cb SignalConnectBefore +afterWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId +afterWebResourceContentLengthReceived obj cb = connectWebResourceContentLengthReceived obj cb SignalConnectAfter + +connectWebResourceContentLengthReceived :: (GObject a, MonadIO m) => + a -> WebResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebResourceContentLengthReceived obj cb after = liftIO $ do + cb' <- mkWebResourceContentLengthReceivedCallback (webResourceContentLengthReceivedCallbackWrapper cb) + connectSignalFunPtr obj "content-length-received" cb' after + +-- signal WebResource::load-failed +type WebResourceLoadFailedCallback = + Ptr () -> + IO () + +noWebResourceLoadFailedCallback :: Maybe WebResourceLoadFailedCallback +noWebResourceLoadFailedCallback = Nothing + +type WebResourceLoadFailedCallbackC = + Ptr () -> -- object + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebResourceLoadFailedCallback :: WebResourceLoadFailedCallbackC -> IO (FunPtr WebResourceLoadFailedCallbackC) + +webResourceLoadFailedClosure :: WebResourceLoadFailedCallback -> IO Closure +webResourceLoadFailedClosure cb = newCClosure =<< mkWebResourceLoadFailedCallback wrapped + where wrapped = webResourceLoadFailedCallbackWrapper cb + +webResourceLoadFailedCallbackWrapper :: + WebResourceLoadFailedCallback -> + Ptr () -> + Ptr () -> + Ptr () -> + IO () +webResourceLoadFailedCallbackWrapper _cb _ error_ _ = do + _cb error_ + +onWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId +onWebResourceLoadFailed obj cb = liftIO $ connectWebResourceLoadFailed obj cb SignalConnectBefore +afterWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId +afterWebResourceLoadFailed obj cb = connectWebResourceLoadFailed obj cb SignalConnectAfter + +connectWebResourceLoadFailed :: (GObject a, MonadIO m) => + a -> WebResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebResourceLoadFailed obj cb after = liftIO $ do + cb' <- mkWebResourceLoadFailedCallback (webResourceLoadFailedCallbackWrapper cb) + connectSignalFunPtr obj "load-failed" cb' after + +-- signal WebResource::load-finished +type WebResourceLoadFinishedCallback = + IO () + +noWebResourceLoadFinishedCallback :: Maybe WebResourceLoadFinishedCallback +noWebResourceLoadFinishedCallback = Nothing + +type WebResourceLoadFinishedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebResourceLoadFinishedCallback :: WebResourceLoadFinishedCallbackC -> IO (FunPtr WebResourceLoadFinishedCallbackC) + +webResourceLoadFinishedClosure :: WebResourceLoadFinishedCallback -> IO Closure +webResourceLoadFinishedClosure cb = newCClosure =<< mkWebResourceLoadFinishedCallback wrapped + where wrapped = webResourceLoadFinishedCallbackWrapper cb + +webResourceLoadFinishedCallbackWrapper :: + WebResourceLoadFinishedCallback -> + Ptr () -> + Ptr () -> + IO () +webResourceLoadFinishedCallbackWrapper _cb _ _ = do + _cb + +onWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId +onWebResourceLoadFinished obj cb = liftIO $ connectWebResourceLoadFinished obj cb SignalConnectBefore +afterWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId +afterWebResourceLoadFinished obj cb = connectWebResourceLoadFinished obj cb SignalConnectAfter + +connectWebResourceLoadFinished :: (GObject a, MonadIO m) => + a -> WebResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebResourceLoadFinished obj cb after = liftIO $ do + cb' <- mkWebResourceLoadFinishedCallback (webResourceLoadFinishedCallbackWrapper cb) + connectSignalFunPtr obj "load-finished" cb' after + +-- signal WebResource::response-received +type WebResourceResponseReceivedCallback = + NetworkResponse -> + IO () + +noWebResourceResponseReceivedCallback :: Maybe WebResourceResponseReceivedCallback +noWebResourceResponseReceivedCallback = Nothing + +type WebResourceResponseReceivedCallbackC = + Ptr () -> -- object + Ptr NetworkResponse -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebResourceResponseReceivedCallback :: WebResourceResponseReceivedCallbackC -> IO (FunPtr WebResourceResponseReceivedCallbackC) + +webResourceResponseReceivedClosure :: WebResourceResponseReceivedCallback -> IO Closure +webResourceResponseReceivedClosure cb = newCClosure =<< mkWebResourceResponseReceivedCallback wrapped + where wrapped = webResourceResponseReceivedCallbackWrapper cb + +webResourceResponseReceivedCallbackWrapper :: + WebResourceResponseReceivedCallback -> + Ptr () -> + Ptr NetworkResponse -> + Ptr () -> + IO () +webResourceResponseReceivedCallbackWrapper _cb _ response _ = do + response' <- (newObject NetworkResponse) response + _cb response' + +onWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId +onWebResourceResponseReceived obj cb = liftIO $ connectWebResourceResponseReceived obj cb SignalConnectBefore +afterWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId +afterWebResourceResponseReceived obj cb = connectWebResourceResponseReceived obj cb SignalConnectAfter + +connectWebResourceResponseReceived :: (GObject a, MonadIO m) => + a -> WebResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebResourceResponseReceived obj cb after = liftIO $ do + cb' <- mkWebResourceResponseReceivedCallback (webResourceResponseReceivedCallbackWrapper cb) + connectSignalFunPtr obj "response-received" cb' after + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceEncoding :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +data WebResourceEncodingPropertyInfo +instance AttrInfo WebResourceEncodingPropertyInfo where + type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceEncodingPropertyInfo = WebResourceK + type AttrGetType WebResourceEncodingPropertyInfo = T.Text + type AttrLabel WebResourceEncodingPropertyInfo = "WebResource::encoding" + attrGet _ = getWebResourceEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceFrameName :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceFrameName obj = liftIO $ getObjectPropertyString obj "frame-name" + +data WebResourceFrameNamePropertyInfo +instance AttrInfo WebResourceFrameNamePropertyInfo where + type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceFrameNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceFrameNamePropertyInfo = WebResourceK + type AttrGetType WebResourceFrameNamePropertyInfo = T.Text + type AttrLabel WebResourceFrameNamePropertyInfo = "WebResource::frame-name" + attrGet _ = getWebResourceFrameName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceMimeType :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceMimeType obj = liftIO $ getObjectPropertyString obj "mime-type" + +data WebResourceMimeTypePropertyInfo +instance AttrInfo WebResourceMimeTypePropertyInfo where + type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceMimeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceMimeTypePropertyInfo = WebResourceK + type AttrGetType WebResourceMimeTypePropertyInfo = T.Text + type AttrLabel WebResourceMimeTypePropertyInfo = "WebResource::mime-type" + attrGet _ = getWebResourceMimeType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri" + +constructWebResourceUri :: T.Text -> IO ([Char], GValue) +constructWebResourceUri val = constructObjectPropertyString "uri" val + +data WebResourceUriPropertyInfo +instance AttrInfo WebResourceUriPropertyInfo where + type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK + type AttrGetType WebResourceUriPropertyInfo = T.Text + type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri" + attrGet _ = getWebResourceUri + attrSet _ = undefined + attrConstruct _ = constructWebResourceUri + +type instance AttributeList WebResource = WebResourceAttributeList +type WebResourceAttributeList = ('[ '("encoding", WebResourceEncodingPropertyInfo), '("frame-name", WebResourceFrameNamePropertyInfo), '("mime-type", WebResourceMimeTypePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)]) + +data WebResourceContentLengthReceivedSignalInfo +instance SignalInfo WebResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebResourceContentLengthReceivedSignalInfo = WebResourceContentLengthReceivedCallback + connectSignal _ = connectWebResourceContentLengthReceived + +data WebResourceLoadFailedSignalInfo +instance SignalInfo WebResourceLoadFailedSignalInfo where + type HaskellCallbackType WebResourceLoadFailedSignalInfo = WebResourceLoadFailedCallback + connectSignal _ = connectWebResourceLoadFailed + +data WebResourceLoadFinishedSignalInfo +instance SignalInfo WebResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebResourceLoadFinishedSignalInfo = WebResourceLoadFinishedCallback + connectSignal _ = connectWebResourceLoadFinished + +data WebResourceResponseReceivedSignalInfo +instance SignalInfo WebResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebResourceResponseReceivedSignalInfo = WebResourceResponseReceivedCallback + connectSignal _ = connectWebResourceResponseReceived + +type instance SignalList WebResource = WebResourceSignalList +type WebResourceSignalList = ('[ '("content-length-received", WebResourceContentLengthReceivedSignalInfo), '("load-failed", WebResourceLoadFailedSignalInfo), '("load-finished", WebResourceLoadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("response-received", WebResourceResponseReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebResource::new +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebResource" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_new" webkit_web_resource_new :: + CString -> -- data : TBasicType TUTF8 + Int64 -> -- size : TBasicType TInt64 + CString -> -- uri : TBasicType TUTF8 + CString -> -- mime_type : TBasicType TUTF8 + CString -> -- encoding : TBasicType TUTF8 + CString -> -- frame_name : TBasicType TUTF8 + IO (Ptr WebResource) + + +webResourceNew :: + (MonadIO m) => + T.Text -> -- data + Int64 -> -- size + T.Text -> -- uri + T.Text -> -- mime_type + T.Text -> -- encoding + T.Text -> -- frame_name + m WebResource +webResourceNew data_ size uri mime_type encoding frame_name = liftIO $ do + data_' <- textToCString data_ + uri' <- textToCString uri + mime_type' <- textToCString mime_type + encoding' <- textToCString encoding + frame_name' <- textToCString frame_name + result <- webkit_web_resource_new data_' size uri' mime_type' encoding' frame_name' + checkUnexpectedReturnNULL "webkit_web_resource_new" result + result' <- (wrapObject WebResource) result + freeMem data_' + freeMem uri' + freeMem mime_type' + freeMem encoding' + freeMem frame_name' + return result' + +-- method WebResource::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: + Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource" + IO (Ptr GLib.String) + + +webResourceGetData :: + (MonadIO m, WebResourceK a) => + a -> -- _obj + m GLib.String +webResourceGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_resource_get_data _obj' + checkUnexpectedReturnNULL "webkit_web_resource_get_data" result + result' <- (newBoxed GLib.String) result + touchManagedPtr _obj + return result' + +-- method WebResource::get_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_get_encoding" webkit_web_resource_get_encoding :: + Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource" + IO CString + + +webResourceGetEncoding :: + (MonadIO m, WebResourceK a) => + a -> -- _obj + m T.Text +webResourceGetEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_resource_get_encoding _obj' + checkUnexpectedReturnNULL "webkit_web_resource_get_encoding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebResource::get_frame_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_get_frame_name" webkit_web_resource_get_frame_name :: + Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource" + IO CString + + +webResourceGetFrameName :: + (MonadIO m, WebResourceK a) => + a -> -- _obj + m T.Text +webResourceGetFrameName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_resource_get_frame_name _obj' + checkUnexpectedReturnNULL "webkit_web_resource_get_frame_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebResource::get_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_get_mime_type" webkit_web_resource_get_mime_type :: + Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource" + IO CString + + +webResourceGetMimeType :: + (MonadIO m, WebResourceK a) => + a -> -- _obj + m T.Text +webResourceGetMimeType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_resource_get_mime_type _obj' + checkUnexpectedReturnNULL "webkit_web_resource_get_mime_type" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebResource::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: + Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource" + IO CString + + +webResourceGetUri :: + (MonadIO m, WebResourceK a) => + a -> -- _obj + m T.Text +webResourceGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_resource_get_uri _obj' + checkUnexpectedReturnNULL "webkit_web_resource_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/WebResource.hs-boot b/GI/WebKit/Objects/WebResource.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebResource.hs-boot @@ -0,0 +1,21 @@ +module GI.WebKit.Objects.WebResource where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebResource = WebResource (ForeignPtr WebResource) +instance GObject WebResource where +class GObject o => WebResourceK o +instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o +data WebResourceEncodingPropertyInfo +data WebResourceFrameNamePropertyInfo +data WebResourceMimeTypePropertyInfo +data WebResourceUriPropertyInfo +data WebResourceContentLengthReceivedSignalInfo +data WebResourceLoadFailedSignalInfo +data WebResourceLoadFinishedSignalInfo +data WebResourceResponseReceivedSignalInfo diff --git a/GI/WebKit/Objects/WebSettings.hs b/GI/WebKit/Objects/WebSettings.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebSettings.hs @@ -0,0 +1,1979 @@ + +{- | +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.WebKit.Objects.WebSettings + ( + +-- * Exported types + WebSettings(..) , + WebSettingsK , + toWebSettings , + noWebSettings , + + + -- * Methods +-- ** webSettingsCopy + webSettingsCopy , + + +-- ** webSettingsGetUserAgent + webSettingsGetUserAgent , + + +-- ** webSettingsNew + webSettingsNew , + + + + + -- * Properties +-- ** AutoLoadImages + WebSettingsAutoLoadImagesPropertyInfo , + constructWebSettingsAutoLoadImages , + getWebSettingsAutoLoadImages , + setWebSettingsAutoLoadImages , + + +-- ** AutoResizeWindow + WebSettingsAutoResizeWindowPropertyInfo , + constructWebSettingsAutoResizeWindow , + getWebSettingsAutoResizeWindow , + setWebSettingsAutoResizeWindow , + + +-- ** AutoShrinkImages + WebSettingsAutoShrinkImagesPropertyInfo , + constructWebSettingsAutoShrinkImages , + getWebSettingsAutoShrinkImages , + setWebSettingsAutoShrinkImages , + + +-- ** CursiveFontFamily + WebSettingsCursiveFontFamilyPropertyInfo, + constructWebSettingsCursiveFontFamily , + getWebSettingsCursiveFontFamily , + setWebSettingsCursiveFontFamily , + + +-- ** DefaultEncoding + WebSettingsDefaultEncodingPropertyInfo , + constructWebSettingsDefaultEncoding , + getWebSettingsDefaultEncoding , + setWebSettingsDefaultEncoding , + + +-- ** DefaultFontFamily + WebSettingsDefaultFontFamilyPropertyInfo, + constructWebSettingsDefaultFontFamily , + getWebSettingsDefaultFontFamily , + setWebSettingsDefaultFontFamily , + + +-- ** DefaultFontSize + WebSettingsDefaultFontSizePropertyInfo , + constructWebSettingsDefaultFontSize , + getWebSettingsDefaultFontSize , + setWebSettingsDefaultFontSize , + + +-- ** DefaultMonospaceFontSize + WebSettingsDefaultMonospaceFontSizePropertyInfo, + constructWebSettingsDefaultMonospaceFontSize, + getWebSettingsDefaultMonospaceFontSize , + setWebSettingsDefaultMonospaceFontSize , + + +-- ** EditingBehavior + WebSettingsEditingBehaviorPropertyInfo , + constructWebSettingsEditingBehavior , + getWebSettingsEditingBehavior , + setWebSettingsEditingBehavior , + + +-- ** EnableAcceleratedCompositing + WebSettingsEnableAcceleratedCompositingPropertyInfo, + constructWebSettingsEnableAcceleratedCompositing, + getWebSettingsEnableAcceleratedCompositing, + setWebSettingsEnableAcceleratedCompositing, + + +-- ** EnableCaretBrowsing + WebSettingsEnableCaretBrowsingPropertyInfo, + constructWebSettingsEnableCaretBrowsing , + getWebSettingsEnableCaretBrowsing , + setWebSettingsEnableCaretBrowsing , + + +-- ** EnableDefaultContextMenu + WebSettingsEnableDefaultContextMenuPropertyInfo, + constructWebSettingsEnableDefaultContextMenu, + getWebSettingsEnableDefaultContextMenu , + setWebSettingsEnableDefaultContextMenu , + + +-- ** EnableDeveloperExtras + WebSettingsEnableDeveloperExtrasPropertyInfo, + constructWebSettingsEnableDeveloperExtras, + getWebSettingsEnableDeveloperExtras , + setWebSettingsEnableDeveloperExtras , + + +-- ** EnableDisplayOfInsecureContent + WebSettingsEnableDisplayOfInsecureContentPropertyInfo, + constructWebSettingsEnableDisplayOfInsecureContent, + getWebSettingsEnableDisplayOfInsecureContent, + setWebSettingsEnableDisplayOfInsecureContent, + + +-- ** EnableDnsPrefetching + WebSettingsEnableDnsPrefetchingPropertyInfo, + constructWebSettingsEnableDnsPrefetching, + getWebSettingsEnableDnsPrefetching , + setWebSettingsEnableDnsPrefetching , + + +-- ** EnableDomPaste + WebSettingsEnableDomPastePropertyInfo , + constructWebSettingsEnableDomPaste , + getWebSettingsEnableDomPaste , + setWebSettingsEnableDomPaste , + + +-- ** EnableFileAccessFromFileUris + WebSettingsEnableFileAccessFromFileUrisPropertyInfo, + constructWebSettingsEnableFileAccessFromFileUris, + getWebSettingsEnableFileAccessFromFileUris, + setWebSettingsEnableFileAccessFromFileUris, + + +-- ** EnableFrameFlattening + WebSettingsEnableFrameFlatteningPropertyInfo, + constructWebSettingsEnableFrameFlattening, + getWebSettingsEnableFrameFlattening , + setWebSettingsEnableFrameFlattening , + + +-- ** EnableFullscreen + WebSettingsEnableFullscreenPropertyInfo , + constructWebSettingsEnableFullscreen , + getWebSettingsEnableFullscreen , + setWebSettingsEnableFullscreen , + + +-- ** EnableHtml5Database + WebSettingsEnableHtml5DatabasePropertyInfo, + constructWebSettingsEnableHtml5Database , + getWebSettingsEnableHtml5Database , + setWebSettingsEnableHtml5Database , + + +-- ** EnableHtml5LocalStorage + WebSettingsEnableHtml5LocalStoragePropertyInfo, + constructWebSettingsEnableHtml5LocalStorage, + getWebSettingsEnableHtml5LocalStorage , + setWebSettingsEnableHtml5LocalStorage , + + +-- ** EnableHyperlinkAuditing + WebSettingsEnableHyperlinkAuditingPropertyInfo, + constructWebSettingsEnableHyperlinkAuditing, + getWebSettingsEnableHyperlinkAuditing , + setWebSettingsEnableHyperlinkAuditing , + + +-- ** EnableJavaApplet + WebSettingsEnableJavaAppletPropertyInfo , + constructWebSettingsEnableJavaApplet , + getWebSettingsEnableJavaApplet , + setWebSettingsEnableJavaApplet , + + +-- ** EnableMediaStream + WebSettingsEnableMediaStreamPropertyInfo, + constructWebSettingsEnableMediaStream , + getWebSettingsEnableMediaStream , + setWebSettingsEnableMediaStream , + + +-- ** EnableMediasource + WebSettingsEnableMediasourcePropertyInfo, + constructWebSettingsEnableMediasource , + getWebSettingsEnableMediasource , + setWebSettingsEnableMediasource , + + +-- ** EnableOfflineWebApplicationCache + WebSettingsEnableOfflineWebApplicationCachePropertyInfo, + constructWebSettingsEnableOfflineWebApplicationCache, + getWebSettingsEnableOfflineWebApplicationCache, + setWebSettingsEnableOfflineWebApplicationCache, + + +-- ** EnablePageCache + WebSettingsEnablePageCachePropertyInfo , + constructWebSettingsEnablePageCache , + getWebSettingsEnablePageCache , + setWebSettingsEnablePageCache , + + +-- ** EnablePlugins + WebSettingsEnablePluginsPropertyInfo , + constructWebSettingsEnablePlugins , + getWebSettingsEnablePlugins , + setWebSettingsEnablePlugins , + + +-- ** EnablePrivateBrowsing + WebSettingsEnablePrivateBrowsingPropertyInfo, + constructWebSettingsEnablePrivateBrowsing, + getWebSettingsEnablePrivateBrowsing , + setWebSettingsEnablePrivateBrowsing , + + +-- ** EnableRunningOfInsecureContent + WebSettingsEnableRunningOfInsecureContentPropertyInfo, + constructWebSettingsEnableRunningOfInsecureContent, + getWebSettingsEnableRunningOfInsecureContent, + setWebSettingsEnableRunningOfInsecureContent, + + +-- ** EnableScripts + WebSettingsEnableScriptsPropertyInfo , + constructWebSettingsEnableScripts , + getWebSettingsEnableScripts , + setWebSettingsEnableScripts , + + +-- ** EnableSiteSpecificQuirks + WebSettingsEnableSiteSpecificQuirksPropertyInfo, + constructWebSettingsEnableSiteSpecificQuirks, + getWebSettingsEnableSiteSpecificQuirks , + setWebSettingsEnableSiteSpecificQuirks , + + +-- ** EnableSmoothScrolling + WebSettingsEnableSmoothScrollingPropertyInfo, + constructWebSettingsEnableSmoothScrolling, + getWebSettingsEnableSmoothScrolling , + setWebSettingsEnableSmoothScrolling , + + +-- ** EnableSpatialNavigation + WebSettingsEnableSpatialNavigationPropertyInfo, + constructWebSettingsEnableSpatialNavigation, + getWebSettingsEnableSpatialNavigation , + setWebSettingsEnableSpatialNavigation , + + +-- ** EnableSpellChecking + WebSettingsEnableSpellCheckingPropertyInfo, + constructWebSettingsEnableSpellChecking , + getWebSettingsEnableSpellChecking , + setWebSettingsEnableSpellChecking , + + +-- ** EnableUniversalAccessFromFileUris + WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo, + constructWebSettingsEnableUniversalAccessFromFileUris, + getWebSettingsEnableUniversalAccessFromFileUris, + setWebSettingsEnableUniversalAccessFromFileUris, + + +-- ** EnableWebaudio + WebSettingsEnableWebaudioPropertyInfo , + constructWebSettingsEnableWebaudio , + getWebSettingsEnableWebaudio , + setWebSettingsEnableWebaudio , + + +-- ** EnableWebgl + WebSettingsEnableWebglPropertyInfo , + constructWebSettingsEnableWebgl , + getWebSettingsEnableWebgl , + setWebSettingsEnableWebgl , + + +-- ** EnableXssAuditor + WebSettingsEnableXssAuditorPropertyInfo , + constructWebSettingsEnableXssAuditor , + getWebSettingsEnableXssAuditor , + setWebSettingsEnableXssAuditor , + + +-- ** Enforce96Dpi + WebSettingsEnforce96DpiPropertyInfo , + constructWebSettingsEnforce96Dpi , + getWebSettingsEnforce96Dpi , + setWebSettingsEnforce96Dpi , + + +-- ** FantasyFontFamily + WebSettingsFantasyFontFamilyPropertyInfo, + constructWebSettingsFantasyFontFamily , + getWebSettingsFantasyFontFamily , + setWebSettingsFantasyFontFamily , + + +-- ** Html5LocalStorageDatabasePath + WebSettingsHtml5LocalStorageDatabasePathPropertyInfo, + constructWebSettingsHtml5LocalStorageDatabasePath, + getWebSettingsHtml5LocalStorageDatabasePath, + setWebSettingsHtml5LocalStorageDatabasePath, + + +-- ** JavascriptCanAccessClipboard + WebSettingsJavascriptCanAccessClipboardPropertyInfo, + constructWebSettingsJavascriptCanAccessClipboard, + getWebSettingsJavascriptCanAccessClipboard, + setWebSettingsJavascriptCanAccessClipboard, + + +-- ** JavascriptCanOpenWindowsAutomatically + WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo, + constructWebSettingsJavascriptCanOpenWindowsAutomatically, + getWebSettingsJavascriptCanOpenWindowsAutomatically, + setWebSettingsJavascriptCanOpenWindowsAutomatically, + + +-- ** MediaPlaybackAllowsInline + WebSettingsMediaPlaybackAllowsInlinePropertyInfo, + constructWebSettingsMediaPlaybackAllowsInline, + getWebSettingsMediaPlaybackAllowsInline , + setWebSettingsMediaPlaybackAllowsInline , + + +-- ** MediaPlaybackRequiresUserGesture + WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo, + constructWebSettingsMediaPlaybackRequiresUserGesture, + getWebSettingsMediaPlaybackRequiresUserGesture, + setWebSettingsMediaPlaybackRequiresUserGesture, + + +-- ** MinimumFontSize + WebSettingsMinimumFontSizePropertyInfo , + constructWebSettingsMinimumFontSize , + getWebSettingsMinimumFontSize , + setWebSettingsMinimumFontSize , + + +-- ** MinimumLogicalFontSize + WebSettingsMinimumLogicalFontSizePropertyInfo, + constructWebSettingsMinimumLogicalFontSize, + getWebSettingsMinimumLogicalFontSize , + setWebSettingsMinimumLogicalFontSize , + + +-- ** MonospaceFontFamily + WebSettingsMonospaceFontFamilyPropertyInfo, + constructWebSettingsMonospaceFontFamily , + getWebSettingsMonospaceFontFamily , + setWebSettingsMonospaceFontFamily , + + +-- ** PrintBackgrounds + WebSettingsPrintBackgroundsPropertyInfo , + constructWebSettingsPrintBackgrounds , + getWebSettingsPrintBackgrounds , + setWebSettingsPrintBackgrounds , + + +-- ** ResizableTextAreas + WebSettingsResizableTextAreasPropertyInfo, + constructWebSettingsResizableTextAreas , + getWebSettingsResizableTextAreas , + setWebSettingsResizableTextAreas , + + +-- ** RespectImageOrientation + WebSettingsRespectImageOrientationPropertyInfo, + constructWebSettingsRespectImageOrientation, + getWebSettingsRespectImageOrientation , + setWebSettingsRespectImageOrientation , + + +-- ** SansSerifFontFamily + WebSettingsSansSerifFontFamilyPropertyInfo, + constructWebSettingsSansSerifFontFamily , + getWebSettingsSansSerifFontFamily , + setWebSettingsSansSerifFontFamily , + + +-- ** SerifFontFamily + WebSettingsSerifFontFamilyPropertyInfo , + constructWebSettingsSerifFontFamily , + getWebSettingsSerifFontFamily , + setWebSettingsSerifFontFamily , + + +-- ** SpellCheckingLanguages + WebSettingsSpellCheckingLanguagesPropertyInfo, + constructWebSettingsSpellCheckingLanguages, + getWebSettingsSpellCheckingLanguages , + setWebSettingsSpellCheckingLanguages , + + +-- ** TabKeyCyclesThroughElements + WebSettingsTabKeyCyclesThroughElementsPropertyInfo, + constructWebSettingsTabKeyCyclesThroughElements, + getWebSettingsTabKeyCyclesThroughElements, + setWebSettingsTabKeyCyclesThroughElements, + + +-- ** UserAgent + WebSettingsUserAgentPropertyInfo , + constructWebSettingsUserAgent , + getWebSettingsUserAgent , + setWebSettingsUserAgent , + + +-- ** UserStylesheetUri + WebSettingsUserStylesheetUriPropertyInfo, + constructWebSettingsUserStylesheetUri , + getWebSettingsUserStylesheetUri , + setWebSettingsUserStylesheetUri , + + +-- ** ZoomStep + WebSettingsZoomStepPropertyInfo , + constructWebSettingsZoomStep , + getWebSettingsZoomStep , + setWebSettingsZoomStep , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebSettings = WebSettings (ForeignPtr WebSettings) +foreign import ccall "webkit_web_settings_get_type" + c_webkit_web_settings_get_type :: IO GType + +type instance ParentTypes WebSettings = WebSettingsParentTypes +type WebSettingsParentTypes = '[GObject.Object] + +instance GObject WebSettings where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_settings_get_type + + +class GObject o => WebSettingsK o +instance (GObject o, IsDescendantOf WebSettings o) => WebSettingsK o + +toWebSettings :: WebSettingsK o => o -> IO WebSettings +toWebSettings = unsafeCastTo WebSettings + +noWebSettings :: Maybe WebSettings +noWebSettings = Nothing + +-- VVV Prop "auto-load-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" + +setWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val + +constructWebSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val + +data WebSettingsAutoLoadImagesPropertyInfo +instance AttrInfo WebSettingsAutoLoadImagesPropertyInfo where + type AttrAllowedOps WebSettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoLoadImagesPropertyInfo = Bool + type AttrLabel WebSettingsAutoLoadImagesPropertyInfo = "WebSettings::auto-load-images" + attrGet _ = getWebSettingsAutoLoadImages + attrSet _ = setWebSettingsAutoLoadImages + attrConstruct _ = constructWebSettingsAutoLoadImages + +-- VVV Prop "auto-resize-window" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoResizeWindow obj = liftIO $ getObjectPropertyBool obj "auto-resize-window" + +setWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoResizeWindow obj val = liftIO $ setObjectPropertyBool obj "auto-resize-window" val + +constructWebSettingsAutoResizeWindow :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoResizeWindow val = constructObjectPropertyBool "auto-resize-window" val + +data WebSettingsAutoResizeWindowPropertyInfo +instance AttrInfo WebSettingsAutoResizeWindowPropertyInfo where + type AttrAllowedOps WebSettingsAutoResizeWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoResizeWindowPropertyInfo = Bool + type AttrLabel WebSettingsAutoResizeWindowPropertyInfo = "WebSettings::auto-resize-window" + attrGet _ = getWebSettingsAutoResizeWindow + attrSet _ = setWebSettingsAutoResizeWindow + attrConstruct _ = constructWebSettingsAutoResizeWindow + +-- VVV Prop "auto-shrink-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoShrinkImages obj = liftIO $ getObjectPropertyBool obj "auto-shrink-images" + +setWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoShrinkImages obj val = liftIO $ setObjectPropertyBool obj "auto-shrink-images" val + +constructWebSettingsAutoShrinkImages :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoShrinkImages val = constructObjectPropertyBool "auto-shrink-images" val + +data WebSettingsAutoShrinkImagesPropertyInfo +instance AttrInfo WebSettingsAutoShrinkImagesPropertyInfo where + type AttrAllowedOps WebSettingsAutoShrinkImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoShrinkImagesPropertyInfo = Bool + type AttrLabel WebSettingsAutoShrinkImagesPropertyInfo = "WebSettings::auto-shrink-images" + attrGet _ = getWebSettingsAutoShrinkImages + attrSet _ = setWebSettingsAutoShrinkImages + attrConstruct _ = constructWebSettingsAutoShrinkImages + +-- VVV Prop "cursive-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" + +setWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val + +constructWebSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val + +data WebSettingsCursiveFontFamilyPropertyInfo +instance AttrInfo WebSettingsCursiveFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsCursiveFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsCursiveFontFamilyPropertyInfo = "WebSettings::cursive-font-family" + attrGet _ = getWebSettingsCursiveFontFamily + attrSet _ = setWebSettingsCursiveFontFamily + attrConstruct _ = constructWebSettingsCursiveFontFamily + +-- VVV Prop "default-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultEncoding obj = liftIO $ getObjectPropertyString obj "default-encoding" + +setWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsDefaultEncoding obj val = liftIO $ setObjectPropertyString obj "default-encoding" val + +constructWebSettingsDefaultEncoding :: T.Text -> IO ([Char], GValue) +constructWebSettingsDefaultEncoding val = constructObjectPropertyString "default-encoding" val + +data WebSettingsDefaultEncodingPropertyInfo +instance AttrInfo WebSettingsDefaultEncodingPropertyInfo where + type AttrAllowedOps WebSettingsDefaultEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsDefaultEncodingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultEncodingPropertyInfo = T.Text + type AttrLabel WebSettingsDefaultEncodingPropertyInfo = "WebSettings::default-encoding" + attrGet _ = getWebSettingsDefaultEncoding + attrSet _ = setWebSettingsDefaultEncoding + attrConstruct _ = constructWebSettingsDefaultEncoding + +-- VVV Prop "default-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" + +setWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val + +constructWebSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val + +data WebSettingsDefaultFontFamilyPropertyInfo +instance AttrInfo WebSettingsDefaultFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsDefaultFontFamilyPropertyInfo = "WebSettings::default-font-family" + attrGet _ = getWebSettingsDefaultFontFamily + attrSet _ = setWebSettingsDefaultFontFamily + attrConstruct _ = constructWebSettingsDefaultFontFamily + +-- VVV Prop "default-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCInt obj "default-font-size" + +setWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-font-size" val + +constructWebSettingsDefaultFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsDefaultFontSize val = constructObjectPropertyCInt "default-font-size" val + +data WebSettingsDefaultFontSizePropertyInfo +instance AttrInfo WebSettingsDefaultFontSizePropertyInfo where + type AttrAllowedOps WebSettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsDefaultFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsDefaultFontSizePropertyInfo = "WebSettings::default-font-size" + attrGet _ = getWebSettingsDefaultFontSize + attrSet _ = setWebSettingsDefaultFontSize + attrConstruct _ = constructWebSettingsDefaultFontSize + +-- VVV Prop "default-monospace-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCInt obj "default-monospace-font-size" + +setWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-monospace-font-size" val + +constructWebSettingsDefaultMonospaceFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsDefaultMonospaceFontSize val = constructObjectPropertyCInt "default-monospace-font-size" val + +data WebSettingsDefaultMonospaceFontSizePropertyInfo +instance AttrInfo WebSettingsDefaultMonospaceFontSizePropertyInfo where + type AttrAllowedOps WebSettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultMonospaceFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsDefaultMonospaceFontSizePropertyInfo = "WebSettings::default-monospace-font-size" + attrGet _ = getWebSettingsDefaultMonospaceFontSize + attrSet _ = setWebSettingsDefaultMonospaceFontSize + attrConstruct _ = constructWebSettingsDefaultMonospaceFontSize + +-- VVV Prop "editing-behavior" + -- Type: TInterface "WebKit" "EditingBehavior" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> m EditingBehavior +getWebSettingsEditingBehavior obj = liftIO $ getObjectPropertyEnum obj "editing-behavior" + +setWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> EditingBehavior -> m () +setWebSettingsEditingBehavior obj val = liftIO $ setObjectPropertyEnum obj "editing-behavior" val + +constructWebSettingsEditingBehavior :: EditingBehavior -> IO ([Char], GValue) +constructWebSettingsEditingBehavior val = constructObjectPropertyEnum "editing-behavior" val + +data WebSettingsEditingBehaviorPropertyInfo +instance AttrInfo WebSettingsEditingBehaviorPropertyInfo where + type AttrAllowedOps WebSettingsEditingBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEditingBehaviorPropertyInfo = (~) EditingBehavior + type AttrBaseTypeConstraint WebSettingsEditingBehaviorPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEditingBehaviorPropertyInfo = EditingBehavior + type AttrLabel WebSettingsEditingBehaviorPropertyInfo = "WebSettings::editing-behavior" + attrGet _ = getWebSettingsEditingBehavior + attrSet _ = setWebSettingsEditingBehavior + attrConstruct _ = constructWebSettingsEditingBehavior + +-- VVV Prop "enable-accelerated-compositing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableAcceleratedCompositing obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-compositing" + +setWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableAcceleratedCompositing obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-compositing" val + +constructWebSettingsEnableAcceleratedCompositing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableAcceleratedCompositing val = constructObjectPropertyBool "enable-accelerated-compositing" val + +data WebSettingsEnableAcceleratedCompositingPropertyInfo +instance AttrInfo WebSettingsEnableAcceleratedCompositingPropertyInfo where + type AttrAllowedOps WebSettingsEnableAcceleratedCompositingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableAcceleratedCompositingPropertyInfo = Bool + type AttrLabel WebSettingsEnableAcceleratedCompositingPropertyInfo = "WebSettings::enable-accelerated-compositing" + attrGet _ = getWebSettingsEnableAcceleratedCompositing + attrSet _ = setWebSettingsEnableAcceleratedCompositing + attrConstruct _ = constructWebSettingsEnableAcceleratedCompositing + +-- VVV Prop "enable-caret-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" + +setWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val + +constructWebSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val + +data WebSettingsEnableCaretBrowsingPropertyInfo +instance AttrInfo WebSettingsEnableCaretBrowsingPropertyInfo where + type AttrAllowedOps WebSettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableCaretBrowsingPropertyInfo = Bool + type AttrLabel WebSettingsEnableCaretBrowsingPropertyInfo = "WebSettings::enable-caret-browsing" + attrGet _ = getWebSettingsEnableCaretBrowsing + attrSet _ = setWebSettingsEnableCaretBrowsing + attrConstruct _ = constructWebSettingsEnableCaretBrowsing + +-- VVV Prop "enable-default-context-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDefaultContextMenu obj = liftIO $ getObjectPropertyBool obj "enable-default-context-menu" + +setWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDefaultContextMenu obj val = liftIO $ setObjectPropertyBool obj "enable-default-context-menu" val + +constructWebSettingsEnableDefaultContextMenu :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDefaultContextMenu val = constructObjectPropertyBool "enable-default-context-menu" val + +data WebSettingsEnableDefaultContextMenuPropertyInfo +instance AttrInfo WebSettingsEnableDefaultContextMenuPropertyInfo where + type AttrAllowedOps WebSettingsEnableDefaultContextMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDefaultContextMenuPropertyInfo = Bool + type AttrLabel WebSettingsEnableDefaultContextMenuPropertyInfo = "WebSettings::enable-default-context-menu" + attrGet _ = getWebSettingsEnableDefaultContextMenu + attrSet _ = setWebSettingsEnableDefaultContextMenu + attrConstruct _ = constructWebSettingsEnableDefaultContextMenu + +-- VVV Prop "enable-developer-extras" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" + +setWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val + +constructWebSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val + +data WebSettingsEnableDeveloperExtrasPropertyInfo +instance AttrInfo WebSettingsEnableDeveloperExtrasPropertyInfo where + type AttrAllowedOps WebSettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDeveloperExtrasPropertyInfo = Bool + type AttrLabel WebSettingsEnableDeveloperExtrasPropertyInfo = "WebSettings::enable-developer-extras" + attrGet _ = getWebSettingsEnableDeveloperExtras + attrSet _ = setWebSettingsEnableDeveloperExtras + attrConstruct _ = constructWebSettingsEnableDeveloperExtras + +-- VVV Prop "enable-display-of-insecure-content" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDisplayOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-display-of-insecure-content" + +setWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDisplayOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-display-of-insecure-content" val + +constructWebSettingsEnableDisplayOfInsecureContent :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDisplayOfInsecureContent val = constructObjectPropertyBool "enable-display-of-insecure-content" val + +data WebSettingsEnableDisplayOfInsecureContentPropertyInfo +instance AttrInfo WebSettingsEnableDisplayOfInsecureContentPropertyInfo where + type AttrAllowedOps WebSettingsEnableDisplayOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDisplayOfInsecureContentPropertyInfo = Bool + type AttrLabel WebSettingsEnableDisplayOfInsecureContentPropertyInfo = "WebSettings::enable-display-of-insecure-content" + attrGet _ = getWebSettingsEnableDisplayOfInsecureContent + attrSet _ = setWebSettingsEnableDisplayOfInsecureContent + attrConstruct _ = constructWebSettingsEnableDisplayOfInsecureContent + +-- VVV Prop "enable-dns-prefetching" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" + +setWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val + +constructWebSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val + +data WebSettingsEnableDnsPrefetchingPropertyInfo +instance AttrInfo WebSettingsEnableDnsPrefetchingPropertyInfo where + type AttrAllowedOps WebSettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDnsPrefetchingPropertyInfo = Bool + type AttrLabel WebSettingsEnableDnsPrefetchingPropertyInfo = "WebSettings::enable-dns-prefetching" + attrGet _ = getWebSettingsEnableDnsPrefetching + attrSet _ = setWebSettingsEnableDnsPrefetching + attrConstruct _ = constructWebSettingsEnableDnsPrefetching + +-- VVV Prop "enable-dom-paste" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDomPaste obj = liftIO $ getObjectPropertyBool obj "enable-dom-paste" + +setWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDomPaste obj val = liftIO $ setObjectPropertyBool obj "enable-dom-paste" val + +constructWebSettingsEnableDomPaste :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDomPaste val = constructObjectPropertyBool "enable-dom-paste" val + +data WebSettingsEnableDomPastePropertyInfo +instance AttrInfo WebSettingsEnableDomPastePropertyInfo where + type AttrAllowedOps WebSettingsEnableDomPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDomPastePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDomPastePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDomPastePropertyInfo = Bool + type AttrLabel WebSettingsEnableDomPastePropertyInfo = "WebSettings::enable-dom-paste" + attrGet _ = getWebSettingsEnableDomPaste + attrSet _ = setWebSettingsEnableDomPaste + attrConstruct _ = constructWebSettingsEnableDomPaste + +-- VVV Prop "enable-file-access-from-file-uris" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFileAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-file-access-from-file-uris" + +setWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFileAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-file-access-from-file-uris" val + +constructWebSettingsEnableFileAccessFromFileUris :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFileAccessFromFileUris val = constructObjectPropertyBool "enable-file-access-from-file-uris" val + +data WebSettingsEnableFileAccessFromFileUrisPropertyInfo +instance AttrInfo WebSettingsEnableFileAccessFromFileUrisPropertyInfo where + type AttrAllowedOps WebSettingsEnableFileAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFileAccessFromFileUrisPropertyInfo = Bool + type AttrLabel WebSettingsEnableFileAccessFromFileUrisPropertyInfo = "WebSettings::enable-file-access-from-file-uris" + attrGet _ = getWebSettingsEnableFileAccessFromFileUris + attrSet _ = setWebSettingsEnableFileAccessFromFileUris + attrConstruct _ = constructWebSettingsEnableFileAccessFromFileUris + +-- VVV Prop "enable-frame-flattening" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" + +setWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val + +constructWebSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val + +data WebSettingsEnableFrameFlatteningPropertyInfo +instance AttrInfo WebSettingsEnableFrameFlatteningPropertyInfo where + type AttrAllowedOps WebSettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFrameFlatteningPropertyInfo = Bool + type AttrLabel WebSettingsEnableFrameFlatteningPropertyInfo = "WebSettings::enable-frame-flattening" + attrGet _ = getWebSettingsEnableFrameFlattening + attrSet _ = setWebSettingsEnableFrameFlattening + attrConstruct _ = constructWebSettingsEnableFrameFlattening + +-- VVV Prop "enable-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" + +setWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val + +constructWebSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val + +data WebSettingsEnableFullscreenPropertyInfo +instance AttrInfo WebSettingsEnableFullscreenPropertyInfo where + type AttrAllowedOps WebSettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFullscreenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFullscreenPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFullscreenPropertyInfo = Bool + type AttrLabel WebSettingsEnableFullscreenPropertyInfo = "WebSettings::enable-fullscreen" + attrGet _ = getWebSettingsEnableFullscreen + attrSet _ = setWebSettingsEnableFullscreen + attrConstruct _ = constructWebSettingsEnableFullscreen + +-- VVV Prop "enable-html5-database" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" + +setWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val + +constructWebSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val + +data WebSettingsEnableHtml5DatabasePropertyInfo +instance AttrInfo WebSettingsEnableHtml5DatabasePropertyInfo where + type AttrAllowedOps WebSettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHtml5DatabasePropertyInfo = Bool + type AttrLabel WebSettingsEnableHtml5DatabasePropertyInfo = "WebSettings::enable-html5-database" + attrGet _ = getWebSettingsEnableHtml5Database + attrSet _ = setWebSettingsEnableHtml5Database + attrConstruct _ = constructWebSettingsEnableHtml5Database + +-- VVV Prop "enable-html5-local-storage" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" + +setWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val + +constructWebSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val + +data WebSettingsEnableHtml5LocalStoragePropertyInfo +instance AttrInfo WebSettingsEnableHtml5LocalStoragePropertyInfo where + type AttrAllowedOps WebSettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHtml5LocalStoragePropertyInfo = Bool + type AttrLabel WebSettingsEnableHtml5LocalStoragePropertyInfo = "WebSettings::enable-html5-local-storage" + attrGet _ = getWebSettingsEnableHtml5LocalStorage + attrSet _ = setWebSettingsEnableHtml5LocalStorage + attrConstruct _ = constructWebSettingsEnableHtml5LocalStorage + +-- VVV Prop "enable-hyperlink-auditing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" + +setWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val + +constructWebSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val + +data WebSettingsEnableHyperlinkAuditingPropertyInfo +instance AttrInfo WebSettingsEnableHyperlinkAuditingPropertyInfo where + type AttrAllowedOps WebSettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHyperlinkAuditingPropertyInfo = Bool + type AttrLabel WebSettingsEnableHyperlinkAuditingPropertyInfo = "WebSettings::enable-hyperlink-auditing" + attrGet _ = getWebSettingsEnableHyperlinkAuditing + attrSet _ = setWebSettingsEnableHyperlinkAuditing + attrConstruct _ = constructWebSettingsEnableHyperlinkAuditing + +-- VVV Prop "enable-java-applet" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableJavaApplet obj = liftIO $ getObjectPropertyBool obj "enable-java-applet" + +setWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableJavaApplet obj val = liftIO $ setObjectPropertyBool obj "enable-java-applet" val + +constructWebSettingsEnableJavaApplet :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableJavaApplet val = constructObjectPropertyBool "enable-java-applet" val + +data WebSettingsEnableJavaAppletPropertyInfo +instance AttrInfo WebSettingsEnableJavaAppletPropertyInfo where + type AttrAllowedOps WebSettingsEnableJavaAppletPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableJavaAppletPropertyInfo = Bool + type AttrLabel WebSettingsEnableJavaAppletPropertyInfo = "WebSettings::enable-java-applet" + attrGet _ = getWebSettingsEnableJavaApplet + attrSet _ = setWebSettingsEnableJavaApplet + attrConstruct _ = constructWebSettingsEnableJavaApplet + +-- VVV Prop "enable-media-stream" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" + +setWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val + +constructWebSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val + +data WebSettingsEnableMediaStreamPropertyInfo +instance AttrInfo WebSettingsEnableMediaStreamPropertyInfo where + type AttrAllowedOps WebSettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableMediaStreamPropertyInfo = Bool + type AttrLabel WebSettingsEnableMediaStreamPropertyInfo = "WebSettings::enable-media-stream" + attrGet _ = getWebSettingsEnableMediaStream + attrSet _ = setWebSettingsEnableMediaStream + attrConstruct _ = constructWebSettingsEnableMediaStream + +-- VVV Prop "enable-mediasource" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" + +setWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val + +constructWebSettingsEnableMediasource :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val + +data WebSettingsEnableMediasourcePropertyInfo +instance AttrInfo WebSettingsEnableMediasourcePropertyInfo where + type AttrAllowedOps WebSettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableMediasourcePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableMediasourcePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableMediasourcePropertyInfo = Bool + type AttrLabel WebSettingsEnableMediasourcePropertyInfo = "WebSettings::enable-mediasource" + attrGet _ = getWebSettingsEnableMediasource + attrSet _ = setWebSettingsEnableMediasource + attrConstruct _ = constructWebSettingsEnableMediasource + +-- VVV Prop "enable-offline-web-application-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" + +setWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val + +constructWebSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val + +data WebSettingsEnableOfflineWebApplicationCachePropertyInfo +instance AttrInfo WebSettingsEnableOfflineWebApplicationCachePropertyInfo where + type AttrAllowedOps WebSettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableOfflineWebApplicationCachePropertyInfo = Bool + type AttrLabel WebSettingsEnableOfflineWebApplicationCachePropertyInfo = "WebSettings::enable-offline-web-application-cache" + attrGet _ = getWebSettingsEnableOfflineWebApplicationCache + attrSet _ = setWebSettingsEnableOfflineWebApplicationCache + attrConstruct _ = constructWebSettingsEnableOfflineWebApplicationCache + +-- VVV Prop "enable-page-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" + +setWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val + +constructWebSettingsEnablePageCache :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val + +data WebSettingsEnablePageCachePropertyInfo +instance AttrInfo WebSettingsEnablePageCachePropertyInfo where + type AttrAllowedOps WebSettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePageCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePageCachePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePageCachePropertyInfo = Bool + type AttrLabel WebSettingsEnablePageCachePropertyInfo = "WebSettings::enable-page-cache" + attrGet _ = getWebSettingsEnablePageCache + attrSet _ = setWebSettingsEnablePageCache + attrConstruct _ = constructWebSettingsEnablePageCache + +-- VVV Prop "enable-plugins" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" + +setWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val + +constructWebSettingsEnablePlugins :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val + +data WebSettingsEnablePluginsPropertyInfo +instance AttrInfo WebSettingsEnablePluginsPropertyInfo where + type AttrAllowedOps WebSettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePluginsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePluginsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePluginsPropertyInfo = Bool + type AttrLabel WebSettingsEnablePluginsPropertyInfo = "WebSettings::enable-plugins" + attrGet _ = getWebSettingsEnablePlugins + attrSet _ = setWebSettingsEnablePlugins + attrConstruct _ = constructWebSettingsEnablePlugins + +-- VVV Prop "enable-private-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" + +setWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val + +constructWebSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val + +data WebSettingsEnablePrivateBrowsingPropertyInfo +instance AttrInfo WebSettingsEnablePrivateBrowsingPropertyInfo where + type AttrAllowedOps WebSettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePrivateBrowsingPropertyInfo = Bool + type AttrLabel WebSettingsEnablePrivateBrowsingPropertyInfo = "WebSettings::enable-private-browsing" + attrGet _ = getWebSettingsEnablePrivateBrowsing + attrSet _ = setWebSettingsEnablePrivateBrowsing + attrConstruct _ = constructWebSettingsEnablePrivateBrowsing + +-- VVV Prop "enable-running-of-insecure-content" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableRunningOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-running-of-insecure-content" + +setWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableRunningOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-running-of-insecure-content" val + +constructWebSettingsEnableRunningOfInsecureContent :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableRunningOfInsecureContent val = constructObjectPropertyBool "enable-running-of-insecure-content" val + +data WebSettingsEnableRunningOfInsecureContentPropertyInfo +instance AttrInfo WebSettingsEnableRunningOfInsecureContentPropertyInfo where + type AttrAllowedOps WebSettingsEnableRunningOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableRunningOfInsecureContentPropertyInfo = Bool + type AttrLabel WebSettingsEnableRunningOfInsecureContentPropertyInfo = "WebSettings::enable-running-of-insecure-content" + attrGet _ = getWebSettingsEnableRunningOfInsecureContent + attrSet _ = setWebSettingsEnableRunningOfInsecureContent + attrConstruct _ = constructWebSettingsEnableRunningOfInsecureContent + +-- VVV Prop "enable-scripts" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableScripts obj = liftIO $ getObjectPropertyBool obj "enable-scripts" + +setWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableScripts obj val = liftIO $ setObjectPropertyBool obj "enable-scripts" val + +constructWebSettingsEnableScripts :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableScripts val = constructObjectPropertyBool "enable-scripts" val + +data WebSettingsEnableScriptsPropertyInfo +instance AttrInfo WebSettingsEnableScriptsPropertyInfo where + type AttrAllowedOps WebSettingsEnableScriptsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableScriptsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableScriptsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableScriptsPropertyInfo = Bool + type AttrLabel WebSettingsEnableScriptsPropertyInfo = "WebSettings::enable-scripts" + attrGet _ = getWebSettingsEnableScripts + attrSet _ = setWebSettingsEnableScripts + attrConstruct _ = constructWebSettingsEnableScripts + +-- VVV Prop "enable-site-specific-quirks" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" + +setWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val + +constructWebSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val + +data WebSettingsEnableSiteSpecificQuirksPropertyInfo +instance AttrInfo WebSettingsEnableSiteSpecificQuirksPropertyInfo where + type AttrAllowedOps WebSettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSiteSpecificQuirksPropertyInfo = Bool + type AttrLabel WebSettingsEnableSiteSpecificQuirksPropertyInfo = "WebSettings::enable-site-specific-quirks" + attrGet _ = getWebSettingsEnableSiteSpecificQuirks + attrSet _ = setWebSettingsEnableSiteSpecificQuirks + attrConstruct _ = constructWebSettingsEnableSiteSpecificQuirks + +-- VVV Prop "enable-smooth-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" + +setWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val + +constructWebSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val + +data WebSettingsEnableSmoothScrollingPropertyInfo +instance AttrInfo WebSettingsEnableSmoothScrollingPropertyInfo where + type AttrAllowedOps WebSettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSmoothScrollingPropertyInfo = Bool + type AttrLabel WebSettingsEnableSmoothScrollingPropertyInfo = "WebSettings::enable-smooth-scrolling" + attrGet _ = getWebSettingsEnableSmoothScrolling + attrSet _ = setWebSettingsEnableSmoothScrolling + attrConstruct _ = constructWebSettingsEnableSmoothScrolling + +-- VVV Prop "enable-spatial-navigation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" + +setWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val + +constructWebSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val + +data WebSettingsEnableSpatialNavigationPropertyInfo +instance AttrInfo WebSettingsEnableSpatialNavigationPropertyInfo where + type AttrAllowedOps WebSettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSpatialNavigationPropertyInfo = Bool + type AttrLabel WebSettingsEnableSpatialNavigationPropertyInfo = "WebSettings::enable-spatial-navigation" + attrGet _ = getWebSettingsEnableSpatialNavigation + attrSet _ = setWebSettingsEnableSpatialNavigation + attrConstruct _ = constructWebSettingsEnableSpatialNavigation + +-- VVV Prop "enable-spell-checking" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSpellChecking obj = liftIO $ getObjectPropertyBool obj "enable-spell-checking" + +setWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSpellChecking obj val = liftIO $ setObjectPropertyBool obj "enable-spell-checking" val + +constructWebSettingsEnableSpellChecking :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSpellChecking val = constructObjectPropertyBool "enable-spell-checking" val + +data WebSettingsEnableSpellCheckingPropertyInfo +instance AttrInfo WebSettingsEnableSpellCheckingPropertyInfo where + type AttrAllowedOps WebSettingsEnableSpellCheckingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSpellCheckingPropertyInfo = Bool + type AttrLabel WebSettingsEnableSpellCheckingPropertyInfo = "WebSettings::enable-spell-checking" + attrGet _ = getWebSettingsEnableSpellChecking + attrSet _ = setWebSettingsEnableSpellChecking + attrConstruct _ = constructWebSettingsEnableSpellChecking + +-- VVV Prop "enable-universal-access-from-file-uris" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableUniversalAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-universal-access-from-file-uris" + +setWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableUniversalAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-universal-access-from-file-uris" val + +constructWebSettingsEnableUniversalAccessFromFileUris :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableUniversalAccessFromFileUris val = constructObjectPropertyBool "enable-universal-access-from-file-uris" val + +data WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo +instance AttrInfo WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo where + type AttrAllowedOps WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = Bool + type AttrLabel WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = "WebSettings::enable-universal-access-from-file-uris" + attrGet _ = getWebSettingsEnableUniversalAccessFromFileUris + attrSet _ = setWebSettingsEnableUniversalAccessFromFileUris + attrConstruct _ = constructWebSettingsEnableUniversalAccessFromFileUris + +-- VVV Prop "enable-webaudio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" + +setWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val + +constructWebSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val + +data WebSettingsEnableWebaudioPropertyInfo +instance AttrInfo WebSettingsEnableWebaudioPropertyInfo where + type AttrAllowedOps WebSettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableWebaudioPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableWebaudioPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableWebaudioPropertyInfo = Bool + type AttrLabel WebSettingsEnableWebaudioPropertyInfo = "WebSettings::enable-webaudio" + attrGet _ = getWebSettingsEnableWebaudio + attrSet _ = setWebSettingsEnableWebaudio + attrConstruct _ = constructWebSettingsEnableWebaudio + +-- VVV Prop "enable-webgl" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" + +setWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val + +constructWebSettingsEnableWebgl :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val + +data WebSettingsEnableWebglPropertyInfo +instance AttrInfo WebSettingsEnableWebglPropertyInfo where + type AttrAllowedOps WebSettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableWebglPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableWebglPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableWebglPropertyInfo = Bool + type AttrLabel WebSettingsEnableWebglPropertyInfo = "WebSettings::enable-webgl" + attrGet _ = getWebSettingsEnableWebgl + attrSet _ = setWebSettingsEnableWebgl + attrConstruct _ = constructWebSettingsEnableWebgl + +-- VVV Prop "enable-xss-auditor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" + +setWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val + +constructWebSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val + +data WebSettingsEnableXssAuditorPropertyInfo +instance AttrInfo WebSettingsEnableXssAuditorPropertyInfo where + type AttrAllowedOps WebSettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableXssAuditorPropertyInfo = Bool + type AttrLabel WebSettingsEnableXssAuditorPropertyInfo = "WebSettings::enable-xss-auditor" + attrGet _ = getWebSettingsEnableXssAuditor + attrSet _ = setWebSettingsEnableXssAuditor + attrConstruct _ = constructWebSettingsEnableXssAuditor + +-- VVV Prop "enforce-96-dpi" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnforce96Dpi obj = liftIO $ getObjectPropertyBool obj "enforce-96-dpi" + +setWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnforce96Dpi obj val = liftIO $ setObjectPropertyBool obj "enforce-96-dpi" val + +constructWebSettingsEnforce96Dpi :: Bool -> IO ([Char], GValue) +constructWebSettingsEnforce96Dpi val = constructObjectPropertyBool "enforce-96-dpi" val + +data WebSettingsEnforce96DpiPropertyInfo +instance AttrInfo WebSettingsEnforce96DpiPropertyInfo where + type AttrAllowedOps WebSettingsEnforce96DpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnforce96DpiPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnforce96DpiPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnforce96DpiPropertyInfo = Bool + type AttrLabel WebSettingsEnforce96DpiPropertyInfo = "WebSettings::enforce-96-dpi" + attrGet _ = getWebSettingsEnforce96Dpi + attrSet _ = setWebSettingsEnforce96Dpi + attrConstruct _ = constructWebSettingsEnforce96Dpi + +-- VVV Prop "fantasy-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" + +setWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val + +constructWebSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val + +data WebSettingsFantasyFontFamilyPropertyInfo +instance AttrInfo WebSettingsFantasyFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsFantasyFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsFantasyFontFamilyPropertyInfo = "WebSettings::fantasy-font-family" + attrGet _ = getWebSettingsFantasyFontFamily + attrSet _ = setWebSettingsFantasyFontFamily + attrConstruct _ = constructWebSettingsFantasyFontFamily + +-- VVV Prop "html5-local-storage-database-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsHtml5LocalStorageDatabasePath obj = liftIO $ getObjectPropertyString obj "html5-local-storage-database-path" + +setWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsHtml5LocalStorageDatabasePath obj val = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" val + +constructWebSettingsHtml5LocalStorageDatabasePath :: T.Text -> IO ([Char], GValue) +constructWebSettingsHtml5LocalStorageDatabasePath val = constructObjectPropertyString "html5-local-storage-database-path" val + +data WebSettingsHtml5LocalStorageDatabasePathPropertyInfo +instance AttrInfo WebSettingsHtml5LocalStorageDatabasePathPropertyInfo where + type AttrAllowedOps WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = WebSettingsK + type AttrGetType WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = T.Text + type AttrLabel WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = "WebSettings::html5-local-storage-database-path" + attrGet _ = getWebSettingsHtml5LocalStorageDatabasePath + attrSet _ = setWebSettingsHtml5LocalStorageDatabasePath + attrConstruct _ = constructWebSettingsHtml5LocalStorageDatabasePath + +-- VVV Prop "javascript-can-access-clipboard" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" + +setWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val + +constructWebSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) +constructWebSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val + +data WebSettingsJavascriptCanAccessClipboardPropertyInfo +instance AttrInfo WebSettingsJavascriptCanAccessClipboardPropertyInfo where + type AttrAllowedOps WebSettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = WebSettingsK + type AttrGetType WebSettingsJavascriptCanAccessClipboardPropertyInfo = Bool + type AttrLabel WebSettingsJavascriptCanAccessClipboardPropertyInfo = "WebSettings::javascript-can-access-clipboard" + attrGet _ = getWebSettingsJavascriptCanAccessClipboard + attrSet _ = setWebSettingsJavascriptCanAccessClipboard + attrConstruct _ = constructWebSettingsJavascriptCanAccessClipboard + +-- VVV Prop "javascript-can-open-windows-automatically" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" + +setWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val + +constructWebSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) +constructWebSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val + +data WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo +instance AttrInfo WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where + type AttrAllowedOps WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool + type AttrLabel WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "WebSettings::javascript-can-open-windows-automatically" + attrGet _ = getWebSettingsJavascriptCanOpenWindowsAutomatically + attrSet _ = setWebSettingsJavascriptCanOpenWindowsAutomatically + attrConstruct _ = constructWebSettingsJavascriptCanOpenWindowsAutomatically + +-- VVV Prop "media-playback-allows-inline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" + +setWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val + +constructWebSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) +constructWebSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val + +data WebSettingsMediaPlaybackAllowsInlinePropertyInfo +instance AttrInfo WebSettingsMediaPlaybackAllowsInlinePropertyInfo where + type AttrAllowedOps WebSettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMediaPlaybackAllowsInlinePropertyInfo = Bool + type AttrLabel WebSettingsMediaPlaybackAllowsInlinePropertyInfo = "WebSettings::media-playback-allows-inline" + attrGet _ = getWebSettingsMediaPlaybackAllowsInline + attrSet _ = setWebSettingsMediaPlaybackAllowsInline + attrConstruct _ = constructWebSettingsMediaPlaybackAllowsInline + +-- VVV Prop "media-playback-requires-user-gesture" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" + +setWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val + +constructWebSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) +constructWebSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val + +data WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo +instance AttrInfo WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo where + type AttrAllowedOps WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool + type AttrLabel WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = "WebSettings::media-playback-requires-user-gesture" + attrGet _ = getWebSettingsMediaPlaybackRequiresUserGesture + attrSet _ = setWebSettingsMediaPlaybackRequiresUserGesture + attrConstruct _ = constructWebSettingsMediaPlaybackRequiresUserGesture + +-- VVV Prop "minimum-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-font-size" + +setWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-font-size" val + +constructWebSettingsMinimumFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsMinimumFontSize val = constructObjectPropertyCInt "minimum-font-size" val + +data WebSettingsMinimumFontSizePropertyInfo +instance AttrInfo WebSettingsMinimumFontSizePropertyInfo where + type AttrAllowedOps WebSettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMinimumFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsMinimumFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMinimumFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsMinimumFontSizePropertyInfo = "WebSettings::minimum-font-size" + attrGet _ = getWebSettingsMinimumFontSize + attrSet _ = setWebSettingsMinimumFontSize + attrConstruct _ = constructWebSettingsMinimumFontSize + +-- VVV Prop "minimum-logical-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsMinimumLogicalFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-logical-font-size" + +setWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsMinimumLogicalFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-logical-font-size" val + +constructWebSettingsMinimumLogicalFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsMinimumLogicalFontSize val = constructObjectPropertyCInt "minimum-logical-font-size" val + +data WebSettingsMinimumLogicalFontSizePropertyInfo +instance AttrInfo WebSettingsMinimumLogicalFontSizePropertyInfo where + type AttrAllowedOps WebSettingsMinimumLogicalFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMinimumLogicalFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsMinimumLogicalFontSizePropertyInfo = "WebSettings::minimum-logical-font-size" + attrGet _ = getWebSettingsMinimumLogicalFontSize + attrSet _ = setWebSettingsMinimumLogicalFontSize + attrConstruct _ = constructWebSettingsMinimumLogicalFontSize + +-- VVV Prop "monospace-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" + +setWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val + +constructWebSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val + +data WebSettingsMonospaceFontFamilyPropertyInfo +instance AttrInfo WebSettingsMonospaceFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsMonospaceFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsMonospaceFontFamilyPropertyInfo = "WebSettings::monospace-font-family" + attrGet _ = getWebSettingsMonospaceFontFamily + attrSet _ = setWebSettingsMonospaceFontFamily + attrConstruct _ = constructWebSettingsMonospaceFontFamily + +-- VVV Prop "print-backgrounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" + +setWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val + +constructWebSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) +constructWebSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val + +data WebSettingsPrintBackgroundsPropertyInfo +instance AttrInfo WebSettingsPrintBackgroundsPropertyInfo where + type AttrAllowedOps WebSettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsPrintBackgroundsPropertyInfo = Bool + type AttrLabel WebSettingsPrintBackgroundsPropertyInfo = "WebSettings::print-backgrounds" + attrGet _ = getWebSettingsPrintBackgrounds + attrSet _ = setWebSettingsPrintBackgrounds + attrConstruct _ = constructWebSettingsPrintBackgrounds + +-- VVV Prop "resizable-text-areas" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "resizable-text-areas" + +setWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "resizable-text-areas" val + +constructWebSettingsResizableTextAreas :: Bool -> IO ([Char], GValue) +constructWebSettingsResizableTextAreas val = constructObjectPropertyBool "resizable-text-areas" val + +data WebSettingsResizableTextAreasPropertyInfo +instance AttrInfo WebSettingsResizableTextAreasPropertyInfo where + type AttrAllowedOps WebSettingsResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsResizableTextAreasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsResizableTextAreasPropertyInfo = WebSettingsK + type AttrGetType WebSettingsResizableTextAreasPropertyInfo = Bool + type AttrLabel WebSettingsResizableTextAreasPropertyInfo = "WebSettings::resizable-text-areas" + attrGet _ = getWebSettingsResizableTextAreas + attrSet _ = setWebSettingsResizableTextAreas + attrConstruct _ = constructWebSettingsResizableTextAreas + +-- VVV Prop "respect-image-orientation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsRespectImageOrientation obj = liftIO $ getObjectPropertyBool obj "respect-image-orientation" + +setWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsRespectImageOrientation obj val = liftIO $ setObjectPropertyBool obj "respect-image-orientation" val + +constructWebSettingsRespectImageOrientation :: Bool -> IO ([Char], GValue) +constructWebSettingsRespectImageOrientation val = constructObjectPropertyBool "respect-image-orientation" val + +data WebSettingsRespectImageOrientationPropertyInfo +instance AttrInfo WebSettingsRespectImageOrientationPropertyInfo where + type AttrAllowedOps WebSettingsRespectImageOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = WebSettingsK + type AttrGetType WebSettingsRespectImageOrientationPropertyInfo = Bool + type AttrLabel WebSettingsRespectImageOrientationPropertyInfo = "WebSettings::respect-image-orientation" + attrGet _ = getWebSettingsRespectImageOrientation + attrSet _ = setWebSettingsRespectImageOrientation + attrConstruct _ = constructWebSettingsRespectImageOrientation + +-- VVV Prop "sans-serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" + +setWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val + +constructWebSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val + +data WebSettingsSansSerifFontFamilyPropertyInfo +instance AttrInfo WebSettingsSansSerifFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSansSerifFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsSansSerifFontFamilyPropertyInfo = "WebSettings::sans-serif-font-family" + attrGet _ = getWebSettingsSansSerifFontFamily + attrSet _ = setWebSettingsSansSerifFontFamily + attrConstruct _ = constructWebSettingsSansSerifFontFamily + +-- VVV Prop "serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" + +setWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val + +constructWebSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val + +data WebSettingsSerifFontFamilyPropertyInfo +instance AttrInfo WebSettingsSerifFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSerifFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsSerifFontFamilyPropertyInfo = "WebSettings::serif-font-family" + attrGet _ = getWebSettingsSerifFontFamily + attrSet _ = setWebSettingsSerifFontFamily + attrConstruct _ = constructWebSettingsSerifFontFamily + +-- VVV Prop "spell-checking-languages" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSpellCheckingLanguages obj = liftIO $ getObjectPropertyString obj "spell-checking-languages" + +setWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSpellCheckingLanguages obj val = liftIO $ setObjectPropertyString obj "spell-checking-languages" val + +constructWebSettingsSpellCheckingLanguages :: T.Text -> IO ([Char], GValue) +constructWebSettingsSpellCheckingLanguages val = constructObjectPropertyString "spell-checking-languages" val + +data WebSettingsSpellCheckingLanguagesPropertyInfo +instance AttrInfo WebSettingsSpellCheckingLanguagesPropertyInfo where + type AttrAllowedOps WebSettingsSpellCheckingLanguagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSpellCheckingLanguagesPropertyInfo = T.Text + type AttrLabel WebSettingsSpellCheckingLanguagesPropertyInfo = "WebSettings::spell-checking-languages" + attrGet _ = getWebSettingsSpellCheckingLanguages + attrSet _ = setWebSettingsSpellCheckingLanguages + attrConstruct _ = constructWebSettingsSpellCheckingLanguages + +-- VVV Prop "tab-key-cycles-through-elements" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsTabKeyCyclesThroughElements obj = liftIO $ getObjectPropertyBool obj "tab-key-cycles-through-elements" + +setWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsTabKeyCyclesThroughElements obj val = liftIO $ setObjectPropertyBool obj "tab-key-cycles-through-elements" val + +constructWebSettingsTabKeyCyclesThroughElements :: Bool -> IO ([Char], GValue) +constructWebSettingsTabKeyCyclesThroughElements val = constructObjectPropertyBool "tab-key-cycles-through-elements" val + +data WebSettingsTabKeyCyclesThroughElementsPropertyInfo +instance AttrInfo WebSettingsTabKeyCyclesThroughElementsPropertyInfo where + type AttrAllowedOps WebSettingsTabKeyCyclesThroughElementsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsTabKeyCyclesThroughElementsPropertyInfo = Bool + type AttrLabel WebSettingsTabKeyCyclesThroughElementsPropertyInfo = "WebSettings::tab-key-cycles-through-elements" + attrGet _ = getWebSettingsTabKeyCyclesThroughElements + attrSet _ = setWebSettingsTabKeyCyclesThroughElements + attrConstruct _ = constructWebSettingsTabKeyCyclesThroughElements + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +setWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val + +constructWebSettingsUserAgent :: T.Text -> IO ([Char], GValue) +constructWebSettingsUserAgent val = constructObjectPropertyString "user-agent" val + +data WebSettingsUserAgentPropertyInfo +instance AttrInfo WebSettingsUserAgentPropertyInfo where + type AttrAllowedOps WebSettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsUserAgentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsUserAgentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsUserAgentPropertyInfo = T.Text + type AttrLabel WebSettingsUserAgentPropertyInfo = "WebSettings::user-agent" + attrGet _ = getWebSettingsUserAgent + attrSet _ = setWebSettingsUserAgent + attrConstruct _ = constructWebSettingsUserAgent + +-- VVV Prop "user-stylesheet-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsUserStylesheetUri obj = liftIO $ getObjectPropertyString obj "user-stylesheet-uri" + +setWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsUserStylesheetUri obj val = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" val + +constructWebSettingsUserStylesheetUri :: T.Text -> IO ([Char], GValue) +constructWebSettingsUserStylesheetUri val = constructObjectPropertyString "user-stylesheet-uri" val + +data WebSettingsUserStylesheetUriPropertyInfo +instance AttrInfo WebSettingsUserStylesheetUriPropertyInfo where + type AttrAllowedOps WebSettingsUserStylesheetUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = WebSettingsK + type AttrGetType WebSettingsUserStylesheetUriPropertyInfo = T.Text + type AttrLabel WebSettingsUserStylesheetUriPropertyInfo = "WebSettings::user-stylesheet-uri" + attrGet _ = getWebSettingsUserStylesheetUri + attrSet _ = setWebSettingsUserStylesheetUri + attrConstruct _ = constructWebSettingsUserStylesheetUri + +-- VVV Prop "zoom-step" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> m Float +getWebSettingsZoomStep obj = liftIO $ getObjectPropertyFloat obj "zoom-step" + +setWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> Float -> m () +setWebSettingsZoomStep obj val = liftIO $ setObjectPropertyFloat obj "zoom-step" val + +constructWebSettingsZoomStep :: Float -> IO ([Char], GValue) +constructWebSettingsZoomStep val = constructObjectPropertyFloat "zoom-step" val + +data WebSettingsZoomStepPropertyInfo +instance AttrInfo WebSettingsZoomStepPropertyInfo where + type AttrAllowedOps WebSettingsZoomStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsZoomStepPropertyInfo = (~) Float + type AttrBaseTypeConstraint WebSettingsZoomStepPropertyInfo = WebSettingsK + type AttrGetType WebSettingsZoomStepPropertyInfo = Float + type AttrLabel WebSettingsZoomStepPropertyInfo = "WebSettings::zoom-step" + attrGet _ = getWebSettingsZoomStep + attrSet _ = setWebSettingsZoomStep + attrConstruct _ = constructWebSettingsZoomStep + +type instance AttributeList WebSettings = WebSettingsAttributeList +type WebSettingsAttributeList = ('[ '("auto-load-images", WebSettingsAutoLoadImagesPropertyInfo), '("auto-resize-window", WebSettingsAutoResizeWindowPropertyInfo), '("auto-shrink-images", WebSettingsAutoShrinkImagesPropertyInfo), '("cursive-font-family", WebSettingsCursiveFontFamilyPropertyInfo), '("default-encoding", WebSettingsDefaultEncodingPropertyInfo), '("default-font-family", WebSettingsDefaultFontFamilyPropertyInfo), '("default-font-size", WebSettingsDefaultFontSizePropertyInfo), '("default-monospace-font-size", WebSettingsDefaultMonospaceFontSizePropertyInfo), '("editing-behavior", WebSettingsEditingBehaviorPropertyInfo), '("enable-accelerated-compositing", WebSettingsEnableAcceleratedCompositingPropertyInfo), '("enable-caret-browsing", WebSettingsEnableCaretBrowsingPropertyInfo), '("enable-default-context-menu", WebSettingsEnableDefaultContextMenuPropertyInfo), '("enable-developer-extras", WebSettingsEnableDeveloperExtrasPropertyInfo), '("enable-display-of-insecure-content", WebSettingsEnableDisplayOfInsecureContentPropertyInfo), '("enable-dns-prefetching", WebSettingsEnableDnsPrefetchingPropertyInfo), '("enable-dom-paste", WebSettingsEnableDomPastePropertyInfo), '("enable-file-access-from-file-uris", WebSettingsEnableFileAccessFromFileUrisPropertyInfo), '("enable-frame-flattening", WebSettingsEnableFrameFlatteningPropertyInfo), '("enable-fullscreen", WebSettingsEnableFullscreenPropertyInfo), '("enable-html5-database", WebSettingsEnableHtml5DatabasePropertyInfo), '("enable-html5-local-storage", WebSettingsEnableHtml5LocalStoragePropertyInfo), '("enable-hyperlink-auditing", WebSettingsEnableHyperlinkAuditingPropertyInfo), '("enable-java-applet", WebSettingsEnableJavaAppletPropertyInfo), '("enable-media-stream", WebSettingsEnableMediaStreamPropertyInfo), '("enable-mediasource", WebSettingsEnableMediasourcePropertyInfo), '("enable-offline-web-application-cache", WebSettingsEnableOfflineWebApplicationCachePropertyInfo), '("enable-page-cache", WebSettingsEnablePageCachePropertyInfo), '("enable-plugins", WebSettingsEnablePluginsPropertyInfo), '("enable-private-browsing", WebSettingsEnablePrivateBrowsingPropertyInfo), '("enable-running-of-insecure-content", WebSettingsEnableRunningOfInsecureContentPropertyInfo), '("enable-scripts", WebSettingsEnableScriptsPropertyInfo), '("enable-site-specific-quirks", WebSettingsEnableSiteSpecificQuirksPropertyInfo), '("enable-smooth-scrolling", WebSettingsEnableSmoothScrollingPropertyInfo), '("enable-spatial-navigation", WebSettingsEnableSpatialNavigationPropertyInfo), '("enable-spell-checking", WebSettingsEnableSpellCheckingPropertyInfo), '("enable-universal-access-from-file-uris", WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo), '("enable-webaudio", WebSettingsEnableWebaudioPropertyInfo), '("enable-webgl", WebSettingsEnableWebglPropertyInfo), '("enable-xss-auditor", WebSettingsEnableXssAuditorPropertyInfo), '("enforce-96-dpi", WebSettingsEnforce96DpiPropertyInfo), '("fantasy-font-family", WebSettingsFantasyFontFamilyPropertyInfo), '("html5-local-storage-database-path", WebSettingsHtml5LocalStorageDatabasePathPropertyInfo), '("javascript-can-access-clipboard", WebSettingsJavascriptCanAccessClipboardPropertyInfo), '("javascript-can-open-windows-automatically", WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("media-playback-allows-inline", WebSettingsMediaPlaybackAllowsInlinePropertyInfo), '("media-playback-requires-user-gesture", WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimum-font-size", WebSettingsMinimumFontSizePropertyInfo), '("minimum-logical-font-size", WebSettingsMinimumLogicalFontSizePropertyInfo), '("monospace-font-family", WebSettingsMonospaceFontFamilyPropertyInfo), '("print-backgrounds", WebSettingsPrintBackgroundsPropertyInfo), '("resizable-text-areas", WebSettingsResizableTextAreasPropertyInfo), '("respect-image-orientation", WebSettingsRespectImageOrientationPropertyInfo), '("sans-serif-font-family", WebSettingsSansSerifFontFamilyPropertyInfo), '("serif-font-family", WebSettingsSerifFontFamilyPropertyInfo), '("spell-checking-languages", WebSettingsSpellCheckingLanguagesPropertyInfo), '("tab-key-cycles-through-elements", WebSettingsTabKeyCyclesThroughElementsPropertyInfo), '("user-agent", WebSettingsUserAgentPropertyInfo), '("user-stylesheet-uri", WebSettingsUserStylesheetUriPropertyInfo), '("zoom-step", WebSettingsZoomStepPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebSettings = WebSettingsSignalList +type WebSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebSettings::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebSettings" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_settings_new" webkit_web_settings_new :: + IO (Ptr WebSettings) + + +webSettingsNew :: + (MonadIO m) => + m WebSettings +webSettingsNew = liftIO $ do + result <- webkit_web_settings_new + checkUnexpectedReturnNULL "webkit_web_settings_new" result + result' <- (wrapObject WebSettings) result + return result' + +-- method WebSettings::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebSettings" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_settings_copy" webkit_web_settings_copy :: + Ptr WebSettings -> -- _obj : TInterface "WebKit" "WebSettings" + IO (Ptr WebSettings) + + +webSettingsCopy :: + (MonadIO m, WebSettingsK a) => + a -> -- _obj + m WebSettings +webSettingsCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_settings_copy _obj' + checkUnexpectedReturnNULL "webkit_web_settings_copy" result + result' <- (wrapObject WebSettings) result + touchManagedPtr _obj + return result' + +-- method WebSettings::get_user_agent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_settings_get_user_agent" webkit_web_settings_get_user_agent :: + Ptr WebSettings -> -- _obj : TInterface "WebKit" "WebSettings" + IO CString + + +webSettingsGetUserAgent :: + (MonadIO m, WebSettingsK a) => + a -> -- _obj + m T.Text +webSettingsGetUserAgent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_settings_get_user_agent _obj' + checkUnexpectedReturnNULL "webkit_web_settings_get_user_agent" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + + diff --git a/GI/WebKit/Objects/WebSettings.hs-boot b/GI/WebKit/Objects/WebSettings.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebSettings.hs-boot @@ -0,0 +1,72 @@ +module GI.WebKit.Objects.WebSettings where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebSettings = WebSettings (ForeignPtr WebSettings) +instance GObject WebSettings where +class GObject o => WebSettingsK o +instance (GObject o, IsDescendantOf WebSettings o) => WebSettingsK o +data WebSettingsAutoLoadImagesPropertyInfo +data WebSettingsAutoResizeWindowPropertyInfo +data WebSettingsAutoShrinkImagesPropertyInfo +data WebSettingsCursiveFontFamilyPropertyInfo +data WebSettingsDefaultEncodingPropertyInfo +data WebSettingsDefaultFontFamilyPropertyInfo +data WebSettingsDefaultFontSizePropertyInfo +data WebSettingsDefaultMonospaceFontSizePropertyInfo +data WebSettingsEditingBehaviorPropertyInfo +data WebSettingsEnableAcceleratedCompositingPropertyInfo +data WebSettingsEnableCaretBrowsingPropertyInfo +data WebSettingsEnableDefaultContextMenuPropertyInfo +data WebSettingsEnableDeveloperExtrasPropertyInfo +data WebSettingsEnableDisplayOfInsecureContentPropertyInfo +data WebSettingsEnableDnsPrefetchingPropertyInfo +data WebSettingsEnableDomPastePropertyInfo +data WebSettingsEnableFileAccessFromFileUrisPropertyInfo +data WebSettingsEnableFrameFlatteningPropertyInfo +data WebSettingsEnableFullscreenPropertyInfo +data WebSettingsEnableHtml5DatabasePropertyInfo +data WebSettingsEnableHtml5LocalStoragePropertyInfo +data WebSettingsEnableHyperlinkAuditingPropertyInfo +data WebSettingsEnableJavaAppletPropertyInfo +data WebSettingsEnableMediaStreamPropertyInfo +data WebSettingsEnableMediasourcePropertyInfo +data WebSettingsEnableOfflineWebApplicationCachePropertyInfo +data WebSettingsEnablePageCachePropertyInfo +data WebSettingsEnablePluginsPropertyInfo +data WebSettingsEnablePrivateBrowsingPropertyInfo +data WebSettingsEnableRunningOfInsecureContentPropertyInfo +data WebSettingsEnableScriptsPropertyInfo +data WebSettingsEnableSiteSpecificQuirksPropertyInfo +data WebSettingsEnableSmoothScrollingPropertyInfo +data WebSettingsEnableSpatialNavigationPropertyInfo +data WebSettingsEnableSpellCheckingPropertyInfo +data WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo +data WebSettingsEnableWebaudioPropertyInfo +data WebSettingsEnableWebglPropertyInfo +data WebSettingsEnableXssAuditorPropertyInfo +data WebSettingsEnforce96DpiPropertyInfo +data WebSettingsFantasyFontFamilyPropertyInfo +data WebSettingsHtml5LocalStorageDatabasePathPropertyInfo +data WebSettingsJavascriptCanAccessClipboardPropertyInfo +data WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo +data WebSettingsMediaPlaybackAllowsInlinePropertyInfo +data WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo +data WebSettingsMinimumFontSizePropertyInfo +data WebSettingsMinimumLogicalFontSizePropertyInfo +data WebSettingsMonospaceFontFamilyPropertyInfo +data WebSettingsPrintBackgroundsPropertyInfo +data WebSettingsResizableTextAreasPropertyInfo +data WebSettingsRespectImageOrientationPropertyInfo +data WebSettingsSansSerifFontFamilyPropertyInfo +data WebSettingsSerifFontFamilyPropertyInfo +data WebSettingsSpellCheckingLanguagesPropertyInfo +data WebSettingsTabKeyCyclesThroughElementsPropertyInfo +data WebSettingsUserAgentPropertyInfo +data WebSettingsUserStylesheetUriPropertyInfo +data WebSettingsZoomStepPropertyInfo diff --git a/GI/WebKit/Objects/WebView.hs b/GI/WebKit/Objects/WebView.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebView.hs @@ -0,0 +1,6647 @@ + +{- | +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.WebKit.Objects.WebView + ( + +-- * Exported types + WebView(..) , + WebViewK , + toWebView , + noWebView , + + + -- * Methods +-- ** webViewCanCopyClipboard + webViewCanCopyClipboard , + + +-- ** webViewCanCutClipboard + webViewCanCutClipboard , + + +-- ** webViewCanGoBack + webViewCanGoBack , + + +-- ** webViewCanGoBackOrForward + webViewCanGoBackOrForward , + + +-- ** webViewCanGoForward + webViewCanGoForward , + + +-- ** webViewCanPasteClipboard + webViewCanPasteClipboard , + + +-- ** webViewCanRedo + webViewCanRedo , + + +-- ** webViewCanShowMimeType + webViewCanShowMimeType , + + +-- ** webViewCanUndo + webViewCanUndo , + + +-- ** webViewCopyClipboard + webViewCopyClipboard , + + +-- ** webViewCutClipboard + webViewCutClipboard , + + +-- ** webViewDeleteSelection + webViewDeleteSelection , + + +-- ** webViewExecuteScript + webViewExecuteScript , + + +-- ** webViewGetBackForwardList + webViewGetBackForwardList , + + +-- ** webViewGetCopyTargetList + webViewGetCopyTargetList , + + +-- ** webViewGetCustomEncoding + webViewGetCustomEncoding , + + +-- ** webViewGetDomDocument + webViewGetDomDocument , + + +-- ** webViewGetEditable + webViewGetEditable , + + +-- ** webViewGetEncoding + webViewGetEncoding , + + +-- ** webViewGetFocusedFrame + webViewGetFocusedFrame , + + +-- ** webViewGetFullContentZoom + webViewGetFullContentZoom , + + +-- ** webViewGetHitTestResult + webViewGetHitTestResult , + + +-- ** webViewGetIconPixbuf + webViewGetIconPixbuf , + + +-- ** webViewGetIconUri + webViewGetIconUri , + + +-- ** webViewGetInspector + webViewGetInspector , + + +-- ** webViewGetLoadStatus + webViewGetLoadStatus , + + +-- ** webViewGetMainFrame + webViewGetMainFrame , + + +-- ** webViewGetPasteTargetList + webViewGetPasteTargetList , + + +-- ** webViewGetProgress + webViewGetProgress , + + +-- ** webViewGetSettings + webViewGetSettings , + + +-- ** webViewGetSnapshot + webViewGetSnapshot , + + +-- ** webViewGetTitle + webViewGetTitle , + + +-- ** webViewGetTransparent + webViewGetTransparent , + + +-- ** webViewGetUri + webViewGetUri , + + +-- ** webViewGetViewMode + webViewGetViewMode , + + +-- ** webViewGetViewSourceMode + webViewGetViewSourceMode , + + +-- ** webViewGetViewportAttributes + webViewGetViewportAttributes , + + +-- ** webViewGetWindowFeatures + webViewGetWindowFeatures , + + +-- ** webViewGetZoomLevel + webViewGetZoomLevel , + + +-- ** webViewGoBack + webViewGoBack , + + +-- ** webViewGoBackOrForward + webViewGoBackOrForward , + + +-- ** webViewGoForward + webViewGoForward , + + +-- ** webViewGoToBackForwardItem + webViewGoToBackForwardItem , + + +-- ** webViewHasSelection + webViewHasSelection , + + +-- ** webViewLoadHtmlString + webViewLoadHtmlString , + + +-- ** webViewLoadRequest + webViewLoadRequest , + + +-- ** webViewLoadString + webViewLoadString , + + +-- ** webViewLoadUri + webViewLoadUri , + + +-- ** webViewMarkTextMatches + webViewMarkTextMatches , + + +-- ** webViewMoveCursor + webViewMoveCursor , + + +-- ** webViewNew + webViewNew , + + +-- ** webViewOpen + webViewOpen , + + +-- ** webViewPasteClipboard + webViewPasteClipboard , + + +-- ** webViewRedo + webViewRedo , + + +-- ** webViewReload + webViewReload , + + +-- ** webViewReloadBypassCache + webViewReloadBypassCache , + + +-- ** webViewSearchText + webViewSearchText , + + +-- ** webViewSelectAll + webViewSelectAll , + + +-- ** webViewSetCustomEncoding + webViewSetCustomEncoding , + + +-- ** webViewSetEditable + webViewSetEditable , + + +-- ** webViewSetFullContentZoom + webViewSetFullContentZoom , + + +-- ** webViewSetHighlightTextMatches + webViewSetHighlightTextMatches , + + +-- ** webViewSetMaintainsBackForwardList + webViewSetMaintainsBackForwardList , + + +-- ** webViewSetSettings + webViewSetSettings , + + +-- ** webViewSetTransparent + webViewSetTransparent , + + +-- ** webViewSetViewMode + webViewSetViewMode , + + +-- ** webViewSetViewSourceMode + webViewSetViewSourceMode , + + +-- ** webViewSetZoomLevel + webViewSetZoomLevel , + + +-- ** webViewStopLoading + webViewStopLoading , + + +-- ** webViewTryGetFaviconPixbuf + webViewTryGetFaviconPixbuf , + + +-- ** webViewUndo + webViewUndo , + + +-- ** webViewUnmarkTextMatches + webViewUnmarkTextMatches , + + +-- ** webViewZoomIn + webViewZoomIn , + + +-- ** webViewZoomOut + webViewZoomOut , + + + + + -- * Properties +-- ** CopyTargetList + WebViewCopyTargetListPropertyInfo , + getWebViewCopyTargetList , + + +-- ** CustomEncoding + WebViewCustomEncodingPropertyInfo , + constructWebViewCustomEncoding , + getWebViewCustomEncoding , + setWebViewCustomEncoding , + + +-- ** Editable + WebViewEditablePropertyInfo , + constructWebViewEditable , + getWebViewEditable , + setWebViewEditable , + + +-- ** Encoding + WebViewEncodingPropertyInfo , + getWebViewEncoding , + + +-- ** FullContentZoom + WebViewFullContentZoomPropertyInfo , + constructWebViewFullContentZoom , + getWebViewFullContentZoom , + setWebViewFullContentZoom , + + +-- ** IconUri + WebViewIconUriPropertyInfo , + getWebViewIconUri , + + +-- ** ImContext + WebViewImContextPropertyInfo , + getWebViewImContext , + + +-- ** LoadStatus + WebViewLoadStatusPropertyInfo , + getWebViewLoadStatus , + + +-- ** PasteTargetList + WebViewPasteTargetListPropertyInfo , + getWebViewPasteTargetList , + + +-- ** Progress + WebViewProgressPropertyInfo , + getWebViewProgress , + + +-- ** SelfScrolling + WebViewSelfScrollingPropertyInfo , + constructWebViewSelfScrolling , + getWebViewSelfScrolling , + + +-- ** Settings + WebViewSettingsPropertyInfo , + constructWebViewSettings , + getWebViewSettings , + setWebViewSettings , + + +-- ** Title + WebViewTitlePropertyInfo , + getWebViewTitle , + + +-- ** Transparent + WebViewTransparentPropertyInfo , + constructWebViewTransparent , + getWebViewTransparent , + setWebViewTransparent , + + +-- ** Uri + WebViewUriPropertyInfo , + getWebViewUri , + + +-- ** ViewMode + WebViewViewModePropertyInfo , + constructWebViewViewMode , + getWebViewViewMode , + setWebViewViewMode , + + +-- ** ViewportAttributes + WebViewViewportAttributesPropertyInfo , + getWebViewViewportAttributes , + + +-- ** WebInspector + WebViewWebInspectorPropertyInfo , + getWebViewWebInspector , + + +-- ** WindowFeatures + WebViewWindowFeaturesPropertyInfo , + constructWebViewWindowFeatures , + getWebViewWindowFeatures , + setWebViewWindowFeatures , + + +-- ** ZoomLevel + WebViewZoomLevelPropertyInfo , + constructWebViewZoomLevel , + getWebViewZoomLevel , + setWebViewZoomLevel , + + + + + -- * Signals +-- ** CloseWebView + WebViewCloseWebViewCallback , + WebViewCloseWebViewCallbackC , + WebViewCloseWebViewSignalInfo , + afterWebViewCloseWebView , + mkWebViewCloseWebViewCallback , + noWebViewCloseWebViewCallback , + onWebViewCloseWebView , + webViewCloseWebViewCallbackWrapper , + webViewCloseWebViewClosure , + + +-- ** ConsoleMessage + WebViewConsoleMessageCallback , + WebViewConsoleMessageCallbackC , + WebViewConsoleMessageSignalInfo , + afterWebViewConsoleMessage , + mkWebViewConsoleMessageCallback , + noWebViewConsoleMessageCallback , + onWebViewConsoleMessage , + webViewConsoleMessageCallbackWrapper , + webViewConsoleMessageClosure , + + +-- ** ContextMenu + WebViewContextMenuCallback , + WebViewContextMenuCallbackC , + WebViewContextMenuSignalInfo , + afterWebViewContextMenu , + mkWebViewContextMenuCallback , + noWebViewContextMenuCallback , + onWebViewContextMenu , + webViewContextMenuCallbackWrapper , + webViewContextMenuClosure , + + +-- ** CopyClipboard + WebViewCopyClipboardCallback , + WebViewCopyClipboardCallbackC , + WebViewCopyClipboardSignalInfo , + afterWebViewCopyClipboard , + mkWebViewCopyClipboardCallback , + noWebViewCopyClipboardCallback , + onWebViewCopyClipboard , + webViewCopyClipboardCallbackWrapper , + webViewCopyClipboardClosure , + + +-- ** CreatePluginWidget + WebViewCreatePluginWidgetCallback , + WebViewCreatePluginWidgetCallbackC , + WebViewCreatePluginWidgetSignalInfo , + afterWebViewCreatePluginWidget , + mkWebViewCreatePluginWidgetCallback , + noWebViewCreatePluginWidgetCallback , + onWebViewCreatePluginWidget , + webViewCreatePluginWidgetCallbackWrapper, + webViewCreatePluginWidgetClosure , + + +-- ** CreateWebView + WebViewCreateWebViewCallback , + WebViewCreateWebViewCallbackC , + WebViewCreateWebViewSignalInfo , + afterWebViewCreateWebView , + mkWebViewCreateWebViewCallback , + noWebViewCreateWebViewCallback , + onWebViewCreateWebView , + webViewCreateWebViewCallbackWrapper , + webViewCreateWebViewClosure , + + +-- ** CutClipboard + WebViewCutClipboardCallback , + WebViewCutClipboardCallbackC , + WebViewCutClipboardSignalInfo , + afterWebViewCutClipboard , + mkWebViewCutClipboardCallback , + noWebViewCutClipboardCallback , + onWebViewCutClipboard , + webViewCutClipboardCallbackWrapper , + webViewCutClipboardClosure , + + +-- ** DatabaseQuotaExceeded + WebViewDatabaseQuotaExceededCallback , + WebViewDatabaseQuotaExceededCallbackC , + WebViewDatabaseQuotaExceededSignalInfo , + afterWebViewDatabaseQuotaExceeded , + mkWebViewDatabaseQuotaExceededCallback , + noWebViewDatabaseQuotaExceededCallback , + onWebViewDatabaseQuotaExceeded , + webViewDatabaseQuotaExceededCallbackWrapper, + webViewDatabaseQuotaExceededClosure , + + +-- ** DocumentLoadFinished + WebViewDocumentLoadFinishedCallback , + WebViewDocumentLoadFinishedCallbackC , + WebViewDocumentLoadFinishedSignalInfo , + afterWebViewDocumentLoadFinished , + mkWebViewDocumentLoadFinishedCallback , + noWebViewDocumentLoadFinishedCallback , + onWebViewDocumentLoadFinished , + webViewDocumentLoadFinishedCallbackWrapper, + webViewDocumentLoadFinishedClosure , + + +-- ** DownloadRequested + WebViewDownloadRequestedCallback , + WebViewDownloadRequestedCallbackC , + WebViewDownloadRequestedSignalInfo , + afterWebViewDownloadRequested , + mkWebViewDownloadRequestedCallback , + noWebViewDownloadRequestedCallback , + onWebViewDownloadRequested , + webViewDownloadRequestedCallbackWrapper , + webViewDownloadRequestedClosure , + + +-- ** EditingBegan + WebViewEditingBeganCallback , + WebViewEditingBeganCallbackC , + WebViewEditingBeganSignalInfo , + afterWebViewEditingBegan , + mkWebViewEditingBeganCallback , + noWebViewEditingBeganCallback , + onWebViewEditingBegan , + webViewEditingBeganCallbackWrapper , + webViewEditingBeganClosure , + + +-- ** EditingEnded + WebViewEditingEndedCallback , + WebViewEditingEndedCallbackC , + WebViewEditingEndedSignalInfo , + afterWebViewEditingEnded , + mkWebViewEditingEndedCallback , + noWebViewEditingEndedCallback , + onWebViewEditingEnded , + webViewEditingEndedCallbackWrapper , + webViewEditingEndedClosure , + + +-- ** EnteringFullscreen + WebViewEnteringFullscreenCallback , + WebViewEnteringFullscreenCallbackC , + WebViewEnteringFullscreenSignalInfo , + afterWebViewEnteringFullscreen , + mkWebViewEnteringFullscreenCallback , + noWebViewEnteringFullscreenCallback , + onWebViewEnteringFullscreen , + webViewEnteringFullscreenCallbackWrapper, + webViewEnteringFullscreenClosure , + + +-- ** FrameCreated + WebViewFrameCreatedCallback , + WebViewFrameCreatedCallbackC , + WebViewFrameCreatedSignalInfo , + afterWebViewFrameCreated , + mkWebViewFrameCreatedCallback , + noWebViewFrameCreatedCallback , + onWebViewFrameCreated , + webViewFrameCreatedCallbackWrapper , + webViewFrameCreatedClosure , + + +-- ** GeolocationPolicyDecisionCancelled + WebViewGeolocationPolicyDecisionCancelledCallback, + WebViewGeolocationPolicyDecisionCancelledCallbackC, + WebViewGeolocationPolicyDecisionCancelledSignalInfo, + afterWebViewGeolocationPolicyDecisionCancelled, + mkWebViewGeolocationPolicyDecisionCancelledCallback, + noWebViewGeolocationPolicyDecisionCancelledCallback, + onWebViewGeolocationPolicyDecisionCancelled, + webViewGeolocationPolicyDecisionCancelledCallbackWrapper, + webViewGeolocationPolicyDecisionCancelledClosure, + + +-- ** GeolocationPolicyDecisionRequested + WebViewGeolocationPolicyDecisionRequestedCallback, + WebViewGeolocationPolicyDecisionRequestedCallbackC, + WebViewGeolocationPolicyDecisionRequestedSignalInfo, + afterWebViewGeolocationPolicyDecisionRequested, + mkWebViewGeolocationPolicyDecisionRequestedCallback, + noWebViewGeolocationPolicyDecisionRequestedCallback, + onWebViewGeolocationPolicyDecisionRequested, + webViewGeolocationPolicyDecisionRequestedCallbackWrapper, + webViewGeolocationPolicyDecisionRequestedClosure, + + +-- ** HoveringOverLink + WebViewHoveringOverLinkCallback , + WebViewHoveringOverLinkCallbackC , + WebViewHoveringOverLinkSignalInfo , + afterWebViewHoveringOverLink , + mkWebViewHoveringOverLinkCallback , + noWebViewHoveringOverLinkCallback , + onWebViewHoveringOverLink , + webViewHoveringOverLinkCallbackWrapper , + webViewHoveringOverLinkClosure , + + +-- ** IconLoaded + WebViewIconLoadedCallback , + WebViewIconLoadedCallbackC , + WebViewIconLoadedSignalInfo , + afterWebViewIconLoaded , + mkWebViewIconLoadedCallback , + noWebViewIconLoadedCallback , + onWebViewIconLoaded , + webViewIconLoadedCallbackWrapper , + webViewIconLoadedClosure , + + +-- ** LeavingFullscreen + WebViewLeavingFullscreenCallback , + WebViewLeavingFullscreenCallbackC , + WebViewLeavingFullscreenSignalInfo , + afterWebViewLeavingFullscreen , + mkWebViewLeavingFullscreenCallback , + noWebViewLeavingFullscreenCallback , + onWebViewLeavingFullscreen , + webViewLeavingFullscreenCallbackWrapper , + webViewLeavingFullscreenClosure , + + +-- ** LoadCommitted + WebViewLoadCommittedCallback , + WebViewLoadCommittedCallbackC , + WebViewLoadCommittedSignalInfo , + afterWebViewLoadCommitted , + mkWebViewLoadCommittedCallback , + noWebViewLoadCommittedCallback , + onWebViewLoadCommitted , + webViewLoadCommittedCallbackWrapper , + webViewLoadCommittedClosure , + + +-- ** LoadError + WebViewLoadErrorCallback , + WebViewLoadErrorCallbackC , + WebViewLoadErrorSignalInfo , + afterWebViewLoadError , + mkWebViewLoadErrorCallback , + noWebViewLoadErrorCallback , + onWebViewLoadError , + webViewLoadErrorCallbackWrapper , + webViewLoadErrorClosure , + + +-- ** LoadFinished + WebViewLoadFinishedCallback , + WebViewLoadFinishedCallbackC , + WebViewLoadFinishedSignalInfo , + afterWebViewLoadFinished , + mkWebViewLoadFinishedCallback , + noWebViewLoadFinishedCallback , + onWebViewLoadFinished , + webViewLoadFinishedCallbackWrapper , + webViewLoadFinishedClosure , + + +-- ** LoadProgressChanged + WebViewLoadProgressChangedCallback , + WebViewLoadProgressChangedCallbackC , + WebViewLoadProgressChangedSignalInfo , + afterWebViewLoadProgressChanged , + mkWebViewLoadProgressChangedCallback , + noWebViewLoadProgressChangedCallback , + onWebViewLoadProgressChanged , + webViewLoadProgressChangedCallbackWrapper, + webViewLoadProgressChangedClosure , + + +-- ** LoadStarted + WebViewLoadStartedCallback , + WebViewLoadStartedCallbackC , + WebViewLoadStartedSignalInfo , + afterWebViewLoadStarted , + mkWebViewLoadStartedCallback , + noWebViewLoadStartedCallback , + onWebViewLoadStarted , + webViewLoadStartedCallbackWrapper , + webViewLoadStartedClosure , + + +-- ** MimeTypePolicyDecisionRequested + WebViewMimeTypePolicyDecisionRequestedCallback, + WebViewMimeTypePolicyDecisionRequestedCallbackC, + WebViewMimeTypePolicyDecisionRequestedSignalInfo, + afterWebViewMimeTypePolicyDecisionRequested, + mkWebViewMimeTypePolicyDecisionRequestedCallback, + noWebViewMimeTypePolicyDecisionRequestedCallback, + onWebViewMimeTypePolicyDecisionRequested, + webViewMimeTypePolicyDecisionRequestedCallbackWrapper, + webViewMimeTypePolicyDecisionRequestedClosure, + + +-- ** MoveCursor + WebViewMoveCursorCallback , + WebViewMoveCursorCallbackC , + WebViewMoveCursorSignalInfo , + afterWebViewMoveCursor , + mkWebViewMoveCursorCallback , + noWebViewMoveCursorCallback , + onWebViewMoveCursor , + webViewMoveCursorCallbackWrapper , + webViewMoveCursorClosure , + + +-- ** NavigationPolicyDecisionRequested + WebViewNavigationPolicyDecisionRequestedCallback, + WebViewNavigationPolicyDecisionRequestedCallbackC, + WebViewNavigationPolicyDecisionRequestedSignalInfo, + afterWebViewNavigationPolicyDecisionRequested, + mkWebViewNavigationPolicyDecisionRequestedCallback, + noWebViewNavigationPolicyDecisionRequestedCallback, + onWebViewNavigationPolicyDecisionRequested, + webViewNavigationPolicyDecisionRequestedCallbackWrapper, + webViewNavigationPolicyDecisionRequestedClosure, + + +-- ** NavigationRequested + WebViewNavigationRequestedCallback , + WebViewNavigationRequestedCallbackC , + WebViewNavigationRequestedSignalInfo , + afterWebViewNavigationRequested , + mkWebViewNavigationRequestedCallback , + noWebViewNavigationRequestedCallback , + onWebViewNavigationRequested , + webViewNavigationRequestedCallbackWrapper, + webViewNavigationRequestedClosure , + + +-- ** NewWindowPolicyDecisionRequested + WebViewNewWindowPolicyDecisionRequestedCallback, + WebViewNewWindowPolicyDecisionRequestedCallbackC, + WebViewNewWindowPolicyDecisionRequestedSignalInfo, + afterWebViewNewWindowPolicyDecisionRequested, + mkWebViewNewWindowPolicyDecisionRequestedCallback, + noWebViewNewWindowPolicyDecisionRequestedCallback, + onWebViewNewWindowPolicyDecisionRequested, + webViewNewWindowPolicyDecisionRequestedCallbackWrapper, + webViewNewWindowPolicyDecisionRequestedClosure, + + +-- ** OnloadEvent + WebViewOnloadEventCallback , + WebViewOnloadEventCallbackC , + WebViewOnloadEventSignalInfo , + afterWebViewOnloadEvent , + mkWebViewOnloadEventCallback , + noWebViewOnloadEventCallback , + onWebViewOnloadEvent , + webViewOnloadEventCallbackWrapper , + webViewOnloadEventClosure , + + +-- ** PasteClipboard + WebViewPasteClipboardCallback , + WebViewPasteClipboardCallbackC , + WebViewPasteClipboardSignalInfo , + afterWebViewPasteClipboard , + mkWebViewPasteClipboardCallback , + noWebViewPasteClipboardCallback , + onWebViewPasteClipboard , + webViewPasteClipboardCallbackWrapper , + webViewPasteClipboardClosure , + + +-- ** PopulatePopup + WebViewPopulatePopupCallback , + WebViewPopulatePopupCallbackC , + WebViewPopulatePopupSignalInfo , + afterWebViewPopulatePopup , + mkWebViewPopulatePopupCallback , + noWebViewPopulatePopupCallback , + onWebViewPopulatePopup , + webViewPopulatePopupCallbackWrapper , + webViewPopulatePopupClosure , + + +-- ** PrintRequested + WebViewPrintRequestedCallback , + WebViewPrintRequestedCallbackC , + WebViewPrintRequestedSignalInfo , + afterWebViewPrintRequested , + mkWebViewPrintRequestedCallback , + noWebViewPrintRequestedCallback , + onWebViewPrintRequested , + webViewPrintRequestedCallbackWrapper , + webViewPrintRequestedClosure , + + +-- ** Redo + WebViewRedoCallback , + WebViewRedoCallbackC , + WebViewRedoSignalInfo , + afterWebViewRedo , + mkWebViewRedoCallback , + noWebViewRedoCallback , + onWebViewRedo , + webViewRedoCallbackWrapper , + webViewRedoClosure , + + +-- ** ResourceContentLengthReceived + WebViewResourceContentLengthReceivedCallback, + WebViewResourceContentLengthReceivedCallbackC, + WebViewResourceContentLengthReceivedSignalInfo, + afterWebViewResourceContentLengthReceived, + mkWebViewResourceContentLengthReceivedCallback, + noWebViewResourceContentLengthReceivedCallback, + onWebViewResourceContentLengthReceived , + webViewResourceContentLengthReceivedCallbackWrapper, + webViewResourceContentLengthReceivedClosure, + + +-- ** ResourceLoadFailed + WebViewResourceLoadFailedCallback , + WebViewResourceLoadFailedCallbackC , + WebViewResourceLoadFailedSignalInfo , + afterWebViewResourceLoadFailed , + mkWebViewResourceLoadFailedCallback , + noWebViewResourceLoadFailedCallback , + onWebViewResourceLoadFailed , + webViewResourceLoadFailedCallbackWrapper, + webViewResourceLoadFailedClosure , + + +-- ** ResourceLoadFinished + WebViewResourceLoadFinishedCallback , + WebViewResourceLoadFinishedCallbackC , + WebViewResourceLoadFinishedSignalInfo , + afterWebViewResourceLoadFinished , + mkWebViewResourceLoadFinishedCallback , + noWebViewResourceLoadFinishedCallback , + onWebViewResourceLoadFinished , + webViewResourceLoadFinishedCallbackWrapper, + webViewResourceLoadFinishedClosure , + + +-- ** ResourceRequestStarting + WebViewResourceRequestStartingCallback , + WebViewResourceRequestStartingCallbackC , + WebViewResourceRequestStartingSignalInfo, + afterWebViewResourceRequestStarting , + mkWebViewResourceRequestStartingCallback, + noWebViewResourceRequestStartingCallback, + onWebViewResourceRequestStarting , + webViewResourceRequestStartingCallbackWrapper, + webViewResourceRequestStartingClosure , + + +-- ** ResourceResponseReceived + WebViewResourceResponseReceivedCallback , + WebViewResourceResponseReceivedCallbackC, + WebViewResourceResponseReceivedSignalInfo, + afterWebViewResourceResponseReceived , + mkWebViewResourceResponseReceivedCallback, + noWebViewResourceResponseReceivedCallback, + onWebViewResourceResponseReceived , + webViewResourceResponseReceivedCallbackWrapper, + webViewResourceResponseReceivedClosure , + + +-- ** RunFileChooser + WebViewRunFileChooserCallback , + WebViewRunFileChooserCallbackC , + WebViewRunFileChooserSignalInfo , + afterWebViewRunFileChooser , + mkWebViewRunFileChooserCallback , + noWebViewRunFileChooserCallback , + onWebViewRunFileChooser , + webViewRunFileChooserCallbackWrapper , + webViewRunFileChooserClosure , + + +-- ** ScriptAlert + WebViewScriptAlertCallback , + WebViewScriptAlertCallbackC , + WebViewScriptAlertSignalInfo , + afterWebViewScriptAlert , + mkWebViewScriptAlertCallback , + noWebViewScriptAlertCallback , + onWebViewScriptAlert , + webViewScriptAlertCallbackWrapper , + webViewScriptAlertClosure , + + +-- ** ScriptConfirm + WebViewScriptConfirmCallback , + WebViewScriptConfirmCallbackC , + WebViewScriptConfirmSignalInfo , + afterWebViewScriptConfirm , + mkWebViewScriptConfirmCallback , + noWebViewScriptConfirmCallback , + onWebViewScriptConfirm , + webViewScriptConfirmCallbackWrapper , + webViewScriptConfirmClosure , + + +-- ** ScriptPrompt + WebViewScriptPromptCallback , + WebViewScriptPromptCallbackC , + WebViewScriptPromptSignalInfo , + afterWebViewScriptPrompt , + mkWebViewScriptPromptCallback , + noWebViewScriptPromptCallback , + onWebViewScriptPrompt , + webViewScriptPromptCallbackWrapper , + webViewScriptPromptClosure , + + +-- ** SelectAll + WebViewSelectAllCallback , + WebViewSelectAllCallbackC , + WebViewSelectAllSignalInfo , + afterWebViewSelectAll , + mkWebViewSelectAllCallback , + noWebViewSelectAllCallback , + onWebViewSelectAll , + webViewSelectAllCallbackWrapper , + webViewSelectAllClosure , + + +-- ** SelectionChanged + WebViewSelectionChangedCallback , + WebViewSelectionChangedCallbackC , + WebViewSelectionChangedSignalInfo , + afterWebViewSelectionChanged , + mkWebViewSelectionChangedCallback , + noWebViewSelectionChangedCallback , + onWebViewSelectionChanged , + webViewSelectionChangedCallbackWrapper , + webViewSelectionChangedClosure , + + +-- ** ShouldApplyStyle + WebViewShouldApplyStyleCallback , + WebViewShouldApplyStyleCallbackC , + WebViewShouldApplyStyleSignalInfo , + afterWebViewShouldApplyStyle , + mkWebViewShouldApplyStyleCallback , + noWebViewShouldApplyStyleCallback , + onWebViewShouldApplyStyle , + webViewShouldApplyStyleCallbackWrapper , + webViewShouldApplyStyleClosure , + + +-- ** ShouldBeginEditing + WebViewShouldBeginEditingCallback , + WebViewShouldBeginEditingCallbackC , + WebViewShouldBeginEditingSignalInfo , + afterWebViewShouldBeginEditing , + mkWebViewShouldBeginEditingCallback , + noWebViewShouldBeginEditingCallback , + onWebViewShouldBeginEditing , + webViewShouldBeginEditingCallbackWrapper, + webViewShouldBeginEditingClosure , + + +-- ** ShouldChangeSelectedRange + WebViewShouldChangeSelectedRangeCallback, + WebViewShouldChangeSelectedRangeCallbackC, + WebViewShouldChangeSelectedRangeSignalInfo, + afterWebViewShouldChangeSelectedRange , + mkWebViewShouldChangeSelectedRangeCallback, + noWebViewShouldChangeSelectedRangeCallback, + onWebViewShouldChangeSelectedRange , + webViewShouldChangeSelectedRangeCallbackWrapper, + webViewShouldChangeSelectedRangeClosure , + + +-- ** ShouldDeleteRange + WebViewShouldDeleteRangeCallback , + WebViewShouldDeleteRangeCallbackC , + WebViewShouldDeleteRangeSignalInfo , + afterWebViewShouldDeleteRange , + mkWebViewShouldDeleteRangeCallback , + noWebViewShouldDeleteRangeCallback , + onWebViewShouldDeleteRange , + webViewShouldDeleteRangeCallbackWrapper , + webViewShouldDeleteRangeClosure , + + +-- ** ShouldEndEditing + WebViewShouldEndEditingCallback , + WebViewShouldEndEditingCallbackC , + WebViewShouldEndEditingSignalInfo , + afterWebViewShouldEndEditing , + mkWebViewShouldEndEditingCallback , + noWebViewShouldEndEditingCallback , + onWebViewShouldEndEditing , + webViewShouldEndEditingCallbackWrapper , + webViewShouldEndEditingClosure , + + +-- ** ShouldInsertNode + WebViewShouldInsertNodeCallback , + WebViewShouldInsertNodeCallbackC , + WebViewShouldInsertNodeSignalInfo , + afterWebViewShouldInsertNode , + mkWebViewShouldInsertNodeCallback , + noWebViewShouldInsertNodeCallback , + onWebViewShouldInsertNode , + webViewShouldInsertNodeCallbackWrapper , + webViewShouldInsertNodeClosure , + + +-- ** ShouldInsertText + WebViewShouldInsertTextCallback , + WebViewShouldInsertTextCallbackC , + WebViewShouldInsertTextSignalInfo , + afterWebViewShouldInsertText , + mkWebViewShouldInsertTextCallback , + noWebViewShouldInsertTextCallback , + onWebViewShouldInsertText , + webViewShouldInsertTextCallbackWrapper , + webViewShouldInsertTextClosure , + + +-- ** ShouldShowDeleteInterfaceForElement + WebViewShouldShowDeleteInterfaceForElementCallback, + WebViewShouldShowDeleteInterfaceForElementCallbackC, + WebViewShouldShowDeleteInterfaceForElementSignalInfo, + afterWebViewShouldShowDeleteInterfaceForElement, + mkWebViewShouldShowDeleteInterfaceForElementCallback, + noWebViewShouldShowDeleteInterfaceForElementCallback, + onWebViewShouldShowDeleteInterfaceForElement, + webViewShouldShowDeleteInterfaceForElementCallbackWrapper, + webViewShouldShowDeleteInterfaceForElementClosure, + + +-- ** StatusBarTextChanged + WebViewStatusBarTextChangedCallback , + WebViewStatusBarTextChangedCallbackC , + WebViewStatusBarTextChangedSignalInfo , + afterWebViewStatusBarTextChanged , + mkWebViewStatusBarTextChangedCallback , + noWebViewStatusBarTextChangedCallback , + onWebViewStatusBarTextChanged , + webViewStatusBarTextChangedCallbackWrapper, + webViewStatusBarTextChangedClosure , + + +-- ** TitleChanged + WebViewTitleChangedCallback , + WebViewTitleChangedCallbackC , + WebViewTitleChangedSignalInfo , + afterWebViewTitleChanged , + mkWebViewTitleChangedCallback , + noWebViewTitleChangedCallback , + onWebViewTitleChanged , + webViewTitleChangedCallbackWrapper , + webViewTitleChangedClosure , + + +-- ** Undo + WebViewUndoCallback , + WebViewUndoCallbackC , + WebViewUndoSignalInfo , + afterWebViewUndo , + mkWebViewUndoCallback , + noWebViewUndoCallback , + onWebViewUndo , + webViewUndoCallbackWrapper , + webViewUndoClosure , + + +-- ** UserChangedContents + WebViewUserChangedContentsCallback , + WebViewUserChangedContentsCallbackC , + WebViewUserChangedContentsSignalInfo , + afterWebViewUserChangedContents , + mkWebViewUserChangedContentsCallback , + noWebViewUserChangedContentsCallback , + onWebViewUserChangedContents , + webViewUserChangedContentsCallbackWrapper, + webViewUserChangedContentsClosure , + + +-- ** ViewportAttributesChanged + WebViewViewportAttributesChangedCallback, + WebViewViewportAttributesChangedCallbackC, + WebViewViewportAttributesChangedSignalInfo, + afterWebViewViewportAttributesChanged , + mkWebViewViewportAttributesChangedCallback, + noWebViewViewportAttributesChangedCallback, + onWebViewViewportAttributesChanged , + webViewViewportAttributesChangedCallbackWrapper, + webViewViewportAttributesChangedClosure , + + +-- ** ViewportAttributesRecomputeRequested + WebViewViewportAttributesRecomputeRequestedCallback, + WebViewViewportAttributesRecomputeRequestedCallbackC, + WebViewViewportAttributesRecomputeRequestedSignalInfo, + afterWebViewViewportAttributesRecomputeRequested, + mkWebViewViewportAttributesRecomputeRequestedCallback, + noWebViewViewportAttributesRecomputeRequestedCallback, + onWebViewViewportAttributesRecomputeRequested, + webViewViewportAttributesRecomputeRequestedCallbackWrapper, + webViewViewportAttributesRecomputeRequestedClosure, + + +-- ** WebViewReady + WebViewWebViewReadyCallback , + WebViewWebViewReadyCallbackC , + WebViewWebViewReadySignalInfo , + afterWebViewWebViewReady , + mkWebViewWebViewReadyCallback , + noWebViewWebViewReadyCallback , + onWebViewWebViewReady , + webViewWebViewReadyCallbackWrapper , + webViewWebViewReadyClosure , + + +-- ** WindowObjectCleared + WebViewWindowObjectClearedCallback , + WebViewWindowObjectClearedCallbackC , + WebViewWindowObjectClearedSignalInfo , + afterWebViewWindowObjectCleared , + mkWebViewWindowObjectClearedCallback , + noWebViewWindowObjectClearedCallback , + onWebViewWindowObjectCleared , + webViewWindowObjectClearedCallbackWrapper, + webViewWindowObjectClearedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.Atk as Atk +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Gtk as Gtk +import qualified GI.Cairo as Cairo + +newtype WebView = WebView (ForeignPtr WebView) +foreign import ccall "webkit_web_view_get_type" + c_webkit_web_view_get_type :: IO GType + +type instance ParentTypes WebView = WebViewParentTypes +type WebViewParentTypes = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable, Gtk.Scrollable] + +instance GObject WebView where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_webkit_web_view_get_type + + +class GObject o => WebViewK o +instance (GObject o, IsDescendantOf WebView o) => WebViewK o + +toWebView :: WebViewK o => o -> IO WebView +toWebView = unsafeCastTo WebView + +noWebView :: Maybe WebView +noWebView = Nothing + +-- signal WebView::close-web-view +type WebViewCloseWebViewCallback = + IO Bool + +noWebViewCloseWebViewCallback :: Maybe WebViewCloseWebViewCallback +noWebViewCloseWebViewCallback = Nothing + +type WebViewCloseWebViewCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewCloseWebViewCallback :: WebViewCloseWebViewCallbackC -> IO (FunPtr WebViewCloseWebViewCallbackC) + +webViewCloseWebViewClosure :: WebViewCloseWebViewCallback -> IO Closure +webViewCloseWebViewClosure cb = newCClosure =<< mkWebViewCloseWebViewCallback wrapped + where wrapped = webViewCloseWebViewCallbackWrapper cb + +webViewCloseWebViewCallbackWrapper :: + WebViewCloseWebViewCallback -> + Ptr () -> + Ptr () -> + IO CInt +webViewCloseWebViewCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewCloseWebView :: (GObject a, MonadIO m) => a -> WebViewCloseWebViewCallback -> m SignalHandlerId +onWebViewCloseWebView obj cb = liftIO $ connectWebViewCloseWebView obj cb SignalConnectBefore +afterWebViewCloseWebView :: (GObject a, MonadIO m) => a -> WebViewCloseWebViewCallback -> m SignalHandlerId +afterWebViewCloseWebView obj cb = connectWebViewCloseWebView obj cb SignalConnectAfter + +connectWebViewCloseWebView :: (GObject a, MonadIO m) => + a -> WebViewCloseWebViewCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCloseWebView obj cb after = liftIO $ do + cb' <- mkWebViewCloseWebViewCallback (webViewCloseWebViewCallbackWrapper cb) + connectSignalFunPtr obj "close-web-view" cb' after + +-- signal WebView::console-message +type WebViewConsoleMessageCallback = + T.Text -> + Int32 -> + T.Text -> + IO Bool + +noWebViewConsoleMessageCallback :: Maybe WebViewConsoleMessageCallback +noWebViewConsoleMessageCallback = Nothing + +type WebViewConsoleMessageCallbackC = + Ptr () -> -- object + CString -> + Int32 -> + CString -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewConsoleMessageCallback :: WebViewConsoleMessageCallbackC -> IO (FunPtr WebViewConsoleMessageCallbackC) + +webViewConsoleMessageClosure :: WebViewConsoleMessageCallback -> IO Closure +webViewConsoleMessageClosure cb = newCClosure =<< mkWebViewConsoleMessageCallback wrapped + where wrapped = webViewConsoleMessageCallbackWrapper cb + +webViewConsoleMessageCallbackWrapper :: + WebViewConsoleMessageCallback -> + Ptr () -> + CString -> + Int32 -> + CString -> + Ptr () -> + IO CInt +webViewConsoleMessageCallbackWrapper _cb _ message line source_id _ = do + message' <- cstringToText message + source_id' <- cstringToText source_id + result <- _cb message' line source_id' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewConsoleMessage :: (GObject a, MonadIO m) => a -> WebViewConsoleMessageCallback -> m SignalHandlerId +onWebViewConsoleMessage obj cb = liftIO $ connectWebViewConsoleMessage obj cb SignalConnectBefore +afterWebViewConsoleMessage :: (GObject a, MonadIO m) => a -> WebViewConsoleMessageCallback -> m SignalHandlerId +afterWebViewConsoleMessage obj cb = connectWebViewConsoleMessage obj cb SignalConnectAfter + +connectWebViewConsoleMessage :: (GObject a, MonadIO m) => + a -> WebViewConsoleMessageCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewConsoleMessage obj cb after = liftIO $ do + cb' <- mkWebViewConsoleMessageCallback (webViewConsoleMessageCallbackWrapper cb) + connectSignalFunPtr obj "console-message" cb' after + +-- signal WebView::context-menu +type WebViewContextMenuCallback = + Gtk.Widget -> + HitTestResult -> + Bool -> + IO Bool + +noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback +noWebViewContextMenuCallback = Nothing + +type WebViewContextMenuCallbackC = + Ptr () -> -- object + Ptr Gtk.Widget -> + Ptr HitTestResult -> + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC) + +webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure +webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped + where wrapped = webViewContextMenuCallbackWrapper cb + +webViewContextMenuCallbackWrapper :: + WebViewContextMenuCallback -> + Ptr () -> + Ptr Gtk.Widget -> + Ptr HitTestResult -> + CInt -> + Ptr () -> + IO CInt +webViewContextMenuCallbackWrapper _cb _ default_menu hit_test_result triggered_with_keyboard _ = do + default_menu' <- (newObject Gtk.Widget) default_menu + hit_test_result' <- (newObject HitTestResult) hit_test_result + let triggered_with_keyboard' = (/= 0) triggered_with_keyboard + result <- _cb default_menu' hit_test_result' triggered_with_keyboard' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId +onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore +afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId +afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter + +connectWebViewContextMenu :: (GObject a, MonadIO m) => + a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewContextMenu obj cb after = liftIO $ do + cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb) + connectSignalFunPtr obj "context-menu" cb' after + +-- signal WebView::copy-clipboard +type WebViewCopyClipboardCallback = + IO () + +noWebViewCopyClipboardCallback :: Maybe WebViewCopyClipboardCallback +noWebViewCopyClipboardCallback = Nothing + +type WebViewCopyClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewCopyClipboardCallback :: WebViewCopyClipboardCallbackC -> IO (FunPtr WebViewCopyClipboardCallbackC) + +webViewCopyClipboardClosure :: WebViewCopyClipboardCallback -> IO Closure +webViewCopyClipboardClosure cb = newCClosure =<< mkWebViewCopyClipboardCallback wrapped + where wrapped = webViewCopyClipboardCallbackWrapper cb + +webViewCopyClipboardCallbackWrapper :: + WebViewCopyClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +webViewCopyClipboardCallbackWrapper _cb _ _ = do + _cb + +onWebViewCopyClipboard :: (GObject a, MonadIO m) => a -> WebViewCopyClipboardCallback -> m SignalHandlerId +onWebViewCopyClipboard obj cb = liftIO $ connectWebViewCopyClipboard obj cb SignalConnectBefore +afterWebViewCopyClipboard :: (GObject a, MonadIO m) => a -> WebViewCopyClipboardCallback -> m SignalHandlerId +afterWebViewCopyClipboard obj cb = connectWebViewCopyClipboard obj cb SignalConnectAfter + +connectWebViewCopyClipboard :: (GObject a, MonadIO m) => + a -> WebViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCopyClipboard obj cb after = liftIO $ do + cb' <- mkWebViewCopyClipboardCallback (webViewCopyClipboardCallbackWrapper cb) + connectSignalFunPtr obj "copy-clipboard" cb' after + +-- signal WebView::create-plugin-widget +type WebViewCreatePluginWidgetCallback = + T.Text -> + T.Text -> + Map.Map (Ptr ()) (Ptr ()) -> + IO Gtk.Widget + +noWebViewCreatePluginWidgetCallback :: Maybe WebViewCreatePluginWidgetCallback +noWebViewCreatePluginWidgetCallback = Nothing + +type WebViewCreatePluginWidgetCallbackC = + Ptr () -> -- object + CString -> + CString -> + Ptr (GHashTable (Ptr ()) (Ptr ())) -> + Ptr () -> -- user_data + IO (Ptr Gtk.Widget) + +foreign import ccall "wrapper" + mkWebViewCreatePluginWidgetCallback :: WebViewCreatePluginWidgetCallbackC -> IO (FunPtr WebViewCreatePluginWidgetCallbackC) + +webViewCreatePluginWidgetClosure :: WebViewCreatePluginWidgetCallback -> IO Closure +webViewCreatePluginWidgetClosure cb = newCClosure =<< mkWebViewCreatePluginWidgetCallback wrapped + where wrapped = webViewCreatePluginWidgetCallbackWrapper cb + +webViewCreatePluginWidgetCallbackWrapper :: + WebViewCreatePluginWidgetCallback -> + Ptr () -> + CString -> + CString -> + Ptr (GHashTable (Ptr ()) (Ptr ())) -> + Ptr () -> + IO (Ptr Gtk.Widget) +webViewCreatePluginWidgetCallbackWrapper _cb _ mime_type uri param _ = do + mime_type' <- cstringToText mime_type + uri' <- cstringToText uri + param' <- unpackGHashTable param + let param'' = mapFirst ptrUnpackPtr param' + let param''' = mapSecond ptrUnpackPtr param'' + let param'''' = Map.fromList param''' + result <- _cb mime_type' uri' param'''' + result' <- refObject result + return result' + +onWebViewCreatePluginWidget :: (GObject a, MonadIO m) => a -> WebViewCreatePluginWidgetCallback -> m SignalHandlerId +onWebViewCreatePluginWidget obj cb = liftIO $ connectWebViewCreatePluginWidget obj cb SignalConnectBefore +afterWebViewCreatePluginWidget :: (GObject a, MonadIO m) => a -> WebViewCreatePluginWidgetCallback -> m SignalHandlerId +afterWebViewCreatePluginWidget obj cb = connectWebViewCreatePluginWidget obj cb SignalConnectAfter + +connectWebViewCreatePluginWidget :: (GObject a, MonadIO m) => + a -> WebViewCreatePluginWidgetCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCreatePluginWidget obj cb after = liftIO $ do + cb' <- mkWebViewCreatePluginWidgetCallback (webViewCreatePluginWidgetCallbackWrapper cb) + connectSignalFunPtr obj "create-plugin-widget" cb' after + +-- signal WebView::create-web-view +type WebViewCreateWebViewCallback = + WebFrame -> + IO WebView + +noWebViewCreateWebViewCallback :: Maybe WebViewCreateWebViewCallback +noWebViewCreateWebViewCallback = Nothing + +type WebViewCreateWebViewCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO (Ptr WebView) + +foreign import ccall "wrapper" + mkWebViewCreateWebViewCallback :: WebViewCreateWebViewCallbackC -> IO (FunPtr WebViewCreateWebViewCallbackC) + +webViewCreateWebViewClosure :: WebViewCreateWebViewCallback -> IO Closure +webViewCreateWebViewClosure cb = newCClosure =<< mkWebViewCreateWebViewCallback wrapped + where wrapped = webViewCreateWebViewCallbackWrapper cb + +webViewCreateWebViewCallbackWrapper :: + WebViewCreateWebViewCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO (Ptr WebView) +webViewCreateWebViewCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + result <- _cb frame' + result' <- refObject result + return result' + +onWebViewCreateWebView :: (GObject a, MonadIO m) => a -> WebViewCreateWebViewCallback -> m SignalHandlerId +onWebViewCreateWebView obj cb = liftIO $ connectWebViewCreateWebView obj cb SignalConnectBefore +afterWebViewCreateWebView :: (GObject a, MonadIO m) => a -> WebViewCreateWebViewCallback -> m SignalHandlerId +afterWebViewCreateWebView obj cb = connectWebViewCreateWebView obj cb SignalConnectAfter + +connectWebViewCreateWebView :: (GObject a, MonadIO m) => + a -> WebViewCreateWebViewCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCreateWebView obj cb after = liftIO $ do + cb' <- mkWebViewCreateWebViewCallback (webViewCreateWebViewCallbackWrapper cb) + connectSignalFunPtr obj "create-web-view" cb' after + +-- signal WebView::cut-clipboard +type WebViewCutClipboardCallback = + IO () + +noWebViewCutClipboardCallback :: Maybe WebViewCutClipboardCallback +noWebViewCutClipboardCallback = Nothing + +type WebViewCutClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewCutClipboardCallback :: WebViewCutClipboardCallbackC -> IO (FunPtr WebViewCutClipboardCallbackC) + +webViewCutClipboardClosure :: WebViewCutClipboardCallback -> IO Closure +webViewCutClipboardClosure cb = newCClosure =<< mkWebViewCutClipboardCallback wrapped + where wrapped = webViewCutClipboardCallbackWrapper cb + +webViewCutClipboardCallbackWrapper :: + WebViewCutClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +webViewCutClipboardCallbackWrapper _cb _ _ = do + _cb + +onWebViewCutClipboard :: (GObject a, MonadIO m) => a -> WebViewCutClipboardCallback -> m SignalHandlerId +onWebViewCutClipboard obj cb = liftIO $ connectWebViewCutClipboard obj cb SignalConnectBefore +afterWebViewCutClipboard :: (GObject a, MonadIO m) => a -> WebViewCutClipboardCallback -> m SignalHandlerId +afterWebViewCutClipboard obj cb = connectWebViewCutClipboard obj cb SignalConnectAfter + +connectWebViewCutClipboard :: (GObject a, MonadIO m) => + a -> WebViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewCutClipboard obj cb after = liftIO $ do + cb' <- mkWebViewCutClipboardCallback (webViewCutClipboardCallbackWrapper cb) + connectSignalFunPtr obj "cut-clipboard" cb' after + +-- signal WebView::database-quota-exceeded +type WebViewDatabaseQuotaExceededCallback = + GObject.Object -> + GObject.Object -> + IO () + +noWebViewDatabaseQuotaExceededCallback :: Maybe WebViewDatabaseQuotaExceededCallback +noWebViewDatabaseQuotaExceededCallback = Nothing + +type WebViewDatabaseQuotaExceededCallbackC = + Ptr () -> -- object + Ptr GObject.Object -> + Ptr GObject.Object -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewDatabaseQuotaExceededCallback :: WebViewDatabaseQuotaExceededCallbackC -> IO (FunPtr WebViewDatabaseQuotaExceededCallbackC) + +webViewDatabaseQuotaExceededClosure :: WebViewDatabaseQuotaExceededCallback -> IO Closure +webViewDatabaseQuotaExceededClosure cb = newCClosure =<< mkWebViewDatabaseQuotaExceededCallback wrapped + where wrapped = webViewDatabaseQuotaExceededCallbackWrapper cb + +webViewDatabaseQuotaExceededCallbackWrapper :: + WebViewDatabaseQuotaExceededCallback -> + Ptr () -> + Ptr GObject.Object -> + Ptr GObject.Object -> + Ptr () -> + IO () +webViewDatabaseQuotaExceededCallbackWrapper _cb _ frame database _ = do + frame' <- (newObject GObject.Object) frame + database' <- (newObject GObject.Object) database + _cb frame' database' + +onWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) => a -> WebViewDatabaseQuotaExceededCallback -> m SignalHandlerId +onWebViewDatabaseQuotaExceeded obj cb = liftIO $ connectWebViewDatabaseQuotaExceeded obj cb SignalConnectBefore +afterWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) => a -> WebViewDatabaseQuotaExceededCallback -> m SignalHandlerId +afterWebViewDatabaseQuotaExceeded obj cb = connectWebViewDatabaseQuotaExceeded obj cb SignalConnectAfter + +connectWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) => + a -> WebViewDatabaseQuotaExceededCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewDatabaseQuotaExceeded obj cb after = liftIO $ do + cb' <- mkWebViewDatabaseQuotaExceededCallback (webViewDatabaseQuotaExceededCallbackWrapper cb) + connectSignalFunPtr obj "database-quota-exceeded" cb' after + +-- signal WebView::document-load-finished +type WebViewDocumentLoadFinishedCallback = + WebFrame -> + IO () + +noWebViewDocumentLoadFinishedCallback :: Maybe WebViewDocumentLoadFinishedCallback +noWebViewDocumentLoadFinishedCallback = Nothing + +type WebViewDocumentLoadFinishedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewDocumentLoadFinishedCallback :: WebViewDocumentLoadFinishedCallbackC -> IO (FunPtr WebViewDocumentLoadFinishedCallbackC) + +webViewDocumentLoadFinishedClosure :: WebViewDocumentLoadFinishedCallback -> IO Closure +webViewDocumentLoadFinishedClosure cb = newCClosure =<< mkWebViewDocumentLoadFinishedCallback wrapped + where wrapped = webViewDocumentLoadFinishedCallbackWrapper cb + +webViewDocumentLoadFinishedCallbackWrapper :: + WebViewDocumentLoadFinishedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewDocumentLoadFinishedCallbackWrapper _cb _ web_frame _ = do + web_frame' <- (newObject WebFrame) web_frame + _cb web_frame' + +onWebViewDocumentLoadFinished :: (GObject a, MonadIO m) => a -> WebViewDocumentLoadFinishedCallback -> m SignalHandlerId +onWebViewDocumentLoadFinished obj cb = liftIO $ connectWebViewDocumentLoadFinished obj cb SignalConnectBefore +afterWebViewDocumentLoadFinished :: (GObject a, MonadIO m) => a -> WebViewDocumentLoadFinishedCallback -> m SignalHandlerId +afterWebViewDocumentLoadFinished obj cb = connectWebViewDocumentLoadFinished obj cb SignalConnectAfter + +connectWebViewDocumentLoadFinished :: (GObject a, MonadIO m) => + a -> WebViewDocumentLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewDocumentLoadFinished obj cb after = liftIO $ do + cb' <- mkWebViewDocumentLoadFinishedCallback (webViewDocumentLoadFinishedCallbackWrapper cb) + connectSignalFunPtr obj "document-load-finished" cb' after + +-- signal WebView::download-requested +type WebViewDownloadRequestedCallback = + Download -> + IO Bool + +noWebViewDownloadRequestedCallback :: Maybe WebViewDownloadRequestedCallback +noWebViewDownloadRequestedCallback = Nothing + +type WebViewDownloadRequestedCallbackC = + Ptr () -> -- object + Ptr Download -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewDownloadRequestedCallback :: WebViewDownloadRequestedCallbackC -> IO (FunPtr WebViewDownloadRequestedCallbackC) + +webViewDownloadRequestedClosure :: WebViewDownloadRequestedCallback -> IO Closure +webViewDownloadRequestedClosure cb = newCClosure =<< mkWebViewDownloadRequestedCallback wrapped + where wrapped = webViewDownloadRequestedCallbackWrapper cb + +webViewDownloadRequestedCallbackWrapper :: + WebViewDownloadRequestedCallback -> + Ptr () -> + Ptr Download -> + Ptr () -> + IO CInt +webViewDownloadRequestedCallbackWrapper _cb _ download _ = do + download' <- (newObject Download) download + result <- _cb download' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewDownloadRequested :: (GObject a, MonadIO m) => a -> WebViewDownloadRequestedCallback -> m SignalHandlerId +onWebViewDownloadRequested obj cb = liftIO $ connectWebViewDownloadRequested obj cb SignalConnectBefore +afterWebViewDownloadRequested :: (GObject a, MonadIO m) => a -> WebViewDownloadRequestedCallback -> m SignalHandlerId +afterWebViewDownloadRequested obj cb = connectWebViewDownloadRequested obj cb SignalConnectAfter + +connectWebViewDownloadRequested :: (GObject a, MonadIO m) => + a -> WebViewDownloadRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewDownloadRequested obj cb after = liftIO $ do + cb' <- mkWebViewDownloadRequestedCallback (webViewDownloadRequestedCallbackWrapper cb) + connectSignalFunPtr obj "download-requested" cb' after + +-- signal WebView::editing-began +type WebViewEditingBeganCallback = + IO () + +noWebViewEditingBeganCallback :: Maybe WebViewEditingBeganCallback +noWebViewEditingBeganCallback = Nothing + +type WebViewEditingBeganCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewEditingBeganCallback :: WebViewEditingBeganCallbackC -> IO (FunPtr WebViewEditingBeganCallbackC) + +webViewEditingBeganClosure :: WebViewEditingBeganCallback -> IO Closure +webViewEditingBeganClosure cb = newCClosure =<< mkWebViewEditingBeganCallback wrapped + where wrapped = webViewEditingBeganCallbackWrapper cb + +webViewEditingBeganCallbackWrapper :: + WebViewEditingBeganCallback -> + Ptr () -> + Ptr () -> + IO () +webViewEditingBeganCallbackWrapper _cb _ _ = do + _cb + +onWebViewEditingBegan :: (GObject a, MonadIO m) => a -> WebViewEditingBeganCallback -> m SignalHandlerId +onWebViewEditingBegan obj cb = liftIO $ connectWebViewEditingBegan obj cb SignalConnectBefore +afterWebViewEditingBegan :: (GObject a, MonadIO m) => a -> WebViewEditingBeganCallback -> m SignalHandlerId +afterWebViewEditingBegan obj cb = connectWebViewEditingBegan obj cb SignalConnectAfter + +connectWebViewEditingBegan :: (GObject a, MonadIO m) => + a -> WebViewEditingBeganCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewEditingBegan obj cb after = liftIO $ do + cb' <- mkWebViewEditingBeganCallback (webViewEditingBeganCallbackWrapper cb) + connectSignalFunPtr obj "editing-began" cb' after + +-- signal WebView::editing-ended +type WebViewEditingEndedCallback = + IO () + +noWebViewEditingEndedCallback :: Maybe WebViewEditingEndedCallback +noWebViewEditingEndedCallback = Nothing + +type WebViewEditingEndedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewEditingEndedCallback :: WebViewEditingEndedCallbackC -> IO (FunPtr WebViewEditingEndedCallbackC) + +webViewEditingEndedClosure :: WebViewEditingEndedCallback -> IO Closure +webViewEditingEndedClosure cb = newCClosure =<< mkWebViewEditingEndedCallback wrapped + where wrapped = webViewEditingEndedCallbackWrapper cb + +webViewEditingEndedCallbackWrapper :: + WebViewEditingEndedCallback -> + Ptr () -> + Ptr () -> + IO () +webViewEditingEndedCallbackWrapper _cb _ _ = do + _cb + +onWebViewEditingEnded :: (GObject a, MonadIO m) => a -> WebViewEditingEndedCallback -> m SignalHandlerId +onWebViewEditingEnded obj cb = liftIO $ connectWebViewEditingEnded obj cb SignalConnectBefore +afterWebViewEditingEnded :: (GObject a, MonadIO m) => a -> WebViewEditingEndedCallback -> m SignalHandlerId +afterWebViewEditingEnded obj cb = connectWebViewEditingEnded obj cb SignalConnectAfter + +connectWebViewEditingEnded :: (GObject a, MonadIO m) => + a -> WebViewEditingEndedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewEditingEnded obj cb after = liftIO $ do + cb' <- mkWebViewEditingEndedCallback (webViewEditingEndedCallbackWrapper cb) + connectSignalFunPtr obj "editing-ended" cb' after + +-- signal WebView::entering-fullscreen +type WebViewEnteringFullscreenCallback = + DOMHTMLElement -> + IO Bool + +noWebViewEnteringFullscreenCallback :: Maybe WebViewEnteringFullscreenCallback +noWebViewEnteringFullscreenCallback = Nothing + +type WebViewEnteringFullscreenCallbackC = + Ptr () -> -- object + Ptr DOMHTMLElement -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewEnteringFullscreenCallback :: WebViewEnteringFullscreenCallbackC -> IO (FunPtr WebViewEnteringFullscreenCallbackC) + +webViewEnteringFullscreenClosure :: WebViewEnteringFullscreenCallback -> IO Closure +webViewEnteringFullscreenClosure cb = newCClosure =<< mkWebViewEnteringFullscreenCallback wrapped + where wrapped = webViewEnteringFullscreenCallbackWrapper cb + +webViewEnteringFullscreenCallbackWrapper :: + WebViewEnteringFullscreenCallback -> + Ptr () -> + Ptr DOMHTMLElement -> + Ptr () -> + IO CInt +webViewEnteringFullscreenCallbackWrapper _cb _ element _ = do + element' <- (newObject DOMHTMLElement) element + result <- _cb element' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewEnteringFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnteringFullscreenCallback -> m SignalHandlerId +onWebViewEnteringFullscreen obj cb = liftIO $ connectWebViewEnteringFullscreen obj cb SignalConnectBefore +afterWebViewEnteringFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnteringFullscreenCallback -> m SignalHandlerId +afterWebViewEnteringFullscreen obj cb = connectWebViewEnteringFullscreen obj cb SignalConnectAfter + +connectWebViewEnteringFullscreen :: (GObject a, MonadIO m) => + a -> WebViewEnteringFullscreenCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewEnteringFullscreen obj cb after = liftIO $ do + cb' <- mkWebViewEnteringFullscreenCallback (webViewEnteringFullscreenCallbackWrapper cb) + connectSignalFunPtr obj "entering-fullscreen" cb' after + +-- signal WebView::frame-created +type WebViewFrameCreatedCallback = + WebFrame -> + IO () + +noWebViewFrameCreatedCallback :: Maybe WebViewFrameCreatedCallback +noWebViewFrameCreatedCallback = Nothing + +type WebViewFrameCreatedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewFrameCreatedCallback :: WebViewFrameCreatedCallbackC -> IO (FunPtr WebViewFrameCreatedCallbackC) + +webViewFrameCreatedClosure :: WebViewFrameCreatedCallback -> IO Closure +webViewFrameCreatedClosure cb = newCClosure =<< mkWebViewFrameCreatedCallback wrapped + where wrapped = webViewFrameCreatedCallbackWrapper cb + +webViewFrameCreatedCallbackWrapper :: + WebViewFrameCreatedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewFrameCreatedCallbackWrapper _cb _ web_frame _ = do + web_frame' <- (newObject WebFrame) web_frame + _cb web_frame' + +onWebViewFrameCreated :: (GObject a, MonadIO m) => a -> WebViewFrameCreatedCallback -> m SignalHandlerId +onWebViewFrameCreated obj cb = liftIO $ connectWebViewFrameCreated obj cb SignalConnectBefore +afterWebViewFrameCreated :: (GObject a, MonadIO m) => a -> WebViewFrameCreatedCallback -> m SignalHandlerId +afterWebViewFrameCreated obj cb = connectWebViewFrameCreated obj cb SignalConnectAfter + +connectWebViewFrameCreated :: (GObject a, MonadIO m) => + a -> WebViewFrameCreatedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewFrameCreated obj cb after = liftIO $ do + cb' <- mkWebViewFrameCreatedCallback (webViewFrameCreatedCallbackWrapper cb) + connectSignalFunPtr obj "frame-created" cb' after + +-- signal WebView::geolocation-policy-decision-cancelled +type WebViewGeolocationPolicyDecisionCancelledCallback = + WebFrame -> + IO () + +noWebViewGeolocationPolicyDecisionCancelledCallback :: Maybe WebViewGeolocationPolicyDecisionCancelledCallback +noWebViewGeolocationPolicyDecisionCancelledCallback = Nothing + +type WebViewGeolocationPolicyDecisionCancelledCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewGeolocationPolicyDecisionCancelledCallback :: WebViewGeolocationPolicyDecisionCancelledCallbackC -> IO (FunPtr WebViewGeolocationPolicyDecisionCancelledCallbackC) + +webViewGeolocationPolicyDecisionCancelledClosure :: WebViewGeolocationPolicyDecisionCancelledCallback -> IO Closure +webViewGeolocationPolicyDecisionCancelledClosure cb = newCClosure =<< mkWebViewGeolocationPolicyDecisionCancelledCallback wrapped + where wrapped = webViewGeolocationPolicyDecisionCancelledCallbackWrapper cb + +webViewGeolocationPolicyDecisionCancelledCallbackWrapper :: + WebViewGeolocationPolicyDecisionCancelledCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewGeolocationPolicyDecisionCancelledCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + _cb frame' + +onWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionCancelledCallback -> m SignalHandlerId +onWebViewGeolocationPolicyDecisionCancelled obj cb = liftIO $ connectWebViewGeolocationPolicyDecisionCancelled obj cb SignalConnectBefore +afterWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionCancelledCallback -> m SignalHandlerId +afterWebViewGeolocationPolicyDecisionCancelled obj cb = connectWebViewGeolocationPolicyDecisionCancelled obj cb SignalConnectAfter + +connectWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) => + a -> WebViewGeolocationPolicyDecisionCancelledCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewGeolocationPolicyDecisionCancelled obj cb after = liftIO $ do + cb' <- mkWebViewGeolocationPolicyDecisionCancelledCallback (webViewGeolocationPolicyDecisionCancelledCallbackWrapper cb) + connectSignalFunPtr obj "geolocation-policy-decision-cancelled" cb' after + +-- signal WebView::geolocation-policy-decision-requested +type WebViewGeolocationPolicyDecisionRequestedCallback = + WebFrame -> + GeolocationPolicyDecision -> + IO Bool + +noWebViewGeolocationPolicyDecisionRequestedCallback :: Maybe WebViewGeolocationPolicyDecisionRequestedCallback +noWebViewGeolocationPolicyDecisionRequestedCallback = Nothing + +type WebViewGeolocationPolicyDecisionRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr GeolocationPolicyDecision -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewGeolocationPolicyDecisionRequestedCallback :: WebViewGeolocationPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewGeolocationPolicyDecisionRequestedCallbackC) + +webViewGeolocationPolicyDecisionRequestedClosure :: WebViewGeolocationPolicyDecisionRequestedCallback -> IO Closure +webViewGeolocationPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewGeolocationPolicyDecisionRequestedCallback wrapped + where wrapped = webViewGeolocationPolicyDecisionRequestedCallbackWrapper cb + +webViewGeolocationPolicyDecisionRequestedCallbackWrapper :: + WebViewGeolocationPolicyDecisionRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr GeolocationPolicyDecision -> + Ptr () -> + IO CInt +webViewGeolocationPolicyDecisionRequestedCallbackWrapper _cb _ frame policy_decision _ = do + frame' <- (newObject WebFrame) frame + policy_decision' <- (newObject GeolocationPolicyDecision) policy_decision + result <- _cb frame' policy_decision' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionRequestedCallback -> m SignalHandlerId +onWebViewGeolocationPolicyDecisionRequested obj cb = liftIO $ connectWebViewGeolocationPolicyDecisionRequested obj cb SignalConnectBefore +afterWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionRequestedCallback -> m SignalHandlerId +afterWebViewGeolocationPolicyDecisionRequested obj cb = connectWebViewGeolocationPolicyDecisionRequested obj cb SignalConnectAfter + +connectWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) => + a -> WebViewGeolocationPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewGeolocationPolicyDecisionRequested obj cb after = liftIO $ do + cb' <- mkWebViewGeolocationPolicyDecisionRequestedCallback (webViewGeolocationPolicyDecisionRequestedCallbackWrapper cb) + connectSignalFunPtr obj "geolocation-policy-decision-requested" cb' after + +-- signal WebView::hovering-over-link +type WebViewHoveringOverLinkCallback = + T.Text -> + T.Text -> + IO () + +noWebViewHoveringOverLinkCallback :: Maybe WebViewHoveringOverLinkCallback +noWebViewHoveringOverLinkCallback = Nothing + +type WebViewHoveringOverLinkCallbackC = + Ptr () -> -- object + CString -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewHoveringOverLinkCallback :: WebViewHoveringOverLinkCallbackC -> IO (FunPtr WebViewHoveringOverLinkCallbackC) + +webViewHoveringOverLinkClosure :: WebViewHoveringOverLinkCallback -> IO Closure +webViewHoveringOverLinkClosure cb = newCClosure =<< mkWebViewHoveringOverLinkCallback wrapped + where wrapped = webViewHoveringOverLinkCallbackWrapper cb + +webViewHoveringOverLinkCallbackWrapper :: + WebViewHoveringOverLinkCallback -> + Ptr () -> + CString -> + CString -> + Ptr () -> + IO () +webViewHoveringOverLinkCallbackWrapper _cb _ title uri _ = do + title' <- cstringToText title + uri' <- cstringToText uri + _cb title' uri' + +onWebViewHoveringOverLink :: (GObject a, MonadIO m) => a -> WebViewHoveringOverLinkCallback -> m SignalHandlerId +onWebViewHoveringOverLink obj cb = liftIO $ connectWebViewHoveringOverLink obj cb SignalConnectBefore +afterWebViewHoveringOverLink :: (GObject a, MonadIO m) => a -> WebViewHoveringOverLinkCallback -> m SignalHandlerId +afterWebViewHoveringOverLink obj cb = connectWebViewHoveringOverLink obj cb SignalConnectAfter + +connectWebViewHoveringOverLink :: (GObject a, MonadIO m) => + a -> WebViewHoveringOverLinkCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewHoveringOverLink obj cb after = liftIO $ do + cb' <- mkWebViewHoveringOverLinkCallback (webViewHoveringOverLinkCallbackWrapper cb) + connectSignalFunPtr obj "hovering-over-link" cb' after + +-- signal WebView::icon-loaded +type WebViewIconLoadedCallback = + T.Text -> + IO () + +noWebViewIconLoadedCallback :: Maybe WebViewIconLoadedCallback +noWebViewIconLoadedCallback = Nothing + +type WebViewIconLoadedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewIconLoadedCallback :: WebViewIconLoadedCallbackC -> IO (FunPtr WebViewIconLoadedCallbackC) + +webViewIconLoadedClosure :: WebViewIconLoadedCallback -> IO Closure +webViewIconLoadedClosure cb = newCClosure =<< mkWebViewIconLoadedCallback wrapped + where wrapped = webViewIconLoadedCallbackWrapper cb + +webViewIconLoadedCallbackWrapper :: + WebViewIconLoadedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +webViewIconLoadedCallbackWrapper _cb _ icon_uri _ = do + icon_uri' <- cstringToText icon_uri + _cb icon_uri' + +onWebViewIconLoaded :: (GObject a, MonadIO m) => a -> WebViewIconLoadedCallback -> m SignalHandlerId +onWebViewIconLoaded obj cb = liftIO $ connectWebViewIconLoaded obj cb SignalConnectBefore +afterWebViewIconLoaded :: (GObject a, MonadIO m) => a -> WebViewIconLoadedCallback -> m SignalHandlerId +afterWebViewIconLoaded obj cb = connectWebViewIconLoaded obj cb SignalConnectAfter + +connectWebViewIconLoaded :: (GObject a, MonadIO m) => + a -> WebViewIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewIconLoaded obj cb after = liftIO $ do + cb' <- mkWebViewIconLoadedCallback (webViewIconLoadedCallbackWrapper cb) + connectSignalFunPtr obj "icon-loaded" cb' after + +-- signal WebView::leaving-fullscreen +type WebViewLeavingFullscreenCallback = + DOMHTMLElement -> + IO Bool + +noWebViewLeavingFullscreenCallback :: Maybe WebViewLeavingFullscreenCallback +noWebViewLeavingFullscreenCallback = Nothing + +type WebViewLeavingFullscreenCallbackC = + Ptr () -> -- object + Ptr DOMHTMLElement -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewLeavingFullscreenCallback :: WebViewLeavingFullscreenCallbackC -> IO (FunPtr WebViewLeavingFullscreenCallbackC) + +webViewLeavingFullscreenClosure :: WebViewLeavingFullscreenCallback -> IO Closure +webViewLeavingFullscreenClosure cb = newCClosure =<< mkWebViewLeavingFullscreenCallback wrapped + where wrapped = webViewLeavingFullscreenCallbackWrapper cb + +webViewLeavingFullscreenCallbackWrapper :: + WebViewLeavingFullscreenCallback -> + Ptr () -> + Ptr DOMHTMLElement -> + Ptr () -> + IO CInt +webViewLeavingFullscreenCallbackWrapper _cb _ element _ = do + element' <- (newObject DOMHTMLElement) element + result <- _cb element' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewLeavingFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeavingFullscreenCallback -> m SignalHandlerId +onWebViewLeavingFullscreen obj cb = liftIO $ connectWebViewLeavingFullscreen obj cb SignalConnectBefore +afterWebViewLeavingFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeavingFullscreenCallback -> m SignalHandlerId +afterWebViewLeavingFullscreen obj cb = connectWebViewLeavingFullscreen obj cb SignalConnectAfter + +connectWebViewLeavingFullscreen :: (GObject a, MonadIO m) => + a -> WebViewLeavingFullscreenCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLeavingFullscreen obj cb after = liftIO $ do + cb' <- mkWebViewLeavingFullscreenCallback (webViewLeavingFullscreenCallbackWrapper cb) + connectSignalFunPtr obj "leaving-fullscreen" cb' after + +-- signal WebView::load-committed +type WebViewLoadCommittedCallback = + WebFrame -> + IO () + +noWebViewLoadCommittedCallback :: Maybe WebViewLoadCommittedCallback +noWebViewLoadCommittedCallback = Nothing + +type WebViewLoadCommittedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewLoadCommittedCallback :: WebViewLoadCommittedCallbackC -> IO (FunPtr WebViewLoadCommittedCallbackC) + +webViewLoadCommittedClosure :: WebViewLoadCommittedCallback -> IO Closure +webViewLoadCommittedClosure cb = newCClosure =<< mkWebViewLoadCommittedCallback wrapped + where wrapped = webViewLoadCommittedCallbackWrapper cb + +webViewLoadCommittedCallbackWrapper :: + WebViewLoadCommittedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewLoadCommittedCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + _cb frame' + +onWebViewLoadCommitted :: (GObject a, MonadIO m) => a -> WebViewLoadCommittedCallback -> m SignalHandlerId +onWebViewLoadCommitted obj cb = liftIO $ connectWebViewLoadCommitted obj cb SignalConnectBefore +afterWebViewLoadCommitted :: (GObject a, MonadIO m) => a -> WebViewLoadCommittedCallback -> m SignalHandlerId +afterWebViewLoadCommitted obj cb = connectWebViewLoadCommitted obj cb SignalConnectAfter + +connectWebViewLoadCommitted :: (GObject a, MonadIO m) => + a -> WebViewLoadCommittedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadCommitted obj cb after = liftIO $ do + cb' <- mkWebViewLoadCommittedCallback (webViewLoadCommittedCallbackWrapper cb) + connectSignalFunPtr obj "load-committed" cb' after + +-- signal WebView::load-error +type WebViewLoadErrorCallback = + WebFrame -> + T.Text -> + GError -> + IO Bool + +noWebViewLoadErrorCallback :: Maybe WebViewLoadErrorCallback +noWebViewLoadErrorCallback = Nothing + +type WebViewLoadErrorCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + Ptr GError -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewLoadErrorCallback :: WebViewLoadErrorCallbackC -> IO (FunPtr WebViewLoadErrorCallbackC) + +webViewLoadErrorClosure :: WebViewLoadErrorCallback -> IO Closure +webViewLoadErrorClosure cb = newCClosure =<< mkWebViewLoadErrorCallback wrapped + where wrapped = webViewLoadErrorCallbackWrapper cb + +webViewLoadErrorCallbackWrapper :: + WebViewLoadErrorCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + Ptr GError -> + Ptr () -> + IO CInt +webViewLoadErrorCallbackWrapper _cb _ web_frame uri web_error _ = do + web_frame' <- (newObject WebFrame) web_frame + uri' <- cstringToText uri + web_error' <- (newBoxed GError) web_error + result <- _cb web_frame' uri' web_error' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewLoadError :: (GObject a, MonadIO m) => a -> WebViewLoadErrorCallback -> m SignalHandlerId +onWebViewLoadError obj cb = liftIO $ connectWebViewLoadError obj cb SignalConnectBefore +afterWebViewLoadError :: (GObject a, MonadIO m) => a -> WebViewLoadErrorCallback -> m SignalHandlerId +afterWebViewLoadError obj cb = connectWebViewLoadError obj cb SignalConnectAfter + +connectWebViewLoadError :: (GObject a, MonadIO m) => + a -> WebViewLoadErrorCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadError obj cb after = liftIO $ do + cb' <- mkWebViewLoadErrorCallback (webViewLoadErrorCallbackWrapper cb) + connectSignalFunPtr obj "load-error" cb' after + +-- signal WebView::load-finished +type WebViewLoadFinishedCallback = + WebFrame -> + IO () + +noWebViewLoadFinishedCallback :: Maybe WebViewLoadFinishedCallback +noWebViewLoadFinishedCallback = Nothing + +type WebViewLoadFinishedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewLoadFinishedCallback :: WebViewLoadFinishedCallbackC -> IO (FunPtr WebViewLoadFinishedCallbackC) + +webViewLoadFinishedClosure :: WebViewLoadFinishedCallback -> IO Closure +webViewLoadFinishedClosure cb = newCClosure =<< mkWebViewLoadFinishedCallback wrapped + where wrapped = webViewLoadFinishedCallbackWrapper cb + +webViewLoadFinishedCallbackWrapper :: + WebViewLoadFinishedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewLoadFinishedCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + _cb frame' + +onWebViewLoadFinished :: (GObject a, MonadIO m) => a -> WebViewLoadFinishedCallback -> m SignalHandlerId +onWebViewLoadFinished obj cb = liftIO $ connectWebViewLoadFinished obj cb SignalConnectBefore +afterWebViewLoadFinished :: (GObject a, MonadIO m) => a -> WebViewLoadFinishedCallback -> m SignalHandlerId +afterWebViewLoadFinished obj cb = connectWebViewLoadFinished obj cb SignalConnectAfter + +connectWebViewLoadFinished :: (GObject a, MonadIO m) => + a -> WebViewLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadFinished obj cb after = liftIO $ do + cb' <- mkWebViewLoadFinishedCallback (webViewLoadFinishedCallbackWrapper cb) + connectSignalFunPtr obj "load-finished" cb' after + +-- signal WebView::load-progress-changed +type WebViewLoadProgressChangedCallback = + Int32 -> + IO () + +noWebViewLoadProgressChangedCallback :: Maybe WebViewLoadProgressChangedCallback +noWebViewLoadProgressChangedCallback = Nothing + +type WebViewLoadProgressChangedCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewLoadProgressChangedCallback :: WebViewLoadProgressChangedCallbackC -> IO (FunPtr WebViewLoadProgressChangedCallbackC) + +webViewLoadProgressChangedClosure :: WebViewLoadProgressChangedCallback -> IO Closure +webViewLoadProgressChangedClosure cb = newCClosure =<< mkWebViewLoadProgressChangedCallback wrapped + where wrapped = webViewLoadProgressChangedCallbackWrapper cb + +webViewLoadProgressChangedCallbackWrapper :: + WebViewLoadProgressChangedCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO () +webViewLoadProgressChangedCallbackWrapper _cb _ progress _ = do + _cb progress + +onWebViewLoadProgressChanged :: (GObject a, MonadIO m) => a -> WebViewLoadProgressChangedCallback -> m SignalHandlerId +onWebViewLoadProgressChanged obj cb = liftIO $ connectWebViewLoadProgressChanged obj cb SignalConnectBefore +afterWebViewLoadProgressChanged :: (GObject a, MonadIO m) => a -> WebViewLoadProgressChangedCallback -> m SignalHandlerId +afterWebViewLoadProgressChanged obj cb = connectWebViewLoadProgressChanged obj cb SignalConnectAfter + +connectWebViewLoadProgressChanged :: (GObject a, MonadIO m) => + a -> WebViewLoadProgressChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadProgressChanged obj cb after = liftIO $ do + cb' <- mkWebViewLoadProgressChangedCallback (webViewLoadProgressChangedCallbackWrapper cb) + connectSignalFunPtr obj "load-progress-changed" cb' after + +-- signal WebView::load-started +type WebViewLoadStartedCallback = + WebFrame -> + IO () + +noWebViewLoadStartedCallback :: Maybe WebViewLoadStartedCallback +noWebViewLoadStartedCallback = Nothing + +type WebViewLoadStartedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewLoadStartedCallback :: WebViewLoadStartedCallbackC -> IO (FunPtr WebViewLoadStartedCallbackC) + +webViewLoadStartedClosure :: WebViewLoadStartedCallback -> IO Closure +webViewLoadStartedClosure cb = newCClosure =<< mkWebViewLoadStartedCallback wrapped + where wrapped = webViewLoadStartedCallbackWrapper cb + +webViewLoadStartedCallbackWrapper :: + WebViewLoadStartedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewLoadStartedCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + _cb frame' + +onWebViewLoadStarted :: (GObject a, MonadIO m) => a -> WebViewLoadStartedCallback -> m SignalHandlerId +onWebViewLoadStarted obj cb = liftIO $ connectWebViewLoadStarted obj cb SignalConnectBefore +afterWebViewLoadStarted :: (GObject a, MonadIO m) => a -> WebViewLoadStartedCallback -> m SignalHandlerId +afterWebViewLoadStarted obj cb = connectWebViewLoadStarted obj cb SignalConnectAfter + +connectWebViewLoadStarted :: (GObject a, MonadIO m) => + a -> WebViewLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewLoadStarted obj cb after = liftIO $ do + cb' <- mkWebViewLoadStartedCallback (webViewLoadStartedCallbackWrapper cb) + connectSignalFunPtr obj "load-started" cb' after + +-- signal WebView::mime-type-policy-decision-requested +type WebViewMimeTypePolicyDecisionRequestedCallback = + WebFrame -> + NetworkRequest -> + T.Text -> + WebPolicyDecision -> + IO Bool + +noWebViewMimeTypePolicyDecisionRequestedCallback :: Maybe WebViewMimeTypePolicyDecisionRequestedCallback +noWebViewMimeTypePolicyDecisionRequestedCallback = Nothing + +type WebViewMimeTypePolicyDecisionRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr NetworkRequest -> + CString -> + Ptr WebPolicyDecision -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewMimeTypePolicyDecisionRequestedCallback :: WebViewMimeTypePolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewMimeTypePolicyDecisionRequestedCallbackC) + +webViewMimeTypePolicyDecisionRequestedClosure :: WebViewMimeTypePolicyDecisionRequestedCallback -> IO Closure +webViewMimeTypePolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewMimeTypePolicyDecisionRequestedCallback wrapped + where wrapped = webViewMimeTypePolicyDecisionRequestedCallbackWrapper cb + +webViewMimeTypePolicyDecisionRequestedCallbackWrapper :: + WebViewMimeTypePolicyDecisionRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr NetworkRequest -> + CString -> + Ptr WebPolicyDecision -> + Ptr () -> + IO CInt +webViewMimeTypePolicyDecisionRequestedCallbackWrapper _cb _ frame request mimetype policy_decision _ = do + frame' <- (newObject WebFrame) frame + request' <- (newObject NetworkRequest) request + mimetype' <- cstringToText mimetype + policy_decision' <- (newObject WebPolicyDecision) policy_decision + result <- _cb frame' request' mimetype' policy_decision' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewMimeTypePolicyDecisionRequestedCallback -> m SignalHandlerId +onWebViewMimeTypePolicyDecisionRequested obj cb = liftIO $ connectWebViewMimeTypePolicyDecisionRequested obj cb SignalConnectBefore +afterWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewMimeTypePolicyDecisionRequestedCallback -> m SignalHandlerId +afterWebViewMimeTypePolicyDecisionRequested obj cb = connectWebViewMimeTypePolicyDecisionRequested obj cb SignalConnectAfter + +connectWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) => + a -> WebViewMimeTypePolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewMimeTypePolicyDecisionRequested obj cb after = liftIO $ do + cb' <- mkWebViewMimeTypePolicyDecisionRequestedCallback (webViewMimeTypePolicyDecisionRequestedCallbackWrapper cb) + connectSignalFunPtr obj "mime-type-policy-decision-requested" cb' after + +-- signal WebView::move-cursor +type WebViewMoveCursorCallback = + Gtk.MovementStep -> + Int32 -> + IO Bool + +noWebViewMoveCursorCallback :: Maybe WebViewMoveCursorCallback +noWebViewMoveCursorCallback = Nothing + +type WebViewMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewMoveCursorCallback :: WebViewMoveCursorCallbackC -> IO (FunPtr WebViewMoveCursorCallbackC) + +webViewMoveCursorClosure :: WebViewMoveCursorCallback -> IO Closure +webViewMoveCursorClosure cb = newCClosure =<< mkWebViewMoveCursorCallback wrapped + where wrapped = webViewMoveCursorCallbackWrapper cb + +webViewMoveCursorCallbackWrapper :: + WebViewMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO CInt +webViewMoveCursorCallbackWrapper _cb _ step count _ = do + let step' = (toEnum . fromIntegral) step + result <- _cb step' count + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewMoveCursor :: (GObject a, MonadIO m) => a -> WebViewMoveCursorCallback -> m SignalHandlerId +onWebViewMoveCursor obj cb = liftIO $ connectWebViewMoveCursor obj cb SignalConnectBefore +afterWebViewMoveCursor :: (GObject a, MonadIO m) => a -> WebViewMoveCursorCallback -> m SignalHandlerId +afterWebViewMoveCursor obj cb = connectWebViewMoveCursor obj cb SignalConnectAfter + +connectWebViewMoveCursor :: (GObject a, MonadIO m) => + a -> WebViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewMoveCursor obj cb after = liftIO $ do + cb' <- mkWebViewMoveCursorCallback (webViewMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal WebView::navigation-policy-decision-requested +type WebViewNavigationPolicyDecisionRequestedCallback = + WebFrame -> + NetworkRequest -> + WebNavigationAction -> + WebPolicyDecision -> + IO Bool + +noWebViewNavigationPolicyDecisionRequestedCallback :: Maybe WebViewNavigationPolicyDecisionRequestedCallback +noWebViewNavigationPolicyDecisionRequestedCallback = Nothing + +type WebViewNavigationPolicyDecisionRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr WebNavigationAction -> + Ptr WebPolicyDecision -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewNavigationPolicyDecisionRequestedCallback :: WebViewNavigationPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewNavigationPolicyDecisionRequestedCallbackC) + +webViewNavigationPolicyDecisionRequestedClosure :: WebViewNavigationPolicyDecisionRequestedCallback -> IO Closure +webViewNavigationPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewNavigationPolicyDecisionRequestedCallback wrapped + where wrapped = webViewNavigationPolicyDecisionRequestedCallbackWrapper cb + +webViewNavigationPolicyDecisionRequestedCallbackWrapper :: + WebViewNavigationPolicyDecisionRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr WebNavigationAction -> + Ptr WebPolicyDecision -> + Ptr () -> + IO CInt +webViewNavigationPolicyDecisionRequestedCallbackWrapper _cb _ frame request navigation_action policy_decision _ = do + frame' <- (newObject WebFrame) frame + request' <- (newObject NetworkRequest) request + navigation_action' <- (newObject WebNavigationAction) navigation_action + policy_decision' <- (newObject WebPolicyDecision) policy_decision + result <- _cb frame' request' navigation_action' policy_decision' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationPolicyDecisionRequestedCallback -> m SignalHandlerId +onWebViewNavigationPolicyDecisionRequested obj cb = liftIO $ connectWebViewNavigationPolicyDecisionRequested obj cb SignalConnectBefore +afterWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationPolicyDecisionRequestedCallback -> m SignalHandlerId +afterWebViewNavigationPolicyDecisionRequested obj cb = connectWebViewNavigationPolicyDecisionRequested obj cb SignalConnectAfter + +connectWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) => + a -> WebViewNavigationPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewNavigationPolicyDecisionRequested obj cb after = liftIO $ do + cb' <- mkWebViewNavigationPolicyDecisionRequestedCallback (webViewNavigationPolicyDecisionRequestedCallbackWrapper cb) + connectSignalFunPtr obj "navigation-policy-decision-requested" cb' after + +-- signal WebView::navigation-requested +type WebViewNavigationRequestedCallback = + WebFrame -> + NetworkRequest -> + IO NavigationResponse + +noWebViewNavigationRequestedCallback :: Maybe WebViewNavigationRequestedCallback +noWebViewNavigationRequestedCallback = Nothing + +type WebViewNavigationRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr () -> -- user_data + IO CUInt + +foreign import ccall "wrapper" + mkWebViewNavigationRequestedCallback :: WebViewNavigationRequestedCallbackC -> IO (FunPtr WebViewNavigationRequestedCallbackC) + +webViewNavigationRequestedClosure :: WebViewNavigationRequestedCallback -> IO Closure +webViewNavigationRequestedClosure cb = newCClosure =<< mkWebViewNavigationRequestedCallback wrapped + where wrapped = webViewNavigationRequestedCallbackWrapper cb + +webViewNavigationRequestedCallbackWrapper :: + WebViewNavigationRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr () -> + IO CUInt +webViewNavigationRequestedCallbackWrapper _cb _ frame request _ = do + frame' <- (newObject WebFrame) frame + request' <- (newObject NetworkRequest) request + result <- _cb frame' request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewNavigationRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationRequestedCallback -> m SignalHandlerId +onWebViewNavigationRequested obj cb = liftIO $ connectWebViewNavigationRequested obj cb SignalConnectBefore +afterWebViewNavigationRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationRequestedCallback -> m SignalHandlerId +afterWebViewNavigationRequested obj cb = connectWebViewNavigationRequested obj cb SignalConnectAfter + +connectWebViewNavigationRequested :: (GObject a, MonadIO m) => + a -> WebViewNavigationRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewNavigationRequested obj cb after = liftIO $ do + cb' <- mkWebViewNavigationRequestedCallback (webViewNavigationRequestedCallbackWrapper cb) + connectSignalFunPtr obj "navigation-requested" cb' after + +-- signal WebView::new-window-policy-decision-requested +type WebViewNewWindowPolicyDecisionRequestedCallback = + WebFrame -> + NetworkRequest -> + WebNavigationAction -> + WebPolicyDecision -> + IO Bool + +noWebViewNewWindowPolicyDecisionRequestedCallback :: Maybe WebViewNewWindowPolicyDecisionRequestedCallback +noWebViewNewWindowPolicyDecisionRequestedCallback = Nothing + +type WebViewNewWindowPolicyDecisionRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr WebNavigationAction -> + Ptr WebPolicyDecision -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewNewWindowPolicyDecisionRequestedCallback :: WebViewNewWindowPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewNewWindowPolicyDecisionRequestedCallbackC) + +webViewNewWindowPolicyDecisionRequestedClosure :: WebViewNewWindowPolicyDecisionRequestedCallback -> IO Closure +webViewNewWindowPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewNewWindowPolicyDecisionRequestedCallback wrapped + where wrapped = webViewNewWindowPolicyDecisionRequestedCallbackWrapper cb + +webViewNewWindowPolicyDecisionRequestedCallbackWrapper :: + WebViewNewWindowPolicyDecisionRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr NetworkRequest -> + Ptr WebNavigationAction -> + Ptr WebPolicyDecision -> + Ptr () -> + IO CInt +webViewNewWindowPolicyDecisionRequestedCallbackWrapper _cb _ frame request navigation_action policy_decision _ = do + frame' <- (newObject WebFrame) frame + request' <- (newObject NetworkRequest) request + navigation_action' <- (newObject WebNavigationAction) navigation_action + policy_decision' <- (newObject WebPolicyDecision) policy_decision + result <- _cb frame' request' navigation_action' policy_decision' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNewWindowPolicyDecisionRequestedCallback -> m SignalHandlerId +onWebViewNewWindowPolicyDecisionRequested obj cb = liftIO $ connectWebViewNewWindowPolicyDecisionRequested obj cb SignalConnectBefore +afterWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNewWindowPolicyDecisionRequestedCallback -> m SignalHandlerId +afterWebViewNewWindowPolicyDecisionRequested obj cb = connectWebViewNewWindowPolicyDecisionRequested obj cb SignalConnectAfter + +connectWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) => + a -> WebViewNewWindowPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewNewWindowPolicyDecisionRequested obj cb after = liftIO $ do + cb' <- mkWebViewNewWindowPolicyDecisionRequestedCallback (webViewNewWindowPolicyDecisionRequestedCallbackWrapper cb) + connectSignalFunPtr obj "new-window-policy-decision-requested" cb' after + +-- signal WebView::onload-event +type WebViewOnloadEventCallback = + WebFrame -> + IO () + +noWebViewOnloadEventCallback :: Maybe WebViewOnloadEventCallback +noWebViewOnloadEventCallback = Nothing + +type WebViewOnloadEventCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewOnloadEventCallback :: WebViewOnloadEventCallbackC -> IO (FunPtr WebViewOnloadEventCallbackC) + +webViewOnloadEventClosure :: WebViewOnloadEventCallback -> IO Closure +webViewOnloadEventClosure cb = newCClosure =<< mkWebViewOnloadEventCallback wrapped + where wrapped = webViewOnloadEventCallbackWrapper cb + +webViewOnloadEventCallbackWrapper :: + WebViewOnloadEventCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO () +webViewOnloadEventCallbackWrapper _cb _ frame _ = do + frame' <- (newObject WebFrame) frame + _cb frame' + +onWebViewOnloadEvent :: (GObject a, MonadIO m) => a -> WebViewOnloadEventCallback -> m SignalHandlerId +onWebViewOnloadEvent obj cb = liftIO $ connectWebViewOnloadEvent obj cb SignalConnectBefore +afterWebViewOnloadEvent :: (GObject a, MonadIO m) => a -> WebViewOnloadEventCallback -> m SignalHandlerId +afterWebViewOnloadEvent obj cb = connectWebViewOnloadEvent obj cb SignalConnectAfter + +connectWebViewOnloadEvent :: (GObject a, MonadIO m) => + a -> WebViewOnloadEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewOnloadEvent obj cb after = liftIO $ do + cb' <- mkWebViewOnloadEventCallback (webViewOnloadEventCallbackWrapper cb) + connectSignalFunPtr obj "onload-event" cb' after + +-- signal WebView::paste-clipboard +type WebViewPasteClipboardCallback = + IO () + +noWebViewPasteClipboardCallback :: Maybe WebViewPasteClipboardCallback +noWebViewPasteClipboardCallback = Nothing + +type WebViewPasteClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewPasteClipboardCallback :: WebViewPasteClipboardCallbackC -> IO (FunPtr WebViewPasteClipboardCallbackC) + +webViewPasteClipboardClosure :: WebViewPasteClipboardCallback -> IO Closure +webViewPasteClipboardClosure cb = newCClosure =<< mkWebViewPasteClipboardCallback wrapped + where wrapped = webViewPasteClipboardCallbackWrapper cb + +webViewPasteClipboardCallbackWrapper :: + WebViewPasteClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +webViewPasteClipboardCallbackWrapper _cb _ _ = do + _cb + +onWebViewPasteClipboard :: (GObject a, MonadIO m) => a -> WebViewPasteClipboardCallback -> m SignalHandlerId +onWebViewPasteClipboard obj cb = liftIO $ connectWebViewPasteClipboard obj cb SignalConnectBefore +afterWebViewPasteClipboard :: (GObject a, MonadIO m) => a -> WebViewPasteClipboardCallback -> m SignalHandlerId +afterWebViewPasteClipboard obj cb = connectWebViewPasteClipboard obj cb SignalConnectAfter + +connectWebViewPasteClipboard :: (GObject a, MonadIO m) => + a -> WebViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewPasteClipboard obj cb after = liftIO $ do + cb' <- mkWebViewPasteClipboardCallback (webViewPasteClipboardCallbackWrapper cb) + connectSignalFunPtr obj "paste-clipboard" cb' after + +-- signal WebView::populate-popup +type WebViewPopulatePopupCallback = + Gtk.Menu -> + IO () + +noWebViewPopulatePopupCallback :: Maybe WebViewPopulatePopupCallback +noWebViewPopulatePopupCallback = Nothing + +type WebViewPopulatePopupCallbackC = + Ptr () -> -- object + Ptr Gtk.Menu -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewPopulatePopupCallback :: WebViewPopulatePopupCallbackC -> IO (FunPtr WebViewPopulatePopupCallbackC) + +webViewPopulatePopupClosure :: WebViewPopulatePopupCallback -> IO Closure +webViewPopulatePopupClosure cb = newCClosure =<< mkWebViewPopulatePopupCallback wrapped + where wrapped = webViewPopulatePopupCallbackWrapper cb + +webViewPopulatePopupCallbackWrapper :: + WebViewPopulatePopupCallback -> + Ptr () -> + Ptr Gtk.Menu -> + Ptr () -> + IO () +webViewPopulatePopupCallbackWrapper _cb _ menu _ = do + menu' <- (newObject Gtk.Menu) menu + _cb menu' + +onWebViewPopulatePopup :: (GObject a, MonadIO m) => a -> WebViewPopulatePopupCallback -> m SignalHandlerId +onWebViewPopulatePopup obj cb = liftIO $ connectWebViewPopulatePopup obj cb SignalConnectBefore +afterWebViewPopulatePopup :: (GObject a, MonadIO m) => a -> WebViewPopulatePopupCallback -> m SignalHandlerId +afterWebViewPopulatePopup obj cb = connectWebViewPopulatePopup obj cb SignalConnectAfter + +connectWebViewPopulatePopup :: (GObject a, MonadIO m) => + a -> WebViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewPopulatePopup obj cb after = liftIO $ do + cb' <- mkWebViewPopulatePopupCallback (webViewPopulatePopupCallbackWrapper cb) + connectSignalFunPtr obj "populate-popup" cb' after + +-- signal WebView::print-requested +type WebViewPrintRequestedCallback = + WebFrame -> + IO Bool + +noWebViewPrintRequestedCallback :: Maybe WebViewPrintRequestedCallback +noWebViewPrintRequestedCallback = Nothing + +type WebViewPrintRequestedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewPrintRequestedCallback :: WebViewPrintRequestedCallbackC -> IO (FunPtr WebViewPrintRequestedCallbackC) + +webViewPrintRequestedClosure :: WebViewPrintRequestedCallback -> IO Closure +webViewPrintRequestedClosure cb = newCClosure =<< mkWebViewPrintRequestedCallback wrapped + where wrapped = webViewPrintRequestedCallbackWrapper cb + +webViewPrintRequestedCallbackWrapper :: + WebViewPrintRequestedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + IO CInt +webViewPrintRequestedCallbackWrapper _cb _ web_frame _ = do + web_frame' <- (newObject WebFrame) web_frame + result <- _cb web_frame' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewPrintRequested :: (GObject a, MonadIO m) => a -> WebViewPrintRequestedCallback -> m SignalHandlerId +onWebViewPrintRequested obj cb = liftIO $ connectWebViewPrintRequested obj cb SignalConnectBefore +afterWebViewPrintRequested :: (GObject a, MonadIO m) => a -> WebViewPrintRequestedCallback -> m SignalHandlerId +afterWebViewPrintRequested obj cb = connectWebViewPrintRequested obj cb SignalConnectAfter + +connectWebViewPrintRequested :: (GObject a, MonadIO m) => + a -> WebViewPrintRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewPrintRequested obj cb after = liftIO $ do + cb' <- mkWebViewPrintRequestedCallback (webViewPrintRequestedCallbackWrapper cb) + connectSignalFunPtr obj "print-requested" cb' after + +-- signal WebView::redo +type WebViewRedoCallback = + IO () + +noWebViewRedoCallback :: Maybe WebViewRedoCallback +noWebViewRedoCallback = Nothing + +type WebViewRedoCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewRedoCallback :: WebViewRedoCallbackC -> IO (FunPtr WebViewRedoCallbackC) + +webViewRedoClosure :: WebViewRedoCallback -> IO Closure +webViewRedoClosure cb = newCClosure =<< mkWebViewRedoCallback wrapped + where wrapped = webViewRedoCallbackWrapper cb + +webViewRedoCallbackWrapper :: + WebViewRedoCallback -> + Ptr () -> + Ptr () -> + IO () +webViewRedoCallbackWrapper _cb _ _ = do + _cb + +onWebViewRedo :: (GObject a, MonadIO m) => a -> WebViewRedoCallback -> m SignalHandlerId +onWebViewRedo obj cb = liftIO $ connectWebViewRedo obj cb SignalConnectBefore +afterWebViewRedo :: (GObject a, MonadIO m) => a -> WebViewRedoCallback -> m SignalHandlerId +afterWebViewRedo obj cb = connectWebViewRedo obj cb SignalConnectAfter + +connectWebViewRedo :: (GObject a, MonadIO m) => + a -> WebViewRedoCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewRedo obj cb after = liftIO $ do + cb' <- mkWebViewRedoCallback (webViewRedoCallbackWrapper cb) + connectSignalFunPtr obj "redo" cb' after + +-- signal WebView::resource-content-length-received +type WebViewResourceContentLengthReceivedCallback = + WebFrame -> + WebResource -> + Int32 -> + IO () + +noWebViewResourceContentLengthReceivedCallback :: Maybe WebViewResourceContentLengthReceivedCallback +noWebViewResourceContentLengthReceivedCallback = Nothing + +type WebViewResourceContentLengthReceivedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr WebResource -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceContentLengthReceivedCallback :: WebViewResourceContentLengthReceivedCallbackC -> IO (FunPtr WebViewResourceContentLengthReceivedCallbackC) + +webViewResourceContentLengthReceivedClosure :: WebViewResourceContentLengthReceivedCallback -> IO Closure +webViewResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebViewResourceContentLengthReceivedCallback wrapped + where wrapped = webViewResourceContentLengthReceivedCallbackWrapper cb + +webViewResourceContentLengthReceivedCallbackWrapper :: + WebViewResourceContentLengthReceivedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr WebResource -> + Int32 -> + Ptr () -> + IO () +webViewResourceContentLengthReceivedCallbackWrapper _cb _ web_frame web_resource length_received _ = do + web_frame' <- (newObject WebFrame) web_frame + web_resource' <- (newObject WebResource) web_resource + _cb web_frame' web_resource' length_received + +onWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebViewResourceContentLengthReceivedCallback -> m SignalHandlerId +onWebViewResourceContentLengthReceived obj cb = liftIO $ connectWebViewResourceContentLengthReceived obj cb SignalConnectBefore +afterWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebViewResourceContentLengthReceivedCallback -> m SignalHandlerId +afterWebViewResourceContentLengthReceived obj cb = connectWebViewResourceContentLengthReceived obj cb SignalConnectAfter + +connectWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) => + a -> WebViewResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceContentLengthReceived obj cb after = liftIO $ do + cb' <- mkWebViewResourceContentLengthReceivedCallback (webViewResourceContentLengthReceivedCallbackWrapper cb) + connectSignalFunPtr obj "resource-content-length-received" cb' after + +-- signal WebView::resource-load-failed +type WebViewResourceLoadFailedCallback = + WebFrame -> + WebResource -> + GError -> + IO () + +noWebViewResourceLoadFailedCallback :: Maybe WebViewResourceLoadFailedCallback +noWebViewResourceLoadFailedCallback = Nothing + +type WebViewResourceLoadFailedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr WebResource -> + Ptr GError -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceLoadFailedCallback :: WebViewResourceLoadFailedCallbackC -> IO (FunPtr WebViewResourceLoadFailedCallbackC) + +webViewResourceLoadFailedClosure :: WebViewResourceLoadFailedCallback -> IO Closure +webViewResourceLoadFailedClosure cb = newCClosure =<< mkWebViewResourceLoadFailedCallback wrapped + where wrapped = webViewResourceLoadFailedCallbackWrapper cb + +webViewResourceLoadFailedCallbackWrapper :: + WebViewResourceLoadFailedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr WebResource -> + Ptr GError -> + Ptr () -> + IO () +webViewResourceLoadFailedCallbackWrapper _cb _ web_frame web_resource error_ _ = do + web_frame' <- (newObject WebFrame) web_frame + web_resource' <- (newObject WebResource) web_resource + error_' <- (newBoxed GError) error_ + _cb web_frame' web_resource' error_' + +onWebViewResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFailedCallback -> m SignalHandlerId +onWebViewResourceLoadFailed obj cb = liftIO $ connectWebViewResourceLoadFailed obj cb SignalConnectBefore +afterWebViewResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFailedCallback -> m SignalHandlerId +afterWebViewResourceLoadFailed obj cb = connectWebViewResourceLoadFailed obj cb SignalConnectAfter + +connectWebViewResourceLoadFailed :: (GObject a, MonadIO m) => + a -> WebViewResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceLoadFailed obj cb after = liftIO $ do + cb' <- mkWebViewResourceLoadFailedCallback (webViewResourceLoadFailedCallbackWrapper cb) + connectSignalFunPtr obj "resource-load-failed" cb' after + +-- signal WebView::resource-load-finished +type WebViewResourceLoadFinishedCallback = + WebFrame -> + WebResource -> + IO () + +noWebViewResourceLoadFinishedCallback :: Maybe WebViewResourceLoadFinishedCallback +noWebViewResourceLoadFinishedCallback = Nothing + +type WebViewResourceLoadFinishedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr WebResource -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceLoadFinishedCallback :: WebViewResourceLoadFinishedCallbackC -> IO (FunPtr WebViewResourceLoadFinishedCallbackC) + +webViewResourceLoadFinishedClosure :: WebViewResourceLoadFinishedCallback -> IO Closure +webViewResourceLoadFinishedClosure cb = newCClosure =<< mkWebViewResourceLoadFinishedCallback wrapped + where wrapped = webViewResourceLoadFinishedCallbackWrapper cb + +webViewResourceLoadFinishedCallbackWrapper :: + WebViewResourceLoadFinishedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr WebResource -> + Ptr () -> + IO () +webViewResourceLoadFinishedCallbackWrapper _cb _ web_frame web_resource _ = do + web_frame' <- (newObject WebFrame) web_frame + web_resource' <- (newObject WebResource) web_resource + _cb web_frame' web_resource' + +onWebViewResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFinishedCallback -> m SignalHandlerId +onWebViewResourceLoadFinished obj cb = liftIO $ connectWebViewResourceLoadFinished obj cb SignalConnectBefore +afterWebViewResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFinishedCallback -> m SignalHandlerId +afterWebViewResourceLoadFinished obj cb = connectWebViewResourceLoadFinished obj cb SignalConnectAfter + +connectWebViewResourceLoadFinished :: (GObject a, MonadIO m) => + a -> WebViewResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceLoadFinished obj cb after = liftIO $ do + cb' <- mkWebViewResourceLoadFinishedCallback (webViewResourceLoadFinishedCallbackWrapper cb) + connectSignalFunPtr obj "resource-load-finished" cb' after + +-- signal WebView::resource-request-starting +type WebViewResourceRequestStartingCallback = + WebFrame -> + WebResource -> + NetworkRequest -> + NetworkResponse -> + IO () + +noWebViewResourceRequestStartingCallback :: Maybe WebViewResourceRequestStartingCallback +noWebViewResourceRequestStartingCallback = Nothing + +type WebViewResourceRequestStartingCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr WebResource -> + Ptr NetworkRequest -> + Ptr NetworkResponse -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceRequestStartingCallback :: WebViewResourceRequestStartingCallbackC -> IO (FunPtr WebViewResourceRequestStartingCallbackC) + +webViewResourceRequestStartingClosure :: WebViewResourceRequestStartingCallback -> IO Closure +webViewResourceRequestStartingClosure cb = newCClosure =<< mkWebViewResourceRequestStartingCallback wrapped + where wrapped = webViewResourceRequestStartingCallbackWrapper cb + +webViewResourceRequestStartingCallbackWrapper :: + WebViewResourceRequestStartingCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr WebResource -> + Ptr NetworkRequest -> + Ptr NetworkResponse -> + Ptr () -> + IO () +webViewResourceRequestStartingCallbackWrapper _cb _ web_frame web_resource request response _ = do + web_frame' <- (newObject WebFrame) web_frame + web_resource' <- (newObject WebResource) web_resource + request' <- (newObject NetworkRequest) request + response' <- (newObject NetworkResponse) response + _cb web_frame' web_resource' request' response' + +onWebViewResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebViewResourceRequestStartingCallback -> m SignalHandlerId +onWebViewResourceRequestStarting obj cb = liftIO $ connectWebViewResourceRequestStarting obj cb SignalConnectBefore +afterWebViewResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebViewResourceRequestStartingCallback -> m SignalHandlerId +afterWebViewResourceRequestStarting obj cb = connectWebViewResourceRequestStarting obj cb SignalConnectAfter + +connectWebViewResourceRequestStarting :: (GObject a, MonadIO m) => + a -> WebViewResourceRequestStartingCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceRequestStarting obj cb after = liftIO $ do + cb' <- mkWebViewResourceRequestStartingCallback (webViewResourceRequestStartingCallbackWrapper cb) + connectSignalFunPtr obj "resource-request-starting" cb' after + +-- signal WebView::resource-response-received +type WebViewResourceResponseReceivedCallback = + WebFrame -> + WebResource -> + NetworkResponse -> + IO () + +noWebViewResourceResponseReceivedCallback :: Maybe WebViewResourceResponseReceivedCallback +noWebViewResourceResponseReceivedCallback = Nothing + +type WebViewResourceResponseReceivedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr WebResource -> + Ptr NetworkResponse -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewResourceResponseReceivedCallback :: WebViewResourceResponseReceivedCallbackC -> IO (FunPtr WebViewResourceResponseReceivedCallbackC) + +webViewResourceResponseReceivedClosure :: WebViewResourceResponseReceivedCallback -> IO Closure +webViewResourceResponseReceivedClosure cb = newCClosure =<< mkWebViewResourceResponseReceivedCallback wrapped + where wrapped = webViewResourceResponseReceivedCallbackWrapper cb + +webViewResourceResponseReceivedCallbackWrapper :: + WebViewResourceResponseReceivedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr WebResource -> + Ptr NetworkResponse -> + Ptr () -> + IO () +webViewResourceResponseReceivedCallbackWrapper _cb _ web_frame web_resource response _ = do + web_frame' <- (newObject WebFrame) web_frame + web_resource' <- (newObject WebResource) web_resource + response' <- (newObject NetworkResponse) response + _cb web_frame' web_resource' response' + +onWebViewResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebViewResourceResponseReceivedCallback -> m SignalHandlerId +onWebViewResourceResponseReceived obj cb = liftIO $ connectWebViewResourceResponseReceived obj cb SignalConnectBefore +afterWebViewResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebViewResourceResponseReceivedCallback -> m SignalHandlerId +afterWebViewResourceResponseReceived obj cb = connectWebViewResourceResponseReceived obj cb SignalConnectAfter + +connectWebViewResourceResponseReceived :: (GObject a, MonadIO m) => + a -> WebViewResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewResourceResponseReceived obj cb after = liftIO $ do + cb' <- mkWebViewResourceResponseReceivedCallback (webViewResourceResponseReceivedCallbackWrapper cb) + connectSignalFunPtr obj "resource-response-received" cb' after + +-- signal WebView::run-file-chooser +type WebViewRunFileChooserCallback = + FileChooserRequest -> + IO Bool + +noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback +noWebViewRunFileChooserCallback = Nothing + +type WebViewRunFileChooserCallbackC = + Ptr () -> -- object + Ptr FileChooserRequest -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC) + +webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure +webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped + where wrapped = webViewRunFileChooserCallbackWrapper cb + +webViewRunFileChooserCallbackWrapper :: + WebViewRunFileChooserCallback -> + Ptr () -> + Ptr FileChooserRequest -> + Ptr () -> + IO CInt +webViewRunFileChooserCallbackWrapper _cb _ request _ = do + request' <- (newObject FileChooserRequest) request + result <- _cb request' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId +onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore +afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId +afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter + +connectWebViewRunFileChooser :: (GObject a, MonadIO m) => + a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewRunFileChooser obj cb after = liftIO $ do + cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb) + connectSignalFunPtr obj "run-file-chooser" cb' after + +-- signal WebView::script-alert +type WebViewScriptAlertCallback = + WebFrame -> + T.Text -> + IO Bool + +noWebViewScriptAlertCallback :: Maybe WebViewScriptAlertCallback +noWebViewScriptAlertCallback = Nothing + +type WebViewScriptAlertCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewScriptAlertCallback :: WebViewScriptAlertCallbackC -> IO (FunPtr WebViewScriptAlertCallbackC) + +webViewScriptAlertClosure :: WebViewScriptAlertCallback -> IO Closure +webViewScriptAlertClosure cb = newCClosure =<< mkWebViewScriptAlertCallback wrapped + where wrapped = webViewScriptAlertCallbackWrapper cb + +webViewScriptAlertCallbackWrapper :: + WebViewScriptAlertCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + Ptr () -> + IO CInt +webViewScriptAlertCallbackWrapper _cb _ frame message _ = do + frame' <- (newObject WebFrame) frame + message' <- cstringToText message + result <- _cb frame' message' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewScriptAlert :: (GObject a, MonadIO m) => a -> WebViewScriptAlertCallback -> m SignalHandlerId +onWebViewScriptAlert obj cb = liftIO $ connectWebViewScriptAlert obj cb SignalConnectBefore +afterWebViewScriptAlert :: (GObject a, MonadIO m) => a -> WebViewScriptAlertCallback -> m SignalHandlerId +afterWebViewScriptAlert obj cb = connectWebViewScriptAlert obj cb SignalConnectAfter + +connectWebViewScriptAlert :: (GObject a, MonadIO m) => + a -> WebViewScriptAlertCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewScriptAlert obj cb after = liftIO $ do + cb' <- mkWebViewScriptAlertCallback (webViewScriptAlertCallbackWrapper cb) + connectSignalFunPtr obj "script-alert" cb' after + +-- signal WebView::script-confirm +type WebViewScriptConfirmCallback = + WebFrame -> + T.Text -> + Ptr () -> + IO Bool + +noWebViewScriptConfirmCallback :: Maybe WebViewScriptConfirmCallback +noWebViewScriptConfirmCallback = Nothing + +type WebViewScriptConfirmCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + Ptr () -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewScriptConfirmCallback :: WebViewScriptConfirmCallbackC -> IO (FunPtr WebViewScriptConfirmCallbackC) + +webViewScriptConfirmClosure :: WebViewScriptConfirmCallback -> IO Closure +webViewScriptConfirmClosure cb = newCClosure =<< mkWebViewScriptConfirmCallback wrapped + where wrapped = webViewScriptConfirmCallbackWrapper cb + +webViewScriptConfirmCallbackWrapper :: + WebViewScriptConfirmCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + Ptr () -> + Ptr () -> + IO CInt +webViewScriptConfirmCallbackWrapper _cb _ frame message confirmed _ = do + frame' <- (newObject WebFrame) frame + message' <- cstringToText message + result <- _cb frame' message' confirmed + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewScriptConfirm :: (GObject a, MonadIO m) => a -> WebViewScriptConfirmCallback -> m SignalHandlerId +onWebViewScriptConfirm obj cb = liftIO $ connectWebViewScriptConfirm obj cb SignalConnectBefore +afterWebViewScriptConfirm :: (GObject a, MonadIO m) => a -> WebViewScriptConfirmCallback -> m SignalHandlerId +afterWebViewScriptConfirm obj cb = connectWebViewScriptConfirm obj cb SignalConnectAfter + +connectWebViewScriptConfirm :: (GObject a, MonadIO m) => + a -> WebViewScriptConfirmCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewScriptConfirm obj cb after = liftIO $ do + cb' <- mkWebViewScriptConfirmCallback (webViewScriptConfirmCallbackWrapper cb) + connectSignalFunPtr obj "script-confirm" cb' after + +-- signal WebView::script-prompt +type WebViewScriptPromptCallback = + WebFrame -> + T.Text -> + T.Text -> + Ptr () -> + IO Bool + +noWebViewScriptPromptCallback :: Maybe WebViewScriptPromptCallback +noWebViewScriptPromptCallback = Nothing + +type WebViewScriptPromptCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + CString -> + Ptr () -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewScriptPromptCallback :: WebViewScriptPromptCallbackC -> IO (FunPtr WebViewScriptPromptCallbackC) + +webViewScriptPromptClosure :: WebViewScriptPromptCallback -> IO Closure +webViewScriptPromptClosure cb = newCClosure =<< mkWebViewScriptPromptCallback wrapped + where wrapped = webViewScriptPromptCallbackWrapper cb + +webViewScriptPromptCallbackWrapper :: + WebViewScriptPromptCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + CString -> + Ptr () -> + Ptr () -> + IO CInt +webViewScriptPromptCallbackWrapper _cb _ frame message default_ text _ = do + frame' <- (newObject WebFrame) frame + message' <- cstringToText message + default_' <- cstringToText default_ + result <- _cb frame' message' default_' text + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewScriptPrompt :: (GObject a, MonadIO m) => a -> WebViewScriptPromptCallback -> m SignalHandlerId +onWebViewScriptPrompt obj cb = liftIO $ connectWebViewScriptPrompt obj cb SignalConnectBefore +afterWebViewScriptPrompt :: (GObject a, MonadIO m) => a -> WebViewScriptPromptCallback -> m SignalHandlerId +afterWebViewScriptPrompt obj cb = connectWebViewScriptPrompt obj cb SignalConnectAfter + +connectWebViewScriptPrompt :: (GObject a, MonadIO m) => + a -> WebViewScriptPromptCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewScriptPrompt obj cb after = liftIO $ do + cb' <- mkWebViewScriptPromptCallback (webViewScriptPromptCallbackWrapper cb) + connectSignalFunPtr obj "script-prompt" cb' after + +-- signal WebView::select-all +type WebViewSelectAllCallback = + IO () + +noWebViewSelectAllCallback :: Maybe WebViewSelectAllCallback +noWebViewSelectAllCallback = Nothing + +type WebViewSelectAllCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewSelectAllCallback :: WebViewSelectAllCallbackC -> IO (FunPtr WebViewSelectAllCallbackC) + +webViewSelectAllClosure :: WebViewSelectAllCallback -> IO Closure +webViewSelectAllClosure cb = newCClosure =<< mkWebViewSelectAllCallback wrapped + where wrapped = webViewSelectAllCallbackWrapper cb + +webViewSelectAllCallbackWrapper :: + WebViewSelectAllCallback -> + Ptr () -> + Ptr () -> + IO () +webViewSelectAllCallbackWrapper _cb _ _ = do + _cb + +onWebViewSelectAll :: (GObject a, MonadIO m) => a -> WebViewSelectAllCallback -> m SignalHandlerId +onWebViewSelectAll obj cb = liftIO $ connectWebViewSelectAll obj cb SignalConnectBefore +afterWebViewSelectAll :: (GObject a, MonadIO m) => a -> WebViewSelectAllCallback -> m SignalHandlerId +afterWebViewSelectAll obj cb = connectWebViewSelectAll obj cb SignalConnectAfter + +connectWebViewSelectAll :: (GObject a, MonadIO m) => + a -> WebViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewSelectAll obj cb after = liftIO $ do + cb' <- mkWebViewSelectAllCallback (webViewSelectAllCallbackWrapper cb) + connectSignalFunPtr obj "select-all" cb' after + +-- signal WebView::selection-changed +type WebViewSelectionChangedCallback = + IO () + +noWebViewSelectionChangedCallback :: Maybe WebViewSelectionChangedCallback +noWebViewSelectionChangedCallback = Nothing + +type WebViewSelectionChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewSelectionChangedCallback :: WebViewSelectionChangedCallbackC -> IO (FunPtr WebViewSelectionChangedCallbackC) + +webViewSelectionChangedClosure :: WebViewSelectionChangedCallback -> IO Closure +webViewSelectionChangedClosure cb = newCClosure =<< mkWebViewSelectionChangedCallback wrapped + where wrapped = webViewSelectionChangedCallbackWrapper cb + +webViewSelectionChangedCallbackWrapper :: + WebViewSelectionChangedCallback -> + Ptr () -> + Ptr () -> + IO () +webViewSelectionChangedCallbackWrapper _cb _ _ = do + _cb + +onWebViewSelectionChanged :: (GObject a, MonadIO m) => a -> WebViewSelectionChangedCallback -> m SignalHandlerId +onWebViewSelectionChanged obj cb = liftIO $ connectWebViewSelectionChanged obj cb SignalConnectBefore +afterWebViewSelectionChanged :: (GObject a, MonadIO m) => a -> WebViewSelectionChangedCallback -> m SignalHandlerId +afterWebViewSelectionChanged obj cb = connectWebViewSelectionChanged obj cb SignalConnectAfter + +connectWebViewSelectionChanged :: (GObject a, MonadIO m) => + a -> WebViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewSelectionChanged obj cb after = liftIO $ do + cb' <- mkWebViewSelectionChangedCallback (webViewSelectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "selection-changed" cb' after + +-- signal WebView::should-apply-style +type WebViewShouldApplyStyleCallback = + DOMCSSStyleDeclaration -> + DOMRange -> + IO Bool + +noWebViewShouldApplyStyleCallback :: Maybe WebViewShouldApplyStyleCallback +noWebViewShouldApplyStyleCallback = Nothing + +type WebViewShouldApplyStyleCallbackC = + Ptr () -> -- object + Ptr DOMCSSStyleDeclaration -> + Ptr DOMRange -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldApplyStyleCallback :: WebViewShouldApplyStyleCallbackC -> IO (FunPtr WebViewShouldApplyStyleCallbackC) + +webViewShouldApplyStyleClosure :: WebViewShouldApplyStyleCallback -> IO Closure +webViewShouldApplyStyleClosure cb = newCClosure =<< mkWebViewShouldApplyStyleCallback wrapped + where wrapped = webViewShouldApplyStyleCallbackWrapper cb + +webViewShouldApplyStyleCallbackWrapper :: + WebViewShouldApplyStyleCallback -> + Ptr () -> + Ptr DOMCSSStyleDeclaration -> + Ptr DOMRange -> + Ptr () -> + IO CInt +webViewShouldApplyStyleCallbackWrapper _cb _ set range _ = do + set' <- (newObject DOMCSSStyleDeclaration) set + range' <- (newObject DOMRange) range + result <- _cb set' range' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldApplyStyle :: (GObject a, MonadIO m) => a -> WebViewShouldApplyStyleCallback -> m SignalHandlerId +onWebViewShouldApplyStyle obj cb = liftIO $ connectWebViewShouldApplyStyle obj cb SignalConnectBefore +afterWebViewShouldApplyStyle :: (GObject a, MonadIO m) => a -> WebViewShouldApplyStyleCallback -> m SignalHandlerId +afterWebViewShouldApplyStyle obj cb = connectWebViewShouldApplyStyle obj cb SignalConnectAfter + +connectWebViewShouldApplyStyle :: (GObject a, MonadIO m) => + a -> WebViewShouldApplyStyleCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldApplyStyle obj cb after = liftIO $ do + cb' <- mkWebViewShouldApplyStyleCallback (webViewShouldApplyStyleCallbackWrapper cb) + connectSignalFunPtr obj "should-apply-style" cb' after + +-- signal WebView::should-begin-editing +type WebViewShouldBeginEditingCallback = + DOMRange -> + IO Bool + +noWebViewShouldBeginEditingCallback :: Maybe WebViewShouldBeginEditingCallback +noWebViewShouldBeginEditingCallback = Nothing + +type WebViewShouldBeginEditingCallbackC = + Ptr () -> -- object + Ptr DOMRange -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldBeginEditingCallback :: WebViewShouldBeginEditingCallbackC -> IO (FunPtr WebViewShouldBeginEditingCallbackC) + +webViewShouldBeginEditingClosure :: WebViewShouldBeginEditingCallback -> IO Closure +webViewShouldBeginEditingClosure cb = newCClosure =<< mkWebViewShouldBeginEditingCallback wrapped + where wrapped = webViewShouldBeginEditingCallbackWrapper cb + +webViewShouldBeginEditingCallbackWrapper :: + WebViewShouldBeginEditingCallback -> + Ptr () -> + Ptr DOMRange -> + Ptr () -> + IO CInt +webViewShouldBeginEditingCallbackWrapper _cb _ range _ = do + range' <- (newObject DOMRange) range + result <- _cb range' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldBeginEditing :: (GObject a, MonadIO m) => a -> WebViewShouldBeginEditingCallback -> m SignalHandlerId +onWebViewShouldBeginEditing obj cb = liftIO $ connectWebViewShouldBeginEditing obj cb SignalConnectBefore +afterWebViewShouldBeginEditing :: (GObject a, MonadIO m) => a -> WebViewShouldBeginEditingCallback -> m SignalHandlerId +afterWebViewShouldBeginEditing obj cb = connectWebViewShouldBeginEditing obj cb SignalConnectAfter + +connectWebViewShouldBeginEditing :: (GObject a, MonadIO m) => + a -> WebViewShouldBeginEditingCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldBeginEditing obj cb after = liftIO $ do + cb' <- mkWebViewShouldBeginEditingCallback (webViewShouldBeginEditingCallbackWrapper cb) + connectSignalFunPtr obj "should-begin-editing" cb' after + +-- signal WebView::should-change-selected-range +type WebViewShouldChangeSelectedRangeCallback = + DOMRange -> + DOMRange -> + SelectionAffinity -> + Bool -> + IO Bool + +noWebViewShouldChangeSelectedRangeCallback :: Maybe WebViewShouldChangeSelectedRangeCallback +noWebViewShouldChangeSelectedRangeCallback = Nothing + +type WebViewShouldChangeSelectedRangeCallbackC = + Ptr () -> -- object + Ptr DOMRange -> + Ptr DOMRange -> + CUInt -> + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldChangeSelectedRangeCallback :: WebViewShouldChangeSelectedRangeCallbackC -> IO (FunPtr WebViewShouldChangeSelectedRangeCallbackC) + +webViewShouldChangeSelectedRangeClosure :: WebViewShouldChangeSelectedRangeCallback -> IO Closure +webViewShouldChangeSelectedRangeClosure cb = newCClosure =<< mkWebViewShouldChangeSelectedRangeCallback wrapped + where wrapped = webViewShouldChangeSelectedRangeCallbackWrapper cb + +webViewShouldChangeSelectedRangeCallbackWrapper :: + WebViewShouldChangeSelectedRangeCallback -> + Ptr () -> + Ptr DOMRange -> + Ptr DOMRange -> + CUInt -> + CInt -> + Ptr () -> + IO CInt +webViewShouldChangeSelectedRangeCallbackWrapper _cb _ fromRange toRange affinity stillSelecting _ = do + fromRange' <- (newObject DOMRange) fromRange + toRange' <- (newObject DOMRange) toRange + let affinity' = (toEnum . fromIntegral) affinity + let stillSelecting' = (/= 0) stillSelecting + result <- _cb fromRange' toRange' affinity' stillSelecting' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) => a -> WebViewShouldChangeSelectedRangeCallback -> m SignalHandlerId +onWebViewShouldChangeSelectedRange obj cb = liftIO $ connectWebViewShouldChangeSelectedRange obj cb SignalConnectBefore +afterWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) => a -> WebViewShouldChangeSelectedRangeCallback -> m SignalHandlerId +afterWebViewShouldChangeSelectedRange obj cb = connectWebViewShouldChangeSelectedRange obj cb SignalConnectAfter + +connectWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) => + a -> WebViewShouldChangeSelectedRangeCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldChangeSelectedRange obj cb after = liftIO $ do + cb' <- mkWebViewShouldChangeSelectedRangeCallback (webViewShouldChangeSelectedRangeCallbackWrapper cb) + connectSignalFunPtr obj "should-change-selected-range" cb' after + +-- signal WebView::should-delete-range +type WebViewShouldDeleteRangeCallback = + DOMRange -> + IO Bool + +noWebViewShouldDeleteRangeCallback :: Maybe WebViewShouldDeleteRangeCallback +noWebViewShouldDeleteRangeCallback = Nothing + +type WebViewShouldDeleteRangeCallbackC = + Ptr () -> -- object + Ptr DOMRange -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldDeleteRangeCallback :: WebViewShouldDeleteRangeCallbackC -> IO (FunPtr WebViewShouldDeleteRangeCallbackC) + +webViewShouldDeleteRangeClosure :: WebViewShouldDeleteRangeCallback -> IO Closure +webViewShouldDeleteRangeClosure cb = newCClosure =<< mkWebViewShouldDeleteRangeCallback wrapped + where wrapped = webViewShouldDeleteRangeCallbackWrapper cb + +webViewShouldDeleteRangeCallbackWrapper :: + WebViewShouldDeleteRangeCallback -> + Ptr () -> + Ptr DOMRange -> + Ptr () -> + IO CInt +webViewShouldDeleteRangeCallbackWrapper _cb _ range _ = do + range' <- (newObject DOMRange) range + result <- _cb range' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldDeleteRange :: (GObject a, MonadIO m) => a -> WebViewShouldDeleteRangeCallback -> m SignalHandlerId +onWebViewShouldDeleteRange obj cb = liftIO $ connectWebViewShouldDeleteRange obj cb SignalConnectBefore +afterWebViewShouldDeleteRange :: (GObject a, MonadIO m) => a -> WebViewShouldDeleteRangeCallback -> m SignalHandlerId +afterWebViewShouldDeleteRange obj cb = connectWebViewShouldDeleteRange obj cb SignalConnectAfter + +connectWebViewShouldDeleteRange :: (GObject a, MonadIO m) => + a -> WebViewShouldDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldDeleteRange obj cb after = liftIO $ do + cb' <- mkWebViewShouldDeleteRangeCallback (webViewShouldDeleteRangeCallbackWrapper cb) + connectSignalFunPtr obj "should-delete-range" cb' after + +-- signal WebView::should-end-editing +type WebViewShouldEndEditingCallback = + DOMRange -> + IO Bool + +noWebViewShouldEndEditingCallback :: Maybe WebViewShouldEndEditingCallback +noWebViewShouldEndEditingCallback = Nothing + +type WebViewShouldEndEditingCallbackC = + Ptr () -> -- object + Ptr DOMRange -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldEndEditingCallback :: WebViewShouldEndEditingCallbackC -> IO (FunPtr WebViewShouldEndEditingCallbackC) + +webViewShouldEndEditingClosure :: WebViewShouldEndEditingCallback -> IO Closure +webViewShouldEndEditingClosure cb = newCClosure =<< mkWebViewShouldEndEditingCallback wrapped + where wrapped = webViewShouldEndEditingCallbackWrapper cb + +webViewShouldEndEditingCallbackWrapper :: + WebViewShouldEndEditingCallback -> + Ptr () -> + Ptr DOMRange -> + Ptr () -> + IO CInt +webViewShouldEndEditingCallbackWrapper _cb _ range _ = do + range' <- (newObject DOMRange) range + result <- _cb range' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldEndEditing :: (GObject a, MonadIO m) => a -> WebViewShouldEndEditingCallback -> m SignalHandlerId +onWebViewShouldEndEditing obj cb = liftIO $ connectWebViewShouldEndEditing obj cb SignalConnectBefore +afterWebViewShouldEndEditing :: (GObject a, MonadIO m) => a -> WebViewShouldEndEditingCallback -> m SignalHandlerId +afterWebViewShouldEndEditing obj cb = connectWebViewShouldEndEditing obj cb SignalConnectAfter + +connectWebViewShouldEndEditing :: (GObject a, MonadIO m) => + a -> WebViewShouldEndEditingCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldEndEditing obj cb after = liftIO $ do + cb' <- mkWebViewShouldEndEditingCallback (webViewShouldEndEditingCallbackWrapper cb) + connectSignalFunPtr obj "should-end-editing" cb' after + +-- signal WebView::should-insert-node +type WebViewShouldInsertNodeCallback = + DOMNode -> + DOMRange -> + InsertAction -> + IO Bool + +noWebViewShouldInsertNodeCallback :: Maybe WebViewShouldInsertNodeCallback +noWebViewShouldInsertNodeCallback = Nothing + +type WebViewShouldInsertNodeCallbackC = + Ptr () -> -- object + Ptr DOMNode -> + Ptr DOMRange -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldInsertNodeCallback :: WebViewShouldInsertNodeCallbackC -> IO (FunPtr WebViewShouldInsertNodeCallbackC) + +webViewShouldInsertNodeClosure :: WebViewShouldInsertNodeCallback -> IO Closure +webViewShouldInsertNodeClosure cb = newCClosure =<< mkWebViewShouldInsertNodeCallback wrapped + where wrapped = webViewShouldInsertNodeCallbackWrapper cb + +webViewShouldInsertNodeCallbackWrapper :: + WebViewShouldInsertNodeCallback -> + Ptr () -> + Ptr DOMNode -> + Ptr DOMRange -> + CUInt -> + Ptr () -> + IO CInt +webViewShouldInsertNodeCallbackWrapper _cb _ node range action _ = do + node' <- (newObject DOMNode) node + range' <- (newObject DOMRange) range + let action' = (toEnum . fromIntegral) action + result <- _cb node' range' action' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldInsertNode :: (GObject a, MonadIO m) => a -> WebViewShouldInsertNodeCallback -> m SignalHandlerId +onWebViewShouldInsertNode obj cb = liftIO $ connectWebViewShouldInsertNode obj cb SignalConnectBefore +afterWebViewShouldInsertNode :: (GObject a, MonadIO m) => a -> WebViewShouldInsertNodeCallback -> m SignalHandlerId +afterWebViewShouldInsertNode obj cb = connectWebViewShouldInsertNode obj cb SignalConnectAfter + +connectWebViewShouldInsertNode :: (GObject a, MonadIO m) => + a -> WebViewShouldInsertNodeCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldInsertNode obj cb after = liftIO $ do + cb' <- mkWebViewShouldInsertNodeCallback (webViewShouldInsertNodeCallbackWrapper cb) + connectSignalFunPtr obj "should-insert-node" cb' after + +-- signal WebView::should-insert-text +type WebViewShouldInsertTextCallback = + T.Text -> + DOMRange -> + InsertAction -> + IO Bool + +noWebViewShouldInsertTextCallback :: Maybe WebViewShouldInsertTextCallback +noWebViewShouldInsertTextCallback = Nothing + +type WebViewShouldInsertTextCallbackC = + Ptr () -> -- object + CString -> + Ptr DOMRange -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldInsertTextCallback :: WebViewShouldInsertTextCallbackC -> IO (FunPtr WebViewShouldInsertTextCallbackC) + +webViewShouldInsertTextClosure :: WebViewShouldInsertTextCallback -> IO Closure +webViewShouldInsertTextClosure cb = newCClosure =<< mkWebViewShouldInsertTextCallback wrapped + where wrapped = webViewShouldInsertTextCallbackWrapper cb + +webViewShouldInsertTextCallbackWrapper :: + WebViewShouldInsertTextCallback -> + Ptr () -> + CString -> + Ptr DOMRange -> + CUInt -> + Ptr () -> + IO CInt +webViewShouldInsertTextCallbackWrapper _cb _ string range action _ = do + string' <- cstringToText string + range' <- (newObject DOMRange) range + let action' = (toEnum . fromIntegral) action + result <- _cb string' range' action' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldInsertText :: (GObject a, MonadIO m) => a -> WebViewShouldInsertTextCallback -> m SignalHandlerId +onWebViewShouldInsertText obj cb = liftIO $ connectWebViewShouldInsertText obj cb SignalConnectBefore +afterWebViewShouldInsertText :: (GObject a, MonadIO m) => a -> WebViewShouldInsertTextCallback -> m SignalHandlerId +afterWebViewShouldInsertText obj cb = connectWebViewShouldInsertText obj cb SignalConnectAfter + +connectWebViewShouldInsertText :: (GObject a, MonadIO m) => + a -> WebViewShouldInsertTextCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldInsertText obj cb after = liftIO $ do + cb' <- mkWebViewShouldInsertTextCallback (webViewShouldInsertTextCallbackWrapper cb) + connectSignalFunPtr obj "should-insert-text" cb' after + +-- signal WebView::should-show-delete-interface-for-element +type WebViewShouldShowDeleteInterfaceForElementCallback = + DOMHTMLElement -> + IO Bool + +noWebViewShouldShowDeleteInterfaceForElementCallback :: Maybe WebViewShouldShowDeleteInterfaceForElementCallback +noWebViewShouldShowDeleteInterfaceForElementCallback = Nothing + +type WebViewShouldShowDeleteInterfaceForElementCallbackC = + Ptr () -> -- object + Ptr DOMHTMLElement -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewShouldShowDeleteInterfaceForElementCallback :: WebViewShouldShowDeleteInterfaceForElementCallbackC -> IO (FunPtr WebViewShouldShowDeleteInterfaceForElementCallbackC) + +webViewShouldShowDeleteInterfaceForElementClosure :: WebViewShouldShowDeleteInterfaceForElementCallback -> IO Closure +webViewShouldShowDeleteInterfaceForElementClosure cb = newCClosure =<< mkWebViewShouldShowDeleteInterfaceForElementCallback wrapped + where wrapped = webViewShouldShowDeleteInterfaceForElementCallbackWrapper cb + +webViewShouldShowDeleteInterfaceForElementCallbackWrapper :: + WebViewShouldShowDeleteInterfaceForElementCallback -> + Ptr () -> + Ptr DOMHTMLElement -> + Ptr () -> + IO CInt +webViewShouldShowDeleteInterfaceForElementCallbackWrapper _cb _ element _ = do + element' <- (newObject DOMHTMLElement) element + result <- _cb element' + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) => a -> WebViewShouldShowDeleteInterfaceForElementCallback -> m SignalHandlerId +onWebViewShouldShowDeleteInterfaceForElement obj cb = liftIO $ connectWebViewShouldShowDeleteInterfaceForElement obj cb SignalConnectBefore +afterWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) => a -> WebViewShouldShowDeleteInterfaceForElementCallback -> m SignalHandlerId +afterWebViewShouldShowDeleteInterfaceForElement obj cb = connectWebViewShouldShowDeleteInterfaceForElement obj cb SignalConnectAfter + +connectWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) => + a -> WebViewShouldShowDeleteInterfaceForElementCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewShouldShowDeleteInterfaceForElement obj cb after = liftIO $ do + cb' <- mkWebViewShouldShowDeleteInterfaceForElementCallback (webViewShouldShowDeleteInterfaceForElementCallbackWrapper cb) + connectSignalFunPtr obj "should-show-delete-interface-for-element" cb' after + +-- signal WebView::status-bar-text-changed +type WebViewStatusBarTextChangedCallback = + T.Text -> + IO () + +noWebViewStatusBarTextChangedCallback :: Maybe WebViewStatusBarTextChangedCallback +noWebViewStatusBarTextChangedCallback = Nothing + +type WebViewStatusBarTextChangedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewStatusBarTextChangedCallback :: WebViewStatusBarTextChangedCallbackC -> IO (FunPtr WebViewStatusBarTextChangedCallbackC) + +webViewStatusBarTextChangedClosure :: WebViewStatusBarTextChangedCallback -> IO Closure +webViewStatusBarTextChangedClosure cb = newCClosure =<< mkWebViewStatusBarTextChangedCallback wrapped + where wrapped = webViewStatusBarTextChangedCallbackWrapper cb + +webViewStatusBarTextChangedCallbackWrapper :: + WebViewStatusBarTextChangedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +webViewStatusBarTextChangedCallbackWrapper _cb _ object _ = do + object' <- cstringToText object + _cb object' + +onWebViewStatusBarTextChanged :: (GObject a, MonadIO m) => a -> WebViewStatusBarTextChangedCallback -> m SignalHandlerId +onWebViewStatusBarTextChanged obj cb = liftIO $ connectWebViewStatusBarTextChanged obj cb SignalConnectBefore +afterWebViewStatusBarTextChanged :: (GObject a, MonadIO m) => a -> WebViewStatusBarTextChangedCallback -> m SignalHandlerId +afterWebViewStatusBarTextChanged obj cb = connectWebViewStatusBarTextChanged obj cb SignalConnectAfter + +connectWebViewStatusBarTextChanged :: (GObject a, MonadIO m) => + a -> WebViewStatusBarTextChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewStatusBarTextChanged obj cb after = liftIO $ do + cb' <- mkWebViewStatusBarTextChangedCallback (webViewStatusBarTextChangedCallbackWrapper cb) + connectSignalFunPtr obj "status-bar-text-changed" cb' after + +-- signal WebView::title-changed +type WebViewTitleChangedCallback = + WebFrame -> + T.Text -> + IO () + +noWebViewTitleChangedCallback :: Maybe WebViewTitleChangedCallback +noWebViewTitleChangedCallback = Nothing + +type WebViewTitleChangedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewTitleChangedCallback :: WebViewTitleChangedCallbackC -> IO (FunPtr WebViewTitleChangedCallbackC) + +webViewTitleChangedClosure :: WebViewTitleChangedCallback -> IO Closure +webViewTitleChangedClosure cb = newCClosure =<< mkWebViewTitleChangedCallback wrapped + where wrapped = webViewTitleChangedCallbackWrapper cb + +webViewTitleChangedCallbackWrapper :: + WebViewTitleChangedCallback -> + Ptr () -> + Ptr WebFrame -> + CString -> + Ptr () -> + IO () +webViewTitleChangedCallbackWrapper _cb _ frame title _ = do + frame' <- (newObject WebFrame) frame + title' <- cstringToText title + _cb frame' title' + +onWebViewTitleChanged :: (GObject a, MonadIO m) => a -> WebViewTitleChangedCallback -> m SignalHandlerId +onWebViewTitleChanged obj cb = liftIO $ connectWebViewTitleChanged obj cb SignalConnectBefore +afterWebViewTitleChanged :: (GObject a, MonadIO m) => a -> WebViewTitleChangedCallback -> m SignalHandlerId +afterWebViewTitleChanged obj cb = connectWebViewTitleChanged obj cb SignalConnectAfter + +connectWebViewTitleChanged :: (GObject a, MonadIO m) => + a -> WebViewTitleChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewTitleChanged obj cb after = liftIO $ do + cb' <- mkWebViewTitleChangedCallback (webViewTitleChangedCallbackWrapper cb) + connectSignalFunPtr obj "title-changed" cb' after + +-- signal WebView::undo +type WebViewUndoCallback = + IO () + +noWebViewUndoCallback :: Maybe WebViewUndoCallback +noWebViewUndoCallback = Nothing + +type WebViewUndoCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewUndoCallback :: WebViewUndoCallbackC -> IO (FunPtr WebViewUndoCallbackC) + +webViewUndoClosure :: WebViewUndoCallback -> IO Closure +webViewUndoClosure cb = newCClosure =<< mkWebViewUndoCallback wrapped + where wrapped = webViewUndoCallbackWrapper cb + +webViewUndoCallbackWrapper :: + WebViewUndoCallback -> + Ptr () -> + Ptr () -> + IO () +webViewUndoCallbackWrapper _cb _ _ = do + _cb + +onWebViewUndo :: (GObject a, MonadIO m) => a -> WebViewUndoCallback -> m SignalHandlerId +onWebViewUndo obj cb = liftIO $ connectWebViewUndo obj cb SignalConnectBefore +afterWebViewUndo :: (GObject a, MonadIO m) => a -> WebViewUndoCallback -> m SignalHandlerId +afterWebViewUndo obj cb = connectWebViewUndo obj cb SignalConnectAfter + +connectWebViewUndo :: (GObject a, MonadIO m) => + a -> WebViewUndoCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewUndo obj cb after = liftIO $ do + cb' <- mkWebViewUndoCallback (webViewUndoCallbackWrapper cb) + connectSignalFunPtr obj "undo" cb' after + +-- signal WebView::user-changed-contents +type WebViewUserChangedContentsCallback = + IO () + +noWebViewUserChangedContentsCallback :: Maybe WebViewUserChangedContentsCallback +noWebViewUserChangedContentsCallback = Nothing + +type WebViewUserChangedContentsCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewUserChangedContentsCallback :: WebViewUserChangedContentsCallbackC -> IO (FunPtr WebViewUserChangedContentsCallbackC) + +webViewUserChangedContentsClosure :: WebViewUserChangedContentsCallback -> IO Closure +webViewUserChangedContentsClosure cb = newCClosure =<< mkWebViewUserChangedContentsCallback wrapped + where wrapped = webViewUserChangedContentsCallbackWrapper cb + +webViewUserChangedContentsCallbackWrapper :: + WebViewUserChangedContentsCallback -> + Ptr () -> + Ptr () -> + IO () +webViewUserChangedContentsCallbackWrapper _cb _ _ = do + _cb + +onWebViewUserChangedContents :: (GObject a, MonadIO m) => a -> WebViewUserChangedContentsCallback -> m SignalHandlerId +onWebViewUserChangedContents obj cb = liftIO $ connectWebViewUserChangedContents obj cb SignalConnectBefore +afterWebViewUserChangedContents :: (GObject a, MonadIO m) => a -> WebViewUserChangedContentsCallback -> m SignalHandlerId +afterWebViewUserChangedContents obj cb = connectWebViewUserChangedContents obj cb SignalConnectAfter + +connectWebViewUserChangedContents :: (GObject a, MonadIO m) => + a -> WebViewUserChangedContentsCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewUserChangedContents obj cb after = liftIO $ do + cb' <- mkWebViewUserChangedContentsCallback (webViewUserChangedContentsCallbackWrapper cb) + connectSignalFunPtr obj "user-changed-contents" cb' after + +-- signal WebView::viewport-attributes-changed +type WebViewViewportAttributesChangedCallback = + ViewportAttributes -> + IO () + +noWebViewViewportAttributesChangedCallback :: Maybe WebViewViewportAttributesChangedCallback +noWebViewViewportAttributesChangedCallback = Nothing + +type WebViewViewportAttributesChangedCallbackC = + Ptr () -> -- object + Ptr ViewportAttributes -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewViewportAttributesChangedCallback :: WebViewViewportAttributesChangedCallbackC -> IO (FunPtr WebViewViewportAttributesChangedCallbackC) + +webViewViewportAttributesChangedClosure :: WebViewViewportAttributesChangedCallback -> IO Closure +webViewViewportAttributesChangedClosure cb = newCClosure =<< mkWebViewViewportAttributesChangedCallback wrapped + where wrapped = webViewViewportAttributesChangedCallbackWrapper cb + +webViewViewportAttributesChangedCallbackWrapper :: + WebViewViewportAttributesChangedCallback -> + Ptr () -> + Ptr ViewportAttributes -> + Ptr () -> + IO () +webViewViewportAttributesChangedCallbackWrapper _cb _ object _ = do + object' <- (newObject ViewportAttributes) object + _cb object' + +onWebViewViewportAttributesChanged :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesChangedCallback -> m SignalHandlerId +onWebViewViewportAttributesChanged obj cb = liftIO $ connectWebViewViewportAttributesChanged obj cb SignalConnectBefore +afterWebViewViewportAttributesChanged :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesChangedCallback -> m SignalHandlerId +afterWebViewViewportAttributesChanged obj cb = connectWebViewViewportAttributesChanged obj cb SignalConnectAfter + +connectWebViewViewportAttributesChanged :: (GObject a, MonadIO m) => + a -> WebViewViewportAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewViewportAttributesChanged obj cb after = liftIO $ do + cb' <- mkWebViewViewportAttributesChangedCallback (webViewViewportAttributesChangedCallbackWrapper cb) + connectSignalFunPtr obj "viewport-attributes-changed" cb' after + +-- signal WebView::viewport-attributes-recompute-requested +type WebViewViewportAttributesRecomputeRequestedCallback = + ViewportAttributes -> + IO () + +noWebViewViewportAttributesRecomputeRequestedCallback :: Maybe WebViewViewportAttributesRecomputeRequestedCallback +noWebViewViewportAttributesRecomputeRequestedCallback = Nothing + +type WebViewViewportAttributesRecomputeRequestedCallbackC = + Ptr () -> -- object + Ptr ViewportAttributes -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewViewportAttributesRecomputeRequestedCallback :: WebViewViewportAttributesRecomputeRequestedCallbackC -> IO (FunPtr WebViewViewportAttributesRecomputeRequestedCallbackC) + +webViewViewportAttributesRecomputeRequestedClosure :: WebViewViewportAttributesRecomputeRequestedCallback -> IO Closure +webViewViewportAttributesRecomputeRequestedClosure cb = newCClosure =<< mkWebViewViewportAttributesRecomputeRequestedCallback wrapped + where wrapped = webViewViewportAttributesRecomputeRequestedCallbackWrapper cb + +webViewViewportAttributesRecomputeRequestedCallbackWrapper :: + WebViewViewportAttributesRecomputeRequestedCallback -> + Ptr () -> + Ptr ViewportAttributes -> + Ptr () -> + IO () +webViewViewportAttributesRecomputeRequestedCallbackWrapper _cb _ object _ = do + object' <- (newObject ViewportAttributes) object + _cb object' + +onWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesRecomputeRequestedCallback -> m SignalHandlerId +onWebViewViewportAttributesRecomputeRequested obj cb = liftIO $ connectWebViewViewportAttributesRecomputeRequested obj cb SignalConnectBefore +afterWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesRecomputeRequestedCallback -> m SignalHandlerId +afterWebViewViewportAttributesRecomputeRequested obj cb = connectWebViewViewportAttributesRecomputeRequested obj cb SignalConnectAfter + +connectWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) => + a -> WebViewViewportAttributesRecomputeRequestedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewViewportAttributesRecomputeRequested obj cb after = liftIO $ do + cb' <- mkWebViewViewportAttributesRecomputeRequestedCallback (webViewViewportAttributesRecomputeRequestedCallbackWrapper cb) + connectSignalFunPtr obj "viewport-attributes-recompute-requested" cb' after + +-- signal WebView::web-view-ready +type WebViewWebViewReadyCallback = + IO Bool + +noWebViewWebViewReadyCallback :: Maybe WebViewWebViewReadyCallback +noWebViewWebViewReadyCallback = Nothing + +type WebViewWebViewReadyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWebViewWebViewReadyCallback :: WebViewWebViewReadyCallbackC -> IO (FunPtr WebViewWebViewReadyCallbackC) + +webViewWebViewReadyClosure :: WebViewWebViewReadyCallback -> IO Closure +webViewWebViewReadyClosure cb = newCClosure =<< mkWebViewWebViewReadyCallback wrapped + where wrapped = webViewWebViewReadyCallbackWrapper cb + +webViewWebViewReadyCallbackWrapper :: + WebViewWebViewReadyCallback -> + Ptr () -> + Ptr () -> + IO CInt +webViewWebViewReadyCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWebViewWebViewReady :: (GObject a, MonadIO m) => a -> WebViewWebViewReadyCallback -> m SignalHandlerId +onWebViewWebViewReady obj cb = liftIO $ connectWebViewWebViewReady obj cb SignalConnectBefore +afterWebViewWebViewReady :: (GObject a, MonadIO m) => a -> WebViewWebViewReadyCallback -> m SignalHandlerId +afterWebViewWebViewReady obj cb = connectWebViewWebViewReady obj cb SignalConnectAfter + +connectWebViewWebViewReady :: (GObject a, MonadIO m) => + a -> WebViewWebViewReadyCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewWebViewReady obj cb after = liftIO $ do + cb' <- mkWebViewWebViewReadyCallback (webViewWebViewReadyCallbackWrapper cb) + connectSignalFunPtr obj "web-view-ready" cb' after + +-- signal WebView::window-object-cleared +type WebViewWindowObjectClearedCallback = + WebFrame -> + Ptr () -> + Ptr () -> + IO () + +noWebViewWindowObjectClearedCallback :: Maybe WebViewWindowObjectClearedCallback +noWebViewWindowObjectClearedCallback = Nothing + +type WebViewWindowObjectClearedCallbackC = + Ptr () -> -- object + Ptr WebFrame -> + Ptr () -> + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebViewWindowObjectClearedCallback :: WebViewWindowObjectClearedCallbackC -> IO (FunPtr WebViewWindowObjectClearedCallbackC) + +webViewWindowObjectClearedClosure :: WebViewWindowObjectClearedCallback -> IO Closure +webViewWindowObjectClearedClosure cb = newCClosure =<< mkWebViewWindowObjectClearedCallback wrapped + where wrapped = webViewWindowObjectClearedCallbackWrapper cb + +webViewWindowObjectClearedCallbackWrapper :: + WebViewWindowObjectClearedCallback -> + Ptr () -> + Ptr WebFrame -> + Ptr () -> + Ptr () -> + Ptr () -> + IO () +webViewWindowObjectClearedCallbackWrapper _cb _ frame context window_object _ = do + frame' <- (newObject WebFrame) frame + _cb frame' context window_object + +onWebViewWindowObjectCleared :: (GObject a, MonadIO m) => a -> WebViewWindowObjectClearedCallback -> m SignalHandlerId +onWebViewWindowObjectCleared obj cb = liftIO $ connectWebViewWindowObjectCleared obj cb SignalConnectBefore +afterWebViewWindowObjectCleared :: (GObject a, MonadIO m) => a -> WebViewWindowObjectClearedCallback -> m SignalHandlerId +afterWebViewWindowObjectCleared obj cb = connectWebViewWindowObjectCleared obj cb SignalConnectAfter + +connectWebViewWindowObjectCleared :: (GObject a, MonadIO m) => + a -> WebViewWindowObjectClearedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebViewWindowObjectCleared obj cb after = liftIO $ do + cb' <- mkWebViewWindowObjectClearedCallback (webViewWindowObjectClearedCallbackWrapper cb) + connectSignalFunPtr obj "window-object-cleared" cb' after + +-- VVV Prop "copy-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getWebViewCopyTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" Gtk.TargetList + +data WebViewCopyTargetListPropertyInfo +instance AttrInfo WebViewCopyTargetListPropertyInfo where + type AttrAllowedOps WebViewCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewCopyTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewCopyTargetListPropertyInfo = WebViewK + type AttrGetType WebViewCopyTargetListPropertyInfo = Gtk.TargetList + type AttrLabel WebViewCopyTargetListPropertyInfo = "WebView::copy-target-list" + attrGet _ = getWebViewCopyTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "custom-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewCustomEncoding obj = liftIO $ getObjectPropertyString obj "custom-encoding" + +setWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> T.Text -> m () +setWebViewCustomEncoding obj val = liftIO $ setObjectPropertyString obj "custom-encoding" val + +constructWebViewCustomEncoding :: T.Text -> IO ([Char], GValue) +constructWebViewCustomEncoding val = constructObjectPropertyString "custom-encoding" val + +data WebViewCustomEncodingPropertyInfo +instance AttrInfo WebViewCustomEncodingPropertyInfo where + type AttrAllowedOps WebViewCustomEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewCustomEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebViewCustomEncodingPropertyInfo = WebViewK + type AttrGetType WebViewCustomEncodingPropertyInfo = T.Text + type AttrLabel WebViewCustomEncodingPropertyInfo = "WebView::custom-encoding" + attrGet _ = getWebViewCustomEncoding + attrSet _ = setWebViewCustomEncoding + attrConstruct _ = constructWebViewCustomEncoding + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" + +setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val + +constructWebViewEditable :: Bool -> IO ([Char], GValue) +constructWebViewEditable val = constructObjectPropertyBool "editable" val + +data WebViewEditablePropertyInfo +instance AttrInfo WebViewEditablePropertyInfo where + type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK + type AttrGetType WebViewEditablePropertyInfo = Bool + type AttrLabel WebViewEditablePropertyInfo = "WebView::editable" + attrGet _ = getWebViewEditable + attrSet _ = setWebViewEditable + attrConstruct _ = constructWebViewEditable + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +data WebViewEncodingPropertyInfo +instance AttrInfo WebViewEncodingPropertyInfo where + type AttrAllowedOps WebViewEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewEncodingPropertyInfo = WebViewK + type AttrGetType WebViewEncodingPropertyInfo = T.Text + type AttrLabel WebViewEncodingPropertyInfo = "WebView::encoding" + attrGet _ = getWebViewEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "full-content-zoom" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewFullContentZoom obj = liftIO $ getObjectPropertyBool obj "full-content-zoom" + +setWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewFullContentZoom obj val = liftIO $ setObjectPropertyBool obj "full-content-zoom" val + +constructWebViewFullContentZoom :: Bool -> IO ([Char], GValue) +constructWebViewFullContentZoom val = constructObjectPropertyBool "full-content-zoom" val + +data WebViewFullContentZoomPropertyInfo +instance AttrInfo WebViewFullContentZoomPropertyInfo where + type AttrAllowedOps WebViewFullContentZoomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewFullContentZoomPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewFullContentZoomPropertyInfo = WebViewK + type AttrGetType WebViewFullContentZoomPropertyInfo = Bool + type AttrLabel WebViewFullContentZoomPropertyInfo = "WebView::full-content-zoom" + attrGet _ = getWebViewFullContentZoom + attrSet _ = setWebViewFullContentZoom + attrConstruct _ = constructWebViewFullContentZoom + +-- VVV Prop "icon-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewIconUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewIconUri obj = liftIO $ getObjectPropertyString obj "icon-uri" + +data WebViewIconUriPropertyInfo +instance AttrInfo WebViewIconUriPropertyInfo where + type AttrAllowedOps WebViewIconUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewIconUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewIconUriPropertyInfo = WebViewK + type AttrGetType WebViewIconUriPropertyInfo = T.Text + type AttrLabel WebViewIconUriPropertyInfo = "WebView::icon-uri" + attrGet _ = getWebViewIconUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "im-context" + -- Type: TInterface "Gtk" "IMContext" + -- Flags: [PropertyReadable] + +getWebViewImContext :: (MonadIO m, WebViewK o) => o -> m Gtk.IMContext +getWebViewImContext obj = liftIO $ getObjectPropertyObject obj "im-context" Gtk.IMContext + +data WebViewImContextPropertyInfo +instance AttrInfo WebViewImContextPropertyInfo where + type AttrAllowedOps WebViewImContextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewImContextPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewImContextPropertyInfo = WebViewK + type AttrGetType WebViewImContextPropertyInfo = Gtk.IMContext + type AttrLabel WebViewImContextPropertyInfo = "WebView::im-context" + attrGet _ = getWebViewImContext + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-status" + -- Type: TInterface "WebKit" "LoadStatus" + -- Flags: [PropertyReadable] + +getWebViewLoadStatus :: (MonadIO m, WebViewK o) => o -> m LoadStatus +getWebViewLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" + +data WebViewLoadStatusPropertyInfo +instance AttrInfo WebViewLoadStatusPropertyInfo where + type AttrAllowedOps WebViewLoadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewLoadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewLoadStatusPropertyInfo = WebViewK + type AttrGetType WebViewLoadStatusPropertyInfo = LoadStatus + type AttrLabel WebViewLoadStatusPropertyInfo = "WebView::load-status" + attrGet _ = getWebViewLoadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paste-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getWebViewPasteTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" Gtk.TargetList + +data WebViewPasteTargetListPropertyInfo +instance AttrInfo WebViewPasteTargetListPropertyInfo where + type AttrAllowedOps WebViewPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewPasteTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewPasteTargetListPropertyInfo = WebViewK + type AttrGetType WebViewPasteTargetListPropertyInfo = Gtk.TargetList + type AttrLabel WebViewPasteTargetListPropertyInfo = "WebView::paste-target-list" + attrGet _ = getWebViewPasteTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "progress" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getWebViewProgress :: (MonadIO m, WebViewK o) => o -> m Double +getWebViewProgress obj = liftIO $ getObjectPropertyDouble obj "progress" + +data WebViewProgressPropertyInfo +instance AttrInfo WebViewProgressPropertyInfo where + type AttrAllowedOps WebViewProgressPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewProgressPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewProgressPropertyInfo = WebViewK + type AttrGetType WebViewProgressPropertyInfo = Double + type AttrLabel WebViewProgressPropertyInfo = "WebView::progress" + attrGet _ = getWebViewProgress + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "self-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebViewSelfScrolling :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewSelfScrolling obj = liftIO $ getObjectPropertyBool obj "self-scrolling" + +constructWebViewSelfScrolling :: Bool -> IO ([Char], GValue) +constructWebViewSelfScrolling val = constructObjectPropertyBool "self-scrolling" val + +data WebViewSelfScrollingPropertyInfo +instance AttrInfo WebViewSelfScrollingPropertyInfo where + type AttrAllowedOps WebViewSelfScrollingPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewSelfScrollingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewSelfScrollingPropertyInfo = WebViewK + type AttrGetType WebViewSelfScrollingPropertyInfo = Bool + type AttrLabel WebViewSelfScrollingPropertyInfo = "WebView::self-scrolling" + attrGet _ = getWebViewSelfScrolling + attrSet _ = undefined + attrConstruct _ = constructWebViewSelfScrolling + +-- VVV Prop "settings" + -- Type: TInterface "WebKit" "WebSettings" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewSettings :: (MonadIO m, WebViewK o) => o -> m WebSettings +getWebViewSettings obj = liftIO $ getObjectPropertyObject obj "settings" WebSettings + +setWebViewSettings :: (MonadIO m, WebViewK o, WebSettingsK a) => o -> a -> m () +setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val + +constructWebViewSettings :: (WebSettingsK a) => a -> IO ([Char], GValue) +constructWebViewSettings val = constructObjectPropertyObject "settings" val + +data WebViewSettingsPropertyInfo +instance AttrInfo WebViewSettingsPropertyInfo where + type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewSettingsPropertyInfo = WebSettingsK + type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK + type AttrGetType WebViewSettingsPropertyInfo = WebSettings + type AttrLabel WebViewSettingsPropertyInfo = "WebView::settings" + attrGet _ = getWebViewSettings + attrSet _ = setWebViewSettings + attrConstruct _ = constructWebViewSettings + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebViewTitlePropertyInfo +instance AttrInfo WebViewTitlePropertyInfo where + type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK + type AttrGetType WebViewTitlePropertyInfo = T.Text + type AttrLabel WebViewTitlePropertyInfo = "WebView::title" + attrGet _ = getWebViewTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "transparent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewTransparent :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewTransparent obj = liftIO $ getObjectPropertyBool obj "transparent" + +setWebViewTransparent :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewTransparent obj val = liftIO $ setObjectPropertyBool obj "transparent" val + +constructWebViewTransparent :: Bool -> IO ([Char], GValue) +constructWebViewTransparent val = constructObjectPropertyBool "transparent" val + +data WebViewTransparentPropertyInfo +instance AttrInfo WebViewTransparentPropertyInfo where + type AttrAllowedOps WebViewTransparentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewTransparentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewTransparentPropertyInfo = WebViewK + type AttrGetType WebViewTransparentPropertyInfo = Bool + type AttrLabel WebViewTransparentPropertyInfo = "WebView::transparent" + attrGet _ = getWebViewTransparent + attrSet _ = setWebViewTransparent + attrConstruct _ = constructWebViewTransparent + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebViewUriPropertyInfo +instance AttrInfo WebViewUriPropertyInfo where + type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK + type AttrGetType WebViewUriPropertyInfo = T.Text + type AttrLabel WebViewUriPropertyInfo = "WebView::uri" + attrGet _ = getWebViewUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "view-mode" + -- Type: TInterface "WebKit" "WebViewViewMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewViewMode :: (MonadIO m, WebViewK o) => o -> m WebViewViewMode +getWebViewViewMode obj = liftIO $ getObjectPropertyEnum obj "view-mode" + +setWebViewViewMode :: (MonadIO m, WebViewK o) => o -> WebViewViewMode -> m () +setWebViewViewMode obj val = liftIO $ setObjectPropertyEnum obj "view-mode" val + +constructWebViewViewMode :: WebViewViewMode -> IO ([Char], GValue) +constructWebViewViewMode val = constructObjectPropertyEnum "view-mode" val + +data WebViewViewModePropertyInfo +instance AttrInfo WebViewViewModePropertyInfo where + type AttrAllowedOps WebViewViewModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewViewModePropertyInfo = (~) WebViewViewMode + type AttrBaseTypeConstraint WebViewViewModePropertyInfo = WebViewK + type AttrGetType WebViewViewModePropertyInfo = WebViewViewMode + type AttrLabel WebViewViewModePropertyInfo = "WebView::view-mode" + attrGet _ = getWebViewViewMode + attrSet _ = setWebViewViewMode + attrConstruct _ = constructWebViewViewMode + +-- VVV Prop "viewport-attributes" + -- Type: TInterface "WebKit" "ViewportAttributes" + -- Flags: [PropertyReadable] + +getWebViewViewportAttributes :: (MonadIO m, WebViewK o) => o -> m ViewportAttributes +getWebViewViewportAttributes obj = liftIO $ getObjectPropertyObject obj "viewport-attributes" ViewportAttributes + +data WebViewViewportAttributesPropertyInfo +instance AttrInfo WebViewViewportAttributesPropertyInfo where + type AttrAllowedOps WebViewViewportAttributesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewViewportAttributesPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewViewportAttributesPropertyInfo = WebViewK + type AttrGetType WebViewViewportAttributesPropertyInfo = ViewportAttributes + type AttrLabel WebViewViewportAttributesPropertyInfo = "WebView::viewport-attributes" + attrGet _ = getWebViewViewportAttributes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "web-inspector" + -- Type: TInterface "WebKit" "WebInspector" + -- Flags: [PropertyReadable] + +getWebViewWebInspector :: (MonadIO m, WebViewK o) => o -> m WebInspector +getWebViewWebInspector obj = liftIO $ getObjectPropertyObject obj "web-inspector" WebInspector + +data WebViewWebInspectorPropertyInfo +instance AttrInfo WebViewWebInspectorPropertyInfo where + type AttrAllowedOps WebViewWebInspectorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewWebInspectorPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewWebInspectorPropertyInfo = WebViewK + type AttrGetType WebViewWebInspectorPropertyInfo = WebInspector + type AttrLabel WebViewWebInspectorPropertyInfo = "WebView::web-inspector" + attrGet _ = getWebViewWebInspector + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "window-features" + -- Type: TInterface "WebKit" "WebWindowFeatures" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewWindowFeatures :: (MonadIO m, WebViewK o) => o -> m WebWindowFeatures +getWebViewWindowFeatures obj = liftIO $ getObjectPropertyObject obj "window-features" WebWindowFeatures + +setWebViewWindowFeatures :: (MonadIO m, WebViewK o, WebWindowFeaturesK a) => o -> a -> m () +setWebViewWindowFeatures obj val = liftIO $ setObjectPropertyObject obj "window-features" val + +constructWebViewWindowFeatures :: (WebWindowFeaturesK a) => a -> IO ([Char], GValue) +constructWebViewWindowFeatures val = constructObjectPropertyObject "window-features" val + +data WebViewWindowFeaturesPropertyInfo +instance AttrInfo WebViewWindowFeaturesPropertyInfo where + type AttrAllowedOps WebViewWindowFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewWindowFeaturesPropertyInfo = WebWindowFeaturesK + type AttrBaseTypeConstraint WebViewWindowFeaturesPropertyInfo = WebViewK + type AttrGetType WebViewWindowFeaturesPropertyInfo = WebWindowFeatures + type AttrLabel WebViewWindowFeaturesPropertyInfo = "WebView::window-features" + attrGet _ = getWebViewWindowFeatures + attrSet _ = setWebViewWindowFeatures + attrConstruct _ = constructWebViewWindowFeatures + +-- VVV Prop "zoom-level" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Float +getWebViewZoomLevel obj = liftIO $ getObjectPropertyFloat obj "zoom-level" + +setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Float -> m () +setWebViewZoomLevel obj val = liftIO $ setObjectPropertyFloat obj "zoom-level" val + +constructWebViewZoomLevel :: Float -> IO ([Char], GValue) +constructWebViewZoomLevel val = constructObjectPropertyFloat "zoom-level" val + +data WebViewZoomLevelPropertyInfo +instance AttrInfo WebViewZoomLevelPropertyInfo where + type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Float + type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK + type AttrGetType WebViewZoomLevelPropertyInfo = Float + type AttrLabel WebViewZoomLevelPropertyInfo = "WebView::zoom-level" + attrGet _ = getWebViewZoomLevel + attrSet _ = setWebViewZoomLevel + attrConstruct _ = constructWebViewZoomLevel + +type instance AttributeList WebView = WebViewAttributeList +type WebViewAttributeList = ('[ '("app-paintable", Gtk.WidgetAppPaintablePropertyInfo), '("border-width", Gtk.ContainerBorderWidthPropertyInfo), '("can-default", Gtk.WidgetCanDefaultPropertyInfo), '("can-focus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("composite-child", Gtk.WidgetCompositeChildPropertyInfo), '("copy-target-list", WebViewCopyTargetListPropertyInfo), '("custom-encoding", WebViewCustomEncodingPropertyInfo), '("double-buffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("encoding", WebViewEncodingPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("full-content-zoom", WebViewFullContentZoomPropertyInfo), '("hadjustment", Gtk.ScrollableHadjustmentPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("has-default", Gtk.WidgetHasDefaultPropertyInfo), '("has-focus", Gtk.WidgetHasFocusPropertyInfo), '("has-tooltip", Gtk.WidgetHasTooltipPropertyInfo), '("height-request", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpand-set", Gtk.WidgetHexpandSetPropertyInfo), '("hscroll-policy", Gtk.ScrollableHscrollPolicyPropertyInfo), '("icon-uri", WebViewIconUriPropertyInfo), '("im-context", WebViewImContextPropertyInfo), '("is-focus", Gtk.WidgetIsFocusPropertyInfo), '("load-status", WebViewLoadStatusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("margin-bottom", Gtk.WidgetMarginBottomPropertyInfo), '("margin-end", Gtk.WidgetMarginEndPropertyInfo), '("margin-left", Gtk.WidgetMarginLeftPropertyInfo), '("margin-right", Gtk.WidgetMarginRightPropertyInfo), '("margin-start", Gtk.WidgetMarginStartPropertyInfo), '("margin-top", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("no-show-all", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("paste-target-list", WebViewPasteTargetListPropertyInfo), '("progress", WebViewProgressPropertyInfo), '("receives-default", Gtk.WidgetReceivesDefaultPropertyInfo), '("resize-mode", Gtk.ContainerResizeModePropertyInfo), '("scale-factor", Gtk.WidgetScaleFactorPropertyInfo), '("self-scrolling", WebViewSelfScrollingPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", Gtk.WidgetTooltipTextPropertyInfo), '("transparent", WebViewTransparentPropertyInfo), '("uri", WebViewUriPropertyInfo), '("vadjustment", Gtk.ScrollableVadjustmentPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpand-set", Gtk.WidgetVexpandSetPropertyInfo), '("view-mode", WebViewViewModePropertyInfo), '("viewport-attributes", WebViewViewportAttributesPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("vscroll-policy", Gtk.ScrollableVscrollPolicyPropertyInfo), '("web-inspector", WebViewWebInspectorPropertyInfo), '("width-request", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("window-features", WebViewWindowFeaturesPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)]) + +data WebViewCloseWebViewSignalInfo +instance SignalInfo WebViewCloseWebViewSignalInfo where + type HaskellCallbackType WebViewCloseWebViewSignalInfo = WebViewCloseWebViewCallback + connectSignal _ = connectWebViewCloseWebView + +data WebViewConsoleMessageSignalInfo +instance SignalInfo WebViewConsoleMessageSignalInfo where + type HaskellCallbackType WebViewConsoleMessageSignalInfo = WebViewConsoleMessageCallback + connectSignal _ = connectWebViewConsoleMessage + +data WebViewContextMenuSignalInfo +instance SignalInfo WebViewContextMenuSignalInfo where + type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback + connectSignal _ = connectWebViewContextMenu + +data WebViewCopyClipboardSignalInfo +instance SignalInfo WebViewCopyClipboardSignalInfo where + type HaskellCallbackType WebViewCopyClipboardSignalInfo = WebViewCopyClipboardCallback + connectSignal _ = connectWebViewCopyClipboard + +data WebViewCreatePluginWidgetSignalInfo +instance SignalInfo WebViewCreatePluginWidgetSignalInfo where + type HaskellCallbackType WebViewCreatePluginWidgetSignalInfo = WebViewCreatePluginWidgetCallback + connectSignal _ = connectWebViewCreatePluginWidget + +data WebViewCreateWebViewSignalInfo +instance SignalInfo WebViewCreateWebViewSignalInfo where + type HaskellCallbackType WebViewCreateWebViewSignalInfo = WebViewCreateWebViewCallback + connectSignal _ = connectWebViewCreateWebView + +data WebViewCutClipboardSignalInfo +instance SignalInfo WebViewCutClipboardSignalInfo where + type HaskellCallbackType WebViewCutClipboardSignalInfo = WebViewCutClipboardCallback + connectSignal _ = connectWebViewCutClipboard + +data WebViewDatabaseQuotaExceededSignalInfo +instance SignalInfo WebViewDatabaseQuotaExceededSignalInfo where + type HaskellCallbackType WebViewDatabaseQuotaExceededSignalInfo = WebViewDatabaseQuotaExceededCallback + connectSignal _ = connectWebViewDatabaseQuotaExceeded + +data WebViewDocumentLoadFinishedSignalInfo +instance SignalInfo WebViewDocumentLoadFinishedSignalInfo where + type HaskellCallbackType WebViewDocumentLoadFinishedSignalInfo = WebViewDocumentLoadFinishedCallback + connectSignal _ = connectWebViewDocumentLoadFinished + +data WebViewDownloadRequestedSignalInfo +instance SignalInfo WebViewDownloadRequestedSignalInfo where + type HaskellCallbackType WebViewDownloadRequestedSignalInfo = WebViewDownloadRequestedCallback + connectSignal _ = connectWebViewDownloadRequested + +data WebViewEditingBeganSignalInfo +instance SignalInfo WebViewEditingBeganSignalInfo where + type HaskellCallbackType WebViewEditingBeganSignalInfo = WebViewEditingBeganCallback + connectSignal _ = connectWebViewEditingBegan + +data WebViewEditingEndedSignalInfo +instance SignalInfo WebViewEditingEndedSignalInfo where + type HaskellCallbackType WebViewEditingEndedSignalInfo = WebViewEditingEndedCallback + connectSignal _ = connectWebViewEditingEnded + +data WebViewEnteringFullscreenSignalInfo +instance SignalInfo WebViewEnteringFullscreenSignalInfo where + type HaskellCallbackType WebViewEnteringFullscreenSignalInfo = WebViewEnteringFullscreenCallback + connectSignal _ = connectWebViewEnteringFullscreen + +data WebViewFrameCreatedSignalInfo +instance SignalInfo WebViewFrameCreatedSignalInfo where + type HaskellCallbackType WebViewFrameCreatedSignalInfo = WebViewFrameCreatedCallback + connectSignal _ = connectWebViewFrameCreated + +data WebViewGeolocationPolicyDecisionCancelledSignalInfo +instance SignalInfo WebViewGeolocationPolicyDecisionCancelledSignalInfo where + type HaskellCallbackType WebViewGeolocationPolicyDecisionCancelledSignalInfo = WebViewGeolocationPolicyDecisionCancelledCallback + connectSignal _ = connectWebViewGeolocationPolicyDecisionCancelled + +data WebViewGeolocationPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewGeolocationPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewGeolocationPolicyDecisionRequestedSignalInfo = WebViewGeolocationPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewGeolocationPolicyDecisionRequested + +data WebViewHoveringOverLinkSignalInfo +instance SignalInfo WebViewHoveringOverLinkSignalInfo where + type HaskellCallbackType WebViewHoveringOverLinkSignalInfo = WebViewHoveringOverLinkCallback + connectSignal _ = connectWebViewHoveringOverLink + +data WebViewIconLoadedSignalInfo +instance SignalInfo WebViewIconLoadedSignalInfo where + type HaskellCallbackType WebViewIconLoadedSignalInfo = WebViewIconLoadedCallback + connectSignal _ = connectWebViewIconLoaded + +data WebViewLeavingFullscreenSignalInfo +instance SignalInfo WebViewLeavingFullscreenSignalInfo where + type HaskellCallbackType WebViewLeavingFullscreenSignalInfo = WebViewLeavingFullscreenCallback + connectSignal _ = connectWebViewLeavingFullscreen + +data WebViewLoadCommittedSignalInfo +instance SignalInfo WebViewLoadCommittedSignalInfo where + type HaskellCallbackType WebViewLoadCommittedSignalInfo = WebViewLoadCommittedCallback + connectSignal _ = connectWebViewLoadCommitted + +data WebViewLoadErrorSignalInfo +instance SignalInfo WebViewLoadErrorSignalInfo where + type HaskellCallbackType WebViewLoadErrorSignalInfo = WebViewLoadErrorCallback + connectSignal _ = connectWebViewLoadError + +data WebViewLoadFinishedSignalInfo +instance SignalInfo WebViewLoadFinishedSignalInfo where + type HaskellCallbackType WebViewLoadFinishedSignalInfo = WebViewLoadFinishedCallback + connectSignal _ = connectWebViewLoadFinished + +data WebViewLoadProgressChangedSignalInfo +instance SignalInfo WebViewLoadProgressChangedSignalInfo where + type HaskellCallbackType WebViewLoadProgressChangedSignalInfo = WebViewLoadProgressChangedCallback + connectSignal _ = connectWebViewLoadProgressChanged + +data WebViewLoadStartedSignalInfo +instance SignalInfo WebViewLoadStartedSignalInfo where + type HaskellCallbackType WebViewLoadStartedSignalInfo = WebViewLoadStartedCallback + connectSignal _ = connectWebViewLoadStarted + +data WebViewMimeTypePolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewMimeTypePolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewMimeTypePolicyDecisionRequestedSignalInfo = WebViewMimeTypePolicyDecisionRequestedCallback + connectSignal _ = connectWebViewMimeTypePolicyDecisionRequested + +data WebViewMoveCursorSignalInfo +instance SignalInfo WebViewMoveCursorSignalInfo where + type HaskellCallbackType WebViewMoveCursorSignalInfo = WebViewMoveCursorCallback + connectSignal _ = connectWebViewMoveCursor + +data WebViewNavigationPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewNavigationPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewNavigationPolicyDecisionRequestedSignalInfo = WebViewNavigationPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewNavigationPolicyDecisionRequested + +data WebViewNavigationRequestedSignalInfo +instance SignalInfo WebViewNavigationRequestedSignalInfo where + type HaskellCallbackType WebViewNavigationRequestedSignalInfo = WebViewNavigationRequestedCallback + connectSignal _ = connectWebViewNavigationRequested + +data WebViewNewWindowPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewNewWindowPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewNewWindowPolicyDecisionRequestedSignalInfo = WebViewNewWindowPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewNewWindowPolicyDecisionRequested + +data WebViewOnloadEventSignalInfo +instance SignalInfo WebViewOnloadEventSignalInfo where + type HaskellCallbackType WebViewOnloadEventSignalInfo = WebViewOnloadEventCallback + connectSignal _ = connectWebViewOnloadEvent + +data WebViewPasteClipboardSignalInfo +instance SignalInfo WebViewPasteClipboardSignalInfo where + type HaskellCallbackType WebViewPasteClipboardSignalInfo = WebViewPasteClipboardCallback + connectSignal _ = connectWebViewPasteClipboard + +data WebViewPopulatePopupSignalInfo +instance SignalInfo WebViewPopulatePopupSignalInfo where + type HaskellCallbackType WebViewPopulatePopupSignalInfo = WebViewPopulatePopupCallback + connectSignal _ = connectWebViewPopulatePopup + +data WebViewPrintRequestedSignalInfo +instance SignalInfo WebViewPrintRequestedSignalInfo where + type HaskellCallbackType WebViewPrintRequestedSignalInfo = WebViewPrintRequestedCallback + connectSignal _ = connectWebViewPrintRequested + +data WebViewRedoSignalInfo +instance SignalInfo WebViewRedoSignalInfo where + type HaskellCallbackType WebViewRedoSignalInfo = WebViewRedoCallback + connectSignal _ = connectWebViewRedo + +data WebViewResourceContentLengthReceivedSignalInfo +instance SignalInfo WebViewResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebViewResourceContentLengthReceivedSignalInfo = WebViewResourceContentLengthReceivedCallback + connectSignal _ = connectWebViewResourceContentLengthReceived + +data WebViewResourceLoadFailedSignalInfo +instance SignalInfo WebViewResourceLoadFailedSignalInfo where + type HaskellCallbackType WebViewResourceLoadFailedSignalInfo = WebViewResourceLoadFailedCallback + connectSignal _ = connectWebViewResourceLoadFailed + +data WebViewResourceLoadFinishedSignalInfo +instance SignalInfo WebViewResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebViewResourceLoadFinishedSignalInfo = WebViewResourceLoadFinishedCallback + connectSignal _ = connectWebViewResourceLoadFinished + +data WebViewResourceRequestStartingSignalInfo +instance SignalInfo WebViewResourceRequestStartingSignalInfo where + type HaskellCallbackType WebViewResourceRequestStartingSignalInfo = WebViewResourceRequestStartingCallback + connectSignal _ = connectWebViewResourceRequestStarting + +data WebViewResourceResponseReceivedSignalInfo +instance SignalInfo WebViewResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebViewResourceResponseReceivedSignalInfo = WebViewResourceResponseReceivedCallback + connectSignal _ = connectWebViewResourceResponseReceived + +data WebViewRunFileChooserSignalInfo +instance SignalInfo WebViewRunFileChooserSignalInfo where + type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback + connectSignal _ = connectWebViewRunFileChooser + +data WebViewScriptAlertSignalInfo +instance SignalInfo WebViewScriptAlertSignalInfo where + type HaskellCallbackType WebViewScriptAlertSignalInfo = WebViewScriptAlertCallback + connectSignal _ = connectWebViewScriptAlert + +data WebViewScriptConfirmSignalInfo +instance SignalInfo WebViewScriptConfirmSignalInfo where + type HaskellCallbackType WebViewScriptConfirmSignalInfo = WebViewScriptConfirmCallback + connectSignal _ = connectWebViewScriptConfirm + +data WebViewScriptPromptSignalInfo +instance SignalInfo WebViewScriptPromptSignalInfo where + type HaskellCallbackType WebViewScriptPromptSignalInfo = WebViewScriptPromptCallback + connectSignal _ = connectWebViewScriptPrompt + +data WebViewSelectAllSignalInfo +instance SignalInfo WebViewSelectAllSignalInfo where + type HaskellCallbackType WebViewSelectAllSignalInfo = WebViewSelectAllCallback + connectSignal _ = connectWebViewSelectAll + +data WebViewSelectionChangedSignalInfo +instance SignalInfo WebViewSelectionChangedSignalInfo where + type HaskellCallbackType WebViewSelectionChangedSignalInfo = WebViewSelectionChangedCallback + connectSignal _ = connectWebViewSelectionChanged + +data WebViewShouldApplyStyleSignalInfo +instance SignalInfo WebViewShouldApplyStyleSignalInfo where + type HaskellCallbackType WebViewShouldApplyStyleSignalInfo = WebViewShouldApplyStyleCallback + connectSignal _ = connectWebViewShouldApplyStyle + +data WebViewShouldBeginEditingSignalInfo +instance SignalInfo WebViewShouldBeginEditingSignalInfo where + type HaskellCallbackType WebViewShouldBeginEditingSignalInfo = WebViewShouldBeginEditingCallback + connectSignal _ = connectWebViewShouldBeginEditing + +data WebViewShouldChangeSelectedRangeSignalInfo +instance SignalInfo WebViewShouldChangeSelectedRangeSignalInfo where + type HaskellCallbackType WebViewShouldChangeSelectedRangeSignalInfo = WebViewShouldChangeSelectedRangeCallback + connectSignal _ = connectWebViewShouldChangeSelectedRange + +data WebViewShouldDeleteRangeSignalInfo +instance SignalInfo WebViewShouldDeleteRangeSignalInfo where + type HaskellCallbackType WebViewShouldDeleteRangeSignalInfo = WebViewShouldDeleteRangeCallback + connectSignal _ = connectWebViewShouldDeleteRange + +data WebViewShouldEndEditingSignalInfo +instance SignalInfo WebViewShouldEndEditingSignalInfo where + type HaskellCallbackType WebViewShouldEndEditingSignalInfo = WebViewShouldEndEditingCallback + connectSignal _ = connectWebViewShouldEndEditing + +data WebViewShouldInsertNodeSignalInfo +instance SignalInfo WebViewShouldInsertNodeSignalInfo where + type HaskellCallbackType WebViewShouldInsertNodeSignalInfo = WebViewShouldInsertNodeCallback + connectSignal _ = connectWebViewShouldInsertNode + +data WebViewShouldInsertTextSignalInfo +instance SignalInfo WebViewShouldInsertTextSignalInfo where + type HaskellCallbackType WebViewShouldInsertTextSignalInfo = WebViewShouldInsertTextCallback + connectSignal _ = connectWebViewShouldInsertText + +data WebViewShouldShowDeleteInterfaceForElementSignalInfo +instance SignalInfo WebViewShouldShowDeleteInterfaceForElementSignalInfo where + type HaskellCallbackType WebViewShouldShowDeleteInterfaceForElementSignalInfo = WebViewShouldShowDeleteInterfaceForElementCallback + connectSignal _ = connectWebViewShouldShowDeleteInterfaceForElement + +data WebViewStatusBarTextChangedSignalInfo +instance SignalInfo WebViewStatusBarTextChangedSignalInfo where + type HaskellCallbackType WebViewStatusBarTextChangedSignalInfo = WebViewStatusBarTextChangedCallback + connectSignal _ = connectWebViewStatusBarTextChanged + +data WebViewTitleChangedSignalInfo +instance SignalInfo WebViewTitleChangedSignalInfo where + type HaskellCallbackType WebViewTitleChangedSignalInfo = WebViewTitleChangedCallback + connectSignal _ = connectWebViewTitleChanged + +data WebViewUndoSignalInfo +instance SignalInfo WebViewUndoSignalInfo where + type HaskellCallbackType WebViewUndoSignalInfo = WebViewUndoCallback + connectSignal _ = connectWebViewUndo + +data WebViewUserChangedContentsSignalInfo +instance SignalInfo WebViewUserChangedContentsSignalInfo where + type HaskellCallbackType WebViewUserChangedContentsSignalInfo = WebViewUserChangedContentsCallback + connectSignal _ = connectWebViewUserChangedContents + +data WebViewViewportAttributesChangedSignalInfo +instance SignalInfo WebViewViewportAttributesChangedSignalInfo where + type HaskellCallbackType WebViewViewportAttributesChangedSignalInfo = WebViewViewportAttributesChangedCallback + connectSignal _ = connectWebViewViewportAttributesChanged + +data WebViewViewportAttributesRecomputeRequestedSignalInfo +instance SignalInfo WebViewViewportAttributesRecomputeRequestedSignalInfo where + type HaskellCallbackType WebViewViewportAttributesRecomputeRequestedSignalInfo = WebViewViewportAttributesRecomputeRequestedCallback + connectSignal _ = connectWebViewViewportAttributesRecomputeRequested + +data WebViewWebViewReadySignalInfo +instance SignalInfo WebViewWebViewReadySignalInfo where + type HaskellCallbackType WebViewWebViewReadySignalInfo = WebViewWebViewReadyCallback + connectSignal _ = connectWebViewWebViewReady + +data WebViewWindowObjectClearedSignalInfo +instance SignalInfo WebViewWindowObjectClearedSignalInfo where + type HaskellCallbackType WebViewWindowObjectClearedSignalInfo = WebViewWindowObjectClearedCallback + connectSignal _ = connectWebViewWindowObjectCleared + +type instance SignalList WebView = WebViewSignalList +type WebViewSignalList = ('[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("close-web-view", WebViewCloseWebViewSignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("console-message", WebViewConsoleMessageSignalInfo), '("context-menu", WebViewContextMenuSignalInfo), '("copy-clipboard", WebViewCopyClipboardSignalInfo), '("create-plugin-widget", WebViewCreatePluginWidgetSignalInfo), '("create-web-view", WebViewCreateWebViewSignalInfo), '("cut-clipboard", WebViewCutClipboardSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("database-quota-exceeded", WebViewDatabaseQuotaExceededSignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("document-load-finished", WebViewDocumentLoadFinishedSignalInfo), '("download-requested", WebViewDownloadRequestedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("editing-began", WebViewEditingBeganSignalInfo), '("editing-ended", WebViewEditingEndedSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("entering-fullscreen", WebViewEnteringFullscreenSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("frame-created", WebViewFrameCreatedSignalInfo), '("geolocation-policy-decision-cancelled", WebViewGeolocationPolicyDecisionCancelledSignalInfo), '("geolocation-policy-decision-requested", WebViewGeolocationPolicyDecisionRequestedSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("hovering-over-link", WebViewHoveringOverLinkSignalInfo), '("icon-loaded", WebViewIconLoadedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("leaving-fullscreen", WebViewLeavingFullscreenSignalInfo), '("load-committed", WebViewLoadCommittedSignalInfo), '("load-error", WebViewLoadErrorSignalInfo), '("load-finished", WebViewLoadFinishedSignalInfo), '("load-progress-changed", WebViewLoadProgressChangedSignalInfo), '("load-started", WebViewLoadStartedSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mime-type-policy-decision-requested", WebViewMimeTypePolicyDecisionRequestedSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("move-cursor", WebViewMoveCursorSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("navigation-policy-decision-requested", WebViewNavigationPolicyDecisionRequestedSignalInfo), '("navigation-requested", WebViewNavigationRequestedSignalInfo), '("new-window-policy-decision-requested", WebViewNewWindowPolicyDecisionRequestedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("onload-event", WebViewOnloadEventSignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("paste-clipboard", WebViewPasteClipboardSignalInfo), '("populate-popup", WebViewPopulatePopupSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("print-requested", WebViewPrintRequestedSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("redo", WebViewRedoSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resource-content-length-received", WebViewResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebViewResourceLoadFailedSignalInfo), '("resource-load-finished", WebViewResourceLoadFinishedSignalInfo), '("resource-request-starting", WebViewResourceRequestStartingSignalInfo), '("resource-response-received", WebViewResourceResponseReceivedSignalInfo), '("run-file-chooser", WebViewRunFileChooserSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("script-alert", WebViewScriptAlertSignalInfo), '("script-confirm", WebViewScriptConfirmSignalInfo), '("script-prompt", WebViewScriptPromptSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("select-all", WebViewSelectAllSignalInfo), '("selection-changed", WebViewSelectionChangedSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("should-apply-style", WebViewShouldApplyStyleSignalInfo), '("should-begin-editing", WebViewShouldBeginEditingSignalInfo), '("should-change-selected-range", WebViewShouldChangeSelectedRangeSignalInfo), '("should-delete-range", WebViewShouldDeleteRangeSignalInfo), '("should-end-editing", WebViewShouldEndEditingSignalInfo), '("should-insert-node", WebViewShouldInsertNodeSignalInfo), '("should-insert-text", WebViewShouldInsertTextSignalInfo), '("should-show-delete-interface-for-element", WebViewShouldShowDeleteInterfaceForElementSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("status-bar-text-changed", WebViewStatusBarTextChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("title-changed", WebViewTitleChangedSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("undo", WebViewUndoSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("user-changed-contents", WebViewUserChangedContentsSignalInfo), '("viewport-attributes-changed", WebViewViewportAttributesChangedSignalInfo), '("viewport-attributes-recompute-requested", WebViewViewportAttributesRecomputeRequestedSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("web-view-ready", WebViewWebViewReadySignalInfo), '("window-object-cleared", WebViewWindowObjectClearedSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebView::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebView" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_new" webkit_web_view_new :: + IO (Ptr WebView) + + +webViewNew :: + (MonadIO m) => + m WebView +webViewNew = liftIO $ do + result <- webkit_web_view_new + checkUnexpectedReturnNULL "webkit_web_view_new" result + result' <- (newObject WebView) result + return result' + +-- method WebView::can_copy_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_copy_clipboard" webkit_web_view_can_copy_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanCopyClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanCopyClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_copy_clipboard _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_cut_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_cut_clipboard" webkit_web_view_can_cut_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanCutClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanCutClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_cut_clipboard _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_go_back +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanGoBack :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanGoBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_go_back _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_go_back_or_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_go_back_or_forward" webkit_web_view_can_go_back_or_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Int32 -> -- steps : TBasicType TInt32 + IO CInt + + +webViewCanGoBackOrForward :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Int32 -> -- steps + m Bool +webViewCanGoBackOrForward _obj steps = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_go_back_or_forward _obj' steps + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_go_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanGoForward :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanGoForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_go_forward _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_paste_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_paste_clipboard" webkit_web_view_can_paste_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanPasteClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanPasteClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_paste_clipboard _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_redo +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_redo" webkit_web_view_can_redo :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanRedo :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanRedo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_redo _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::can_show_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- mime_type : TBasicType TUTF8 + IO CInt + + +webViewCanShowMimeType :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- mime_type + m Bool +webViewCanShowMimeType _obj mime_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mime_type' <- textToCString mime_type + result <- webkit_web_view_can_show_mime_type _obj' mime_type' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem mime_type' + return result' + +-- method WebView::can_undo +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_can_undo" webkit_web_view_can_undo :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewCanUndo :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewCanUndo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_can_undo _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::copy_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_copy_clipboard" webkit_web_view_copy_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewCopyClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewCopyClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_copy_clipboard _obj' + touchManagedPtr _obj + return () + +-- method WebView::cut_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_cut_clipboard" webkit_web_view_cut_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewCutClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewCutClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_cut_clipboard _obj' + touchManagedPtr _obj + return () + +-- method WebView::delete_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_delete_selection" webkit_web_view_delete_selection :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewDeleteSelection :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewDeleteSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_delete_selection _obj' + touchManagedPtr _obj + return () + +-- method WebView::execute_script +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_execute_script" webkit_web_view_execute_script :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- script : TBasicType TUTF8 + IO () + + +webViewExecuteScript :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- script + m () +webViewExecuteScript _obj script = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + script' <- textToCString script + webkit_web_view_execute_script _obj' script' + touchManagedPtr _obj + freeMem script' + return () + +-- method WebView::get_back_forward_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebBackForwardList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebBackForwardList) + + +webViewGetBackForwardList :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebBackForwardList +webViewGetBackForwardList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_back_forward_list _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result + result' <- (newObject WebBackForwardList) result + touchManagedPtr _obj + return result' + +-- method WebView::get_copy_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_copy_target_list" webkit_web_view_get_copy_target_list :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr Gtk.TargetList) + + +webViewGetCopyTargetList :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Gtk.TargetList +webViewGetCopyTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_copy_target_list _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_copy_target_list" result + result' <- (wrapBoxed Gtk.TargetList) result + touchManagedPtr _obj + return result' + +-- method WebView::get_custom_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_custom_encoding" webkit_web_view_get_custom_encoding :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CString + + +webViewGetCustomEncoding :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m T.Text +webViewGetCustomEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_custom_encoding _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_custom_encoding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebView::get_dom_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "DOMDocument" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_dom_document" webkit_web_view_get_dom_document :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr DOMDocument) + + +webViewGetDomDocument :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m DOMDocument +webViewGetDomDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_dom_document _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_dom_document" result + result' <- (newObject DOMDocument) result + touchManagedPtr _obj + return result' + +-- method WebView::get_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_editable" webkit_web_view_get_editable :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewGetEditable :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewGetEditable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_editable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::get_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_encoding" webkit_web_view_get_encoding :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CString + + +webViewGetEncoding :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m T.Text +webViewGetEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_encoding _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_encoding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebView::get_focused_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_focused_frame" webkit_web_view_get_focused_frame :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebFrame) + + +webViewGetFocusedFrame :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebFrame +webViewGetFocusedFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_focused_frame _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_focused_frame" result + result' <- (newObject WebFrame) result + touchManagedPtr _obj + return result' + +-- method WebView::get_full_content_zoom +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_full_content_zoom" webkit_web_view_get_full_content_zoom :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewGetFullContentZoom :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewGetFullContentZoom _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_full_content_zoom _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::get_hit_test_result +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "HitTestResult" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_hit_test_result" webkit_web_view_get_hit_test_result :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Ptr Gdk.EventButton -> -- event : TInterface "Gdk" "EventButton" + IO (Ptr HitTestResult) + + +webViewGetHitTestResult :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Gdk.EventButton -> -- event + m HitTestResult +webViewGetHitTestResult _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- webkit_web_view_get_hit_test_result _obj' event' + checkUnexpectedReturnNULL "webkit_web_view_get_hit_test_result" result + result' <- (wrapObject HitTestResult) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +-- method WebView::get_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_icon_pixbuf" webkit_web_view_get_icon_pixbuf :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED webViewGetIconPixbuf ["(Since version 1.8)","Use webkit_web_view_try_get_favicon_pixbuf() instead."]#-} +webViewGetIconPixbuf :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m GdkPixbuf.Pixbuf +webViewGetIconPixbuf _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_icon_pixbuf _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_icon_pixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + return result' + +-- method WebView::get_icon_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_icon_uri" webkit_web_view_get_icon_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CString + + +webViewGetIconUri :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m T.Text +webViewGetIconUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_icon_uri _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_icon_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebView::get_inspector +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebInspector" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebInspector) + + +webViewGetInspector :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebInspector +webViewGetInspector _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_inspector _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result + result' <- (newObject WebInspector) result + touchManagedPtr _obj + return result' + +-- method WebView::get_load_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "LoadStatus" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_load_status" webkit_web_view_get_load_status :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CUInt + + +webViewGetLoadStatus :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m LoadStatus +webViewGetLoadStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_load_status _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebView::get_main_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebFrame" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_main_frame" webkit_web_view_get_main_frame :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebFrame) + + +webViewGetMainFrame :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebFrame +webViewGetMainFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_main_frame _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_main_frame" result + result' <- (newObject WebFrame) result + touchManagedPtr _obj + return result' + +-- method WebView::get_paste_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_paste_target_list" webkit_web_view_get_paste_target_list :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr Gtk.TargetList) + + +webViewGetPasteTargetList :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Gtk.TargetList +webViewGetPasteTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_paste_target_list _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_paste_target_list" result + result' <- (wrapBoxed Gtk.TargetList) result + touchManagedPtr _obj + return result' + +-- method WebView::get_progress +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_progress" webkit_web_view_get_progress :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CDouble + + +webViewGetProgress :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Double +webViewGetProgress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_progress _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method WebView::get_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebSettings" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebSettings) + + +webViewGetSettings :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebSettings +webViewGetSettings _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_settings _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_settings" result + result' <- (newObject WebSettings) result + touchManagedPtr _obj + return result' + +-- method WebView::get_snapshot +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "cairo" "Surface" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr Cairo.Surface) + + +webViewGetSnapshot :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Cairo.Surface +webViewGetSnapshot _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_snapshot _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_snapshot" result + result' <- (wrapBoxed Cairo.Surface) result + touchManagedPtr _obj + return result' + +-- method WebView::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CString + + +webViewGetTitle :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m T.Text +webViewGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_title _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebView::get_transparent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_transparent" webkit_web_view_get_transparent :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewGetTransparent :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewGetTransparent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_transparent _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CString + + +webViewGetUri :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m T.Text +webViewGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_uri _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebView::get_view_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebViewViewMode" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_view_mode" webkit_web_view_get_view_mode :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CUInt + + +webViewGetViewMode :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebViewViewMode +webViewGetViewMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_view_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebView::get_view_source_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_view_source_mode" webkit_web_view_get_view_source_mode :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewGetViewSourceMode :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewGetViewSourceMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_view_source_mode _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::get_viewport_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "ViewportAttributes" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_viewport_attributes" webkit_web_view_get_viewport_attributes :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr ViewportAttributes) + + +webViewGetViewportAttributes :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m ViewportAttributes +webViewGetViewportAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_viewport_attributes _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_viewport_attributes" result + result' <- (newObject ViewportAttributes) result + touchManagedPtr _obj + return result' + +-- method WebView::get_window_features +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "WebKit" "WebWindowFeatures" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_window_features" webkit_web_view_get_window_features :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO (Ptr WebWindowFeatures) + + +webViewGetWindowFeatures :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m WebWindowFeatures +webViewGetWindowFeatures _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_window_features _obj' + checkUnexpectedReturnNULL "webkit_web_view_get_window_features" result + result' <- (newObject WebWindowFeatures) result + touchManagedPtr _obj + return result' + +-- method WebView::get_zoom_level +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CFloat + + +webViewGetZoomLevel :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Float +webViewGetZoomLevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_get_zoom_level _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method WebView::go_back +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewGoBack :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewGoBack _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_go_back _obj' + touchManagedPtr _obj + return () + +-- method WebView::go_back_or_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_back_or_forward" webkit_web_view_go_back_or_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Int32 -> -- steps : TBasicType TInt32 + IO () + + +webViewGoBackOrForward :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Int32 -> -- steps + m () +webViewGoBackOrForward _obj steps = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_go_back_or_forward _obj' steps + touchManagedPtr _obj + return () + +-- method WebView::go_forward +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewGoForward :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewGoForward _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_go_forward _obj' + touchManagedPtr _obj + return () + +-- method WebView::go_to_back_forward_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_go_to_back_forward_item" webkit_web_view_go_to_back_forward_item :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Ptr WebHistoryItem -> -- item : TInterface "WebKit" "WebHistoryItem" + IO CInt + + +webViewGoToBackForwardItem :: + (MonadIO m, WebViewK a, WebHistoryItemK b) => + a -> -- _obj + b -> -- item + m Bool +webViewGoToBackForwardItem _obj item = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let item' = unsafeManagedPtrCastPtr item + result <- webkit_web_view_go_to_back_forward_item _obj' item' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr item + return result' + +-- method WebView::has_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_has_selection" webkit_web_view_has_selection :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO CInt + + +webViewHasSelection :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m Bool +webViewHasSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_has_selection _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method WebView::load_html_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_html_string" webkit_web_view_load_html_string :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- content : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + +{-# DEPRECATED webViewLoadHtmlString ["(Since version 1.1.1)","Use webkit_web_view_load_string() instead."]#-} +webViewLoadHtmlString :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- content + T.Text -> -- base_uri + m () +webViewLoadHtmlString _obj content base_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + base_uri' <- textToCString base_uri + webkit_web_view_load_html_string _obj' content' base_uri' + touchManagedPtr _obj + freeMem content' + freeMem base_uri' + return () + +-- method WebView::load_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest" + IO () + + +webViewLoadRequest :: + (MonadIO m, WebViewK a, NetworkRequestK b) => + a -> -- _obj + b -> -- request + m () +webViewLoadRequest _obj request = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let request' = unsafeManagedPtrCastPtr request + webkit_web_view_load_request _obj' request' + touchManagedPtr _obj + touchManagedPtr request + return () + +-- method WebView::load_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_string" webkit_web_view_load_string :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- content : TBasicType TUTF8 + CString -> -- mime_type : TBasicType TUTF8 + CString -> -- encoding : TBasicType TUTF8 + CString -> -- base_uri : TBasicType TUTF8 + IO () + + +webViewLoadString :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- content + T.Text -> -- mime_type + T.Text -> -- encoding + T.Text -> -- base_uri + m () +webViewLoadString _obj content mime_type encoding base_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content' <- textToCString content + mime_type' <- textToCString mime_type + encoding' <- textToCString encoding + base_uri' <- textToCString base_uri + webkit_web_view_load_string _obj' content' mime_type' encoding' base_uri' + touchManagedPtr _obj + freeMem content' + freeMem mime_type' + freeMem encoding' + freeMem base_uri' + return () + +-- method WebView::load_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- uri : TBasicType TUTF8 + IO () + + +webViewLoadUri :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- uri + m () +webViewLoadUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_web_view_load_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + +-- method WebView::mark_text_matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_mark_text_matches" webkit_web_view_mark_text_matches :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- string : TBasicType TUTF8 + CInt -> -- case_sensitive : TBasicType TBoolean + Word32 -> -- limit : TBasicType TUInt32 + IO Word32 + + +webViewMarkTextMatches :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- string + Bool -> -- case_sensitive + Word32 -> -- limit + m Word32 +webViewMarkTextMatches _obj string case_sensitive limit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + let case_sensitive' = (fromIntegral . fromEnum) case_sensitive + result <- webkit_web_view_mark_text_matches _obj' string' case_sensitive' limit + touchManagedPtr _obj + freeMem string' + return result + +-- method WebView::move_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_move_cursor" webkit_web_view_move_cursor :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CUInt -> -- step : TInterface "Gtk" "MovementStep" + Int32 -> -- count : TBasicType TInt32 + IO () + + +webViewMoveCursor :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Gtk.MovementStep -> -- step + Int32 -> -- count + m () +webViewMoveCursor _obj step count = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let step' = (fromIntegral . fromEnum) step + webkit_web_view_move_cursor _obj' step' count + touchManagedPtr _obj + return () + +-- method WebView::open +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_open" webkit_web_view_open :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- uri : TBasicType TUTF8 + IO () + +{-# DEPRECATED webViewOpen ["(Since version 1.1.1)","Use webkit_web_view_load_uri() instead."]#-} +webViewOpen :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- uri + m () +webViewOpen _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + webkit_web_view_open _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + +-- method WebView::paste_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_paste_clipboard" webkit_web_view_paste_clipboard :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewPasteClipboard :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewPasteClipboard _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_paste_clipboard _obj' + touchManagedPtr _obj + return () + +-- method WebView::redo +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_redo" webkit_web_view_redo :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewRedo :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewRedo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_redo _obj' + touchManagedPtr _obj + return () + +-- method WebView::reload +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewReload :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewReload _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_reload _obj' + touchManagedPtr _obj + return () + +-- method WebView::reload_bypass_cache +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewReloadBypassCache :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewReloadBypassCache _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_reload_bypass_cache _obj' + touchManagedPtr _obj + return () + +-- method WebView::search_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "forward", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "forward", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_search_text" webkit_web_view_search_text :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- text : TBasicType TUTF8 + CInt -> -- case_sensitive : TBasicType TBoolean + CInt -> -- forward : TBasicType TBoolean + CInt -> -- wrap : TBasicType TBoolean + IO CInt + + +webViewSearchText :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- text + Bool -> -- case_sensitive + Bool -> -- forward + Bool -> -- wrap + m Bool +webViewSearchText _obj text case_sensitive forward wrap = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + let case_sensitive' = (fromIntegral . fromEnum) case_sensitive + let forward' = (fromIntegral . fromEnum) forward + let wrap' = (fromIntegral . fromEnum) wrap + result <- webkit_web_view_search_text _obj' text' case_sensitive' forward' wrap' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem text' + return result' + +-- method WebView::select_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_select_all" webkit_web_view_select_all :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewSelectAll :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewSelectAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_select_all _obj' + touchManagedPtr _obj + return () + +-- method WebView::set_custom_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_custom_encoding" webkit_web_view_set_custom_encoding :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CString -> -- encoding : TBasicType TUTF8 + IO () + + +webViewSetCustomEncoding :: + (MonadIO m, WebViewK a) => + a -> -- _obj + T.Text -> -- encoding + m () +webViewSetCustomEncoding _obj encoding = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + encoding' <- textToCString encoding + webkit_web_view_set_custom_encoding _obj' encoding' + touchManagedPtr _obj + freeMem encoding' + return () + +-- method WebView::set_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- flag : TBasicType TBoolean + IO () + + +webViewSetEditable :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- flag + m () +webViewSetEditable _obj flag = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flag' = (fromIntegral . fromEnum) flag + webkit_web_view_set_editable _obj' flag' + touchManagedPtr _obj + return () + +-- method WebView::set_full_content_zoom +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_content_zoom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_content_zoom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_full_content_zoom" webkit_web_view_set_full_content_zoom :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- full_content_zoom : TBasicType TBoolean + IO () + + +webViewSetFullContentZoom :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- full_content_zoom + m () +webViewSetFullContentZoom _obj full_content_zoom = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let full_content_zoom' = (fromIntegral . fromEnum) full_content_zoom + webkit_web_view_set_full_content_zoom _obj' full_content_zoom' + touchManagedPtr _obj + return () + +-- method WebView::set_highlight_text_matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_highlight_text_matches" webkit_web_view_set_highlight_text_matches :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- highlight : TBasicType TBoolean + IO () + + +webViewSetHighlightTextMatches :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- highlight + m () +webViewSetHighlightTextMatches _obj highlight = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let highlight' = (fromIntegral . fromEnum) highlight + webkit_web_view_set_highlight_text_matches _obj' highlight' + touchManagedPtr _obj + return () + +-- method WebView::set_maintains_back_forward_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_maintains_back_forward_list" webkit_web_view_set_maintains_back_forward_list :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- flag : TBasicType TBoolean + IO () + + +webViewSetMaintainsBackForwardList :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- flag + m () +webViewSetMaintainsBackForwardList _obj flag = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flag' = (fromIntegral . fromEnum) flag + webkit_web_view_set_maintains_back_forward_list _obj' flag' + touchManagedPtr _obj + return () + +-- method WebView::set_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Ptr WebSettings -> -- settings : TInterface "WebKit" "WebSettings" + IO () + + +webViewSetSettings :: + (MonadIO m, WebViewK a, WebSettingsK b) => + a -> -- _obj + b -> -- settings + m () +webViewSetSettings _obj settings = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let settings' = unsafeManagedPtrCastPtr settings + webkit_web_view_set_settings _obj' settings' + touchManagedPtr _obj + touchManagedPtr settings + return () + +-- method WebView::set_transparent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_transparent" webkit_web_view_set_transparent :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- flag : TBasicType TBoolean + IO () + + +webViewSetTransparent :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- flag + m () +webViewSetTransparent _obj flag = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flag' = (fromIntegral . fromEnum) flag + webkit_web_view_set_transparent _obj' flag' + touchManagedPtr _obj + return () + +-- method WebView::set_view_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "WebKit" "WebViewViewMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "WebKit" "WebViewViewMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_view_mode" webkit_web_view_set_view_mode :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CUInt -> -- mode : TInterface "WebKit" "WebViewViewMode" + IO () + + +webViewSetViewMode :: + (MonadIO m, WebViewK a) => + a -> -- _obj + WebViewViewMode -> -- mode + m () +webViewSetViewMode _obj mode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mode' = (fromIntegral . fromEnum) mode + webkit_web_view_set_view_mode _obj' mode' + touchManagedPtr _obj + return () + +-- method WebView::set_view_source_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view_source_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view_source_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_view_source_mode" webkit_web_view_set_view_source_mode :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CInt -> -- view_source_mode : TBasicType TBoolean + IO () + + +webViewSetViewSourceMode :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Bool -> -- view_source_mode + m () +webViewSetViewSourceMode _obj view_source_mode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let view_source_mode' = (fromIntegral . fromEnum) view_source_mode + webkit_web_view_set_view_source_mode _obj' view_source_mode' + touchManagedPtr _obj + return () + +-- method WebView::set_zoom_level +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + CFloat -> -- zoom_level : TBasicType TFloat + IO () + + +webViewSetZoomLevel :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Float -> -- zoom_level + m () +webViewSetZoomLevel _obj zoom_level = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let zoom_level' = realToFrac zoom_level + webkit_web_view_set_zoom_level _obj' zoom_level' + touchManagedPtr _obj + return () + +-- method WebView::stop_loading +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewStopLoading :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewStopLoading _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_stop_loading _obj' + touchManagedPtr _obj + return () + +-- method WebView::try_get_favicon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_try_get_favicon_pixbuf" webkit_web_view_try_get_favicon_pixbuf :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + Word32 -> -- width : TBasicType TUInt32 + Word32 -> -- height : TBasicType TUInt32 + IO (Ptr GdkPixbuf.Pixbuf) + + +webViewTryGetFaviconPixbuf :: + (MonadIO m, WebViewK a) => + a -> -- _obj + Word32 -> -- width + Word32 -> -- height + m GdkPixbuf.Pixbuf +webViewTryGetFaviconPixbuf _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_web_view_try_get_favicon_pixbuf _obj' width height + checkUnexpectedReturnNULL "webkit_web_view_try_get_favicon_pixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + return result' + +-- method WebView::undo +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_undo" webkit_web_view_undo :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewUndo :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewUndo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_undo _obj' + touchManagedPtr _obj + return () + +-- method WebView::unmark_text_matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_unmark_text_matches" webkit_web_view_unmark_text_matches :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewUnmarkTextMatches :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewUnmarkTextMatches _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_unmark_text_matches _obj' + touchManagedPtr _obj + return () + +-- method WebView::zoom_in +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_zoom_in" webkit_web_view_zoom_in :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewZoomIn :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewZoomIn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_zoom_in _obj' + touchManagedPtr _obj + return () + +-- method WebView::zoom_out +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_view_zoom_out" webkit_web_view_zoom_out :: + Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" + IO () + + +webViewZoomOut :: + (MonadIO m, WebViewK a) => + a -> -- _obj + m () +webViewZoomOut _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + webkit_web_view_zoom_out _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/WebKit/Objects/WebView.hs-boot b/GI/WebKit/Objects/WebView.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebView.hs-boot @@ -0,0 +1,94 @@ +module GI.WebKit.Objects.WebView where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebView = WebView (ForeignPtr WebView) +instance GObject WebView where +class GObject o => WebViewK o +instance (GObject o, IsDescendantOf WebView o) => WebViewK o +data WebViewCopyTargetListPropertyInfo +data WebViewCustomEncodingPropertyInfo +data WebViewEditablePropertyInfo +data WebViewEncodingPropertyInfo +data WebViewFullContentZoomPropertyInfo +data WebViewIconUriPropertyInfo +data WebViewImContextPropertyInfo +data WebViewLoadStatusPropertyInfo +data WebViewPasteTargetListPropertyInfo +data WebViewProgressPropertyInfo +data WebViewSelfScrollingPropertyInfo +data WebViewSettingsPropertyInfo +data WebViewTitlePropertyInfo +data WebViewTransparentPropertyInfo +data WebViewUriPropertyInfo +data WebViewViewModePropertyInfo +data WebViewViewportAttributesPropertyInfo +data WebViewWebInspectorPropertyInfo +data WebViewWindowFeaturesPropertyInfo +data WebViewZoomLevelPropertyInfo +data WebViewCloseWebViewSignalInfo +data WebViewConsoleMessageSignalInfo +data WebViewContextMenuSignalInfo +data WebViewCopyClipboardSignalInfo +data WebViewCreatePluginWidgetSignalInfo +data WebViewCreateWebViewSignalInfo +data WebViewCutClipboardSignalInfo +data WebViewDatabaseQuotaExceededSignalInfo +data WebViewDocumentLoadFinishedSignalInfo +data WebViewDownloadRequestedSignalInfo +data WebViewEditingBeganSignalInfo +data WebViewEditingEndedSignalInfo +data WebViewEnteringFullscreenSignalInfo +data WebViewFrameCreatedSignalInfo +data WebViewGeolocationPolicyDecisionCancelledSignalInfo +data WebViewGeolocationPolicyDecisionRequestedSignalInfo +data WebViewHoveringOverLinkSignalInfo +data WebViewIconLoadedSignalInfo +data WebViewLeavingFullscreenSignalInfo +data WebViewLoadCommittedSignalInfo +data WebViewLoadErrorSignalInfo +data WebViewLoadFinishedSignalInfo +data WebViewLoadProgressChangedSignalInfo +data WebViewLoadStartedSignalInfo +data WebViewMimeTypePolicyDecisionRequestedSignalInfo +data WebViewMoveCursorSignalInfo +data WebViewNavigationPolicyDecisionRequestedSignalInfo +data WebViewNavigationRequestedSignalInfo +data WebViewNewWindowPolicyDecisionRequestedSignalInfo +data WebViewOnloadEventSignalInfo +data WebViewPasteClipboardSignalInfo +data WebViewPopulatePopupSignalInfo +data WebViewPrintRequestedSignalInfo +data WebViewRedoSignalInfo +data WebViewResourceContentLengthReceivedSignalInfo +data WebViewResourceLoadFailedSignalInfo +data WebViewResourceLoadFinishedSignalInfo +data WebViewResourceRequestStartingSignalInfo +data WebViewResourceResponseReceivedSignalInfo +data WebViewRunFileChooserSignalInfo +data WebViewScriptAlertSignalInfo +data WebViewScriptConfirmSignalInfo +data WebViewScriptPromptSignalInfo +data WebViewSelectAllSignalInfo +data WebViewSelectionChangedSignalInfo +data WebViewShouldApplyStyleSignalInfo +data WebViewShouldBeginEditingSignalInfo +data WebViewShouldChangeSelectedRangeSignalInfo +data WebViewShouldDeleteRangeSignalInfo +data WebViewShouldEndEditingSignalInfo +data WebViewShouldInsertNodeSignalInfo +data WebViewShouldInsertTextSignalInfo +data WebViewShouldShowDeleteInterfaceForElementSignalInfo +data WebViewStatusBarTextChangedSignalInfo +data WebViewTitleChangedSignalInfo +data WebViewUndoSignalInfo +data WebViewUserChangedContentsSignalInfo +data WebViewViewportAttributesChangedSignalInfo +data WebViewViewportAttributesRecomputeRequestedSignalInfo +data WebViewWebViewReadySignalInfo +data WebViewWindowObjectClearedSignalInfo diff --git a/GI/WebKit/Objects/WebWindowFeatures.hs b/GI/WebKit/Objects/WebWindowFeatures.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebWindowFeatures.hs @@ -0,0 +1,433 @@ + +{- | +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.WebKit.Objects.WebWindowFeatures + ( + +-- * Exported types + WebWindowFeatures(..) , + WebWindowFeaturesK , + toWebWindowFeatures , + noWebWindowFeatures , + + + -- * Methods +-- ** webWindowFeaturesEqual + webWindowFeaturesEqual , + + +-- ** webWindowFeaturesNew + webWindowFeaturesNew , + + + + + -- * Properties +-- ** Fullscreen + WebWindowFeaturesFullscreenPropertyInfo , + constructWebWindowFeaturesFullscreen , + getWebWindowFeaturesFullscreen , + setWebWindowFeaturesFullscreen , + + +-- ** Height + WebWindowFeaturesHeightPropertyInfo , + constructWebWindowFeaturesHeight , + getWebWindowFeaturesHeight , + setWebWindowFeaturesHeight , + + +-- ** LocationbarVisible + WebWindowFeaturesLocationbarVisiblePropertyInfo, + constructWebWindowFeaturesLocationbarVisible, + getWebWindowFeaturesLocationbarVisible , + setWebWindowFeaturesLocationbarVisible , + + +-- ** MenubarVisible + WebWindowFeaturesMenubarVisiblePropertyInfo, + constructWebWindowFeaturesMenubarVisible, + getWebWindowFeaturesMenubarVisible , + setWebWindowFeaturesMenubarVisible , + + +-- ** ScrollbarVisible + WebWindowFeaturesScrollbarVisiblePropertyInfo, + constructWebWindowFeaturesScrollbarVisible, + getWebWindowFeaturesScrollbarVisible , + setWebWindowFeaturesScrollbarVisible , + + +-- ** StatusbarVisible + WebWindowFeaturesStatusbarVisiblePropertyInfo, + constructWebWindowFeaturesStatusbarVisible, + getWebWindowFeaturesStatusbarVisible , + setWebWindowFeaturesStatusbarVisible , + + +-- ** ToolbarVisible + WebWindowFeaturesToolbarVisiblePropertyInfo, + constructWebWindowFeaturesToolbarVisible, + getWebWindowFeaturesToolbarVisible , + setWebWindowFeaturesToolbarVisible , + + +-- ** Width + WebWindowFeaturesWidthPropertyInfo , + constructWebWindowFeaturesWidth , + getWebWindowFeaturesWidth , + setWebWindowFeaturesWidth , + + +-- ** X + WebWindowFeaturesXPropertyInfo , + constructWebWindowFeaturesX , + getWebWindowFeaturesX , + setWebWindowFeaturesX , + + +-- ** Y + WebWindowFeaturesYPropertyInfo , + constructWebWindowFeaturesY , + getWebWindowFeaturesY , + setWebWindowFeaturesY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks +import qualified GI.GObject as GObject + +newtype WebWindowFeatures = WebWindowFeatures (ForeignPtr WebWindowFeatures) +foreign import ccall "webkit_web_window_features_get_type" + c_webkit_web_window_features_get_type :: IO GType + +type instance ParentTypes WebWindowFeatures = WebWindowFeaturesParentTypes +type WebWindowFeaturesParentTypes = '[GObject.Object] + +instance GObject WebWindowFeatures where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_webkit_web_window_features_get_type + + +class GObject o => WebWindowFeaturesK o +instance (GObject o, IsDescendantOf WebWindowFeatures o) => WebWindowFeaturesK o + +toWebWindowFeatures :: WebWindowFeaturesK o => o -> IO WebWindowFeatures +toWebWindowFeatures = unsafeCastTo WebWindowFeatures + +noWebWindowFeatures :: Maybe WebWindowFeatures +noWebWindowFeatures = Nothing + +-- VVV Prop "fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen" + +setWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesFullscreen obj val = liftIO $ setObjectPropertyBool obj "fullscreen" val + +constructWebWindowFeaturesFullscreen :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesFullscreen val = constructObjectPropertyBool "fullscreen" val + +data WebWindowFeaturesFullscreenPropertyInfo +instance AttrInfo WebWindowFeaturesFullscreenPropertyInfo where + type AttrAllowedOps WebWindowFeaturesFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesFullscreenPropertyInfo = Bool + type AttrLabel WebWindowFeaturesFullscreenPropertyInfo = "WebWindowFeatures::fullscreen" + attrGet _ = getWebWindowFeaturesFullscreen + attrSet _ = setWebWindowFeaturesFullscreen + attrConstruct _ = constructWebWindowFeaturesFullscreen + +-- VVV Prop "height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesHeight obj = liftIO $ getObjectPropertyCInt obj "height" + +setWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val + +constructWebWindowFeaturesHeight :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesHeight val = constructObjectPropertyCInt "height" val + +data WebWindowFeaturesHeightPropertyInfo +instance AttrInfo WebWindowFeaturesHeightPropertyInfo where + type AttrAllowedOps WebWindowFeaturesHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesHeightPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesHeightPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesHeightPropertyInfo = "WebWindowFeatures::height" + attrGet _ = getWebWindowFeaturesHeight + attrSet _ = setWebWindowFeaturesHeight + attrConstruct _ = constructWebWindowFeaturesHeight + +-- VVV Prop "locationbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible" + +setWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesLocationbarVisible obj val = liftIO $ setObjectPropertyBool obj "locationbar-visible" val + +constructWebWindowFeaturesLocationbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val + +data WebWindowFeaturesLocationbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesLocationbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesLocationbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesLocationbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesLocationbarVisiblePropertyInfo = "WebWindowFeatures::locationbar-visible" + attrGet _ = getWebWindowFeaturesLocationbarVisible + attrSet _ = setWebWindowFeaturesLocationbarVisible + attrConstruct _ = constructWebWindowFeaturesLocationbarVisible + +-- VVV Prop "menubar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible" + +setWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesMenubarVisible obj val = liftIO $ setObjectPropertyBool obj "menubar-visible" val + +constructWebWindowFeaturesMenubarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val + +data WebWindowFeaturesMenubarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesMenubarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesMenubarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesMenubarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesMenubarVisiblePropertyInfo = "WebWindowFeatures::menubar-visible" + attrGet _ = getWebWindowFeaturesMenubarVisible + attrSet _ = setWebWindowFeaturesMenubarVisible + attrConstruct _ = constructWebWindowFeaturesMenubarVisible + +-- VVV Prop "scrollbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesScrollbarVisible obj = liftIO $ getObjectPropertyBool obj "scrollbar-visible" + +setWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesScrollbarVisible obj val = liftIO $ setObjectPropertyBool obj "scrollbar-visible" val + +constructWebWindowFeaturesScrollbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesScrollbarVisible val = constructObjectPropertyBool "scrollbar-visible" val + +data WebWindowFeaturesScrollbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesScrollbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesScrollbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesScrollbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesScrollbarVisiblePropertyInfo = "WebWindowFeatures::scrollbar-visible" + attrGet _ = getWebWindowFeaturesScrollbarVisible + attrSet _ = setWebWindowFeaturesScrollbarVisible + attrConstruct _ = constructWebWindowFeaturesScrollbarVisible + +-- VVV Prop "statusbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible" + +setWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesStatusbarVisible obj val = liftIO $ setObjectPropertyBool obj "statusbar-visible" val + +constructWebWindowFeaturesStatusbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val + +data WebWindowFeaturesStatusbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesStatusbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesStatusbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesStatusbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesStatusbarVisiblePropertyInfo = "WebWindowFeatures::statusbar-visible" + attrGet _ = getWebWindowFeaturesStatusbarVisible + attrSet _ = setWebWindowFeaturesStatusbarVisible + attrConstruct _ = constructWebWindowFeaturesStatusbarVisible + +-- VVV Prop "toolbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible" + +setWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesToolbarVisible obj val = liftIO $ setObjectPropertyBool obj "toolbar-visible" val + +constructWebWindowFeaturesToolbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val + +data WebWindowFeaturesToolbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesToolbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesToolbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesToolbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesToolbarVisiblePropertyInfo = "WebWindowFeatures::toolbar-visible" + attrGet _ = getWebWindowFeaturesToolbarVisible + attrSet _ = setWebWindowFeaturesToolbarVisible + attrConstruct _ = constructWebWindowFeaturesToolbarVisible + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesWidth obj = liftIO $ getObjectPropertyCInt obj "width" + +setWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val + +constructWebWindowFeaturesWidth :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesWidth val = constructObjectPropertyCInt "width" val + +data WebWindowFeaturesWidthPropertyInfo +instance AttrInfo WebWindowFeaturesWidthPropertyInfo where + type AttrAllowedOps WebWindowFeaturesWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesWidthPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesWidthPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesWidthPropertyInfo = "WebWindowFeatures::width" + attrGet _ = getWebWindowFeaturesWidth + attrSet _ = setWebWindowFeaturesWidth + attrConstruct _ = constructWebWindowFeaturesWidth + +-- VVV Prop "x" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesX obj = liftIO $ getObjectPropertyCInt obj "x" + +setWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesX obj val = liftIO $ setObjectPropertyCInt obj "x" val + +constructWebWindowFeaturesX :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesX val = constructObjectPropertyCInt "x" val + +data WebWindowFeaturesXPropertyInfo +instance AttrInfo WebWindowFeaturesXPropertyInfo where + type AttrAllowedOps WebWindowFeaturesXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesXPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesXPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesXPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesXPropertyInfo = "WebWindowFeatures::x" + attrGet _ = getWebWindowFeaturesX + attrSet _ = setWebWindowFeaturesX + attrConstruct _ = constructWebWindowFeaturesX + +-- VVV Prop "y" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesY obj = liftIO $ getObjectPropertyCInt obj "y" + +setWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesY obj val = liftIO $ setObjectPropertyCInt obj "y" val + +constructWebWindowFeaturesY :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesY val = constructObjectPropertyCInt "y" val + +data WebWindowFeaturesYPropertyInfo +instance AttrInfo WebWindowFeaturesYPropertyInfo where + type AttrAllowedOps WebWindowFeaturesYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesYPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesYPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesYPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesYPropertyInfo = "WebWindowFeatures::y" + attrGet _ = getWebWindowFeaturesY + attrSet _ = setWebWindowFeaturesY + attrConstruct _ = constructWebWindowFeaturesY + +type instance AttributeList WebWindowFeatures = WebWindowFeaturesAttributeList +type WebWindowFeaturesAttributeList = ('[ '("fullscreen", WebWindowFeaturesFullscreenPropertyInfo), '("height", WebWindowFeaturesHeightPropertyInfo), '("locationbar-visible", WebWindowFeaturesLocationbarVisiblePropertyInfo), '("menubar-visible", WebWindowFeaturesMenubarVisiblePropertyInfo), '("scrollbar-visible", WebWindowFeaturesScrollbarVisiblePropertyInfo), '("statusbar-visible", WebWindowFeaturesStatusbarVisiblePropertyInfo), '("toolbar-visible", WebWindowFeaturesToolbarVisiblePropertyInfo), '("width", WebWindowFeaturesWidthPropertyInfo), '("x", WebWindowFeaturesXPropertyInfo), '("y", WebWindowFeaturesYPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList WebWindowFeatures = WebWindowFeaturesSignalList +type WebWindowFeaturesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method WebWindowFeatures::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "WebKit" "WebWindowFeatures" +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_window_features_new" webkit_web_window_features_new :: + IO (Ptr WebWindowFeatures) + + +webWindowFeaturesNew :: + (MonadIO m) => + m WebWindowFeatures +webWindowFeaturesNew = liftIO $ do + result <- webkit_web_window_features_new + checkUnexpectedReturnNULL "webkit_web_window_features_new" result + result' <- (wrapObject WebWindowFeatures) result + return result' + +-- method WebWindowFeatures::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "features2", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "features2", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_web_window_features_equal" webkit_web_window_features_equal :: + Ptr WebWindowFeatures -> -- _obj : TInterface "WebKit" "WebWindowFeatures" + Ptr WebWindowFeatures -> -- features2 : TInterface "WebKit" "WebWindowFeatures" + IO CInt + + +webWindowFeaturesEqual :: + (MonadIO m, WebWindowFeaturesK a, WebWindowFeaturesK b) => + a -> -- _obj + b -> -- features2 + m Bool +webWindowFeaturesEqual _obj features2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let features2' = unsafeManagedPtrCastPtr features2 + result <- webkit_web_window_features_equal _obj' features2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr features2 + return result' + + diff --git a/GI/WebKit/Objects/WebWindowFeatures.hs-boot b/GI/WebKit/Objects/WebWindowFeatures.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Objects/WebWindowFeatures.hs-boot @@ -0,0 +1,23 @@ +module GI.WebKit.Objects.WebWindowFeatures where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebWindowFeatures = WebWindowFeatures (ForeignPtr WebWindowFeatures) +instance GObject WebWindowFeatures where +class GObject o => WebWindowFeaturesK o +instance (GObject o, IsDescendantOf WebWindowFeatures o) => WebWindowFeaturesK o +data WebWindowFeaturesFullscreenPropertyInfo +data WebWindowFeaturesHeightPropertyInfo +data WebWindowFeaturesLocationbarVisiblePropertyInfo +data WebWindowFeaturesMenubarVisiblePropertyInfo +data WebWindowFeaturesScrollbarVisiblePropertyInfo +data WebWindowFeaturesStatusbarVisiblePropertyInfo +data WebWindowFeaturesToolbarVisiblePropertyInfo +data WebWindowFeaturesWidthPropertyInfo +data WebWindowFeaturesXPropertyInfo +data WebWindowFeaturesYPropertyInfo diff --git a/GI/WebKit/Structs.hs b/GI/WebKit/Structs.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Structs.hs @@ -0,0 +1,28 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit.Structs + ( module GI.WebKit.Structs.DOMEventTargetClass, + module GI.WebKit.Structs.WebPluginMIMEType, + + + ) where + +import GI.WebKit.Structs.DOMEventTargetClass +import GI.WebKit.Structs.WebPluginMIMEType + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + + diff --git a/GI/WebKit/Structs/DOMEventTargetClass.hs b/GI/WebKit/Structs/DOMEventTargetClass.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Structs/DOMEventTargetClass.hs @@ -0,0 +1,32 @@ + +{- | +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.WebKit.Structs.DOMEventTargetClass + ( + +-- * Exported types + DOMEventTargetClass(..) , + noDOMEventTargetClass , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + +newtype DOMEventTargetClass = DOMEventTargetClass (ForeignPtr DOMEventTargetClass) +noDOMEventTargetClass :: Maybe DOMEventTargetClass +noDOMEventTargetClass = Nothing + + diff --git a/GI/WebKit/Structs/DOMEventTargetClass.hs-boot b/GI/WebKit/Structs/DOMEventTargetClass.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Structs/DOMEventTargetClass.hs-boot @@ -0,0 +1,10 @@ +module GI.WebKit.Structs.DOMEventTargetClass where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DOMEventTargetClass = DOMEventTargetClass (ForeignPtr DOMEventTargetClass) diff --git a/GI/WebKit/Structs/WebPluginMIMEType.hs b/GI/WebKit/Structs/WebPluginMIMEType.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Structs/WebPluginMIMEType.hs @@ -0,0 +1,70 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure representing one of the MIME types associated with a +plugin. A #GSList of these objects will be returned by +#webkit_web_plugin_get_mimetypes, use +#webkit_web_plugin_mime_type_list_free to free it. +-} + +module GI.WebKit.Structs.WebPluginMIMEType + ( + +-- * Exported types + WebPluginMIMEType(..) , + noWebPluginMIMEType , + + + -- * Properties +-- ** Description + webPluginMIMETypeReadDescription , + + +-- ** Extensions + webPluginMIMETypeReadExtensions , + + +-- ** Name + webPluginMIMETypeReadName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit.Types +import GI.WebKit.Callbacks + +newtype WebPluginMIMEType = WebPluginMIMEType (ForeignPtr WebPluginMIMEType) +noWebPluginMIMEType :: Maybe WebPluginMIMEType +noWebPluginMIMEType = Nothing + +webPluginMIMETypeReadName :: WebPluginMIMEType -> IO T.Text +webPluginMIMETypeReadName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +webPluginMIMETypeReadDescription :: WebPluginMIMEType -> IO T.Text +webPluginMIMETypeReadDescription s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +webPluginMIMETypeReadExtensions :: WebPluginMIMEType -> IO T.Text +webPluginMIMETypeReadExtensions s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + + diff --git a/GI/WebKit/Structs/WebPluginMIMEType.hs-boot b/GI/WebKit/Structs/WebPluginMIMEType.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit/Structs/WebPluginMIMEType.hs-boot @@ -0,0 +1,10 @@ +module GI.WebKit.Structs.WebPluginMIMEType where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WebPluginMIMEType = WebPluginMIMEType (ForeignPtr WebPluginMIMEType) diff --git a/GI/WebKit/Types.hs b/GI/WebKit/Types.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit/Types.hs @@ -0,0 +1,392 @@ +module GI.WebKit.Types + ( module GI.WebKit.Interfaces.DOMEventTarget, + module GI.WebKit.Interfaces.SpellChecker, + module GI.WebKit.Objects.DOMAttr , + module GI.WebKit.Objects.DOMAudioTrack , + module GI.WebKit.Objects.DOMAudioTrackList, + module GI.WebKit.Objects.DOMBarInfo , + module GI.WebKit.Objects.DOMBarProp , + module GI.WebKit.Objects.DOMBatteryManager, + module GI.WebKit.Objects.DOMBlob , + module GI.WebKit.Objects.DOMCDATASection, + module GI.WebKit.Objects.DOMCSSRule , + module GI.WebKit.Objects.DOMCSSRuleList , + module GI.WebKit.Objects.DOMCSSStyleDeclaration, + module GI.WebKit.Objects.DOMCSSStyleSheet, + module GI.WebKit.Objects.DOMCSSValue , + module GI.WebKit.Objects.DOMCharacterData, + module GI.WebKit.Objects.DOMComment , + module GI.WebKit.Objects.DOMConsole , + module GI.WebKit.Objects.DOMDOMApplicationCache, + module GI.WebKit.Objects.DOMDOMImplementation, + module GI.WebKit.Objects.DOMDOMMimeType , + module GI.WebKit.Objects.DOMDOMMimeTypeArray, + module GI.WebKit.Objects.DOMDOMNamedFlowCollection, + module GI.WebKit.Objects.DOMDOMPlugin , + module GI.WebKit.Objects.DOMDOMPluginArray, + module GI.WebKit.Objects.DOMDOMSecurityPolicy, + module GI.WebKit.Objects.DOMDOMSelection, + module GI.WebKit.Objects.DOMDOMSettableTokenList, + module GI.WebKit.Objects.DOMDOMStringList, + module GI.WebKit.Objects.DOMDOMStringMap, + module GI.WebKit.Objects.DOMDOMTokenList, + module GI.WebKit.Objects.DOMDOMWindow , + module GI.WebKit.Objects.DOMDOMWindowCSS, + module GI.WebKit.Objects.DOMDatabase , + module GI.WebKit.Objects.DOMDocument , + module GI.WebKit.Objects.DOMDocumentFragment, + module GI.WebKit.Objects.DOMDocumentType, + module GI.WebKit.Objects.DOMElement , + module GI.WebKit.Objects.DOMEntityReference, + module GI.WebKit.Objects.DOMEvent , + module GI.WebKit.Objects.DOMFile , + module GI.WebKit.Objects.DOMFileList , + module GI.WebKit.Objects.DOMGamepad , + module GI.WebKit.Objects.DOMGamepadList , + module GI.WebKit.Objects.DOMGeolocation , + module GI.WebKit.Objects.DOMHTMLAnchorElement, + module GI.WebKit.Objects.DOMHTMLAppletElement, + module GI.WebKit.Objects.DOMHTMLAreaElement, + module GI.WebKit.Objects.DOMHTMLAudioElement, + module GI.WebKit.Objects.DOMHTMLBRElement, + module GI.WebKit.Objects.DOMHTMLBaseElement, + module GI.WebKit.Objects.DOMHTMLBaseFontElement, + module GI.WebKit.Objects.DOMHTMLBodyElement, + module GI.WebKit.Objects.DOMHTMLButtonElement, + module GI.WebKit.Objects.DOMHTMLCanvasElement, + module GI.WebKit.Objects.DOMHTMLCollection, + module GI.WebKit.Objects.DOMHTMLDListElement, + module GI.WebKit.Objects.DOMHTMLDetailsElement, + module GI.WebKit.Objects.DOMHTMLDirectoryElement, + module GI.WebKit.Objects.DOMHTMLDivElement, + module GI.WebKit.Objects.DOMHTMLDocument, + module GI.WebKit.Objects.DOMHTMLElement , + module GI.WebKit.Objects.DOMHTMLEmbedElement, + module GI.WebKit.Objects.DOMHTMLFieldSetElement, + module GI.WebKit.Objects.DOMHTMLFontElement, + module GI.WebKit.Objects.DOMHTMLFormElement, + module GI.WebKit.Objects.DOMHTMLFrameElement, + module GI.WebKit.Objects.DOMHTMLFrameSetElement, + module GI.WebKit.Objects.DOMHTMLHRElement, + module GI.WebKit.Objects.DOMHTMLHeadElement, + module GI.WebKit.Objects.DOMHTMLHeadingElement, + module GI.WebKit.Objects.DOMHTMLHtmlElement, + module GI.WebKit.Objects.DOMHTMLIFrameElement, + module GI.WebKit.Objects.DOMHTMLImageElement, + module GI.WebKit.Objects.DOMHTMLInputElement, + module GI.WebKit.Objects.DOMHTMLKeygenElement, + module GI.WebKit.Objects.DOMHTMLLIElement, + module GI.WebKit.Objects.DOMHTMLLabelElement, + module GI.WebKit.Objects.DOMHTMLLegendElement, + module GI.WebKit.Objects.DOMHTMLLinkElement, + module GI.WebKit.Objects.DOMHTMLMapElement, + module GI.WebKit.Objects.DOMHTMLMarqueeElement, + module GI.WebKit.Objects.DOMHTMLMediaElement, + module GI.WebKit.Objects.DOMHTMLMenuElement, + module GI.WebKit.Objects.DOMHTMLMetaElement, + module GI.WebKit.Objects.DOMHTMLModElement, + module GI.WebKit.Objects.DOMHTMLOListElement, + module GI.WebKit.Objects.DOMHTMLObjectElement, + module GI.WebKit.Objects.DOMHTMLOptGroupElement, + module GI.WebKit.Objects.DOMHTMLOptionElement, + module GI.WebKit.Objects.DOMHTMLOptionsCollection, + module GI.WebKit.Objects.DOMHTMLParagraphElement, + module GI.WebKit.Objects.DOMHTMLParamElement, + module GI.WebKit.Objects.DOMHTMLPreElement, + module GI.WebKit.Objects.DOMHTMLPropertiesCollection, + module GI.WebKit.Objects.DOMHTMLQuoteElement, + module GI.WebKit.Objects.DOMHTMLScriptElement, + module GI.WebKit.Objects.DOMHTMLSelectElement, + module GI.WebKit.Objects.DOMHTMLStyleElement, + module GI.WebKit.Objects.DOMHTMLTableCaptionElement, + module GI.WebKit.Objects.DOMHTMLTableCellElement, + module GI.WebKit.Objects.DOMHTMLTableColElement, + module GI.WebKit.Objects.DOMHTMLTableElement, + module GI.WebKit.Objects.DOMHTMLTableRowElement, + module GI.WebKit.Objects.DOMHTMLTableSectionElement, + module GI.WebKit.Objects.DOMHTMLTextAreaElement, + module GI.WebKit.Objects.DOMHTMLTitleElement, + module GI.WebKit.Objects.DOMHTMLUListElement, + module GI.WebKit.Objects.DOMHTMLVideoElement, + module GI.WebKit.Objects.DOMHistory , + module GI.WebKit.Objects.DOMKeyboardEvent, + module GI.WebKit.Objects.DOMLocation , + module GI.WebKit.Objects.DOMMediaController, + module GI.WebKit.Objects.DOMMediaError , + module GI.WebKit.Objects.DOMMediaList , + module GI.WebKit.Objects.DOMMediaQueryList, + module GI.WebKit.Objects.DOMMemoryInfo , + module GI.WebKit.Objects.DOMMessagePort , + module GI.WebKit.Objects.DOMMicroDataItemValue, + module GI.WebKit.Objects.DOMMouseEvent , + module GI.WebKit.Objects.DOMNamedNodeMap, + module GI.WebKit.Objects.DOMNavigator , + module GI.WebKit.Objects.DOMNode , + module GI.WebKit.Objects.DOMNodeFilter , + module GI.WebKit.Objects.DOMNodeIterator, + module GI.WebKit.Objects.DOMNodeList , + module GI.WebKit.Objects.DOMObject , + module GI.WebKit.Objects.DOMPerformance , + module GI.WebKit.Objects.DOMPerformanceEntry, + module GI.WebKit.Objects.DOMPerformanceEntryList, + module GI.WebKit.Objects.DOMPerformanceNavigation, + module GI.WebKit.Objects.DOMPerformanceTiming, + module GI.WebKit.Objects.DOMProcessingInstruction, + module GI.WebKit.Objects.DOMPropertyNodeList, + module GI.WebKit.Objects.DOMRange , + module GI.WebKit.Objects.DOMScreen , + module GI.WebKit.Objects.DOMShadowRoot , + module GI.WebKit.Objects.DOMStorage , + module GI.WebKit.Objects.DOMStorageInfo , + module GI.WebKit.Objects.DOMStorageQuota, + module GI.WebKit.Objects.DOMStyleMedia , + module GI.WebKit.Objects.DOMStyleSheet , + module GI.WebKit.Objects.DOMStyleSheetList, + module GI.WebKit.Objects.DOMText , + module GI.WebKit.Objects.DOMTextTrack , + module GI.WebKit.Objects.DOMTextTrackCue, + module GI.WebKit.Objects.DOMTextTrackCueList, + module GI.WebKit.Objects.DOMTextTrackList, + module GI.WebKit.Objects.DOMTimeRanges , + module GI.WebKit.Objects.DOMTouch , + module GI.WebKit.Objects.DOMTrackEvent , + module GI.WebKit.Objects.DOMTreeWalker , + module GI.WebKit.Objects.DOMUIEvent , + module GI.WebKit.Objects.DOMValidityState, + module GI.WebKit.Objects.DOMVideoPlaybackQuality, + module GI.WebKit.Objects.DOMVideoTrack , + module GI.WebKit.Objects.DOMVideoTrackList, + module GI.WebKit.Objects.DOMWebKitNamedFlow, + module GI.WebKit.Objects.DOMWebKitPoint , + module GI.WebKit.Objects.DOMWheelEvent , + module GI.WebKit.Objects.DOMXPathExpression, + module GI.WebKit.Objects.DOMXPathNSResolver, + module GI.WebKit.Objects.DOMXPathResult , + module GI.WebKit.Objects.Download , + module GI.WebKit.Objects.FaviconDatabase, + module GI.WebKit.Objects.FileChooserRequest, + module GI.WebKit.Objects.GeolocationPolicyDecision, + module GI.WebKit.Objects.HitTestResult , + module GI.WebKit.Objects.IconDatabase , + module GI.WebKit.Objects.NetworkRequest , + module GI.WebKit.Objects.NetworkResponse, + module GI.WebKit.Objects.SecurityOrigin , + module GI.WebKit.Objects.SoupAuthDialog , + module GI.WebKit.Objects.ViewportAttributes, + module GI.WebKit.Objects.WebBackForwardList, + module GI.WebKit.Objects.WebDataSource , + module GI.WebKit.Objects.WebDatabase , + module GI.WebKit.Objects.WebFrame , + module GI.WebKit.Objects.WebHistoryItem , + module GI.WebKit.Objects.WebInspector , + module GI.WebKit.Objects.WebNavigationAction, + module GI.WebKit.Objects.WebPlugin , + module GI.WebKit.Objects.WebPluginDatabase, + module GI.WebKit.Objects.WebPolicyDecision, + module GI.WebKit.Objects.WebResource , + module GI.WebKit.Objects.WebSettings , + module GI.WebKit.Objects.WebView , + module GI.WebKit.Objects.WebWindowFeatures, + module GI.WebKit.Structs.DOMEventTargetClass, + module GI.WebKit.Structs.WebPluginMIMEType, + module GI.WebKit.Enums , + module GI.WebKit.Flags , + + + ) where + + +import {-# SOURCE #-} GI.WebKit.Interfaces.DOMEventTarget +import {-# SOURCE #-} GI.WebKit.Interfaces.SpellChecker +import {-# SOURCE #-} GI.WebKit.Objects.DOMAttr +import {-# SOURCE #-} GI.WebKit.Objects.DOMAudioTrack +import {-# SOURCE #-} GI.WebKit.Objects.DOMAudioTrackList +import {-# SOURCE #-} GI.WebKit.Objects.DOMBarInfo +import {-# SOURCE #-} GI.WebKit.Objects.DOMBarProp +import {-# SOURCE #-} GI.WebKit.Objects.DOMBatteryManager +import {-# SOURCE #-} GI.WebKit.Objects.DOMBlob +import {-# SOURCE #-} GI.WebKit.Objects.DOMCDATASection +import {-# SOURCE #-} GI.WebKit.Objects.DOMCSSRule +import {-# SOURCE #-} GI.WebKit.Objects.DOMCSSRuleList +import {-# SOURCE #-} GI.WebKit.Objects.DOMCSSStyleDeclaration +import {-# SOURCE #-} GI.WebKit.Objects.DOMCSSStyleSheet +import {-# SOURCE #-} GI.WebKit.Objects.DOMCSSValue +import {-# SOURCE #-} GI.WebKit.Objects.DOMCharacterData +import {-# SOURCE #-} GI.WebKit.Objects.DOMComment +import {-# SOURCE #-} GI.WebKit.Objects.DOMConsole +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMApplicationCache +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMImplementation +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMMimeType +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMMimeTypeArray +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMNamedFlowCollection +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMPlugin +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMPluginArray +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMSecurityPolicy +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMSelection +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMSettableTokenList +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMStringList +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMStringMap +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMTokenList +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMWindow +import {-# SOURCE #-} GI.WebKit.Objects.DOMDOMWindowCSS +import {-# SOURCE #-} GI.WebKit.Objects.DOMDatabase +import {-# SOURCE #-} GI.WebKit.Objects.DOMDocument +import {-# SOURCE #-} GI.WebKit.Objects.DOMDocumentFragment +import {-# SOURCE #-} GI.WebKit.Objects.DOMDocumentType +import {-# SOURCE #-} GI.WebKit.Objects.DOMElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMEntityReference +import {-# SOURCE #-} GI.WebKit.Objects.DOMEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMFile +import {-# SOURCE #-} GI.WebKit.Objects.DOMFileList +import {-# SOURCE #-} GI.WebKit.Objects.DOMGamepad +import {-# SOURCE #-} GI.WebKit.Objects.DOMGamepadList +import {-# SOURCE #-} GI.WebKit.Objects.DOMGeolocation +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLAnchorElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLAppletElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLAreaElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLAudioElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLBRElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLBaseElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLBaseFontElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLBodyElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLButtonElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLCanvasElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLCollection +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLDListElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLDetailsElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLDirectoryElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLDivElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLDocument +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLEmbedElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLFieldSetElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLFontElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLFormElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLFrameElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLFrameSetElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLHRElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLHeadElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLHeadingElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLHtmlElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLIFrameElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLImageElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLInputElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLKeygenElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLLIElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLLabelElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLLegendElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLLinkElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLMapElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLMarqueeElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLMediaElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLMenuElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLMetaElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLModElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLOListElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLObjectElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLOptGroupElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLOptionElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLOptionsCollection +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLParagraphElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLParamElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLPreElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLPropertiesCollection +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLQuoteElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLScriptElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLSelectElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLStyleElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableCaptionElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableCellElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableColElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableRowElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTableSectionElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTextAreaElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLTitleElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLUListElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHTMLVideoElement +import {-# SOURCE #-} GI.WebKit.Objects.DOMHistory +import {-# SOURCE #-} GI.WebKit.Objects.DOMKeyboardEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMLocation +import {-# SOURCE #-} GI.WebKit.Objects.DOMMediaController +import {-# SOURCE #-} GI.WebKit.Objects.DOMMediaError +import {-# SOURCE #-} GI.WebKit.Objects.DOMMediaList +import {-# SOURCE #-} GI.WebKit.Objects.DOMMediaQueryList +import {-# SOURCE #-} GI.WebKit.Objects.DOMMemoryInfo +import {-# SOURCE #-} GI.WebKit.Objects.DOMMessagePort +import {-# SOURCE #-} GI.WebKit.Objects.DOMMicroDataItemValue +import {-# SOURCE #-} GI.WebKit.Objects.DOMMouseEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMNamedNodeMap +import {-# SOURCE #-} GI.WebKit.Objects.DOMNavigator +import {-# SOURCE #-} GI.WebKit.Objects.DOMNode +import {-# SOURCE #-} GI.WebKit.Objects.DOMNodeFilter +import {-# SOURCE #-} GI.WebKit.Objects.DOMNodeIterator +import {-# SOURCE #-} GI.WebKit.Objects.DOMNodeList +import {-# SOURCE #-} GI.WebKit.Objects.DOMObject +import {-# SOURCE #-} GI.WebKit.Objects.DOMPerformance +import {-# SOURCE #-} GI.WebKit.Objects.DOMPerformanceEntry +import {-# SOURCE #-} GI.WebKit.Objects.DOMPerformanceEntryList +import {-# SOURCE #-} GI.WebKit.Objects.DOMPerformanceNavigation +import {-# SOURCE #-} GI.WebKit.Objects.DOMPerformanceTiming +import {-# SOURCE #-} GI.WebKit.Objects.DOMProcessingInstruction +import {-# SOURCE #-} GI.WebKit.Objects.DOMPropertyNodeList +import {-# SOURCE #-} GI.WebKit.Objects.DOMRange +import {-# SOURCE #-} GI.WebKit.Objects.DOMScreen +import {-# SOURCE #-} GI.WebKit.Objects.DOMShadowRoot +import {-# SOURCE #-} GI.WebKit.Objects.DOMStorage +import {-# SOURCE #-} GI.WebKit.Objects.DOMStorageInfo +import {-# SOURCE #-} GI.WebKit.Objects.DOMStorageQuota +import {-# SOURCE #-} GI.WebKit.Objects.DOMStyleMedia +import {-# SOURCE #-} GI.WebKit.Objects.DOMStyleSheet +import {-# SOURCE #-} GI.WebKit.Objects.DOMStyleSheetList +import {-# SOURCE #-} GI.WebKit.Objects.DOMText +import {-# SOURCE #-} GI.WebKit.Objects.DOMTextTrack +import {-# SOURCE #-} GI.WebKit.Objects.DOMTextTrackCue +import {-# SOURCE #-} GI.WebKit.Objects.DOMTextTrackCueList +import {-# SOURCE #-} GI.WebKit.Objects.DOMTextTrackList +import {-# SOURCE #-} GI.WebKit.Objects.DOMTimeRanges +import {-# SOURCE #-} GI.WebKit.Objects.DOMTouch +import {-# SOURCE #-} GI.WebKit.Objects.DOMTrackEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMTreeWalker +import {-# SOURCE #-} GI.WebKit.Objects.DOMUIEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMValidityState +import {-# SOURCE #-} GI.WebKit.Objects.DOMVideoPlaybackQuality +import {-# SOURCE #-} GI.WebKit.Objects.DOMVideoTrack +import {-# SOURCE #-} GI.WebKit.Objects.DOMVideoTrackList +import {-# SOURCE #-} GI.WebKit.Objects.DOMWebKitNamedFlow +import {-# SOURCE #-} GI.WebKit.Objects.DOMWebKitPoint +import {-# SOURCE #-} GI.WebKit.Objects.DOMWheelEvent +import {-# SOURCE #-} GI.WebKit.Objects.DOMXPathExpression +import {-# SOURCE #-} GI.WebKit.Objects.DOMXPathNSResolver +import {-# SOURCE #-} GI.WebKit.Objects.DOMXPathResult +import {-# SOURCE #-} GI.WebKit.Objects.Download +import {-# SOURCE #-} GI.WebKit.Objects.FaviconDatabase +import {-# SOURCE #-} GI.WebKit.Objects.FileChooserRequest +import {-# SOURCE #-} GI.WebKit.Objects.GeolocationPolicyDecision +import {-# SOURCE #-} GI.WebKit.Objects.HitTestResult +import {-# SOURCE #-} GI.WebKit.Objects.IconDatabase +import {-# SOURCE #-} GI.WebKit.Objects.NetworkRequest +import {-# SOURCE #-} GI.WebKit.Objects.NetworkResponse +import {-# SOURCE #-} GI.WebKit.Objects.SecurityOrigin +import {-# SOURCE #-} GI.WebKit.Objects.SoupAuthDialog +import {-# SOURCE #-} GI.WebKit.Objects.ViewportAttributes +import {-# SOURCE #-} GI.WebKit.Objects.WebBackForwardList +import {-# SOURCE #-} GI.WebKit.Objects.WebDataSource +import {-# SOURCE #-} GI.WebKit.Objects.WebDatabase +import {-# SOURCE #-} GI.WebKit.Objects.WebFrame +import {-# SOURCE #-} GI.WebKit.Objects.WebHistoryItem +import {-# SOURCE #-} GI.WebKit.Objects.WebInspector +import {-# SOURCE #-} GI.WebKit.Objects.WebNavigationAction +import {-# SOURCE #-} GI.WebKit.Objects.WebPlugin +import {-# SOURCE #-} GI.WebKit.Objects.WebPluginDatabase +import {-# SOURCE #-} GI.WebKit.Objects.WebPolicyDecision +import {-# SOURCE #-} GI.WebKit.Objects.WebResource +import {-# SOURCE #-} GI.WebKit.Objects.WebSettings +import {-# SOURCE #-} GI.WebKit.Objects.WebView +import {-# SOURCE #-} GI.WebKit.Objects.WebWindowFeatures +import {-# SOURCE #-} GI.WebKit.Structs.DOMEventTargetClass +import {-# SOURCE #-} GI.WebKit.Structs.WebPluginMIMEType + +import GI.WebKit.Enums +import GI.WebKit.Flags + diff --git a/GI/WebKitAttributes.hs b/GI/WebKitAttributes.hs deleted file mode 100644 --- a/GI/WebKitAttributes.hs +++ /dev/null @@ -1,23498 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} - --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.WebKitAttributes where - -import Prelude () -import Data.GI.Base.ShortPrelude -import Data.Char -import Data.Int -import Data.Word -import qualified Data.ByteString.Char8 as B -import Data.ByteString.Char8 (ByteString) -import qualified Data.Map as Map -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) -import Foreign.Storable (peek, poke, sizeOf) -import Control.Applicative ((<$>)) -import Control.Exception (onException) -import Control.Monad.IO.Class -import qualified Data.Text as T - -import Data.GI.Base.Attributes hiding (get, set) -import Data.GI.Base.BasicTypes -import Data.GI.Base.BasicConversions -import Data.GI.Base.Closure -import Data.GI.Base.GError -import Data.GI.Base.GHashTable -import Data.GI.Base.GParamSpec -import Data.GI.Base.GVariant -import Data.GI.Base.GValue -import Data.GI.Base.ManagedPtr -import Data.GI.Base.Overloading -import Data.GI.Base.Properties hiding (new) -import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) -import Data.GI.Base.Utils - -import qualified GI.Gtk as Gtk -import qualified GI.GtkAttributes as GtkA -import qualified GI.Soup as Soup -import qualified GI.SoupAttributes as SoupA -import GI.WebKit - --- VVV Prop "is-id" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool -getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id" - -data DOMAttrIsIdPropertyInfo -instance AttrInfo DOMAttrIsIdPropertyInfo where - type AttrAllowedOps DOMAttrIsIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAttrIsIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrIsIdPropertyInfo = DOMAttrK - type AttrGetType DOMAttrIsIdPropertyInfo = Bool - type AttrLabel DOMAttrIsIdPropertyInfo = "DOMAttr::is-id" - attrGet _ = getDOMAttrIsId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m T.Text -getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMAttrNamePropertyInfo -instance AttrInfo DOMAttrNamePropertyInfo where - type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK - type AttrGetType DOMAttrNamePropertyInfo = T.Text - type AttrLabel DOMAttrNamePropertyInfo = "DOMAttr::name" - attrGet _ = getDOMAttrName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "owner-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement -getDOMAttrOwnerElement obj = liftIO $ getObjectPropertyObject obj "owner-element" DOMElement - -data DOMAttrOwnerElementPropertyInfo -instance AttrInfo DOMAttrOwnerElementPropertyInfo where - type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK - type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement - type AttrLabel DOMAttrOwnerElementPropertyInfo = "DOMAttr::owner-element" - attrGet _ = getDOMAttrOwnerElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "specified" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMAttrSpecified :: (MonadIO m, DOMAttrK o) => o -> m Bool -getDOMAttrSpecified obj = liftIO $ getObjectPropertyBool obj "specified" - -data DOMAttrSpecifiedPropertyInfo -instance AttrInfo DOMAttrSpecifiedPropertyInfo where - type AttrAllowedOps DOMAttrSpecifiedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAttrSpecifiedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrSpecifiedPropertyInfo = DOMAttrK - type AttrGetType DOMAttrSpecifiedPropertyInfo = Bool - type AttrLabel DOMAttrSpecifiedPropertyInfo = "DOMAttr::specified" - attrGet _ = getDOMAttrSpecified - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m T.Text -getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m () -setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMAttrValue :: T.Text -> IO ([Char], GValue) -constructDOMAttrValue val = constructObjectPropertyString "value" val - -data DOMAttrValuePropertyInfo -instance AttrInfo DOMAttrValuePropertyInfo where - type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK - type AttrGetType DOMAttrValuePropertyInfo = T.Text - type AttrLabel DOMAttrValuePropertyInfo = "DOMAttr::value" - attrGet _ = getDOMAttrValue - attrSet _ = setDOMAttrValue - attrConstruct _ = constructDOMAttrValue - -type instance AttributeList DOMAttr = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("is-id", DOMAttrIsIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("owner-element", DOMAttrOwnerElementPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("value", DOMAttrValuePropertyInfo)] - --- VVV Prop "enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> m Bool -getDOMAudioTrackEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" - -setDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> Bool -> m () -setDOMAudioTrackEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val - -constructDOMAudioTrackEnabled :: Bool -> IO ([Char], GValue) -constructDOMAudioTrackEnabled val = constructObjectPropertyBool "enabled" val - -data DOMAudioTrackEnabledPropertyInfo -instance AttrInfo DOMAudioTrackEnabledPropertyInfo where - type AttrAllowedOps DOMAudioTrackEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMAudioTrackEnabledPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackEnabledPropertyInfo = Bool - type AttrLabel DOMAudioTrackEnabledPropertyInfo = "DOMAudioTrack::enabled" - attrGet _ = getDOMAudioTrackEnabled - attrSet _ = setDOMAudioTrackEnabled - attrConstruct _ = constructDOMAudioTrackEnabled - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text -getDOMAudioTrackId obj = liftIO $ getObjectPropertyString obj "id" - -data DOMAudioTrackIdPropertyInfo -instance AttrInfo DOMAudioTrackIdPropertyInfo where - type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAudioTrackIdPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackIdPropertyInfo = T.Text - type AttrLabel DOMAudioTrackIdPropertyInfo = "DOMAudioTrack::id" - attrGet _ = getDOMAudioTrackId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "kind" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text -getDOMAudioTrackKind obj = liftIO $ getObjectPropertyString obj "kind" - -data DOMAudioTrackKindPropertyInfo -instance AttrInfo DOMAudioTrackKindPropertyInfo where - type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackKindPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAudioTrackKindPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackKindPropertyInfo = T.Text - type AttrLabel DOMAudioTrackKindPropertyInfo = "DOMAudioTrack::kind" - attrGet _ = getDOMAudioTrackKind - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text -getDOMAudioTrackLabel obj = liftIO $ getObjectPropertyString obj "label" - -data DOMAudioTrackLabelPropertyInfo -instance AttrInfo DOMAudioTrackLabelPropertyInfo where - type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackLabelPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAudioTrackLabelPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackLabelPropertyInfo = T.Text - type AttrLabel DOMAudioTrackLabelPropertyInfo = "DOMAudioTrack::label" - attrGet _ = getDOMAudioTrackLabel - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text -getDOMAudioTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" - -data DOMAudioTrackLanguagePropertyInfo -instance AttrInfo DOMAudioTrackLanguagePropertyInfo where - type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackLanguagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAudioTrackLanguagePropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackLanguagePropertyInfo = T.Text - type AttrLabel DOMAudioTrackLanguagePropertyInfo = "DOMAudioTrack::language" - attrGet _ = getDOMAudioTrackLanguage - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMAudioTrack = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("enabled", DOMAudioTrackEnabledPropertyInfo), '("id", DOMAudioTrackIdPropertyInfo), '("kind", DOMAudioTrackKindPropertyInfo), '("label", DOMAudioTrackLabelPropertyInfo), '("language", DOMAudioTrackLanguagePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m Word64 -getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMAudioTrackListLengthPropertyInfo -instance AttrInfo DOMAudioTrackListLengthPropertyInfo where - type AttrAllowedOps DOMAudioTrackListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMAudioTrackListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAudioTrackListLengthPropertyInfo = DOMAudioTrackListK - type AttrGetType DOMAudioTrackListLengthPropertyInfo = Word64 - type AttrLabel DOMAudioTrackListLengthPropertyInfo = "DOMAudioTrackList::length" - attrGet _ = getDOMAudioTrackListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMAudioTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMAudioTrackListLengthPropertyInfo)] - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMBarInfoVisible :: (MonadIO m, DOMBarInfoK o) => o -> m Bool -getDOMBarInfoVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -data DOMBarInfoVisiblePropertyInfo -instance AttrInfo DOMBarInfoVisiblePropertyInfo where - type AttrAllowedOps DOMBarInfoVisiblePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBarInfoVisiblePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBarInfoVisiblePropertyInfo = DOMBarInfoK - type AttrGetType DOMBarInfoVisiblePropertyInfo = Bool - type AttrLabel DOMBarInfoVisiblePropertyInfo = "DOMBarInfo::visible" - attrGet _ = getDOMBarInfoVisible - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMBarInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarInfoVisiblePropertyInfo)] - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMBarPropVisible :: (MonadIO m, DOMBarPropK o) => o -> m Bool -getDOMBarPropVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -data DOMBarPropVisiblePropertyInfo -instance AttrInfo DOMBarPropVisiblePropertyInfo where - type AttrAllowedOps DOMBarPropVisiblePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBarPropVisiblePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBarPropVisiblePropertyInfo = DOMBarPropK - type AttrGetType DOMBarPropVisiblePropertyInfo = Bool - type AttrLabel DOMBarPropVisiblePropertyInfo = "DOMBarProp::visible" - attrGet _ = getDOMBarPropVisible - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMBarProp = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarPropVisiblePropertyInfo)] - --- VVV Prop "charging" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMBatteryManagerCharging :: (MonadIO m, DOMBatteryManagerK o) => o -> m Bool -getDOMBatteryManagerCharging obj = liftIO $ getObjectPropertyBool obj "charging" - -data DOMBatteryManagerChargingPropertyInfo -instance AttrInfo DOMBatteryManagerChargingPropertyInfo where - type AttrAllowedOps DOMBatteryManagerChargingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBatteryManagerChargingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBatteryManagerChargingPropertyInfo = DOMBatteryManagerK - type AttrGetType DOMBatteryManagerChargingPropertyInfo = Bool - type AttrLabel DOMBatteryManagerChargingPropertyInfo = "DOMBatteryManager::charging" - attrGet _ = getDOMBatteryManagerCharging - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "charging-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMBatteryManagerChargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double -getDOMBatteryManagerChargingTime obj = liftIO $ getObjectPropertyDouble obj "charging-time" - -data DOMBatteryManagerChargingTimePropertyInfo -instance AttrInfo DOMBatteryManagerChargingTimePropertyInfo where - type AttrAllowedOps DOMBatteryManagerChargingTimePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = DOMBatteryManagerK - type AttrGetType DOMBatteryManagerChargingTimePropertyInfo = Double - type AttrLabel DOMBatteryManagerChargingTimePropertyInfo = "DOMBatteryManager::charging-time" - attrGet _ = getDOMBatteryManagerChargingTime - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "discharging-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMBatteryManagerDischargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double -getDOMBatteryManagerDischargingTime obj = liftIO $ getObjectPropertyDouble obj "discharging-time" - -data DOMBatteryManagerDischargingTimePropertyInfo -instance AttrInfo DOMBatteryManagerDischargingTimePropertyInfo where - type AttrAllowedOps DOMBatteryManagerDischargingTimePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = DOMBatteryManagerK - type AttrGetType DOMBatteryManagerDischargingTimePropertyInfo = Double - type AttrLabel DOMBatteryManagerDischargingTimePropertyInfo = "DOMBatteryManager::discharging-time" - attrGet _ = getDOMBatteryManagerDischargingTime - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "level" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMBatteryManagerLevel :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double -getDOMBatteryManagerLevel obj = liftIO $ getObjectPropertyDouble obj "level" - -data DOMBatteryManagerLevelPropertyInfo -instance AttrInfo DOMBatteryManagerLevelPropertyInfo where - type AttrAllowedOps DOMBatteryManagerLevelPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBatteryManagerLevelPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBatteryManagerLevelPropertyInfo = DOMBatteryManagerK - type AttrGetType DOMBatteryManagerLevelPropertyInfo = Double - type AttrLabel DOMBatteryManagerLevelPropertyInfo = "DOMBatteryManager::level" - attrGet _ = getDOMBatteryManagerLevel - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMBatteryManager = '[ '("charging", DOMBatteryManagerChargingPropertyInfo), '("charging-time", DOMBatteryManagerChargingTimePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("discharging-time", DOMBatteryManagerDischargingTimePropertyInfo), '("level", DOMBatteryManagerLevelPropertyInfo)] - --- VVV Prop "size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMBlobSize :: (MonadIO m, DOMBlobK o) => o -> m Word64 -getDOMBlobSize obj = liftIO $ getObjectPropertyUInt64 obj "size" - -data DOMBlobSizePropertyInfo -instance AttrInfo DOMBlobSizePropertyInfo where - type AttrAllowedOps DOMBlobSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBlobSizePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBlobSizePropertyInfo = DOMBlobK - type AttrGetType DOMBlobSizePropertyInfo = Word64 - type AttrLabel DOMBlobSizePropertyInfo = "DOMBlob::size" - attrGet _ = getDOMBlobSize - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m T.Text -getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMBlobTypePropertyInfo -instance AttrInfo DOMBlobTypePropertyInfo where - type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK - type AttrGetType DOMBlobTypePropertyInfo = T.Text - type AttrLabel DOMBlobTypePropertyInfo = "DOMBlob::type" - attrGet _ = getDOMBlobType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMBlob = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] - -type instance AttributeList DOMCDATASection = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text -getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text" - -setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m () -setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val - -constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val - -data DOMCSSRuleCssTextPropertyInfo -instance AttrInfo DOMCSSRuleCssTextPropertyInfo where - type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text - type AttrLabel DOMCSSRuleCssTextPropertyInfo = "DOMCSSRule::css-text" - attrGet _ = getDOMCSSRuleCssText - attrSet _ = setDOMCSSRuleCssText - attrConstruct _ = constructDOMCSSRuleCssText - --- VVV Prop "parent-rule" - -- Type: TInterface "WebKit" "DOMCSSRule" - -- Flags: [PropertyReadable] - -getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule -getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule - -data DOMCSSRuleParentRulePropertyInfo -instance AttrInfo DOMCSSRuleParentRulePropertyInfo where - type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule - type AttrLabel DOMCSSRuleParentRulePropertyInfo = "DOMCSSRule::parent-rule" - attrGet _ = getDOMCSSRuleParentRule - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent-style-sheet" - -- Type: TInterface "WebKit" "DOMCSSStyleSheet" - -- Flags: [PropertyReadable] - -getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet -getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet - -data DOMCSSRuleParentStyleSheetPropertyInfo -instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet - type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "DOMCSSRule::parent-style-sheet" - attrGet _ = getDOMCSSRuleParentStyleSheet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32 -getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type" - -data DOMCSSRuleTypePropertyInfo -instance AttrInfo DOMCSSRuleTypePropertyInfo where - type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleTypePropertyInfo = Word32 - type AttrLabel DOMCSSRuleTypePropertyInfo = "DOMCSSRule::type" - attrGet _ = getDOMCSSRuleType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCSSRule = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSRuleCssTextPropertyInfo), '("parent-rule", DOMCSSRuleParentRulePropertyInfo), '("parent-style-sheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m Word64 -getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMCSSRuleListLengthPropertyInfo -instance AttrInfo DOMCSSRuleListLengthPropertyInfo where - type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK - type AttrGetType DOMCSSRuleListLengthPropertyInfo = Word64 - type AttrLabel DOMCSSRuleListLengthPropertyInfo = "DOMCSSRuleList::length" - attrGet _ = getDOMCSSRuleListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCSSRuleList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m T.Text -getDOMCSSStyleDeclarationCssText obj = liftIO $ getObjectPropertyString obj "css-text" - -setDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> T.Text -> m () -setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val - -constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" val - -data DOMCSSStyleDeclarationCssTextPropertyInfo -instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = T.Text - type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "DOMCSSStyleDeclaration::css-text" - attrGet _ = getDOMCSSStyleDeclarationCssText - attrSet _ = setDOMCSSStyleDeclarationCssText - attrConstruct _ = constructDOMCSSStyleDeclarationCssText - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m Word64 -getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMCSSStyleDeclarationLengthPropertyInfo -instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = Word64 - type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "DOMCSSStyleDeclaration::length" - attrGet _ = getDOMCSSStyleDeclarationLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent-rule" - -- Type: TInterface "WebKit" "DOMCSSRule" - -- Flags: [PropertyReadable] - -getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m DOMCSSRule -getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule - -data DOMCSSStyleDeclarationParentRulePropertyInfo -instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSRule - type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "DOMCSSStyleDeclaration::parent-rule" - attrGet _ = getDOMCSSStyleDeclarationParentRule - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCSSStyleDeclaration = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parent-rule", DOMCSSStyleDeclarationParentRulePropertyInfo)] - --- VVV Prop "css-rules" - -- Type: TInterface "WebKit" "DOMCSSRuleList" - -- Flags: [PropertyReadable] - -getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList -getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList - -data DOMCSSStyleSheetCssRulesPropertyInfo -instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSRuleList - type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "DOMCSSStyleSheet::css-rules" - attrGet _ = getDOMCSSStyleSheetCssRules - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "owner-rule" - -- Type: TInterface "WebKit" "DOMCSSRule" - -- Flags: [PropertyReadable] - -getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRule -getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule - -data DOMCSSStyleSheetOwnerRulePropertyInfo -instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSRule - type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "DOMCSSStyleSheet::owner-rule" - attrGet _ = getDOMCSSStyleSheetOwnerRule - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "rules" - -- Type: TInterface "WebKit" "DOMCSSRuleList" - -- Flags: [PropertyReadable] - -getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList -getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList - -data DOMCSSStyleSheetRulesPropertyInfo -instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = DOMCSSRuleList - type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "DOMCSSStyleSheet::rules" - attrGet _ = getDOMCSSStyleSheetRules - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCSSStyleSheet = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-rules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("owner-rule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m T.Text -getDOMCSSValueCssText obj = liftIO $ getObjectPropertyString obj "css-text" - -setDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> T.Text -> m () -setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val - -constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" val - -data DOMCSSValueCssTextPropertyInfo -instance AttrInfo DOMCSSValueCssTextPropertyInfo where - type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK - type AttrGetType DOMCSSValueCssTextPropertyInfo = T.Text - type AttrLabel DOMCSSValueCssTextPropertyInfo = "DOMCSSValue::css-text" - attrGet _ = getDOMCSSValueCssText - attrSet _ = setDOMCSSValueCssText - attrConstruct _ = constructDOMCSSValueCssText - --- VVV Prop "css-value-type" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32 -getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyCUInt obj "css-value-type" - -data DOMCSSValueCssValueTypePropertyInfo -instance AttrInfo DOMCSSValueCssValueTypePropertyInfo where - type AttrAllowedOps DOMCSSValueCssValueTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSValueCssValueTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSValueCssValueTypePropertyInfo = DOMCSSValueK - type AttrGetType DOMCSSValueCssValueTypePropertyInfo = Word32 - type AttrLabel DOMCSSValueCssValueTypePropertyInfo = "DOMCSSValue::css-value-type" - attrGet _ = getDOMCSSValueCssValueType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCSSValue = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSValueCssTextPropertyInfo), '("css-value-type", DOMCSSValueCssValueTypePropertyInfo)] - --- VVV Prop "data" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text -getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data" - -setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m () -setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val - -constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue) -constructDOMCharacterDataData val = constructObjectPropertyString "data" val - -data DOMCharacterDataDataPropertyInfo -instance AttrInfo DOMCharacterDataDataPropertyInfo where - type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text - type AttrLabel DOMCharacterDataDataPropertyInfo = "DOMCharacterData::data" - attrGet _ = getDOMCharacterDataData - attrSet _ = setDOMCharacterDataData - attrConstruct _ = constructDOMCharacterDataData - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64 -getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMCharacterDataLengthPropertyInfo -instance AttrInfo DOMCharacterDataLengthPropertyInfo where - type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64 - type AttrLabel DOMCharacterDataLengthPropertyInfo = "DOMCharacterData::length" - attrGet _ = getDOMCharacterDataLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMCharacterData = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - -type instance AttributeList DOMComment = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - -type instance AttributeList DOMConsole = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "status" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMDOMApplicationCacheStatus :: (MonadIO m, DOMDOMApplicationCacheK o) => o -> m Word32 -getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyCUInt obj "status" - -data DOMDOMApplicationCacheStatusPropertyInfo -instance AttrInfo DOMDOMApplicationCacheStatusPropertyInfo where - type AttrAllowedOps DOMDOMApplicationCacheStatusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = DOMDOMApplicationCacheK - type AttrGetType DOMDOMApplicationCacheStatusPropertyInfo = Word32 - type AttrLabel DOMDOMApplicationCacheStatusPropertyInfo = "DOMDOMApplicationCache::status" - attrGet _ = getDOMDOMApplicationCacheStatus - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMApplicationCache = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("status", DOMDOMApplicationCacheStatusPropertyInfo)] - -type instance AttributeList DOMDOMImplementation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMMimeTypeDescription :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text -getDOMDOMMimeTypeDescription obj = liftIO $ getObjectPropertyString obj "description" - -data DOMDOMMimeTypeDescriptionPropertyInfo -instance AttrInfo DOMDOMMimeTypeDescriptionPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeDescriptionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeDescriptionPropertyInfo = T.Text - type AttrLabel DOMDOMMimeTypeDescriptionPropertyInfo = "DOMDOMMimeType::description" - attrGet _ = getDOMDOMMimeTypeDescription - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "enabled-plugin" - -- Type: TInterface "WebKit" "DOMDOMPlugin" - -- Flags: [PropertyReadable] - -getDOMDOMMimeTypeEnabledPlugin :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m DOMDOMPlugin -getDOMDOMMimeTypeEnabledPlugin obj = liftIO $ getObjectPropertyObject obj "enabled-plugin" DOMDOMPlugin - -data DOMDOMMimeTypeEnabledPluginPropertyInfo -instance AttrInfo DOMDOMMimeTypeEnabledPluginPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeEnabledPluginPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMPlugin - type AttrLabel DOMDOMMimeTypeEnabledPluginPropertyInfo = "DOMDOMMimeType::enabled-plugin" - attrGet _ = getDOMDOMMimeTypeEnabledPlugin - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "suffixes" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMMimeTypeSuffixes :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text -getDOMDOMMimeTypeSuffixes obj = liftIO $ getObjectPropertyString obj "suffixes" - -data DOMDOMMimeTypeSuffixesPropertyInfo -instance AttrInfo DOMDOMMimeTypeSuffixesPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeSuffixesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeSuffixesPropertyInfo = T.Text - type AttrLabel DOMDOMMimeTypeSuffixesPropertyInfo = "DOMDOMMimeType::suffixes" - attrGet _ = getDOMDOMMimeTypeSuffixes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMMimeTypeType :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text -getDOMDOMMimeTypeType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMDOMMimeTypeTypePropertyInfo -instance AttrInfo DOMDOMMimeTypeTypePropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMMimeTypeTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMMimeTypeTypePropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeTypePropertyInfo = T.Text - type AttrLabel DOMDOMMimeTypeTypePropertyInfo = "DOMDOMMimeType::type" - attrGet _ = getDOMDOMMimeTypeType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMMimeType = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMMimeTypeDescriptionPropertyInfo), '("enabled-plugin", DOMDOMMimeTypeEnabledPluginPropertyInfo), '("suffixes", DOMDOMMimeTypeSuffixesPropertyInfo), '("type", DOMDOMMimeTypeTypePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMMimeTypeArrayLength :: (MonadIO m, DOMDOMMimeTypeArrayK o) => o -> m Word64 -getDOMDOMMimeTypeArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMMimeTypeArrayLengthPropertyInfo -instance AttrInfo DOMDOMMimeTypeArrayLengthPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeArrayLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = DOMDOMMimeTypeArrayK - type AttrGetType DOMDOMMimeTypeArrayLengthPropertyInfo = Word64 - type AttrLabel DOMDOMMimeTypeArrayLengthPropertyInfo = "DOMDOMMimeTypeArray::length" - attrGet _ = getDOMDOMMimeTypeArrayLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMMimeTypeArray = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMMimeTypeArrayLengthPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m Word64 -getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMNamedFlowCollectionLengthPropertyInfo -instance AttrInfo DOMDOMNamedFlowCollectionLengthPropertyInfo where - type AttrAllowedOps DOMDOMNamedFlowCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = DOMDOMNamedFlowCollectionK - type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = Word64 - type AttrLabel DOMDOMNamedFlowCollectionLengthPropertyInfo = "DOMDOMNamedFlowCollection::length" - attrGet _ = getDOMDOMNamedFlowCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMNamedFlowCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMNamedFlowCollectionLengthPropertyInfo)] - --- VVV Prop "description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMPluginDescription :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text -getDOMDOMPluginDescription obj = liftIO $ getObjectPropertyString obj "description" - -data DOMDOMPluginDescriptionPropertyInfo -instance AttrInfo DOMDOMPluginDescriptionPropertyInfo where - type AttrAllowedOps DOMDOMPluginDescriptionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMPluginDescriptionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMPluginDescriptionPropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginDescriptionPropertyInfo = T.Text - type AttrLabel DOMDOMPluginDescriptionPropertyInfo = "DOMDOMPlugin::description" - attrGet _ = getDOMDOMPluginDescription - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMPluginFilename :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text -getDOMDOMPluginFilename obj = liftIO $ getObjectPropertyString obj "filename" - -data DOMDOMPluginFilenamePropertyInfo -instance AttrInfo DOMDOMPluginFilenamePropertyInfo where - type AttrAllowedOps DOMDOMPluginFilenamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMPluginFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMPluginFilenamePropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginFilenamePropertyInfo = T.Text - type AttrLabel DOMDOMPluginFilenamePropertyInfo = "DOMDOMPlugin::filename" - attrGet _ = getDOMDOMPluginFilename - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMPluginLength :: (MonadIO m, DOMDOMPluginK o) => o -> m Word64 -getDOMDOMPluginLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMPluginLengthPropertyInfo -instance AttrInfo DOMDOMPluginLengthPropertyInfo where - type AttrAllowedOps DOMDOMPluginLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMPluginLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMPluginLengthPropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginLengthPropertyInfo = Word64 - type AttrLabel DOMDOMPluginLengthPropertyInfo = "DOMDOMPlugin::length" - attrGet _ = getDOMDOMPluginLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMPluginName :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text -getDOMDOMPluginName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMDOMPluginNamePropertyInfo -instance AttrInfo DOMDOMPluginNamePropertyInfo where - type AttrAllowedOps DOMDOMPluginNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMPluginNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMPluginNamePropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginNamePropertyInfo = T.Text - type AttrLabel DOMDOMPluginNamePropertyInfo = "DOMDOMPlugin::name" - attrGet _ = getDOMDOMPluginName - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMPlugin = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMPluginDescriptionPropertyInfo), '("filename", DOMDOMPluginFilenamePropertyInfo), '("length", DOMDOMPluginLengthPropertyInfo), '("name", DOMDOMPluginNamePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMPluginArrayLength :: (MonadIO m, DOMDOMPluginArrayK o) => o -> m Word64 -getDOMDOMPluginArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMPluginArrayLengthPropertyInfo -instance AttrInfo DOMDOMPluginArrayLengthPropertyInfo where - type AttrAllowedOps DOMDOMPluginArrayLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = DOMDOMPluginArrayK - type AttrGetType DOMDOMPluginArrayLengthPropertyInfo = Word64 - type AttrLabel DOMDOMPluginArrayLengthPropertyInfo = "DOMDOMPluginArray::length" - attrGet _ = getDOMDOMPluginArrayLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMPluginArray = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMPluginArrayLengthPropertyInfo)] - --- VVV Prop "allows-eval" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMSecurityPolicyAllowsEval :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool -getDOMDOMSecurityPolicyAllowsEval obj = liftIO $ getObjectPropertyBool obj "allows-eval" - -data DOMDOMSecurityPolicyAllowsEvalPropertyInfo -instance AttrInfo DOMDOMSecurityPolicyAllowsEvalPropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyAllowsEvalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyAllowsEvalPropertyInfo = Bool - type AttrLabel DOMDOMSecurityPolicyAllowsEvalPropertyInfo = "DOMDOMSecurityPolicy::allows-eval" - attrGet _ = getDOMDOMSecurityPolicyAllowsEval - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "allows-inline-script" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMSecurityPolicyAllowsInlineScript :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool -getDOMDOMSecurityPolicyAllowsInlineScript obj = liftIO $ getObjectPropertyBool obj "allows-inline-script" - -data DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo -instance AttrInfo DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = Bool - type AttrLabel DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = "DOMDOMSecurityPolicy::allows-inline-script" - attrGet _ = getDOMDOMSecurityPolicyAllowsInlineScript - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "allows-inline-style" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMSecurityPolicyAllowsInlineStyle :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool -getDOMDOMSecurityPolicyAllowsInlineStyle obj = liftIO $ getObjectPropertyBool obj "allows-inline-style" - -data DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo -instance AttrInfo DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = Bool - type AttrLabel DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = "DOMDOMSecurityPolicy::allows-inline-style" - attrGet _ = getDOMDOMSecurityPolicyAllowsInlineStyle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMSecurityPolicyIsActive :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool -getDOMDOMSecurityPolicyIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" - -data DOMDOMSecurityPolicyIsActivePropertyInfo -instance AttrInfo DOMDOMSecurityPolicyIsActivePropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyIsActivePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyIsActivePropertyInfo = Bool - type AttrLabel DOMDOMSecurityPolicyIsActivePropertyInfo = "DOMDOMSecurityPolicy::is-active" - attrGet _ = getDOMDOMSecurityPolicyIsActive - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "report-ur-is" - -- Type: TInterface "WebKit" "DOMDOMStringList" - -- Flags: [PropertyReadable] - -getDOMDOMSecurityPolicyReportUrIs :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m DOMDOMStringList -getDOMDOMSecurityPolicyReportUrIs obj = liftIO $ getObjectPropertyObject obj "report-ur-is" DOMDOMStringList - -data DOMDOMSecurityPolicyReportUrIsPropertyInfo -instance AttrInfo DOMDOMSecurityPolicyReportUrIsPropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyReportUrIsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMStringList - type AttrLabel DOMDOMSecurityPolicyReportUrIsPropertyInfo = "DOMDOMSecurityPolicy::report-ur-is" - attrGet _ = getDOMDOMSecurityPolicyReportUrIs - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMSecurityPolicy = '[ '("allows-eval", DOMDOMSecurityPolicyAllowsEvalPropertyInfo), '("allows-inline-script", DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo), '("allows-inline-style", DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("is-active", DOMDOMSecurityPolicyIsActivePropertyInfo), '("report-ur-is", DOMDOMSecurityPolicyReportUrIsPropertyInfo)] - --- VVV Prop "anchor-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMDOMSelectionAnchorNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionAnchorNode obj = liftIO $ getObjectPropertyObject obj "anchor-node" DOMNode - -data DOMDOMSelectionAnchorNodePropertyInfo -instance AttrInfo DOMDOMSelectionAnchorNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionAnchorNodePropertyInfo = DOMNode - type AttrLabel DOMDOMSelectionAnchorNodePropertyInfo = "DOMDOMSelection::anchor-node" - attrGet _ = getDOMDOMSelectionAnchorNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "anchor-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionAnchorOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionAnchorOffset obj = liftIO $ getObjectPropertyInt64 obj "anchor-offset" - -data DOMDOMSelectionAnchorOffsetPropertyInfo -instance AttrInfo DOMDOMSelectionAnchorOffsetPropertyInfo where - type AttrAllowedOps DOMDOMSelectionAnchorOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMSelectionAnchorOffsetPropertyInfo = "DOMDOMSelection::anchor-offset" - attrGet _ = getDOMDOMSelectionAnchorOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "base-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMDOMSelectionBaseNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionBaseNode obj = liftIO $ getObjectPropertyObject obj "base-node" DOMNode - -data DOMDOMSelectionBaseNodePropertyInfo -instance AttrInfo DOMDOMSelectionBaseNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionBaseNodePropertyInfo = DOMNode - type AttrLabel DOMDOMSelectionBaseNodePropertyInfo = "DOMDOMSelection::base-node" - attrGet _ = getDOMDOMSelectionBaseNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "base-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionBaseOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionBaseOffset obj = liftIO $ getObjectPropertyInt64 obj "base-offset" - -data DOMDOMSelectionBaseOffsetPropertyInfo -instance AttrInfo DOMDOMSelectionBaseOffsetPropertyInfo where - type AttrAllowedOps DOMDOMSelectionBaseOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMSelectionBaseOffsetPropertyInfo = "DOMDOMSelection::base-offset" - attrGet _ = getDOMDOMSelectionBaseOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "extent-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMDOMSelectionExtentNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionExtentNode obj = liftIO $ getObjectPropertyObject obj "extent-node" DOMNode - -data DOMDOMSelectionExtentNodePropertyInfo -instance AttrInfo DOMDOMSelectionExtentNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionExtentNodePropertyInfo = DOMNode - type AttrLabel DOMDOMSelectionExtentNodePropertyInfo = "DOMDOMSelection::extent-node" - attrGet _ = getDOMDOMSelectionExtentNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "extent-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionExtentOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionExtentOffset obj = liftIO $ getObjectPropertyInt64 obj "extent-offset" - -data DOMDOMSelectionExtentOffsetPropertyInfo -instance AttrInfo DOMDOMSelectionExtentOffsetPropertyInfo where - type AttrAllowedOps DOMDOMSelectionExtentOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMSelectionExtentOffsetPropertyInfo = "DOMDOMSelection::extent-offset" - attrGet _ = getDOMDOMSelectionExtentOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "focus-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMDOMSelectionFocusNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionFocusNode obj = liftIO $ getObjectPropertyObject obj "focus-node" DOMNode - -data DOMDOMSelectionFocusNodePropertyInfo -instance AttrInfo DOMDOMSelectionFocusNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionFocusNodePropertyInfo = DOMNode - type AttrLabel DOMDOMSelectionFocusNodePropertyInfo = "DOMDOMSelection::focus-node" - attrGet _ = getDOMDOMSelectionFocusNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "focus-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionFocusOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionFocusOffset obj = liftIO $ getObjectPropertyInt64 obj "focus-offset" - -data DOMDOMSelectionFocusOffsetPropertyInfo -instance AttrInfo DOMDOMSelectionFocusOffsetPropertyInfo where - type AttrAllowedOps DOMDOMSelectionFocusOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMSelectionFocusOffsetPropertyInfo = "DOMDOMSelection::focus-offset" - attrGet _ = getDOMDOMSelectionFocusOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-collapsed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMSelectionIsCollapsed :: (MonadIO m, DOMDOMSelectionK o) => o -> m Bool -getDOMDOMSelectionIsCollapsed obj = liftIO $ getObjectPropertyBool obj "is-collapsed" - -data DOMDOMSelectionIsCollapsedPropertyInfo -instance AttrInfo DOMDOMSelectionIsCollapsedPropertyInfo where - type AttrAllowedOps DOMDOMSelectionIsCollapsedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionIsCollapsedPropertyInfo = Bool - type AttrLabel DOMDOMSelectionIsCollapsedPropertyInfo = "DOMDOMSelection::is-collapsed" - attrGet _ = getDOMDOMSelectionIsCollapsed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "range-count" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionRangeCount :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionRangeCount obj = liftIO $ getObjectPropertyInt64 obj "range-count" - -data DOMDOMSelectionRangeCountPropertyInfo -instance AttrInfo DOMDOMSelectionRangeCountPropertyInfo where - type AttrAllowedOps DOMDOMSelectionRangeCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = Int64 - type AttrLabel DOMDOMSelectionRangeCountPropertyInfo = "DOMDOMSelection::range-count" - attrGet _ = getDOMDOMSelectionRangeCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDOMSelectionType :: (MonadIO m, DOMDOMSelectionK o) => o -> m T.Text -getDOMDOMSelectionType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMDOMSelectionTypePropertyInfo -instance AttrInfo DOMDOMSelectionTypePropertyInfo where - type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMSelectionTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMSelectionTypePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionTypePropertyInfo = T.Text - type AttrLabel DOMDOMSelectionTypePropertyInfo = "DOMDOMSelection::type" - attrGet _ = getDOMDOMSelectionType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMSelection = '[ '("anchor-node", DOMDOMSelectionAnchorNodePropertyInfo), '("anchor-offset", DOMDOMSelectionAnchorOffsetPropertyInfo), '("base-node", DOMDOMSelectionBaseNodePropertyInfo), '("base-offset", DOMDOMSelectionBaseOffsetPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("extent-node", DOMDOMSelectionExtentNodePropertyInfo), '("extent-offset", DOMDOMSelectionExtentOffsetPropertyInfo), '("focus-node", DOMDOMSelectionFocusNodePropertyInfo), '("focus-offset", DOMDOMSelectionFocusOffsetPropertyInfo), '("is-collapsed", DOMDOMSelectionIsCollapsedPropertyInfo), '("range-count", DOMDOMSelectionRangeCountPropertyInfo), '("type", DOMDOMSelectionTypePropertyInfo)] - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> m T.Text -getDOMDOMSettableTokenListValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> T.Text -> m () -setDOMDOMSettableTokenListValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMDOMSettableTokenListValue :: T.Text -> IO ([Char], GValue) -constructDOMDOMSettableTokenListValue val = constructObjectPropertyString "value" val - -data DOMDOMSettableTokenListValuePropertyInfo -instance AttrInfo DOMDOMSettableTokenListValuePropertyInfo where - type AttrAllowedOps DOMDOMSettableTokenListValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = DOMDOMSettableTokenListK - type AttrGetType DOMDOMSettableTokenListValuePropertyInfo = T.Text - type AttrLabel DOMDOMSettableTokenListValuePropertyInfo = "DOMDOMSettableTokenList::value" - attrGet _ = getDOMDOMSettableTokenListValue - attrSet _ = setDOMDOMSettableTokenListValue - attrConstruct _ = constructDOMDOMSettableTokenListValue - -type instance AttributeList DOMDOMSettableTokenList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo), '("value", DOMDOMSettableTokenListValuePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m Word64 -getDOMDOMStringListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMStringListLengthPropertyInfo -instance AttrInfo DOMDOMStringListLengthPropertyInfo where - type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = DOMDOMStringListK - type AttrGetType DOMDOMStringListLengthPropertyInfo = Word64 - type AttrLabel DOMDOMStringListLengthPropertyInfo = "DOMDOMStringList::length" - attrGet _ = getDOMDOMStringListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMStringList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] - -type instance AttributeList DOMDOMStringMap = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMTokenListLength :: (MonadIO m, DOMDOMTokenListK o) => o -> m Word64 -getDOMDOMTokenListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMTokenListLengthPropertyInfo -instance AttrInfo DOMDOMTokenListLengthPropertyInfo where - type AttrAllowedOps DOMDOMTokenListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMTokenListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMTokenListLengthPropertyInfo = DOMDOMTokenListK - type AttrGetType DOMDOMTokenListLengthPropertyInfo = Word64 - type AttrLabel DOMDOMTokenListLengthPropertyInfo = "DOMDOMTokenList::length" - attrGet _ = getDOMDOMTokenListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMTokenList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo)] - --- VVV Prop "application-cache" - -- Type: TInterface "WebKit" "DOMDOMApplicationCache" - -- Flags: [PropertyReadable] - -getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMApplicationCache -getDOMDOMWindowApplicationCache obj = liftIO $ getObjectPropertyObject obj "application-cache" DOMDOMApplicationCache - -data DOMDOMWindowApplicationCachePropertyInfo -instance AttrInfo DOMDOMWindowApplicationCachePropertyInfo where - type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = DOMDOMApplicationCache - type AttrLabel DOMDOMWindowApplicationCachePropertyInfo = "DOMDOMWindow::application-cache" - attrGet _ = getDOMDOMWindowApplicationCache - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-information" - -- Type: TInterface "WebKit" "DOMNavigator" - -- Flags: [PropertyReadable] - -getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator -getDOMDOMWindowClientInformation obj = liftIO $ getObjectPropertyObject obj "client-information" DOMNavigator - -data DOMDOMWindowClientInformationPropertyInfo -instance AttrInfo DOMDOMWindowClientInformationPropertyInfo where - type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowClientInformationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowClientInformationPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowClientInformationPropertyInfo = DOMNavigator - type AttrLabel DOMDOMWindowClientInformationPropertyInfo = "DOMDOMWindow::client-information" - attrGet _ = getDOMDOMWindowClientInformation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "closed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool -getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" - -data DOMDOMWindowClosedPropertyInfo -instance AttrInfo DOMDOMWindowClosedPropertyInfo where - type AttrAllowedOps DOMDOMWindowClosedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowClosedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowClosedPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowClosedPropertyInfo = Bool - type AttrLabel DOMDOMWindowClosedPropertyInfo = "DOMDOMWindow::closed" - attrGet _ = getDOMDOMWindowClosed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "console" - -- Type: TInterface "WebKit" "DOMConsole" - -- Flags: [PropertyReadable] - -getDOMDOMWindowConsole :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMConsole -getDOMDOMWindowConsole obj = liftIO $ getObjectPropertyObject obj "console" DOMConsole - -data DOMDOMWindowConsolePropertyInfo -instance AttrInfo DOMDOMWindowConsolePropertyInfo where - type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowConsolePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowConsolePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowConsolePropertyInfo = DOMConsole - type AttrLabel DOMDOMWindowConsolePropertyInfo = "DOMDOMWindow::console" - attrGet _ = getDOMDOMWindowConsole - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "css" - -- Type: TInterface "WebKit" "DOMDOMWindowCSS" - -- Flags: [PropertyReadable] - -getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindowCSS -getDOMDOMWindowCss obj = liftIO $ getObjectPropertyObject obj "css" DOMDOMWindowCSS - -data DOMDOMWindowCssPropertyInfo -instance AttrInfo DOMDOMWindowCssPropertyInfo where - type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowCssPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowCssPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowCssPropertyInfo = DOMDOMWindowCSS - type AttrLabel DOMDOMWindowCssPropertyInfo = "DOMDOMWindow::css" - attrGet _ = getDOMDOMWindowCss - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "default-status" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text -getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status" - -setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val - -constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val - -data DOMDOMWindowDefaultStatusPropertyInfo -instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text - type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "DOMDOMWindow::default-status" - attrGet _ = getDOMDOMWindowDefaultStatus - attrSet _ = setDOMDOMWindowDefaultStatus - attrConstruct _ = constructDOMDOMWindowDefaultStatus - --- VVV Prop "device-pixel-ratio" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double -getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" - -data DOMDOMWindowDevicePixelRatioPropertyInfo -instance AttrInfo DOMDOMWindowDevicePixelRatioPropertyInfo where - type AttrAllowedOps DOMDOMWindowDevicePixelRatioPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDevicePixelRatioPropertyInfo = Double - type AttrLabel DOMDOMWindowDevicePixelRatioPropertyInfo = "DOMDOMWindow::device-pixel-ratio" - attrGet _ = getDOMDOMWindowDevicePixelRatio - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "document" - -- Type: TInterface "WebKit" "DOMDocument" - -- Flags: [PropertyReadable] - -getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument -getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument - -data DOMDOMWindowDocumentPropertyInfo -instance AttrInfo DOMDOMWindowDocumentPropertyInfo where - type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument - type AttrLabel DOMDOMWindowDocumentPropertyInfo = "DOMDOMWindow::document" - attrGet _ = getDOMDOMWindowDocument - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "frame-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement -getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement - -data DOMDOMWindowFrameElementPropertyInfo -instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where - type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement - type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "DOMDOMWindow::frame-element" - attrGet _ = getDOMDOMWindowFrameElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "frames" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow - -data DOMDOMWindowFramesPropertyInfo -instance AttrInfo DOMDOMWindowFramesPropertyInfo where - type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowFramesPropertyInfo = "DOMDOMWindow::frames" - attrGet _ = getDOMDOMWindowFrames - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "history" - -- Type: TInterface "WebKit" "DOMHistory" - -- Flags: [PropertyReadable] - -getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMHistory -getDOMDOMWindowHistory obj = liftIO $ getObjectPropertyObject obj "history" DOMHistory - -data DOMDOMWindowHistoryPropertyInfo -instance AttrInfo DOMDOMWindowHistoryPropertyInfo where - type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowHistoryPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowHistoryPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowHistoryPropertyInfo = DOMHistory - type AttrLabel DOMDOMWindowHistoryPropertyInfo = "DOMDOMWindow::history" - attrGet _ = getDOMDOMWindowHistory - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "inner-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height" - -data DOMDOMWindowInnerHeightPropertyInfo -instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where - type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64 - type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "DOMDOMWindow::inner-height" - attrGet _ = getDOMDOMWindowInnerHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "inner-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width" - -data DOMDOMWindowInnerWidthPropertyInfo -instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where - type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64 - type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "DOMDOMWindow::inner-width" - attrGet _ = getDOMDOMWindowInnerWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64 -getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMDOMWindowLengthPropertyInfo -instance AttrInfo DOMDOMWindowLengthPropertyInfo where - type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64 - type AttrLabel DOMDOMWindowLengthPropertyInfo = "DOMDOMWindow::length" - attrGet _ = getDOMDOMWindowLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "local-storage" - -- Type: TInterface "WebKit" "DOMStorage" - -- Flags: [PropertyReadable] - -getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage -getDOMDOMWindowLocalStorage obj = liftIO $ getObjectPropertyObject obj "local-storage" DOMStorage - -data DOMDOMWindowLocalStoragePropertyInfo -instance AttrInfo DOMDOMWindowLocalStoragePropertyInfo where - type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = DOMStorage - type AttrLabel DOMDOMWindowLocalStoragePropertyInfo = "DOMDOMWindow::local-storage" - attrGet _ = getDOMDOMWindowLocalStorage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "locationbar" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowLocationbar obj = liftIO $ getObjectPropertyObject obj "locationbar" DOMBarProp - -data DOMDOMWindowLocationbarPropertyInfo -instance AttrInfo DOMDOMWindowLocationbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowLocationbarPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowLocationbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLocationbarPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowLocationbarPropertyInfo = "DOMDOMWindow::locationbar" - attrGet _ = getDOMDOMWindowLocationbar - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "menubar" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" DOMBarProp - -data DOMDOMWindowMenubarPropertyInfo -instance AttrInfo DOMDOMWindowMenubarPropertyInfo where - type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowMenubarPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowMenubarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowMenubarPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowMenubarPropertyInfo = "DOMDOMWindow::menubar" - attrGet _ = getDOMDOMWindowMenubar - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text -getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowName val = constructObjectPropertyString "name" val - -data DOMDOMWindowNamePropertyInfo -instance AttrInfo DOMDOMWindowNamePropertyInfo where - type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text - type AttrLabel DOMDOMWindowNamePropertyInfo = "DOMDOMWindow::name" - attrGet _ = getDOMDOMWindowName - attrSet _ = setDOMDOMWindowName - attrConstruct _ = constructDOMDOMWindowName - --- VVV Prop "navigator" - -- Type: TInterface "WebKit" "DOMNavigator" - -- Flags: [PropertyReadable] - -getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator -getDOMDOMWindowNavigator obj = liftIO $ getObjectPropertyObject obj "navigator" DOMNavigator - -data DOMDOMWindowNavigatorPropertyInfo -instance AttrInfo DOMDOMWindowNavigatorPropertyInfo where - type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowNavigatorPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowNavigatorPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowNavigatorPropertyInfo = DOMNavigator - type AttrLabel DOMDOMWindowNavigatorPropertyInfo = "DOMDOMWindow::navigator" - attrGet _ = getDOMDOMWindowNavigator - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offscreen-buffering" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool -getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" - -data DOMDOMWindowOffscreenBufferingPropertyInfo -instance AttrInfo DOMDOMWindowOffscreenBufferingPropertyInfo where - type AttrAllowedOps DOMDOMWindowOffscreenBufferingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOffscreenBufferingPropertyInfo = Bool - type AttrLabel DOMDOMWindowOffscreenBufferingPropertyInfo = "DOMDOMWindow::offscreen-buffering" - attrGet _ = getDOMDOMWindowOffscreenBuffering - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "opener" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow - -data DOMDOMWindowOpenerPropertyInfo -instance AttrInfo DOMDOMWindowOpenerPropertyInfo where - type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowOpenerPropertyInfo = "DOMDOMWindow::opener" - attrGet _ = getDOMDOMWindowOpener - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "outer-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height" - -data DOMDOMWindowOuterHeightPropertyInfo -instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where - type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64 - type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "DOMDOMWindow::outer-height" - attrGet _ = getDOMDOMWindowOuterHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "outer-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width" - -data DOMDOMWindowOuterWidthPropertyInfo -instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where - type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64 - type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "DOMDOMWindow::outer-width" - attrGet _ = getDOMDOMWindowOuterWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-x-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset" - -data DOMDOMWindowPageXOffsetPropertyInfo -instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where - type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "DOMDOMWindow::page-x-offset" - attrGet _ = getDOMDOMWindowPageXOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-y-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset" - -data DOMDOMWindowPageYOffsetPropertyInfo -instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where - type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64 - type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "DOMDOMWindow::page-y-offset" - attrGet _ = getDOMDOMWindowPageYOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow - -data DOMDOMWindowParentPropertyInfo -instance AttrInfo DOMDOMWindowParentPropertyInfo where - type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowParentPropertyInfo = "DOMDOMWindow::parent" - attrGet _ = getDOMDOMWindowParent - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "performance" - -- Type: TInterface "WebKit" "DOMPerformance" - -- Flags: [PropertyReadable] - -getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMPerformance -getDOMDOMWindowPerformance obj = liftIO $ getObjectPropertyObject obj "performance" DOMPerformance - -data DOMDOMWindowPerformancePropertyInfo -instance AttrInfo DOMDOMWindowPerformancePropertyInfo where - type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPerformancePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPerformancePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPerformancePropertyInfo = DOMPerformance - type AttrLabel DOMDOMWindowPerformancePropertyInfo = "DOMDOMWindow::performance" - attrGet _ = getDOMDOMWindowPerformance - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "personalbar" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowPersonalbar obj = liftIO $ getObjectPropertyObject obj "personalbar" DOMBarProp - -data DOMDOMWindowPersonalbarPropertyInfo -instance AttrInfo DOMDOMWindowPersonalbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowPersonalbarPropertyInfo = "DOMDOMWindow::personalbar" - attrGet _ = getDOMDOMWindowPersonalbar - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen" - -- Type: TInterface "WebKit" "DOMScreen" - -- Flags: [PropertyReadable] - -getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMScreen -getDOMDOMWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" DOMScreen - -data DOMDOMWindowScreenPropertyInfo -instance AttrInfo DOMDOMWindowScreenPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenPropertyInfo = DOMScreen - type AttrLabel DOMDOMWindowScreenPropertyInfo = "DOMDOMWindow::screen" - attrGet _ = getDOMDOMWindowScreen - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-left" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left" - -data DOMDOMWindowScreenLeftPropertyInfo -instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "DOMDOMWindow::screen-left" - attrGet _ = getDOMDOMWindowScreenLeft - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-top" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top" - -data DOMDOMWindowScreenTopPropertyInfo -instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "DOMDOMWindow::screen-top" - attrGet _ = getDOMDOMWindowScreenTop - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" - -data DOMDOMWindowScreenXPropertyInfo -instance AttrInfo DOMDOMWindowScreenXPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScreenXPropertyInfo = "DOMDOMWindow::screen-x" - attrGet _ = getDOMDOMWindowScreenX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" - -data DOMDOMWindowScreenYPropertyInfo -instance AttrInfo DOMDOMWindowScreenYPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScreenYPropertyInfo = "DOMDOMWindow::screen-y" - attrGet _ = getDOMDOMWindowScreenY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scroll-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x" - -data DOMDOMWindowScrollXPropertyInfo -instance AttrInfo DOMDOMWindowScrollXPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScrollXPropertyInfo = "DOMDOMWindow::scroll-x" - attrGet _ = getDOMDOMWindowScrollX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scroll-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y" - -data DOMDOMWindowScrollYPropertyInfo -instance AttrInfo DOMDOMWindowScrollYPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64 - type AttrLabel DOMDOMWindowScrollYPropertyInfo = "DOMDOMWindow::scroll-y" - attrGet _ = getDOMDOMWindowScrollY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scrollbars" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowScrollbars obj = liftIO $ getObjectPropertyObject obj "scrollbars" DOMBarProp - -data DOMDOMWindowScrollbarsPropertyInfo -instance AttrInfo DOMDOMWindowScrollbarsPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowScrollbarsPropertyInfo = "DOMDOMWindow::scrollbars" - attrGet _ = getDOMDOMWindowScrollbars - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "self" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow - -data DOMDOMWindowSelfPropertyInfo -instance AttrInfo DOMDOMWindowSelfPropertyInfo where - type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowSelfPropertyInfo = "DOMDOMWindow::self" - attrGet _ = getDOMDOMWindowSelf - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "session-storage" - -- Type: TInterface "WebKit" "DOMStorage" - -- Flags: [PropertyReadable] - -getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage -getDOMDOMWindowSessionStorage obj = liftIO $ getObjectPropertyObject obj "session-storage" DOMStorage - -data DOMDOMWindowSessionStoragePropertyInfo -instance AttrInfo DOMDOMWindowSessionStoragePropertyInfo where - type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = DOMStorage - type AttrLabel DOMDOMWindowSessionStoragePropertyInfo = "DOMDOMWindow::session-storage" - attrGet _ = getDOMDOMWindowSessionStorage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "status" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text -getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" - -setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val - -constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val - -data DOMDOMWindowStatusPropertyInfo -instance AttrInfo DOMDOMWindowStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text - type AttrLabel DOMDOMWindowStatusPropertyInfo = "DOMDOMWindow::status" - attrGet _ = getDOMDOMWindowStatus - attrSet _ = setDOMDOMWindowStatus - attrConstruct _ = constructDOMDOMWindowStatus - --- VVV Prop "statusbar" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowStatusbar obj = liftIO $ getObjectPropertyObject obj "statusbar" DOMBarProp - -data DOMDOMWindowStatusbarPropertyInfo -instance AttrInfo DOMDOMWindowStatusbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowStatusbarPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowStatusbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStatusbarPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowStatusbarPropertyInfo = "DOMDOMWindow::statusbar" - attrGet _ = getDOMDOMWindowStatusbar - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "style-media" - -- Type: TInterface "WebKit" "DOMStyleMedia" - -- Flags: [PropertyReadable] - -getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStyleMedia -getDOMDOMWindowStyleMedia obj = liftIO $ getObjectPropertyObject obj "style-media" DOMStyleMedia - -data DOMDOMWindowStyleMediaPropertyInfo -instance AttrInfo DOMDOMWindowStyleMediaPropertyInfo where - type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = DOMStyleMedia - type AttrLabel DOMDOMWindowStyleMediaPropertyInfo = "DOMDOMWindow::style-media" - attrGet _ = getDOMDOMWindowStyleMedia - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "toolbar" - -- Type: TInterface "WebKit" "DOMBarProp" - -- Flags: [PropertyReadable] - -getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp -getDOMDOMWindowToolbar obj = liftIO $ getObjectPropertyObject obj "toolbar" DOMBarProp - -data DOMDOMWindowToolbarPropertyInfo -instance AttrInfo DOMDOMWindowToolbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowToolbarPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowToolbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowToolbarPropertyInfo = DOMBarProp - type AttrLabel DOMDOMWindowToolbarPropertyInfo = "DOMDOMWindow::toolbar" - attrGet _ = getDOMDOMWindowToolbar - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "top" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow - -data DOMDOMWindowTopPropertyInfo -instance AttrInfo DOMDOMWindowTopPropertyInfo where - type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowTopPropertyInfo = "DOMDOMWindow::top" - attrGet _ = getDOMDOMWindowTop - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-storage-info" - -- Type: TInterface "WebKit" "DOMStorageInfo" - -- Flags: [PropertyReadable] - -getDOMDOMWindowWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorageInfo -getDOMDOMWindowWebkitStorageInfo obj = liftIO $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo - -data DOMDOMWindowWebkitStorageInfoPropertyInfo -instance AttrInfo DOMDOMWindowWebkitStorageInfoPropertyInfo where - type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMStorageInfo - type AttrLabel DOMDOMWindowWebkitStorageInfoPropertyInfo = "DOMDOMWindow::webkit-storage-info" - attrGet _ = getDOMDOMWindowWebkitStorageInfo - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "window" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow -getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow - -data DOMDOMWindowWindowPropertyInfo -instance AttrInfo DOMDOMWindowWindowPropertyInfo where - type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow - type AttrLabel DOMDOMWindowWindowPropertyInfo = "DOMDOMWindow::window" - attrGet _ = getDOMDOMWindowWindow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDOMWindow = '[ '("application-cache", DOMDOMWindowApplicationCachePropertyInfo), '("client-information", DOMDOMWindowClientInformationPropertyInfo), '("closed", DOMDOMWindowClosedPropertyInfo), '("console", DOMDOMWindowConsolePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("css", DOMDOMWindowCssPropertyInfo), '("default-status", DOMDOMWindowDefaultStatusPropertyInfo), '("device-pixel-ratio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frame-element", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("history", DOMDOMWindowHistoryPropertyInfo), '("inner-height", DOMDOMWindowInnerHeightPropertyInfo), '("inner-width", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("local-storage", DOMDOMWindowLocalStoragePropertyInfo), '("locationbar", DOMDOMWindowLocationbarPropertyInfo), '("menubar", DOMDOMWindowMenubarPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("navigator", DOMDOMWindowNavigatorPropertyInfo), '("offscreen-buffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outer-height", DOMDOMWindowOuterHeightPropertyInfo), '("outer-width", DOMDOMWindowOuterWidthPropertyInfo), '("page-x-offset", DOMDOMWindowPageXOffsetPropertyInfo), '("page-y-offset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("performance", DOMDOMWindowPerformancePropertyInfo), '("personalbar", DOMDOMWindowPersonalbarPropertyInfo), '("screen", DOMDOMWindowScreenPropertyInfo), '("screen-left", DOMDOMWindowScreenLeftPropertyInfo), '("screen-top", DOMDOMWindowScreenTopPropertyInfo), '("screen-x", DOMDOMWindowScreenXPropertyInfo), '("screen-y", DOMDOMWindowScreenYPropertyInfo), '("scroll-x", DOMDOMWindowScrollXPropertyInfo), '("scroll-y", DOMDOMWindowScrollYPropertyInfo), '("scrollbars", DOMDOMWindowScrollbarsPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("session-storage", DOMDOMWindowSessionStoragePropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("statusbar", DOMDOMWindowStatusbarPropertyInfo), '("style-media", DOMDOMWindowStyleMediaPropertyInfo), '("toolbar", DOMDOMWindowToolbarPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("webkit-storage-info", DOMDOMWindowWebkitStorageInfoPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] - -type instance AttributeList DOMDOMWindowCSS = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDatabaseVersion :: (MonadIO m, DOMDatabaseK o) => o -> m T.Text -getDOMDatabaseVersion obj = liftIO $ getObjectPropertyString obj "version" - -data DOMDatabaseVersionPropertyInfo -instance AttrInfo DOMDatabaseVersionPropertyInfo where - type AttrAllowedOps DOMDatabaseVersionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDatabaseVersionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDatabaseVersionPropertyInfo = DOMDatabaseK - type AttrGetType DOMDatabaseVersionPropertyInfo = T.Text - type AttrLabel DOMDatabaseVersionPropertyInfo = "DOMDatabase::version" - attrGet _ = getDOMDatabaseVersion - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDatabase = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("version", DOMDatabaseVersionPropertyInfo)] - --- VVV Prop "anchors" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection -getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection - -data DOMDocumentAnchorsPropertyInfo -instance AttrInfo DOMDocumentAnchorsPropertyInfo where - type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAnchorsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMDocumentAnchorsPropertyInfo = "DOMDocument::anchors" - attrGet _ = getDOMDocumentAnchors - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "applets" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection -getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection - -data DOMDocumentAppletsPropertyInfo -instance AttrInfo DOMDocumentAppletsPropertyInfo where - type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAppletsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMDocumentAppletsPropertyInfo = "DOMDocument::applets" - attrGet _ = getDOMDocumentApplets - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "body" - -- Type: TInterface "WebKit" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement -getDOMDocumentBody obj = liftIO $ getObjectPropertyObject obj "body" DOMHTMLElement - -data DOMDocumentBodyPropertyInfo -instance AttrInfo DOMDocumentBodyPropertyInfo where - type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement - type AttrLabel DOMDocumentBodyPropertyInfo = "DOMDocument::body" - attrGet _ = getDOMDocumentBody - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "character-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set" - -data DOMDocumentCharacterSetPropertyInfo -instance AttrInfo DOMDocumentCharacterSetPropertyInfo where - type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCharacterSetPropertyInfo = T.Text - type AttrLabel DOMDocumentCharacterSetPropertyInfo = "DOMDocument::character-set" - attrGet _ = getDOMDocumentCharacterSet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" val - -constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCharset val = constructObjectPropertyString "charset" val - -data DOMDocumentCharsetPropertyInfo -instance AttrInfo DOMDocumentCharsetPropertyInfo where - type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCharsetPropertyInfo = T.Text - type AttrLabel DOMDocumentCharsetPropertyInfo = "DOMDocument::charset" - attrGet _ = getDOMDocumentCharset - attrSet _ = setDOMDocumentCharset - attrConstruct _ = constructDOMDocumentCharset - --- VVV Prop "compat-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" - -data DOMDocumentCompatModePropertyInfo -instance AttrInfo DOMDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCompatModePropertyInfo = T.Text - type AttrLabel DOMDocumentCompatModePropertyInfo = "DOMDocument::compat-mode" - attrGet _ = getDOMDocumentCompatMode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cookie" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie" - -setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" val - -constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCookie val = constructObjectPropertyString "cookie" val - -data DOMDocumentCookiePropertyInfo -instance AttrInfo DOMDocumentCookiePropertyInfo where - type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCookiePropertyInfo = T.Text - type AttrLabel DOMDocumentCookiePropertyInfo = "DOMDocument::cookie" - attrGet _ = getDOMDocumentCookie - attrSet _ = setDOMDocumentCookie - attrConstruct _ = constructDOMDocumentCookie - --- VVV Prop "current-script" - -- Type: TInterface "WebKit" "DOMHTMLScriptElement" - -- Flags: [PropertyReadable] - -getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement -getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement - -data DOMDocumentCurrentScriptPropertyInfo -instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where - type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCurrentScriptPropertyInfo = DOMHTMLScriptElement - type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "DOMDocument::current-script" - attrGet _ = getDOMDocumentCurrentScript - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "default-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" - -data DOMDocumentDefaultCharsetPropertyInfo -instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = T.Text - type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "DOMDocument::default-charset" - attrGet _ = getDOMDocumentDefaultCharset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "default-view" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMWindow -getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow - -data DOMDocumentDefaultViewPropertyInfo -instance AttrInfo DOMDocumentDefaultViewPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultViewPropertyInfo = DOMDOMWindow - type AttrLabel DOMDocumentDefaultViewPropertyInfo = "DOMDocument::default-view" - attrGet _ = getDOMDocumentDefaultView - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "doctype" - -- Type: TInterface "WebKit" "DOMDocumentType" - -- Flags: [PropertyReadable] - -getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType -getDOMDocumentDoctype obj = liftIO $ getObjectPropertyObject obj "doctype" DOMDocumentType - -data DOMDocumentDoctypePropertyInfo -instance AttrInfo DOMDocumentDoctypePropertyInfo where - type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType - type AttrLabel DOMDocumentDoctypePropertyInfo = "DOMDocument::doctype" - attrGet _ = getDOMDocumentDoctype - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "document-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentDocumentElement obj = liftIO $ getObjectPropertyObject obj "document-element" DOMElement - -data DOMDocumentDocumentElementPropertyInfo -instance AttrInfo DOMDocumentDocumentElementPropertyInfo where - type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentDocumentElementPropertyInfo = "DOMDocument::document-element" - attrGet _ = getDOMDocumentDocumentElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "document-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentDocumentUri obj = liftIO $ getObjectPropertyString obj "document-uri" - -setDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" val - -constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue) -constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" val - -data DOMDocumentDocumentUriPropertyInfo -instance AttrInfo DOMDocumentDocumentUriPropertyInfo where - type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDocumentUriPropertyInfo = T.Text - type AttrLabel DOMDocumentDocumentUriPropertyInfo = "DOMDocument::document-uri" - attrGet _ = getDOMDocumentDocumentUri - attrSet _ = setDOMDocumentDocumentUri - attrConstruct _ = constructDOMDocumentDocumentUri - --- VVV Prop "domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain" - -data DOMDocumentDomainPropertyInfo -instance AttrInfo DOMDocumentDomainPropertyInfo where - type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDomainPropertyInfo = T.Text - type AttrLabel DOMDocumentDomainPropertyInfo = "DOMDocument::domain" - attrGet _ = getDOMDocumentDomain - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "forms" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection -getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection - -data DOMDocumentFormsPropertyInfo -instance AttrInfo DOMDocumentFormsPropertyInfo where - type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentFormsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMDocumentFormsPropertyInfo = "DOMDocument::forms" - attrGet _ = getDOMDocumentForms - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "head" - -- Type: TInterface "WebKit" "DOMHTMLHeadElement" - -- Flags: [PropertyReadable] - -getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement -getDOMDocumentHead obj = liftIO $ getObjectPropertyObject obj "head" DOMHTMLHeadElement - -data DOMDocumentHeadPropertyInfo -instance AttrInfo DOMDocumentHeadPropertyInfo where - type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement - type AttrLabel DOMDocumentHeadPropertyInfo = "DOMDocument::head" - attrGet _ = getDOMDocumentHead - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool -getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden" - -data DOMDocumentHiddenPropertyInfo -instance AttrInfo DOMDocumentHiddenPropertyInfo where - type AttrAllowedOps DOMDocumentHiddenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentHiddenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentHiddenPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentHiddenPropertyInfo = Bool - type AttrLabel DOMDocumentHiddenPropertyInfo = "DOMDocument::hidden" - attrGet _ = getDOMDocumentHidden - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "images" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection -getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection - -data DOMDocumentImagesPropertyInfo -instance AttrInfo DOMDocumentImagesPropertyInfo where - type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImagesPropertyInfo = DOMHTMLCollection - type AttrLabel DOMDocumentImagesPropertyInfo = "DOMDocument::images" - attrGet _ = getDOMDocumentImages - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "implementation" - -- Type: TInterface "WebKit" "DOMDOMImplementation" - -- Flags: [PropertyReadable] - -getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMImplementation -getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation - -data DOMDocumentImplementationPropertyInfo -instance AttrInfo DOMDocumentImplementationPropertyInfo where - type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImplementationPropertyInfo = DOMDOMImplementation - type AttrLabel DOMDocumentImplementationPropertyInfo = "DOMDocument::implementation" - attrGet _ = getDOMDocumentImplementation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "input-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding" - -data DOMDocumentInputEncodingPropertyInfo -instance AttrInfo DOMDocumentInputEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentInputEncodingPropertyInfo = T.Text - type AttrLabel DOMDocumentInputEncodingPropertyInfo = "DOMDocument::input-encoding" - attrGet _ = getDOMDocumentInputEncoding - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "last-modified" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified" - -data DOMDocumentLastModifiedPropertyInfo -instance AttrInfo DOMDocumentLastModifiedPropertyInfo where - type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLastModifiedPropertyInfo = T.Text - type AttrLabel DOMDocumentLastModifiedPropertyInfo = "DOMDocument::last-modified" - attrGet _ = getDOMDocumentLastModified - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "links" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection -getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection - -data DOMDocumentLinksPropertyInfo -instance AttrInfo DOMDocumentLinksPropertyInfo where - type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLinksPropertyInfo = DOMHTMLCollection - type AttrLabel DOMDocumentLinksPropertyInfo = "DOMDocument::links" - attrGet _ = getDOMDocumentLinks - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "preferred-stylesheet-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set" - -data DOMDocumentPreferredStylesheetSetPropertyInfo -instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where - type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = T.Text - type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "DOMDocument::preferred-stylesheet-set" - attrGet _ = getDOMDocumentPreferredStylesheetSet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ready-state" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state" - -data DOMDocumentReadyStatePropertyInfo -instance AttrInfo DOMDocumentReadyStatePropertyInfo where - type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReadyStatePropertyInfo = T.Text - type AttrLabel DOMDocumentReadyStatePropertyInfo = "DOMDocument::ready-state" - attrGet _ = getDOMDocumentReadyState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "referrer" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer" - -data DOMDocumentReferrerPropertyInfo -instance AttrInfo DOMDocumentReferrerPropertyInfo where - type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReferrerPropertyInfo = T.Text - type AttrLabel DOMDocumentReferrerPropertyInfo = "DOMDocument::referrer" - attrGet _ = getDOMDocumentReferrer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "security-policy" - -- Type: TInterface "WebKit" "DOMDOMSecurityPolicy" - -- Flags: [PropertyReadable] - -getDOMDocumentSecurityPolicy :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMSecurityPolicy -getDOMDocumentSecurityPolicy obj = liftIO $ getObjectPropertyObject obj "security-policy" DOMDOMSecurityPolicy - -data DOMDocumentSecurityPolicyPropertyInfo -instance AttrInfo DOMDocumentSecurityPolicyPropertyInfo where - type AttrAllowedOps DOMDocumentSecurityPolicyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentSecurityPolicyPropertyInfo = DOMDOMSecurityPolicy - type AttrLabel DOMDocumentSecurityPolicyPropertyInfo = "DOMDocument::security-policy" - attrGet _ = getDOMDocumentSecurityPolicy - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "selected-stylesheet-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentSelectedStylesheetSet obj = liftIO $ getObjectPropertyString obj "selected-stylesheet-set" - -setDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" val - -constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue) -constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" val - -data DOMDocumentSelectedStylesheetSetPropertyInfo -instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where - type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text - type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "DOMDocument::selected-stylesheet-set" - attrGet _ = getDOMDocumentSelectedStylesheetSet - attrSet _ = setDOMDocumentSelectedStylesheetSet - attrConstruct _ = constructDOMDocumentSelectedStylesheetSet - --- VVV Prop "style-sheets" - -- Type: TInterface "WebKit" "DOMStyleSheetList" - -- Flags: [PropertyReadable] - -getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList -getDOMDocumentStyleSheets obj = liftIO $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList - -data DOMDocumentStyleSheetsPropertyInfo -instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where - type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList - type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "DOMDocument::style-sheets" - attrGet _ = getDOMDocumentStyleSheets - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" - -setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue) -constructDOMDocumentTitle val = constructObjectPropertyString "title" val - -data DOMDocumentTitlePropertyInfo -instance AttrInfo DOMDocumentTitlePropertyInfo where - type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentTitlePropertyInfo = T.Text - type AttrLabel DOMDocumentTitlePropertyInfo = "DOMDocument::title" - attrGet _ = getDOMDocumentTitle - attrSet _ = setDOMDocumentTitle - attrConstruct _ = constructDOMDocumentTitle - --- VVV Prop "url" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url" - -data DOMDocumentUrlPropertyInfo -instance AttrInfo DOMDocumentUrlPropertyInfo where - type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentUrlPropertyInfo = T.Text - type AttrLabel DOMDocumentUrlPropertyInfo = "DOMDocument::url" - attrGet _ = getDOMDocumentUrl - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "visibility-state" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state" - -data DOMDocumentVisibilityStatePropertyInfo -instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where - type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentVisibilityStatePropertyInfo = T.Text - type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "DOMDocument::visibility-state" - attrGet _ = getDOMDocumentVisibilityState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-current-full-screen-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement - -data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo -instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "DOMDocument::webkit-current-full-screen-element" - attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-full-screen-keyboard-input-allowed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool -getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed" - -data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo -instance AttrInfo DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = Bool - type AttrLabel DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = "DOMDocument::webkit-full-screen-keyboard-input-allowed" - attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-fullscreen-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement - -data DOMDocumentWebkitFullscreenElementPropertyInfo -instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "DOMDocument::webkit-fullscreen-element" - attrGet _ = getDOMDocumentWebkitFullscreenElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-fullscreen-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool -getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled" - -data DOMDocumentWebkitFullscreenEnabledPropertyInfo -instance AttrInfo DOMDocumentWebkitFullscreenEnabledPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitFullscreenEnabledPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitFullscreenEnabledPropertyInfo = Bool - type AttrLabel DOMDocumentWebkitFullscreenEnabledPropertyInfo = "DOMDocument::webkit-fullscreen-enabled" - attrGet _ = getDOMDocumentWebkitFullscreenEnabled - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-is-full-screen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool -getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen" - -data DOMDocumentWebkitIsFullScreenPropertyInfo -instance AttrInfo DOMDocumentWebkitIsFullScreenPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitIsFullScreenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitIsFullScreenPropertyInfo = Bool - type AttrLabel DOMDocumentWebkitIsFullScreenPropertyInfo = "DOMDocument::webkit-is-full-screen" - attrGet _ = getDOMDocumentWebkitIsFullScreen - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-pointer-lock-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMDocumentWebkitPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitPointerLockElement obj = liftIO $ getObjectPropertyObject obj "webkit-pointer-lock-element" DOMElement - -data DOMDocumentWebkitPointerLockElementPropertyInfo -instance AttrInfo DOMDocumentWebkitPointerLockElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitPointerLockElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitPointerLockElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentWebkitPointerLockElementPropertyInfo = "DOMDocument::webkit-pointer-lock-element" - attrGet _ = getDOMDocumentWebkitPointerLockElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "xml-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding" - -data DOMDocumentXmlEncodingPropertyInfo -instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlEncodingPropertyInfo = T.Text - type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "DOMDocument::xml-encoding" - attrGet _ = getDOMDocumentXmlEncoding - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "xml-standalone" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> m Bool -getDOMDocumentXmlStandalone obj = liftIO $ getObjectPropertyBool obj "xml-standalone" - -setDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> Bool -> m () -setDOMDocumentXmlStandalone obj val = liftIO $ setObjectPropertyBool obj "xml-standalone" val - -constructDOMDocumentXmlStandalone :: Bool -> IO ([Char], GValue) -constructDOMDocumentXmlStandalone val = constructObjectPropertyBool "xml-standalone" val - -data DOMDocumentXmlStandalonePropertyInfo -instance AttrInfo DOMDocumentXmlStandalonePropertyInfo where - type AttrAllowedOps DOMDocumentXmlStandalonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMDocumentXmlStandalonePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlStandalonePropertyInfo = Bool - type AttrLabel DOMDocumentXmlStandalonePropertyInfo = "DOMDocument::xml-standalone" - attrGet _ = getDOMDocumentXmlStandalone - attrSet _ = setDOMDocumentXmlStandalone - attrConstruct _ = constructDOMDocumentXmlStandalone - --- VVV Prop "xml-version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m T.Text -getDOMDocumentXmlVersion obj = liftIO $ getObjectPropertyString obj "xml-version" - -setDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" val - -constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue) -constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" val - -data DOMDocumentXmlVersionPropertyInfo -instance AttrInfo DOMDocumentXmlVersionPropertyInfo where - type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlVersionPropertyInfo = T.Text - type AttrLabel DOMDocumentXmlVersionPropertyInfo = "DOMDocument::xml-version" - attrGet _ = getDOMDocumentXmlVersion - attrSet _ = setDOMDocumentXmlVersion - attrConstruct _ = constructDOMDocumentXmlVersion - -type instance AttributeList DOMDocument = '[ '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] - -type instance AttributeList DOMDocumentFragment = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - --- VVV Prop "entities" - -- Type: TInterface "WebKit" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap -getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap - -data DOMDocumentTypeEntitiesPropertyInfo -instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where - type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap - type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "DOMDocumentType::entities" - attrGet _ = getDOMDocumentTypeEntities - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "internal-subset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text -getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset" - -data DOMDocumentTypeInternalSubsetPropertyInfo -instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where - type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text - type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "DOMDocumentType::internal-subset" - attrGet _ = getDOMDocumentTypeInternalSubset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text -getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMDocumentTypeNamePropertyInfo -instance AttrInfo DOMDocumentTypeNamePropertyInfo where - type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text - type AttrLabel DOMDocumentTypeNamePropertyInfo = "DOMDocumentType::name" - attrGet _ = getDOMDocumentTypeName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "notations" - -- Type: TInterface "WebKit" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap -getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap - -data DOMDocumentTypeNotationsPropertyInfo -instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where - type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap - type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "DOMDocumentType::notations" - attrGet _ = getDOMDocumentTypeNotations - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "public-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text -getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id" - -data DOMDocumentTypePublicIdPropertyInfo -instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text - type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "DOMDocumentType::public-id" - attrGet _ = getDOMDocumentTypePublicId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "system-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text -getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id" - -data DOMDocumentTypeSystemIdPropertyInfo -instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text - type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "DOMDocumentType::system-id" - attrGet _ = getDOMDocumentTypeSystemId - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMDocumentType = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("internal-subset", DOMDocumentTypeInternalSubsetPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("public-id", DOMDocumentTypePublicIdPropertyInfo), '("system-id", DOMDocumentTypeSystemIdPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - --- VVV Prop "attributes" - -- Type: TInterface "WebKit" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m DOMNamedNodeMap -getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap - -data DOMElementAttributesPropertyInfo -instance AttrInfo DOMElementAttributesPropertyInfo where - type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK - type AttrGetType DOMElementAttributesPropertyInfo = DOMNamedNodeMap - type AttrLabel DOMElementAttributesPropertyInfo = "DOMElement::attributes" - attrGet _ = getDOMElementAttributes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "child-element-count" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m Word64 -getDOMElementChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" - -data DOMElementChildElementCountPropertyInfo -instance AttrInfo DOMElementChildElementCountPropertyInfo where - type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK - type AttrGetType DOMElementChildElementCountPropertyInfo = Word64 - type AttrLabel DOMElementChildElementCountPropertyInfo = "DOMElement::child-element-count" - attrGet _ = getDOMElementChildElementCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "class-list" - -- Type: TInterface "WebKit" "DOMDOMTokenList" - -- Flags: [PropertyReadable] - -getDOMElementClassList :: (MonadIO m, DOMElementK o) => o -> m DOMDOMTokenList -getDOMElementClassList obj = liftIO $ getObjectPropertyObject obj "class-list" DOMDOMTokenList - -data DOMElementClassListPropertyInfo -instance AttrInfo DOMElementClassListPropertyInfo where - type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementClassListPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementClassListPropertyInfo = DOMElementK - type AttrGetType DOMElementClassListPropertyInfo = DOMDOMTokenList - type AttrLabel DOMElementClassListPropertyInfo = "DOMElement::class-list" - attrGet _ = getDOMElementClassList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "class-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m T.Text -getDOMElementClassName obj = liftIO $ getObjectPropertyString obj "class-name" - -setDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" val - -constructDOMElementClassName :: T.Text -> IO ([Char], GValue) -constructDOMElementClassName val = constructObjectPropertyString "class-name" val - -data DOMElementClassNamePropertyInfo -instance AttrInfo DOMElementClassNamePropertyInfo where - type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = DOMElementK - type AttrGetType DOMElementClassNamePropertyInfo = T.Text - type AttrLabel DOMElementClassNamePropertyInfo = "DOMElement::class-name" - attrGet _ = getDOMElementClassName - attrSet _ = setDOMElementClassName - attrConstruct _ = constructDOMElementClassName - --- VVV Prop "client-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientHeight obj = liftIO $ getObjectPropertyInt64 obj "client-height" - -data DOMElementClientHeightPropertyInfo -instance AttrInfo DOMElementClientHeightPropertyInfo where - type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementClientHeightPropertyInfo = Int64 - type AttrLabel DOMElementClientHeightPropertyInfo = "DOMElement::client-height" - attrGet _ = getDOMElementClientHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-left" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientLeft obj = liftIO $ getObjectPropertyInt64 obj "client-left" - -data DOMElementClientLeftPropertyInfo -instance AttrInfo DOMElementClientLeftPropertyInfo where - type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementClientLeftPropertyInfo = Int64 - type AttrLabel DOMElementClientLeftPropertyInfo = "DOMElement::client-left" - attrGet _ = getDOMElementClientLeft - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-top" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientTop obj = liftIO $ getObjectPropertyInt64 obj "client-top" - -data DOMElementClientTopPropertyInfo -instance AttrInfo DOMElementClientTopPropertyInfo where - type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = DOMElementK - type AttrGetType DOMElementClientTopPropertyInfo = Int64 - type AttrLabel DOMElementClientTopPropertyInfo = "DOMElement::client-top" - attrGet _ = getDOMElementClientTop - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientWidth obj = liftIO $ getObjectPropertyInt64 obj "client-width" - -data DOMElementClientWidthPropertyInfo -instance AttrInfo DOMElementClientWidthPropertyInfo where - type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementClientWidthPropertyInfo = Int64 - type AttrLabel DOMElementClientWidthPropertyInfo = "DOMElement::client-width" - attrGet _ = getDOMElementClientWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "first-element-child" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement - -data DOMElementFirstElementChildPropertyInfo -instance AttrInfo DOMElementFirstElementChildPropertyInfo where - type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK - type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement - type AttrLabel DOMElementFirstElementChildPropertyInfo = "DOMElement::first-element-child" - attrGet _ = getDOMElementFirstElementChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m T.Text -getDOMElementId obj = liftIO $ getObjectPropertyString obj "id" - -setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" val - -constructDOMElementId :: T.Text -> IO ([Char], GValue) -constructDOMElementId val = constructObjectPropertyString "id" val - -data DOMElementIdPropertyInfo -instance AttrInfo DOMElementIdPropertyInfo where - type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMElementIdPropertyInfo = DOMElementK - type AttrGetType DOMElementIdPropertyInfo = T.Text - type AttrLabel DOMElementIdPropertyInfo = "DOMElement::id" - attrGet _ = getDOMElementId - attrSet _ = setDOMElementId - attrConstruct _ = constructDOMElementId - --- VVV Prop "last-element-child" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement - -data DOMElementLastElementChildPropertyInfo -instance AttrInfo DOMElementLastElementChildPropertyInfo where - type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK - type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement - type AttrLabel DOMElementLastElementChildPropertyInfo = "DOMElement::last-element-child" - attrGet _ = getDOMElementLastElementChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "next-element-sibling" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement - -data DOMElementNextElementSiblingPropertyInfo -instance AttrInfo DOMElementNextElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK - type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement - type AttrLabel DOMElementNextElementSiblingPropertyInfo = "DOMElement::next-element-sibling" - attrGet _ = getDOMElementNextElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyInt64 obj "offset-height" - -data DOMElementOffsetHeightPropertyInfo -instance AttrInfo DOMElementOffsetHeightPropertyInfo where - type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetHeightPropertyInfo = Int64 - type AttrLabel DOMElementOffsetHeightPropertyInfo = "DOMElement::offset-height" - attrGet _ = getDOMElementOffsetHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-left" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyInt64 obj "offset-left" - -data DOMElementOffsetLeftPropertyInfo -instance AttrInfo DOMElementOffsetLeftPropertyInfo where - type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetLeftPropertyInfo = Int64 - type AttrLabel DOMElementOffsetLeftPropertyInfo = "DOMElement::offset-left" - attrGet _ = getDOMElementOffsetLeft - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-parent" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementOffsetParent obj = liftIO $ getObjectPropertyObject obj "offset-parent" DOMElement - -data DOMElementOffsetParentPropertyInfo -instance AttrInfo DOMElementOffsetParentPropertyInfo where - type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement - type AttrLabel DOMElementOffsetParentPropertyInfo = "DOMElement::offset-parent" - attrGet _ = getDOMElementOffsetParent - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-top" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetTop obj = liftIO $ getObjectPropertyInt64 obj "offset-top" - -data DOMElementOffsetTopPropertyInfo -instance AttrInfo DOMElementOffsetTopPropertyInfo where - type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetTopPropertyInfo = Int64 - type AttrLabel DOMElementOffsetTopPropertyInfo = "DOMElement::offset-top" - attrGet _ = getDOMElementOffsetTop - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyInt64 obj "offset-width" - -data DOMElementOffsetWidthPropertyInfo -instance AttrInfo DOMElementOffsetWidthPropertyInfo where - type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetWidthPropertyInfo = Int64 - type AttrLabel DOMElementOffsetWidthPropertyInfo = "DOMElement::offset-width" - attrGet _ = getDOMElementOffsetWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "previous-element-sibling" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement - -data DOMElementPreviousElementSiblingPropertyInfo -instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK - type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement - type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "DOMElement::previous-element-sibling" - attrGet _ = getDOMElementPreviousElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scroll-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollHeight obj = liftIO $ getObjectPropertyInt64 obj "scroll-height" - -data DOMElementScrollHeightPropertyInfo -instance AttrInfo DOMElementScrollHeightPropertyInfo where - type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollHeightPropertyInfo = Int64 - type AttrLabel DOMElementScrollHeightPropertyInfo = "DOMElement::scroll-height" - attrGet _ = getDOMElementScrollHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scroll-left" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollLeft obj = liftIO $ getObjectPropertyInt64 obj "scroll-left" - -setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () -setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyInt64 obj "scroll-left" val - -constructDOMElementScrollLeft :: Int64 -> IO ([Char], GValue) -constructDOMElementScrollLeft val = constructObjectPropertyInt64 "scroll-left" val - -data DOMElementScrollLeftPropertyInfo -instance AttrInfo DOMElementScrollLeftPropertyInfo where - type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollLeftPropertyInfo = Int64 - type AttrLabel DOMElementScrollLeftPropertyInfo = "DOMElement::scroll-left" - attrGet _ = getDOMElementScrollLeft - attrSet _ = setDOMElementScrollLeft - attrConstruct _ = constructDOMElementScrollLeft - --- VVV Prop "scroll-top" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollTop obj = liftIO $ getObjectPropertyInt64 obj "scroll-top" - -setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () -setDOMElementScrollTop obj val = liftIO $ setObjectPropertyInt64 obj "scroll-top" val - -constructDOMElementScrollTop :: Int64 -> IO ([Char], GValue) -constructDOMElementScrollTop val = constructObjectPropertyInt64 "scroll-top" val - -data DOMElementScrollTopPropertyInfo -instance AttrInfo DOMElementScrollTopPropertyInfo where - type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollTopPropertyInfo = Int64 - type AttrLabel DOMElementScrollTopPropertyInfo = "DOMElement::scroll-top" - attrGet _ = getDOMElementScrollTop - attrSet _ = setDOMElementScrollTop - attrConstruct _ = constructDOMElementScrollTop - --- VVV Prop "scroll-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollWidth obj = liftIO $ getObjectPropertyInt64 obj "scroll-width" - -data DOMElementScrollWidthPropertyInfo -instance AttrInfo DOMElementScrollWidthPropertyInfo where - type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollWidthPropertyInfo = Int64 - type AttrLabel DOMElementScrollWidthPropertyInfo = "DOMElement::scroll-width" - attrGet _ = getDOMElementScrollWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "style" - -- Type: TInterface "WebKit" "DOMCSSStyleDeclaration" - -- Flags: [PropertyReadable] - -getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m DOMCSSStyleDeclaration -getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration - -data DOMElementStylePropertyInfo -instance AttrInfo DOMElementStylePropertyInfo where - type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK - type AttrGetType DOMElementStylePropertyInfo = DOMCSSStyleDeclaration - type AttrLabel DOMElementStylePropertyInfo = "DOMElement::style" - attrGet _ = getDOMElementStyle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "tag-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m T.Text -getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name" - -data DOMElementTagNamePropertyInfo -instance AttrInfo DOMElementTagNamePropertyInfo where - type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK - type AttrGetType DOMElementTagNamePropertyInfo = T.Text - type AttrLabel DOMElementTagNamePropertyInfo = "DOMElement::tag-name" - attrGet _ = getDOMElementTagName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-region-overset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m T.Text -getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset" - -data DOMElementWebkitRegionOversetPropertyInfo -instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where - type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK - type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = T.Text - type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "DOMElement::webkit-region-overset" - attrGet _ = getDOMElementWebkitRegionOverset - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMElement = '[ '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo)] - -type instance AttributeList DOMEntityReference = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - --- VVV Prop "bubbles" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles" - -data DOMEventBubblesPropertyInfo -instance AttrInfo DOMEventBubblesPropertyInfo where - type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = DOMEventK - type AttrGetType DOMEventBubblesPropertyInfo = Bool - type AttrLabel DOMEventBubblesPropertyInfo = "DOMEvent::bubbles" - attrGet _ = getDOMEventBubbles - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cancel-bubble" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble" - -setDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> Bool -> m () -setDOMEventCancelBubble obj val = liftIO $ setObjectPropertyBool obj "cancel-bubble" val - -constructDOMEventCancelBubble :: Bool -> IO ([Char], GValue) -constructDOMEventCancelBubble val = constructObjectPropertyBool "cancel-bubble" val - -data DOMEventCancelBubblePropertyInfo -instance AttrInfo DOMEventCancelBubblePropertyInfo where - type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = DOMEventK - type AttrGetType DOMEventCancelBubblePropertyInfo = Bool - type AttrLabel DOMEventCancelBubblePropertyInfo = "DOMEvent::cancel-bubble" - attrGet _ = getDOMEventCancelBubble - attrSet _ = setDOMEventCancelBubble - attrConstruct _ = constructDOMEventCancelBubble - --- VVV Prop "cancelable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable" - -data DOMEventCancelablePropertyInfo -instance AttrInfo DOMEventCancelablePropertyInfo where - type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = DOMEventK - type AttrGetType DOMEventCancelablePropertyInfo = Bool - type AttrLabel DOMEventCancelablePropertyInfo = "DOMEvent::cancelable" - attrGet _ = getDOMEventCancelable - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "current-target" - -- Type: TInterface "WebKit" "DOMEventTarget" - -- Flags: [PropertyReadable] - -getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget -getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget - -data DOMEventCurrentTargetPropertyInfo -instance AttrInfo DOMEventCurrentTargetPropertyInfo where - type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget - type AttrLabel DOMEventCurrentTargetPropertyInfo = "DOMEvent::current-target" - attrGet _ = getDOMEventCurrentTarget - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "default-prevented" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" - -data DOMEventDefaultPreventedPropertyInfo -instance AttrInfo DOMEventDefaultPreventedPropertyInfo where - type AttrAllowedOps DOMEventDefaultPreventedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventDefaultPreventedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventDefaultPreventedPropertyInfo = DOMEventK - type AttrGetType DOMEventDefaultPreventedPropertyInfo = Bool - type AttrLabel DOMEventDefaultPreventedPropertyInfo = "DOMEvent::default-prevented" - attrGet _ = getDOMEventDefaultPrevented - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "event-phase" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase" - -data DOMEventEventPhasePropertyInfo -instance AttrInfo DOMEventEventPhasePropertyInfo where - type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = DOMEventK - type AttrGetType DOMEventEventPhasePropertyInfo = Word32 - type AttrLabel DOMEventEventPhasePropertyInfo = "DOMEvent::event-phase" - attrGet _ = getDOMEventEventPhase - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "return-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value" - -setDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> Bool -> m () -setDOMEventReturnValue obj val = liftIO $ setObjectPropertyBool obj "return-value" val - -constructDOMEventReturnValue :: Bool -> IO ([Char], GValue) -constructDOMEventReturnValue val = constructObjectPropertyBool "return-value" val - -data DOMEventReturnValuePropertyInfo -instance AttrInfo DOMEventReturnValuePropertyInfo where - type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = DOMEventK - type AttrGetType DOMEventReturnValuePropertyInfo = Bool - type AttrLabel DOMEventReturnValuePropertyInfo = "DOMEvent::return-value" - attrGet _ = getDOMEventReturnValue - attrSet _ = setDOMEventReturnValue - attrConstruct _ = constructDOMEventReturnValue - --- VVV Prop "src-element" - -- Type: TInterface "WebKit" "DOMEventTarget" - -- Flags: [PropertyReadable] - -getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget -getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget - -data DOMEventSrcElementPropertyInfo -instance AttrInfo DOMEventSrcElementPropertyInfo where - type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK - type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget - type AttrLabel DOMEventSrcElementPropertyInfo = "DOMEvent::src-element" - attrGet _ = getDOMEventSrcElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "target" - -- Type: TInterface "WebKit" "DOMEventTarget" - -- Flags: [PropertyReadable] - -getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget -getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget - -data DOMEventTargetPropertyInfo -instance AttrInfo DOMEventTargetPropertyInfo where - type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget - type AttrLabel DOMEventTargetPropertyInfo = "DOMEvent::target" - attrGet _ = getDOMEventTarget - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "time-stamp" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp" - -data DOMEventTimeStampPropertyInfo -instance AttrInfo DOMEventTimeStampPropertyInfo where - type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = DOMEventK - type AttrGetType DOMEventTimeStampPropertyInfo = Word32 - type AttrLabel DOMEventTimeStampPropertyInfo = "DOMEvent::time-stamp" - attrGet _ = getDOMEventTimeStamp - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text -getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMEventTypePropertyInfo -instance AttrInfo DOMEventTypePropertyInfo where - type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK - type AttrGetType DOMEventTypePropertyInfo = T.Text - type AttrLabel DOMEventTypePropertyInfo = "DOMEvent::type" - attrGet _ = getDOMEventType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] - -type instance AttributeList DOMEventTarget = '[ ] - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m T.Text -getDOMFileName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMFileNamePropertyInfo -instance AttrInfo DOMFileNamePropertyInfo where - type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK - type AttrGetType DOMFileNamePropertyInfo = T.Text - type AttrLabel DOMFileNamePropertyInfo = "DOMFile::name" - attrGet _ = getDOMFileName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-relative-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMFileWebkitRelativePath :: (MonadIO m, DOMFileK o) => o -> m T.Text -getDOMFileWebkitRelativePath obj = liftIO $ getObjectPropertyString obj "webkit-relative-path" - -data DOMFileWebkitRelativePathPropertyInfo -instance AttrInfo DOMFileWebkitRelativePathPropertyInfo where - type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMFileWebkitRelativePathPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMFileWebkitRelativePathPropertyInfo = DOMFileK - type AttrGetType DOMFileWebkitRelativePathPropertyInfo = T.Text - type AttrLabel DOMFileWebkitRelativePathPropertyInfo = "DOMFile::webkit-relative-path" - attrGet _ = getDOMFileWebkitRelativePath - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMFile = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo), '("webkit-relative-path", DOMFileWebkitRelativePathPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m Word64 -getDOMFileListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMFileListLengthPropertyInfo -instance AttrInfo DOMFileListLengthPropertyInfo where - type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK - type AttrGetType DOMFileListLengthPropertyInfo = Word64 - type AttrLabel DOMFileListLengthPropertyInfo = "DOMFileList::length" - attrGet _ = getDOMFileListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMFileList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMGamepadId :: (MonadIO m, DOMGamepadK o) => o -> m T.Text -getDOMGamepadId obj = liftIO $ getObjectPropertyString obj "id" - -data DOMGamepadIdPropertyInfo -instance AttrInfo DOMGamepadIdPropertyInfo where - type AttrAllowedOps DOMGamepadIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMGamepadIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMGamepadIdPropertyInfo = DOMGamepadK - type AttrGetType DOMGamepadIdPropertyInfo = T.Text - type AttrLabel DOMGamepadIdPropertyInfo = "DOMGamepad::id" - attrGet _ = getDOMGamepadId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "index" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMGamepadIndex :: (MonadIO m, DOMGamepadK o) => o -> m Word64 -getDOMGamepadIndex obj = liftIO $ getObjectPropertyUInt64 obj "index" - -data DOMGamepadIndexPropertyInfo -instance AttrInfo DOMGamepadIndexPropertyInfo where - type AttrAllowedOps DOMGamepadIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMGamepadIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMGamepadIndexPropertyInfo = DOMGamepadK - type AttrGetType DOMGamepadIndexPropertyInfo = Word64 - type AttrLabel DOMGamepadIndexPropertyInfo = "DOMGamepad::index" - attrGet _ = getDOMGamepadIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "timestamp" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMGamepadTimestamp :: (MonadIO m, DOMGamepadK o) => o -> m Word64 -getDOMGamepadTimestamp obj = liftIO $ getObjectPropertyUInt64 obj "timestamp" - -data DOMGamepadTimestampPropertyInfo -instance AttrInfo DOMGamepadTimestampPropertyInfo where - type AttrAllowedOps DOMGamepadTimestampPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMGamepadTimestampPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMGamepadTimestampPropertyInfo = DOMGamepadK - type AttrGetType DOMGamepadTimestampPropertyInfo = Word64 - type AttrLabel DOMGamepadTimestampPropertyInfo = "DOMGamepad::timestamp" - attrGet _ = getDOMGamepadTimestamp - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMGamepad = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMGamepadIdPropertyInfo), '("index", DOMGamepadIndexPropertyInfo), '("timestamp", DOMGamepadTimestampPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m Word64 -getDOMGamepadListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMGamepadListLengthPropertyInfo -instance AttrInfo DOMGamepadListLengthPropertyInfo where - type AttrAllowedOps DOMGamepadListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMGamepadListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMGamepadListLengthPropertyInfo = DOMGamepadListK - type AttrGetType DOMGamepadListLengthPropertyInfo = Word64 - type AttrLabel DOMGamepadListLengthPropertyInfo = "DOMGamepadList::length" - attrGet _ = getDOMGamepadListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMGamepadList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMGamepadListLengthPropertyInfo)] - -type instance AttributeList DOMGeolocation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val - -constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" val - -data DOMHTMLAnchorElementCharsetPropertyInfo -instance AttrInfo DOMHTMLAnchorElementCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "DOMHTMLAnchorElement::charset" - attrGet _ = getDOMHTMLAnchorElementCharset - attrSet _ = setDOMHTMLAnchorElementCharset - attrConstruct _ = constructDOMHTMLAnchorElementCharset - --- VVV Prop "coords" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords" - -setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val - -constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" val - -data DOMHTMLAnchorElementCoordsPropertyInfo -instance AttrInfo DOMHTMLAnchorElementCoordsPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "DOMHTMLAnchorElement::coords" - attrGet _ = getDOMHTMLAnchorElementCoords - attrSet _ = setDOMHTMLAnchorElementCoords - attrConstruct _ = constructDOMHTMLAnchorElementCoords - --- VVV Prop "download" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download" - -setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" val - -constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" val - -data DOMHTMLAnchorElementDownloadPropertyInfo -instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "DOMHTMLAnchorElement::download" - attrGet _ = getDOMHTMLAnchorElementDownload - attrSet _ = setDOMHTMLAnchorElementDownload - attrConstruct _ = constructDOMHTMLAnchorElementDownload - --- VVV Prop "hash" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash" - -setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" val - -constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" val - -data DOMHTMLAnchorElementHashPropertyInfo -instance AttrInfo DOMHTMLAnchorElementHashPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementHashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "DOMHTMLAnchorElement::hash" - attrGet _ = getDOMHTMLAnchorElementHash - attrSet _ = setDOMHTMLAnchorElementHash - attrConstruct _ = constructDOMHTMLAnchorElementHash - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host" - -setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" val - -constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" val - -data DOMHTMLAnchorElementHostPropertyInfo -instance AttrInfo DOMHTMLAnchorElementHostPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "DOMHTMLAnchorElement::host" - attrGet _ = getDOMHTMLAnchorElementHost - attrSet _ = setDOMHTMLAnchorElementHost - attrConstruct _ = constructDOMHTMLAnchorElementHost - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" - -setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" val - -constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" val - -data DOMHTMLAnchorElementHostnamePropertyInfo -instance AttrInfo DOMHTMLAnchorElementHostnamePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementHostnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "DOMHTMLAnchorElement::hostname" - attrGet _ = getDOMHTMLAnchorElementHostname - attrSet _ = setDOMHTMLAnchorElementHostname - attrConstruct _ = constructDOMHTMLAnchorElementHostname - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" val - -constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" val - -data DOMHTMLAnchorElementHrefPropertyInfo -instance AttrInfo DOMHTMLAnchorElementHrefPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "DOMHTMLAnchorElement::href" - attrGet _ = getDOMHTMLAnchorElementHref - attrSet _ = setDOMHTMLAnchorElementHref - attrConstruct _ = constructDOMHTMLAnchorElementHref - --- VVV Prop "hreflang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" - -setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val - -constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" val - -data DOMHTMLAnchorElementHreflangPropertyInfo -instance AttrInfo DOMHTMLAnchorElementHreflangPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "DOMHTMLAnchorElement::hreflang" - attrGet _ = getDOMHTMLAnchorElementHreflang - attrSet _ = setDOMHTMLAnchorElementHreflang - attrConstruct _ = constructDOMHTMLAnchorElementHreflang - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" val - -data DOMHTMLAnchorElementNamePropertyInfo -instance AttrInfo DOMHTMLAnchorElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "DOMHTMLAnchorElement::name" - attrGet _ = getDOMHTMLAnchorElementName - attrSet _ = setDOMHTMLAnchorElementName - attrConstruct _ = constructDOMHTMLAnchorElementName - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -data DOMHTMLAnchorElementOriginPropertyInfo -instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "DOMHTMLAnchorElement::origin" - attrGet _ = getDOMHTMLAnchorElementOrigin - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pathname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" - -setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" val - -constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" val - -data DOMHTMLAnchorElementPathnamePropertyInfo -instance AttrInfo DOMHTMLAnchorElementPathnamePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementPathnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "DOMHTMLAnchorElement::pathname" - attrGet _ = getDOMHTMLAnchorElementPathname - attrSet _ = setDOMHTMLAnchorElementPathname - attrConstruct _ = constructDOMHTMLAnchorElementPathname - --- VVV Prop "ping" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping" - -setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val - -constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" val - -data DOMHTMLAnchorElementPingPropertyInfo -instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "DOMHTMLAnchorElement::ping" - attrGet _ = getDOMHTMLAnchorElementPing - attrSet _ = setDOMHTMLAnchorElementPing - attrConstruct _ = constructDOMHTMLAnchorElementPing - --- VVV Prop "port" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port" - -setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" val - -constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" val - -data DOMHTMLAnchorElementPortPropertyInfo -instance AttrInfo DOMHTMLAnchorElementPortPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "DOMHTMLAnchorElement::port" - attrGet _ = getDOMHTMLAnchorElementPort - attrSet _ = setDOMHTMLAnchorElementPort - attrConstruct _ = constructDOMHTMLAnchorElementPort - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" val - -constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" val - -data DOMHTMLAnchorElementProtocolPropertyInfo -instance AttrInfo DOMHTMLAnchorElementProtocolPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "DOMHTMLAnchorElement::protocol" - attrGet _ = getDOMHTMLAnchorElementProtocol - attrSet _ = setDOMHTMLAnchorElementProtocol - attrConstruct _ = constructDOMHTMLAnchorElementProtocol - --- VVV Prop "rel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel" - -setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val - -constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" val - -data DOMHTMLAnchorElementRelPropertyInfo -instance AttrInfo DOMHTMLAnchorElementRelPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "DOMHTMLAnchorElement::rel" - attrGet _ = getDOMHTMLAnchorElementRel - attrSet _ = setDOMHTMLAnchorElementRel - attrConstruct _ = constructDOMHTMLAnchorElementRel - --- VVV Prop "rev" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev" - -setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val - -constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" val - -data DOMHTMLAnchorElementRevPropertyInfo -instance AttrInfo DOMHTMLAnchorElementRevPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "DOMHTMLAnchorElement::rev" - attrGet _ = getDOMHTMLAnchorElementRev - attrSet _ = setDOMHTMLAnchorElementRev - attrConstruct _ = constructDOMHTMLAnchorElementRev - --- VVV Prop "search" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search" - -setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" val - -constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" val - -data DOMHTMLAnchorElementSearchPropertyInfo -instance AttrInfo DOMHTMLAnchorElementSearchPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "DOMHTMLAnchorElement::search" - attrGet _ = getDOMHTMLAnchorElementSearch - attrSet _ = setDOMHTMLAnchorElementSearch - attrConstruct _ = constructDOMHTMLAnchorElementSearch - --- VVV Prop "shape" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape" - -setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val - -constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" val - -data DOMHTMLAnchorElementShapePropertyInfo -instance AttrInfo DOMHTMLAnchorElementShapePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "DOMHTMLAnchorElement::shape" - attrGet _ = getDOMHTMLAnchorElementShape - attrSet _ = setDOMHTMLAnchorElementShape - attrConstruct _ = constructDOMHTMLAnchorElementShape - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val - -constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" val - -data DOMHTMLAnchorElementTargetPropertyInfo -instance AttrInfo DOMHTMLAnchorElementTargetPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "DOMHTMLAnchorElement::target" - attrGet _ = getDOMHTMLAnchorElementTarget - attrSet _ = setDOMHTMLAnchorElementTarget - attrConstruct _ = constructDOMHTMLAnchorElementTarget - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text" - -data DOMHTMLAnchorElementTextPropertyInfo -instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "DOMHTMLAnchorElement::text" - attrGet _ = getDOMHTMLAnchorElementText - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text -getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" val - -data DOMHTMLAnchorElementTypePropertyInfo -instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "DOMHTMLAnchorElement::type" - attrGet _ = getDOMHTMLAnchorElementType - attrSet _ = setDOMHTMLAnchorElementType - attrConstruct _ = constructDOMHTMLAnchorElementType - -type instance AttributeList DOMHTMLAnchorElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLAppletElementAlignPropertyInfo -instance AttrInfo DOMHTMLAppletElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "DOMHTMLAppletElement::align" - attrGet _ = getDOMHTMLAppletElementAlign - attrSet _ = setDOMHTMLAppletElementAlign - attrConstruct _ = constructDOMHTMLAppletElementAlign - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val - -constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" val - -data DOMHTMLAppletElementAltPropertyInfo -instance AttrInfo DOMHTMLAppletElementAltPropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementAltPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementAltPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementAltPropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "DOMHTMLAppletElement::alt" - attrGet _ = getDOMHTMLAppletElementAlt - attrSet _ = setDOMHTMLAppletElementAlt - attrConstruct _ = constructDOMHTMLAppletElementAlt - --- VVV Prop "archive" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive" - -setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val - -constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" val - -data DOMHTMLAppletElementArchivePropertyInfo -instance AttrInfo DOMHTMLAppletElementArchivePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "DOMHTMLAppletElement::archive" - attrGet _ = getDOMHTMLAppletElementArchive - attrSet _ = setDOMHTMLAppletElementArchive - attrConstruct _ = constructDOMHTMLAppletElementArchive - --- VVV Prop "code" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code" - -setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" val - -constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" val - -data DOMHTMLAppletElementCodePropertyInfo -instance AttrInfo DOMHTMLAppletElementCodePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementCodePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementCodePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementCodePropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "DOMHTMLAppletElement::code" - attrGet _ = getDOMHTMLAppletElementCode - attrSet _ = setDOMHTMLAppletElementCode - attrConstruct _ = constructDOMHTMLAppletElementCode - --- VVV Prop "code-base" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" - -setDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val - -constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" val - -data DOMHTMLAppletElementCodeBasePropertyInfo -instance AttrInfo DOMHTMLAppletElementCodeBasePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "DOMHTMLAppletElement::code-base" - attrGet _ = getDOMHTMLAppletElementCodeBase - attrSet _ = setDOMHTMLAppletElementCodeBase - attrConstruct _ = constructDOMHTMLAppletElementCodeBase - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val - -constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" val - -data DOMHTMLAppletElementHeightPropertyInfo -instance AttrInfo DOMHTMLAppletElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "DOMHTMLAppletElement::height" - attrGet _ = getDOMHTMLAppletElementHeight - attrSet _ = setDOMHTMLAppletElementHeight - attrConstruct _ = constructDOMHTMLAppletElementHeight - --- VVV Prop "hspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 -getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" - -setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () -setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val - -constructDOMHTMLAppletElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLAppletElementHspace val = constructObjectPropertyInt64 "hspace" val - -data DOMHTMLAppletElementHspacePropertyInfo -instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = Int64 - type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "DOMHTMLAppletElement::hspace" - attrGet _ = getDOMHTMLAppletElementHspace - attrSet _ = setDOMHTMLAppletElementHspace - attrConstruct _ = constructDOMHTMLAppletElementHspace - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" val - -data DOMHTMLAppletElementNamePropertyInfo -instance AttrInfo DOMHTMLAppletElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementNamePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "DOMHTMLAppletElement::name" - attrGet _ = getDOMHTMLAppletElementName - attrSet _ = setDOMHTMLAppletElementName - attrConstruct _ = constructDOMHTMLAppletElementName - --- VVV Prop "object" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object" - -setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" val - -constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" val - -data DOMHTMLAppletElementObjectPropertyInfo -instance AttrInfo DOMHTMLAppletElementObjectPropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "DOMHTMLAppletElement::object" - attrGet _ = getDOMHTMLAppletElementObject - attrSet _ = setDOMHTMLAppletElementObject - attrConstruct _ = constructDOMHTMLAppletElementObject - --- VVV Prop "vspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 -getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" - -setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () -setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val - -constructDOMHTMLAppletElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLAppletElementVspace val = constructObjectPropertyInt64 "vspace" val - -data DOMHTMLAppletElementVspacePropertyInfo -instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = Int64 - type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "DOMHTMLAppletElement::vspace" - attrGet _ = getDOMHTMLAppletElementVspace - attrSet _ = setDOMHTMLAppletElementVspace - attrConstruct _ = constructDOMHTMLAppletElementVspace - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text -getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLAppletElementWidthPropertyInfo -instance AttrInfo DOMHTMLAppletElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "DOMHTMLAppletElement::width" - attrGet _ = getDOMHTMLAppletElementWidth - attrSet _ = setDOMHTMLAppletElementWidth - attrConstruct _ = constructDOMHTMLAppletElementWidth - -type instance AttributeList DOMHTMLAppletElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("code-base", DOMHTMLAppletElementCodeBasePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val - -constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" val - -data DOMHTMLAreaElementAltPropertyInfo -instance AttrInfo DOMHTMLAreaElementAltPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementAltPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementAltPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementAltPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "DOMHTMLAreaElement::alt" - attrGet _ = getDOMHTMLAreaElementAlt - attrSet _ = setDOMHTMLAreaElementAlt - attrConstruct _ = constructDOMHTMLAreaElementAlt - --- VVV Prop "coords" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords" - -setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val - -constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" val - -data DOMHTMLAreaElementCoordsPropertyInfo -instance AttrInfo DOMHTMLAreaElementCoordsPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "DOMHTMLAreaElement::coords" - attrGet _ = getDOMHTMLAreaElementCoords - attrSet _ = setDOMHTMLAreaElementCoords - attrConstruct _ = constructDOMHTMLAreaElementCoords - --- VVV Prop "hash" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash" - -data DOMHTMLAreaElementHashPropertyInfo -instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHashPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "DOMHTMLAreaElement::hash" - attrGet _ = getDOMHTMLAreaElementHash - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host" - -data DOMHTMLAreaElementHostPropertyInfo -instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "DOMHTMLAreaElement::host" - attrGet _ = getDOMHTMLAreaElementHost - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" - -data DOMHTMLAreaElementHostnamePropertyInfo -instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "DOMHTMLAreaElement::hostname" - attrGet _ = getDOMHTMLAreaElementHostname - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" val - -constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" val - -data DOMHTMLAreaElementHrefPropertyInfo -instance AttrInfo DOMHTMLAreaElementHrefPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "DOMHTMLAreaElement::href" - attrGet _ = getDOMHTMLAreaElementHref - attrSet _ = setDOMHTMLAreaElementHref - attrConstruct _ = constructDOMHTMLAreaElementHref - --- VVV Prop "no-href" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m Bool -getDOMHTMLAreaElementNoHref obj = liftIO $ getObjectPropertyBool obj "no-href" - -setDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> Bool -> m () -setDOMHTMLAreaElementNoHref obj val = liftIO $ setObjectPropertyBool obj "no-href" val - -constructDOMHTMLAreaElementNoHref :: Bool -> IO ([Char], GValue) -constructDOMHTMLAreaElementNoHref val = constructObjectPropertyBool "no-href" val - -data DOMHTMLAreaElementNoHrefPropertyInfo -instance AttrInfo DOMHTMLAreaElementNoHrefPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementNoHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementNoHrefPropertyInfo = Bool - type AttrLabel DOMHTMLAreaElementNoHrefPropertyInfo = "DOMHTMLAreaElement::no-href" - attrGet _ = getDOMHTMLAreaElementNoHref - attrSet _ = setDOMHTMLAreaElementNoHref - attrConstruct _ = constructDOMHTMLAreaElementNoHref - --- VVV Prop "pathname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" - -data DOMHTMLAreaElementPathnamePropertyInfo -instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "DOMHTMLAreaElement::pathname" - attrGet _ = getDOMHTMLAreaElementPathname - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ping" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping" - -setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val - -constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" val - -data DOMHTMLAreaElementPingPropertyInfo -instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPingPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "DOMHTMLAreaElement::ping" - attrGet _ = getDOMHTMLAreaElementPing - attrSet _ = setDOMHTMLAreaElementPing - attrConstruct _ = constructDOMHTMLAreaElementPing - --- VVV Prop "port" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port" - -data DOMHTMLAreaElementPortPropertyInfo -instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPortPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "DOMHTMLAreaElement::port" - attrGet _ = getDOMHTMLAreaElementPort - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -data DOMHTMLAreaElementProtocolPropertyInfo -instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "DOMHTMLAreaElement::protocol" - attrGet _ = getDOMHTMLAreaElementProtocol - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "search" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search" - -data DOMHTMLAreaElementSearchPropertyInfo -instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "DOMHTMLAreaElement::search" - attrGet _ = getDOMHTMLAreaElementSearch - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "shape" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape" - -setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val - -constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" val - -data DOMHTMLAreaElementShapePropertyInfo -instance AttrInfo DOMHTMLAreaElementShapePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementShapePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementShapePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementShapePropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "DOMHTMLAreaElement::shape" - attrGet _ = getDOMHTMLAreaElementShape - attrSet _ = setDOMHTMLAreaElementShape - attrConstruct _ = constructDOMHTMLAreaElementShape - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text -getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val - -constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" val - -data DOMHTMLAreaElementTargetPropertyInfo -instance AttrInfo DOMHTMLAreaElementTargetPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "DOMHTMLAreaElement::target" - attrGet _ = getDOMHTMLAreaElementTarget - attrSet _ = setDOMHTMLAreaElementTarget - attrConstruct _ = constructDOMHTMLAreaElementTarget - -type instance AttributeList DOMHTMLAreaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-href", DOMHTMLAreaElementNoHrefPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - -type instance AttributeList DOMHTMLAudioElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "clear" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m T.Text -getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear" - -setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m () -setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" val - -constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" val - -data DOMHTMLBRElementClearPropertyInfo -instance AttrInfo DOMHTMLBRElementClearPropertyInfo where - type AttrAllowedOps DOMHTMLBRElementClearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBRElementClearPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBRElementClearPropertyInfo = DOMHTMLBRElementK - type AttrGetType DOMHTMLBRElementClearPropertyInfo = T.Text - type AttrLabel DOMHTMLBRElementClearPropertyInfo = "DOMHTMLBRElement::clear" - attrGet _ = getDOMHTMLBRElementClear - attrSet _ = setDOMHTMLBRElementClear - attrConstruct _ = constructDOMHTMLBRElementClear - -type instance AttributeList DOMHTMLBRElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text -getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" val - -constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" val - -data DOMHTMLBaseElementHrefPropertyInfo -instance AttrInfo DOMHTMLBaseElementHrefPropertyInfo where - type AttrAllowedOps DOMHTMLBaseElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = DOMHTMLBaseElementK - type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = T.Text - type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "DOMHTMLBaseElement::href" - attrGet _ = getDOMHTMLBaseElementHref - attrSet _ = setDOMHTMLBaseElementHref - attrConstruct _ = constructDOMHTMLBaseElementHref - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text -getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val - -constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" val - -data DOMHTMLBaseElementTargetPropertyInfo -instance AttrInfo DOMHTMLBaseElementTargetPropertyInfo where - type AttrAllowedOps DOMHTMLBaseElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = DOMHTMLBaseElementK - type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "DOMHTMLBaseElement::target" - attrGet _ = getDOMHTMLBaseElementTarget - attrSet _ = setDOMHTMLBaseElementTarget - attrConstruct _ = constructDOMHTMLBaseElementTarget - -type instance AttributeList DOMHTMLBaseElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text -getDOMHTMLBaseFontElementColor obj = liftIO $ getObjectPropertyString obj "color" - -setDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () -setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val - -constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" val - -data DOMHTMLBaseFontElementColorPropertyInfo -instance AttrInfo DOMHTMLBaseFontElementColorPropertyInfo where - type AttrAllowedOps DOMHTMLBaseFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = T.Text - type AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "DOMHTMLBaseFontElement::color" - attrGet _ = getDOMHTMLBaseFontElementColor - attrSet _ = setDOMHTMLBaseFontElementColor - attrConstruct _ = constructDOMHTMLBaseFontElementColor - --- VVV Prop "face" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text -getDOMHTMLBaseFontElementFace obj = liftIO $ getObjectPropertyString obj "face" - -setDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () -setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val - -constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" val - -data DOMHTMLBaseFontElementFacePropertyInfo -instance AttrInfo DOMHTMLBaseFontElementFacePropertyInfo where - type AttrAllowedOps DOMHTMLBaseFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = T.Text - type AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "DOMHTMLBaseFontElement::face" - attrGet _ = getDOMHTMLBaseFontElementFace - attrSet _ = setDOMHTMLBaseFontElementFace - attrConstruct _ = constructDOMHTMLBaseFontElementFace - --- VVV Prop "size" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64 -getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" - -setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m () -setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val - -constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val - -data DOMHTMLBaseFontElementSizePropertyInfo -instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64 - type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "DOMHTMLBaseFontElement::size" - attrGet _ = getDOMHTMLBaseFontElementSize - attrSet _ = setDOMHTMLBaseFontElementSize - attrConstruct _ = constructDOMHTMLBaseFontElementSize - -type instance AttributeList DOMHTMLBaseFontElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLBaseFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLBaseFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLBaseFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "a-link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementALink obj = liftIO $ getObjectPropertyString obj "a-link" - -setDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" val - -constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" val - -data DOMHTMLBodyElementALinkPropertyInfo -instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "DOMHTMLBodyElement::a-link" - attrGet _ = getDOMHTMLBodyElementALink - attrSet _ = setDOMHTMLBodyElementALink - attrConstruct _ = constructDOMHTMLBodyElementALink - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background" - -setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" val - -constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" val - -data DOMHTMLBodyElementBackgroundPropertyInfo -instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "DOMHTMLBodyElement::background" - attrGet _ = getDOMHTMLBodyElementBackground - attrSet _ = setDOMHTMLBodyElementBackground - attrConstruct _ = constructDOMHTMLBodyElementBackground - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLBodyElementBgColorPropertyInfo -instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "DOMHTMLBodyElement::bg-color" - attrGet _ = getDOMHTMLBodyElementBgColor - attrSet _ = setDOMHTMLBodyElementBgColor - attrConstruct _ = constructDOMHTMLBodyElementBgColor - --- VVV Prop "link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link" - -setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" val - -constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" val - -data DOMHTMLBodyElementLinkPropertyInfo -instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "DOMHTMLBodyElement::link" - attrGet _ = getDOMHTMLBodyElementLink - attrSet _ = setDOMHTMLBodyElementLink - attrConstruct _ = constructDOMHTMLBodyElementLink - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" val - -data DOMHTMLBodyElementTextPropertyInfo -instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementTextPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "DOMHTMLBodyElement::text" - attrGet _ = getDOMHTMLBodyElementText - attrSet _ = setDOMHTMLBodyElementText - attrConstruct _ = constructDOMHTMLBodyElementText - --- VVV Prop "v-link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text -getDOMHTMLBodyElementVLink obj = liftIO $ getObjectPropertyString obj "v-link" - -setDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" val - -constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" val - -data DOMHTMLBodyElementVLinkPropertyInfo -instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where - type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = T.Text - type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "DOMHTMLBodyElement::v-link" - attrGet _ = getDOMHTMLBodyElementVLink - attrSet _ = setDOMHTMLBodyElementVLink - attrConstruct _ = constructDOMHTMLBodyElementVLink - -type instance AttributeList DOMHTMLBodyElement = '[ '("a-link", DOMHTMLBodyElementALinkPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLBodyElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-link", DOMHTMLBodyElementVLinkPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool -getDOMHTMLButtonElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" - -setDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () -setDOMHTMLButtonElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val - -constructDOMHTMLButtonElementAutofocus :: Bool -> IO ([Char], GValue) -constructDOMHTMLButtonElementAutofocus val = constructObjectPropertyBool "autofocus" val - -data DOMHTMLButtonElementAutofocusPropertyInfo -instance AttrInfo DOMHTMLButtonElementAutofocusPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementAutofocusPropertyInfo = Bool - type AttrLabel DOMHTMLButtonElementAutofocusPropertyInfo = "DOMHTMLButtonElement::autofocus" - attrGet _ = getDOMHTMLButtonElementAutofocus - attrSet _ = setDOMHTMLButtonElementAutofocus - attrConstruct _ = constructDOMHTMLButtonElementAutofocus - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool -getDOMHTMLButtonElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () -setDOMHTMLButtonElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLButtonElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLButtonElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLButtonElementDisabledPropertyInfo -instance AttrInfo DOMHTMLButtonElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLButtonElementDisabledPropertyInfo = "DOMHTMLButtonElement::disabled" - attrGet _ = getDOMHTMLButtonElementDisabled - attrSet _ = setDOMHTMLButtonElementDisabled - attrConstruct _ = constructDOMHTMLButtonElementDisabled - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLButtonElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLButtonElementFormPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLButtonElementFormPropertyInfo = "DOMHTMLButtonElement::form" - attrGet _ = getDOMHTMLButtonElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "form-action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" - -setDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val - -constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" val - -data DOMHTMLButtonElementFormActionPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "DOMHTMLButtonElement::form-action" - attrGet _ = getDOMHTMLButtonElementFormAction - attrSet _ = setDOMHTMLButtonElementFormAction - attrConstruct _ = constructDOMHTMLButtonElementFormAction - --- VVV Prop "form-enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" - -setDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val - -constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" val - -data DOMHTMLButtonElementFormEnctypePropertyInfo -instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "DOMHTMLButtonElement::form-enctype" - attrGet _ = getDOMHTMLButtonElementFormEnctype - attrSet _ = setDOMHTMLButtonElementFormEnctype - attrConstruct _ = constructDOMHTMLButtonElementFormEnctype - --- VVV Prop "form-method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" - -setDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val - -constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" val - -data DOMHTMLButtonElementFormMethodPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "DOMHTMLButtonElement::form-method" - attrGet _ = getDOMHTMLButtonElementFormMethod - attrSet _ = setDOMHTMLButtonElementFormMethod - attrConstruct _ = constructDOMHTMLButtonElementFormMethod - --- VVV Prop "form-no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool -getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" - -setDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () -setDOMHTMLButtonElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val - -constructDOMHTMLButtonElementFormNoValidate :: Bool -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val - -data DOMHTMLButtonElementFormNoValidatePropertyInfo -instance AttrInfo DOMHTMLButtonElementFormNoValidatePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormNoValidatePropertyInfo = Bool - type AttrLabel DOMHTMLButtonElementFormNoValidatePropertyInfo = "DOMHTMLButtonElement::form-no-validate" - attrGet _ = getDOMHTMLButtonElementFormNoValidate - attrSet _ = setDOMHTMLButtonElementFormNoValidate - attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate - --- VVV Prop "form-target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" - -setDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val - -constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" val - -data DOMHTMLButtonElementFormTargetPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "DOMHTMLButtonElement::form-target" - attrGet _ = getDOMHTMLButtonElementFormTarget - attrSet _ = setDOMHTMLButtonElementFormTarget - attrConstruct _ = constructDOMHTMLButtonElementFormTarget - --- VVV Prop "labels" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMNodeList -getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLButtonElementLabelsPropertyInfo -instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = DOMNodeList - type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "DOMHTMLButtonElement::labels" - attrGet _ = getDOMHTMLButtonElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" val - -data DOMHTMLButtonElementNamePropertyInfo -instance AttrInfo DOMHTMLButtonElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementNamePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "DOMHTMLButtonElement::name" - attrGet _ = getDOMHTMLButtonElementName - attrSet _ = setDOMHTMLButtonElementName - attrConstruct _ = constructDOMHTMLButtonElementName - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" val - -data DOMHTMLButtonElementTypePropertyInfo -instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "DOMHTMLButtonElement::type" - attrGet _ = getDOMHTMLButtonElementType - attrSet _ = setDOMHTMLButtonElementType - attrConstruct _ = constructDOMHTMLButtonElementType - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLButtonElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "DOMHTMLButtonElement::validation-message" - attrGet _ = getDOMHTMLButtonElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLButtonElementValidity :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMValidityState -getDOMHTMLButtonElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLButtonElementValidityPropertyInfo -instance AttrInfo DOMHTMLButtonElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLButtonElementValidityPropertyInfo = "DOMHTMLButtonElement::validity" - attrGet _ = getDOMHTMLButtonElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text -getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLButtonElementValuePropertyInfo -instance AttrInfo DOMHTMLButtonElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementValuePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "DOMHTMLButtonElement::value" - attrGet _ = getDOMHTMLButtonElementValue - attrSet _ = setDOMHTMLButtonElementValue - attrConstruct _ = constructDOMHTMLButtonElementValue - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLButtonElementWillValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool -getDOMHTMLButtonElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLButtonElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLButtonElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLButtonElementWillValidatePropertyInfo = "DOMHTMLButtonElement::will-validate" - attrGet _ = getDOMHTMLButtonElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLButtonElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("form-action", DOMHTMLButtonElementFormActionPropertyInfo), '("form-enctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("form-method", DOMHTMLButtonElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validation-message", DOMHTMLButtonElementValidationMessagePropertyInfo), '("validity", DOMHTMLButtonElementValidityPropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLButtonElementWillValidatePropertyInfo)] - --- VVV Prop "height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 -getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" - -setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () -setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val - -constructDOMHTMLCanvasElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLCanvasElementHeight val = constructObjectPropertyInt64 "height" val - -data DOMHTMLCanvasElementHeightPropertyInfo -instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "DOMHTMLCanvasElement::height" - attrGet _ = getDOMHTMLCanvasElementHeight - attrSet _ = setDOMHTMLCanvasElementHeight - attrConstruct _ = constructDOMHTMLCanvasElementHeight - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 -getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () -setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val - -constructDOMHTMLCanvasElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLCanvasElementWidth val = constructObjectPropertyInt64 "width" val - -data DOMHTMLCanvasElementWidthPropertyInfo -instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "DOMHTMLCanvasElement::width" - attrGet _ = getDOMHTMLCanvasElementWidth - attrSet _ = setDOMHTMLCanvasElementWidth - attrConstruct _ = constructDOMHTMLCanvasElementWidth - -type instance AttributeList DOMHTMLCanvasElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m Word64 -getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMHTMLCollectionLengthPropertyInfo -instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where - type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK - type AttrGetType DOMHTMLCollectionLengthPropertyInfo = Word64 - type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "DOMHTMLCollection::length" - attrGet _ = getDOMHTMLCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> m Bool -getDOMHTMLDListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" - -setDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> Bool -> m () -setDOMHTMLDListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val - -constructDOMHTMLDListElementCompact :: Bool -> IO ([Char], GValue) -constructDOMHTMLDListElementCompact val = constructObjectPropertyBool "compact" val - -data DOMHTMLDListElementCompactPropertyInfo -instance AttrInfo DOMHTMLDListElementCompactPropertyInfo where - type AttrAllowedOps DOMHTMLDListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDListElementCompactPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLDListElementCompactPropertyInfo = DOMHTMLDListElementK - type AttrGetType DOMHTMLDListElementCompactPropertyInfo = Bool - type AttrLabel DOMHTMLDListElementCompactPropertyInfo = "DOMHTMLDListElement::compact" - attrGet _ = getDOMHTMLDListElementCompact - attrSet _ = setDOMHTMLDListElementCompact - attrConstruct _ = constructDOMHTMLDListElementCompact - -type instance AttributeList DOMHTMLDListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "open" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> m Bool -getDOMHTMLDetailsElementOpen obj = liftIO $ getObjectPropertyBool obj "open" - -setDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> Bool -> m () -setDOMHTMLDetailsElementOpen obj val = liftIO $ setObjectPropertyBool obj "open" val - -constructDOMHTMLDetailsElementOpen :: Bool -> IO ([Char], GValue) -constructDOMHTMLDetailsElementOpen val = constructObjectPropertyBool "open" val - -data DOMHTMLDetailsElementOpenPropertyInfo -instance AttrInfo DOMHTMLDetailsElementOpenPropertyInfo where - type AttrAllowedOps DOMHTMLDetailsElementOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = DOMHTMLDetailsElementK - type AttrGetType DOMHTMLDetailsElementOpenPropertyInfo = Bool - type AttrLabel DOMHTMLDetailsElementOpenPropertyInfo = "DOMHTMLDetailsElement::open" - attrGet _ = getDOMHTMLDetailsElementOpen - attrSet _ = setDOMHTMLDetailsElementOpen - attrConstruct _ = constructDOMHTMLDetailsElementOpen - -type instance AttributeList DOMHTMLDetailsElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("open", DOMHTMLDetailsElementOpenPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> m Bool -getDOMHTMLDirectoryElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" - -setDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> Bool -> m () -setDOMHTMLDirectoryElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val - -constructDOMHTMLDirectoryElementCompact :: Bool -> IO ([Char], GValue) -constructDOMHTMLDirectoryElementCompact val = constructObjectPropertyBool "compact" val - -data DOMHTMLDirectoryElementCompactPropertyInfo -instance AttrInfo DOMHTMLDirectoryElementCompactPropertyInfo where - type AttrAllowedOps DOMHTMLDirectoryElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = DOMHTMLDirectoryElementK - type AttrGetType DOMHTMLDirectoryElementCompactPropertyInfo = Bool - type AttrLabel DOMHTMLDirectoryElementCompactPropertyInfo = "DOMHTMLDirectoryElement::compact" - attrGet _ = getDOMHTMLDirectoryElementCompact - attrSet _ = setDOMHTMLDirectoryElementCompact - attrConstruct _ = constructDOMHTMLDirectoryElementCompact - -type instance AttributeList DOMHTMLDirectoryElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m T.Text -getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m () -setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLDivElementAlignPropertyInfo -instance AttrInfo DOMHTMLDivElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLDivElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDivElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDivElementAlignPropertyInfo = DOMHTMLDivElementK - type AttrGetType DOMHTMLDivElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "DOMHTMLDivElement::align" - attrGet _ = getDOMHTMLDivElementAlign - attrSet _ = setDOMHTMLDivElementAlign - attrConstruct _ = constructDOMHTMLDivElementAlign - -type instance AttributeList DOMHTMLDivElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "active-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentActiveElement :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMElement -getDOMHTMLDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement - -data DOMHTMLDocumentActiveElementPropertyInfo -instance AttrInfo DOMHTMLDocumentActiveElementPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentActiveElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentActiveElementPropertyInfo = DOMElement - type AttrLabel DOMHTMLDocumentActiveElementPropertyInfo = "DOMHTMLDocument::active-element" - attrGet _ = getDOMHTMLDocumentActiveElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "alink-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color" - -setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val - -constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val - -data DOMHTMLDocumentAlinkColorPropertyInfo -instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "DOMHTMLDocument::alink-color" - attrGet _ = getDOMHTMLDocumentAlinkColor - attrSet _ = setDOMHTMLDocumentAlinkColor - attrConstruct _ = constructDOMHTMLDocumentAlinkColor - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLDocumentBgColorPropertyInfo -instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "DOMHTMLDocument::bg-color" - attrGet _ = getDOMHTMLDocumentBgColor - attrSet _ = setDOMHTMLDocumentBgColor - attrConstruct _ = constructDOMHTMLDocumentBgColor - --- VVV Prop "compat-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" - -data DOMHTMLDocumentCompatModePropertyInfo -instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "DOMHTMLDocument::compat-mode" - attrGet _ = getDOMHTMLDocumentCompatMode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "design-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode" - -setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val - -constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val - -data DOMHTMLDocumentDesignModePropertyInfo -instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where - type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "DOMHTMLDocument::design-mode" - attrGet _ = getDOMHTMLDocumentDesignMode - attrSet _ = setDOMHTMLDocumentDesignMode - attrConstruct _ = constructDOMHTMLDocumentDesignMode - --- VVV Prop "dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir" - -setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val - -constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val - -data DOMHTMLDocumentDirPropertyInfo -instance AttrInfo DOMHTMLDocumentDirPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentDirPropertyInfo = "DOMHTMLDocument::dir" - attrGet _ = getDOMHTMLDocumentDir - attrSet _ = setDOMHTMLDocumentDir - attrConstruct _ = constructDOMHTMLDocumentDir - --- VVV Prop "embeds" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection -getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection - -data DOMHTMLDocumentEmbedsPropertyInfo -instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "DOMHTMLDocument::embeds" - attrGet _ = getDOMHTMLDocumentEmbeds - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "fg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color" - -setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val - -constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val - -data DOMHTMLDocumentFgColorPropertyInfo -instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "DOMHTMLDocument::fg-color" - attrGet _ = getDOMHTMLDocumentFgColor - attrSet _ = setDOMHTMLDocumentFgColor - attrConstruct _ = constructDOMHTMLDocumentFgColor - --- VVV Prop "height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 -getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height" - -data DOMHTMLDocumentHeightPropertyInfo -instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "DOMHTMLDocument::height" - attrGet _ = getDOMHTMLDocumentHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "link-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color" - -setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val - -constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val - -data DOMHTMLDocumentLinkColorPropertyInfo -instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "DOMHTMLDocument::link-color" - attrGet _ = getDOMHTMLDocumentLinkColor - attrSet _ = setDOMHTMLDocumentLinkColor - attrConstruct _ = constructDOMHTMLDocumentLinkColor - --- VVV Prop "plugins" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection -getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection - -data DOMHTMLDocumentPluginsPropertyInfo -instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "DOMHTMLDocument::plugins" - attrGet _ = getDOMHTMLDocumentPlugins - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "scripts" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection -getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection - -data DOMHTMLDocumentScriptsPropertyInfo -instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "DOMHTMLDocument::scripts" - attrGet _ = getDOMHTMLDocumentScripts - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vlink-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text -getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color" - -setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val - -constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val - -data DOMHTMLDocumentVlinkColorPropertyInfo -instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text - type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "DOMHTMLDocument::vlink-color" - attrGet _ = getDOMHTMLDocumentVlinkColor - attrSet _ = setDOMHTMLDocumentVlinkColor - attrConstruct _ = constructDOMHTMLDocumentVlinkColor - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 -getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -data DOMHTMLDocumentWidthPropertyInfo -instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "DOMHTMLDocument::width" - attrGet _ = getDOMHTMLDocumentWidth - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLDocument = '[ '("active-element", DOMHTMLDocumentActiveElementPropertyInfo), '("alink-color", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMHTMLDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("design-mode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fg-color", DOMHTMLDocumentFgColorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("link-color", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("vlink-color", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] - --- VVV Prop "access-key" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key" - -setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val - -constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val - -data DOMHTMLElementAccessKeyPropertyInfo -instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where - type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text - type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "DOMHTMLElement::access-key" - attrGet _ = getDOMHTMLElementAccessKey - attrSet _ = setDOMHTMLElementAccessKey - attrConstruct _ = constructDOMHTMLElementAccessKey - --- VVV Prop "children" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection -getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection - -data DOMHTMLElementChildrenPropertyInfo -instance AttrInfo DOMHTMLElementChildrenPropertyInfo where - type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLElementChildrenPropertyInfo = "DOMHTMLElement::children" - attrGet _ = getDOMHTMLElementChildren - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "content-editable" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable" - -setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val - -constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val - -data DOMHTMLElementContentEditablePropertyInfo -instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where - type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text - type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "DOMHTMLElement::content-editable" - attrGet _ = getDOMHTMLElementContentEditable - attrSet _ = setDOMHTMLElementContentEditable - attrConstruct _ = constructDOMHTMLElementContentEditable - --- VVV Prop "dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir" - -setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val - -constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val - -data DOMHTMLElementDirPropertyInfo -instance AttrInfo DOMHTMLElementDirPropertyInfo where - type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text - type AttrLabel DOMHTMLElementDirPropertyInfo = "DOMHTMLElement::dir" - attrGet _ = getDOMHTMLElementDir - attrSet _ = setDOMHTMLElementDir - attrConstruct _ = constructDOMHTMLElementDir - --- VVV Prop "draggable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool -getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable" - -setDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () -setDOMHTMLElementDraggable obj val = liftIO $ setObjectPropertyBool obj "draggable" val - -constructDOMHTMLElementDraggable :: Bool -> IO ([Char], GValue) -constructDOMHTMLElementDraggable val = constructObjectPropertyBool "draggable" val - -data DOMHTMLElementDraggablePropertyInfo -instance AttrInfo DOMHTMLElementDraggablePropertyInfo where - type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool - type AttrLabel DOMHTMLElementDraggablePropertyInfo = "DOMHTMLElement::draggable" - attrGet _ = getDOMHTMLElementDraggable - attrSet _ = setDOMHTMLElementDraggable - attrConstruct _ = constructDOMHTMLElementDraggable - --- VVV Prop "hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool -getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden" - -setDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () -setDOMHTMLElementHidden obj val = liftIO $ setObjectPropertyBool obj "hidden" val - -constructDOMHTMLElementHidden :: Bool -> IO ([Char], GValue) -constructDOMHTMLElementHidden val = constructObjectPropertyBool "hidden" val - -data DOMHTMLElementHiddenPropertyInfo -instance AttrInfo DOMHTMLElementHiddenPropertyInfo where - type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool - type AttrLabel DOMHTMLElementHiddenPropertyInfo = "DOMHTMLElement::hidden" - attrGet _ = getDOMHTMLElementHidden - attrSet _ = setDOMHTMLElementHidden - attrConstruct _ = constructDOMHTMLElementHidden - --- VVV Prop "inner-html" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" - -setDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val - -constructDOMHTMLElementInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" val - -data DOMHTMLElementInnerHtmlPropertyInfo -instance AttrInfo DOMHTMLElementInnerHtmlPropertyInfo where - type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = T.Text - type AttrLabel DOMHTMLElementInnerHtmlPropertyInfo = "DOMHTMLElement::inner-html" - attrGet _ = getDOMHTMLElementInnerHtml - attrSet _ = setDOMHTMLElementInnerHtml - attrConstruct _ = constructDOMHTMLElementInnerHtml - --- VVV Prop "inner-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text" - -setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val - -constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val - -data DOMHTMLElementInnerTextPropertyInfo -instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text - type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "DOMHTMLElement::inner-text" - attrGet _ = getDOMHTMLElementInnerText - attrSet _ = setDOMHTMLElementInnerText - attrConstruct _ = constructDOMHTMLElementInnerText - --- VVV Prop "is-content-editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool -getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable" - -data DOMHTMLElementIsContentEditablePropertyInfo -instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where - type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool - type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "DOMHTMLElement::is-content-editable" - attrGet _ = getDOMHTMLElementIsContentEditable - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "lang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang" - -setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val - -constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val - -data DOMHTMLElementLangPropertyInfo -instance AttrInfo DOMHTMLElementLangPropertyInfo where - type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text - type AttrLabel DOMHTMLElementLangPropertyInfo = "DOMHTMLElement::lang" - attrGet _ = getDOMHTMLElementLang - attrSet _ = setDOMHTMLElementLang - attrConstruct _ = constructDOMHTMLElementLang - --- VVV Prop "outer-html" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html" - -setDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val - -constructDOMHTMLElementOuterHtml :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" val - -data DOMHTMLElementOuterHtmlPropertyInfo -instance AttrInfo DOMHTMLElementOuterHtmlPropertyInfo where - type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = T.Text - type AttrLabel DOMHTMLElementOuterHtmlPropertyInfo = "DOMHTMLElement::outer-html" - attrGet _ = getDOMHTMLElementOuterHtml - attrSet _ = setDOMHTMLElementOuterHtml - attrConstruct _ = constructDOMHTMLElementOuterHtml - --- VVV Prop "outer-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text" - -setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val - -constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val - -data DOMHTMLElementOuterTextPropertyInfo -instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text - type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "DOMHTMLElement::outer-text" - attrGet _ = getDOMHTMLElementOuterText - attrSet _ = setDOMHTMLElementOuterText - attrConstruct _ = constructDOMHTMLElementOuterText - --- VVV Prop "spellcheck" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool -getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck" - -setDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () -setDOMHTMLElementSpellcheck obj val = liftIO $ setObjectPropertyBool obj "spellcheck" val - -constructDOMHTMLElementSpellcheck :: Bool -> IO ([Char], GValue) -constructDOMHTMLElementSpellcheck val = constructObjectPropertyBool "spellcheck" val - -data DOMHTMLElementSpellcheckPropertyInfo -instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where - type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool - type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "DOMHTMLElement::spellcheck" - attrGet _ = getDOMHTMLElementSpellcheck - attrSet _ = setDOMHTMLElementSpellcheck - attrConstruct _ = constructDOMHTMLElementSpellcheck - --- VVV Prop "tab-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64 -getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index" - -setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m () -setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val - -constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val - -data DOMHTMLElementTabIndexPropertyInfo -instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where - type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "DOMHTMLElement::tab-index" - attrGet _ = getDOMHTMLElementTabIndex - attrSet _ = setDOMHTMLElementTabIndex - attrConstruct _ = constructDOMHTMLElementTabIndex - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title" - -setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val - -data DOMHTMLElementTitlePropertyInfo -instance AttrInfo DOMHTMLElementTitlePropertyInfo where - type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text - type AttrLabel DOMHTMLElementTitlePropertyInfo = "DOMHTMLElement::title" - attrGet _ = getDOMHTMLElementTitle - attrSet _ = setDOMHTMLElementTitle - attrConstruct _ = constructDOMHTMLElementTitle - --- VVV Prop "translate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool -getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate" - -setDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () -setDOMHTMLElementTranslate obj val = liftIO $ setObjectPropertyBool obj "translate" val - -constructDOMHTMLElementTranslate :: Bool -> IO ([Char], GValue) -constructDOMHTMLElementTranslate val = constructObjectPropertyBool "translate" val - -data DOMHTMLElementTranslatePropertyInfo -instance AttrInfo DOMHTMLElementTranslatePropertyInfo where - type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool - type AttrLabel DOMHTMLElementTranslatePropertyInfo = "DOMHTMLElement::translate" - attrGet _ = getDOMHTMLElementTranslate - attrSet _ = setDOMHTMLElementTranslate - attrConstruct _ = constructDOMHTMLElementTranslate - --- VVV Prop "webkitdropzone" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text -getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone" - -setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val - -constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val - -data DOMHTMLElementWebkitdropzonePropertyInfo -instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where - type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text - type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "DOMHTMLElement::webkitdropzone" - attrGet _ = getDOMHTMLElementWebkitdropzone - attrSet _ = setDOMHTMLElementWebkitdropzone - attrConstruct _ = constructDOMHTMLElementWebkitdropzone - -type instance AttributeList DOMHTMLElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text -getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLEmbedElementAlignPropertyInfo -instance AttrInfo DOMHTMLEmbedElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "DOMHTMLEmbedElement::align" - attrGet _ = getDOMHTMLEmbedElementAlign - attrSet _ = setDOMHTMLEmbedElementAlign - attrConstruct _ = constructDOMHTMLEmbedElementAlign - --- VVV Prop "height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 -getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" - -setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () -setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val - -constructDOMHTMLEmbedElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLEmbedElementHeight val = constructObjectPropertyInt64 "height" val - -data DOMHTMLEmbedElementHeightPropertyInfo -instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "DOMHTMLEmbedElement::height" - attrGet _ = getDOMHTMLEmbedElementHeight - attrSet _ = setDOMHTMLEmbedElementHeight - attrConstruct _ = constructDOMHTMLEmbedElementHeight - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text -getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" val - -data DOMHTMLEmbedElementNamePropertyInfo -instance AttrInfo DOMHTMLEmbedElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "DOMHTMLEmbedElement::name" - attrGet _ = getDOMHTMLEmbedElementName - attrSet _ = setDOMHTMLEmbedElementName - attrConstruct _ = constructDOMHTMLEmbedElementName - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text -getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLEmbedElementSrcPropertyInfo -instance AttrInfo DOMHTMLEmbedElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "DOMHTMLEmbedElement::src" - attrGet _ = getDOMHTMLEmbedElementSrc - attrSet _ = setDOMHTMLEmbedElementSrc - attrConstruct _ = constructDOMHTMLEmbedElementSrc - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text -getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" val - -data DOMHTMLEmbedElementTypePropertyInfo -instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "DOMHTMLEmbedElement::type" - attrGet _ = getDOMHTMLEmbedElementType - attrSet _ = setDOMHTMLEmbedElementType - attrConstruct _ = constructDOMHTMLEmbedElementType - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 -getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () -setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val - -constructDOMHTMLEmbedElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLEmbedElementWidth val = constructObjectPropertyInt64 "width" val - -data DOMHTMLEmbedElementWidthPropertyInfo -instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "DOMHTMLEmbedElement::width" - attrGet _ = getDOMHTMLEmbedElementWidth - attrSet _ = setDOMHTMLEmbedElementWidth - attrConstruct _ = constructDOMHTMLEmbedElementWidth - -type instance AttributeList DOMHTMLEmbedElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool -getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> Bool -> m () -setDOMHTMLFieldSetElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLFieldSetElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLFieldSetElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLFieldSetElementDisabledPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLFieldSetElementDisabledPropertyInfo = "DOMHTMLFieldSetElement::disabled" - attrGet _ = getDOMHTMLFieldSetElementDisabled - attrSet _ = setDOMHTMLFieldSetElementDisabled - attrConstruct _ = constructDOMHTMLFieldSetElementDisabled - --- VVV Prop "elements" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLCollection -getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection - -data DOMHTMLFieldSetElementElementsPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "DOMHTMLFieldSetElement::elements" - attrGet _ = getDOMHTMLFieldSetElementElements - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLFieldSetElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLFieldSetElementFormPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLFieldSetElementFormPropertyInfo = "DOMHTMLFieldSetElement::form" - attrGet _ = getDOMHTMLFieldSetElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text -getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m () -setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" val - -data DOMHTMLFieldSetElementNamePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "DOMHTMLFieldSetElement::name" - attrGet _ = getDOMHTMLFieldSetElementName - attrSet _ = setDOMHTMLFieldSetElementName - attrConstruct _ = constructDOMHTMLFieldSetElementName - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text -getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLFieldSetElementTypePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "DOMHTMLFieldSetElement::type" - attrGet _ = getDOMHTMLFieldSetElementType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text -getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLFieldSetElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "DOMHTMLFieldSetElement::validation-message" - attrGet _ = getDOMHTMLFieldSetElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementValidity :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMValidityState -getDOMHTMLFieldSetElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLFieldSetElementValidityPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLFieldSetElementValidityPropertyInfo = "DOMHTMLFieldSetElement::validity" - attrGet _ = getDOMHTMLFieldSetElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool -getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLFieldSetElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLFieldSetElementWillValidatePropertyInfo = "DOMHTMLFieldSetElement::will-validate" - attrGet _ = getDOMHTMLFieldSetElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLFieldSetElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validation-message", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("validity", DOMHTMLFieldSetElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] - --- VVV Prop "color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text -getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color" - -setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val - -constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" val - -data DOMHTMLFontElementColorPropertyInfo -instance AttrInfo DOMHTMLFontElementColorPropertyInfo where - type AttrAllowedOps DOMHTMLFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFontElementColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFontElementColorPropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementColorPropertyInfo = T.Text - type AttrLabel DOMHTMLFontElementColorPropertyInfo = "DOMHTMLFontElement::color" - attrGet _ = getDOMHTMLFontElementColor - attrSet _ = setDOMHTMLFontElementColor - attrConstruct _ = constructDOMHTMLFontElementColor - --- VVV Prop "face" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text -getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face" - -setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val - -constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" val - -data DOMHTMLFontElementFacePropertyInfo -instance AttrInfo DOMHTMLFontElementFacePropertyInfo where - type AttrAllowedOps DOMHTMLFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFontElementFacePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFontElementFacePropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementFacePropertyInfo = T.Text - type AttrLabel DOMHTMLFontElementFacePropertyInfo = "DOMHTMLFontElement::face" - attrGet _ = getDOMHTMLFontElementFace - attrSet _ = setDOMHTMLFontElementFace - attrConstruct _ = constructDOMHTMLFontElementFace - --- VVV Prop "size" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text -getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size" - -setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" val - -constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" val - -data DOMHTMLFontElementSizePropertyInfo -instance AttrInfo DOMHTMLFontElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFontElementSizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFontElementSizePropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementSizePropertyInfo = T.Text - type AttrLabel DOMHTMLFontElementSizePropertyInfo = "DOMHTMLFontElement::size" - attrGet _ = getDOMHTMLFontElementSize - attrSet _ = setDOMHTMLFontElementSize - attrConstruct _ = constructDOMHTMLFontElementSize - -type instance AttributeList DOMHTMLFontElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "accept-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementAcceptCharset obj = liftIO $ getObjectPropertyString obj "accept-charset" - -setDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" val - -constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" val - -data DOMHTMLFormElementAcceptCharsetPropertyInfo -instance AttrInfo DOMHTMLFormElementAcceptCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAcceptCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "DOMHTMLFormElement::accept-charset" - attrGet _ = getDOMHTMLFormElementAcceptCharset - attrSet _ = setDOMHTMLFormElementAcceptCharset - attrConstruct _ = constructDOMHTMLFormElementAcceptCharset - --- VVV Prop "action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action" - -setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" val - -constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" val - -data DOMHTMLFormElementActionPropertyInfo -instance AttrInfo DOMHTMLFormElementActionPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementActionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementActionPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementActionPropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementActionPropertyInfo = "DOMHTMLFormElement::action" - attrGet _ = getDOMHTMLFormElementAction - attrSet _ = setDOMHTMLFormElementAction - attrConstruct _ = constructDOMHTMLFormElementAction - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val - -constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val - -data DOMHTMLFormElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "DOMHTMLFormElement::autocapitalize" - attrGet _ = getDOMHTMLFormElementAutocapitalize - attrSet _ = setDOMHTMLFormElementAutocapitalize - attrConstruct _ = constructDOMHTMLFormElementAutocapitalize - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val - -constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" val - -data DOMHTMLFormElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "DOMHTMLFormElement::autocomplete" - attrGet _ = getDOMHTMLFormElementAutocomplete - attrSet _ = setDOMHTMLFormElementAutocomplete - attrConstruct _ = constructDOMHTMLFormElementAutocomplete - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool -getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" - -setDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () -setDOMHTMLFormElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val - -constructDOMHTMLFormElementAutocorrect :: Bool -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocorrect val = constructObjectPropertyBool "autocorrect" val - -data DOMHTMLFormElementAutocorrectPropertyInfo -instance AttrInfo DOMHTMLFormElementAutocorrectPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocorrectPropertyInfo = Bool - type AttrLabel DOMHTMLFormElementAutocorrectPropertyInfo = "DOMHTMLFormElement::autocorrect" - attrGet _ = getDOMHTMLFormElementAutocorrect - attrSet _ = setDOMHTMLFormElementAutocorrect - attrConstruct _ = constructDOMHTMLFormElementAutocorrect - --- VVV Prop "elements" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m DOMHTMLCollection -getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection - -data DOMHTMLFormElementElementsPropertyInfo -instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementElementsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "DOMHTMLFormElement::elements" - attrGet _ = getDOMHTMLFormElementElements - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding" - -setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" val - -constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" val - -data DOMHTMLFormElementEncodingPropertyInfo -instance AttrInfo DOMHTMLFormElementEncodingPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "DOMHTMLFormElement::encoding" - attrGet _ = getDOMHTMLFormElementEncoding - attrSet _ = setDOMHTMLFormElementEncoding - attrConstruct _ = constructDOMHTMLFormElementEncoding - --- VVV Prop "enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype" - -setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" val - -constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" val - -data DOMHTMLFormElementEnctypePropertyInfo -instance AttrInfo DOMHTMLFormElementEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "DOMHTMLFormElement::enctype" - attrGet _ = getDOMHTMLFormElementEnctype - attrSet _ = setDOMHTMLFormElementEnctype - attrConstruct _ = constructDOMHTMLFormElementEnctype - --- VVV Prop "length" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Int64 -getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyInt64 obj "length" - -data DOMHTMLFormElementLengthPropertyInfo -instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementLengthPropertyInfo = Int64 - type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "DOMHTMLFormElement::length" - attrGet _ = getDOMHTMLFormElementLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method" - -setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" val - -constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" val - -data DOMHTMLFormElementMethodPropertyInfo -instance AttrInfo DOMHTMLFormElementMethodPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementMethodPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementMethodPropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "DOMHTMLFormElement::method" - attrGet _ = getDOMHTMLFormElementMethod - attrSet _ = setDOMHTMLFormElementMethod - attrConstruct _ = constructDOMHTMLFormElementMethod - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementName val = constructObjectPropertyString "name" val - -data DOMHTMLFormElementNamePropertyInfo -instance AttrInfo DOMHTMLFormElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementNamePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementNamePropertyInfo = "DOMHTMLFormElement::name" - attrGet _ = getDOMHTMLFormElementName - attrSet _ = setDOMHTMLFormElementName - attrConstruct _ = constructDOMHTMLFormElementName - --- VVV Prop "no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool -getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate" - -setDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () -setDOMHTMLFormElementNoValidate obj val = liftIO $ setObjectPropertyBool obj "no-validate" val - -constructDOMHTMLFormElementNoValidate :: Bool -> IO ([Char], GValue) -constructDOMHTMLFormElementNoValidate val = constructObjectPropertyBool "no-validate" val - -data DOMHTMLFormElementNoValidatePropertyInfo -instance AttrInfo DOMHTMLFormElementNoValidatePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementNoValidatePropertyInfo = Bool - type AttrLabel DOMHTMLFormElementNoValidatePropertyInfo = "DOMHTMLFormElement::no-validate" - attrGet _ = getDOMHTMLFormElementNoValidate - attrSet _ = setDOMHTMLFormElementNoValidate - attrConstruct _ = constructDOMHTMLFormElementNoValidate - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text -getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val - -constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" val - -data DOMHTMLFormElementTargetPropertyInfo -instance AttrInfo DOMHTMLFormElementTargetPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementTargetPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "DOMHTMLFormElement::target" - attrGet _ = getDOMHTMLFormElementTarget - attrSet _ = setDOMHTMLFormElementTarget - attrConstruct _ = constructDOMHTMLFormElementTarget - -type instance AttributeList DOMHTMLFormElement = '[ '("accept-charset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-validate", DOMHTMLFormElementNoValidatePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "content-document" - -- Type: TInterface "WebKit" "DOMDocument" - -- Flags: [PropertyReadable] - -getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument -getDOMHTMLFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLFrameElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLFrameElementContentDocumentPropertyInfo = "DOMHTMLFrameElement::content-document" - attrGet _ = getDOMHTMLFrameElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "content-window" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDOMWindow -getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow - -data DOMHTMLFrameElementContentWindowPropertyInfo -instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = DOMDOMWindow - type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "DOMHTMLFrameElement::content-window" - attrGet _ = getDOMHTMLFrameElementContentWindow - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "frame-border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" - -setDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val - -constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val - -data DOMHTMLFrameElementFrameBorderPropertyInfo -instance AttrInfo DOMHTMLFrameElementFrameBorderPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "DOMHTMLFrameElement::frame-border" - attrGet _ = getDOMHTMLFrameElementFrameBorder - attrSet _ = setDOMHTMLFrameElementFrameBorder - attrConstruct _ = constructDOMHTMLFrameElementFrameBorder - --- VVV Prop "height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 -getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" - -data DOMHTMLFrameElementHeightPropertyInfo -instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "DOMHTMLFrameElement::height" - attrGet _ = getDOMHTMLFrameElementHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" - -setDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val - -constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" val - -data DOMHTMLFrameElementLongDescPropertyInfo -instance AttrInfo DOMHTMLFrameElementLongDescPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "DOMHTMLFrameElement::long-desc" - attrGet _ = getDOMHTMLFrameElementLongDesc - attrSet _ = setDOMHTMLFrameElementLongDesc - attrConstruct _ = constructDOMHTMLFrameElementLongDesc - --- VVV Prop "margin-height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" - -setDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val - -constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val - -data DOMHTMLFrameElementMarginHeightPropertyInfo -instance AttrInfo DOMHTMLFrameElementMarginHeightPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "DOMHTMLFrameElement::margin-height" - attrGet _ = getDOMHTMLFrameElementMarginHeight - attrSet _ = setDOMHTMLFrameElementMarginHeight - attrConstruct _ = constructDOMHTMLFrameElementMarginHeight - --- VVV Prop "margin-width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" - -setDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val - -constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val - -data DOMHTMLFrameElementMarginWidthPropertyInfo -instance AttrInfo DOMHTMLFrameElementMarginWidthPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "DOMHTMLFrameElement::margin-width" - attrGet _ = getDOMHTMLFrameElementMarginWidth - attrSet _ = setDOMHTMLFrameElementMarginWidth - attrConstruct _ = constructDOMHTMLFrameElementMarginWidth - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" val - -data DOMHTMLFrameElementNamePropertyInfo -instance AttrInfo DOMHTMLFrameElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementNamePropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "DOMHTMLFrameElement::name" - attrGet _ = getDOMHTMLFrameElementName - attrSet _ = setDOMHTMLFrameElementName - attrConstruct _ = constructDOMHTMLFrameElementName - --- VVV Prop "no-resize" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Bool -getDOMHTMLFrameElementNoResize obj = liftIO $ getObjectPropertyBool obj "no-resize" - -setDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> Bool -> m () -setDOMHTMLFrameElementNoResize obj val = liftIO $ setObjectPropertyBool obj "no-resize" val - -constructDOMHTMLFrameElementNoResize :: Bool -> IO ([Char], GValue) -constructDOMHTMLFrameElementNoResize val = constructObjectPropertyBool "no-resize" val - -data DOMHTMLFrameElementNoResizePropertyInfo -instance AttrInfo DOMHTMLFrameElementNoResizePropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementNoResizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementNoResizePropertyInfo = Bool - type AttrLabel DOMHTMLFrameElementNoResizePropertyInfo = "DOMHTMLFrameElement::no-resize" - attrGet _ = getDOMHTMLFrameElementNoResize - attrSet _ = setDOMHTMLFrameElementNoResize - attrConstruct _ = constructDOMHTMLFrameElementNoResize - --- VVV Prop "scrolling" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" - -setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val - -constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" val - -data DOMHTMLFrameElementScrollingPropertyInfo -instance AttrInfo DOMHTMLFrameElementScrollingPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "DOMHTMLFrameElement::scrolling" - attrGet _ = getDOMHTMLFrameElementScrolling - attrSet _ = setDOMHTMLFrameElementScrolling - attrConstruct _ = constructDOMHTMLFrameElementScrolling - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text -getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLFrameElementSrcPropertyInfo -instance AttrInfo DOMHTMLFrameElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "DOMHTMLFrameElement::src" - attrGet _ = getDOMHTMLFrameElementSrc - attrSet _ = setDOMHTMLFrameElementSrc - attrConstruct _ = constructDOMHTMLFrameElementSrc - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 -getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -data DOMHTMLFrameElementWidthPropertyInfo -instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "DOMHTMLFrameElement::width" - attrGet _ = getDOMHTMLFrameElementWidth - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLFrameElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-resize", DOMHTMLFrameElementNoResizePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] - --- VVV Prop "cols" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text -getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols" - -setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" val - -constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" val - -data DOMHTMLFrameSetElementColsPropertyInfo -instance AttrInfo DOMHTMLFrameSetElementColsPropertyInfo where - type AttrAllowedOps DOMHTMLFrameSetElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = DOMHTMLFrameSetElementK - type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "DOMHTMLFrameSetElement::cols" - attrGet _ = getDOMHTMLFrameSetElementCols - attrSet _ = setDOMHTMLFrameSetElementCols - attrConstruct _ = constructDOMHTMLFrameSetElementCols - --- VVV Prop "rows" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text -getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows" - -setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" val - -constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" val - -data DOMHTMLFrameSetElementRowsPropertyInfo -instance AttrInfo DOMHTMLFrameSetElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLFrameSetElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = DOMHTMLFrameSetElementK - type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = T.Text - type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "DOMHTMLFrameSetElement::rows" - attrGet _ = getDOMHTMLFrameSetElementRows - attrSet _ = setDOMHTMLFrameSetElementRows - attrConstruct _ = constructDOMHTMLFrameSetElementRows - -type instance AttributeList DOMHTMLFrameSetElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text -getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLHRElementAlignPropertyInfo -instance AttrInfo DOMHTMLHRElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLHRElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHRElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHRElementAlignPropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "DOMHTMLHRElement::align" - attrGet _ = getDOMHTMLHRElementAlign - attrSet _ = setDOMHTMLHRElementAlign - attrConstruct _ = constructDOMHTMLHRElementAlign - --- VVV Prop "no-shade" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> m Bool -getDOMHTMLHRElementNoShade obj = liftIO $ getObjectPropertyBool obj "no-shade" - -setDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> Bool -> m () -setDOMHTMLHRElementNoShade obj val = liftIO $ setObjectPropertyBool obj "no-shade" val - -constructDOMHTMLHRElementNoShade :: Bool -> IO ([Char], GValue) -constructDOMHTMLHRElementNoShade val = constructObjectPropertyBool "no-shade" val - -data DOMHTMLHRElementNoShadePropertyInfo -instance AttrInfo DOMHTMLHRElementNoShadePropertyInfo where - type AttrAllowedOps DOMHTMLHRElementNoShadePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementNoShadePropertyInfo = Bool - type AttrLabel DOMHTMLHRElementNoShadePropertyInfo = "DOMHTMLHRElement::no-shade" - attrGet _ = getDOMHTMLHRElementNoShade - attrSet _ = setDOMHTMLHRElementNoShade - attrConstruct _ = constructDOMHTMLHRElementNoShade - --- VVV Prop "size" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text -getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size" - -setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" val - -constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" val - -data DOMHTMLHRElementSizePropertyInfo -instance AttrInfo DOMHTMLHRElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLHRElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHRElementSizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHRElementSizePropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementSizePropertyInfo = T.Text - type AttrLabel DOMHTMLHRElementSizePropertyInfo = "DOMHTMLHRElement::size" - attrGet _ = getDOMHTMLHRElementSize - attrSet _ = setDOMHTMLHRElementSize - attrConstruct _ = constructDOMHTMLHRElementSize - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text -getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLHRElementWidthPropertyInfo -instance AttrInfo DOMHTMLHRElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLHRElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHRElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHRElementWidthPropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "DOMHTMLHRElement::width" - attrGet _ = getDOMHTMLHRElementWidth - attrSet _ = setDOMHTMLHRElementWidth - attrConstruct _ = constructDOMHTMLHRElementWidth - -type instance AttributeList DOMHTMLHRElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-shade", DOMHTMLHRElementNoShadePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] - --- VVV Prop "profile" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m T.Text -getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile" - -setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m () -setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" val - -constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" val - -data DOMHTMLHeadElementProfilePropertyInfo -instance AttrInfo DOMHTMLHeadElementProfilePropertyInfo where - type AttrAllowedOps DOMHTMLHeadElementProfilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = DOMHTMLHeadElementK - type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = T.Text - type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "DOMHTMLHeadElement::profile" - attrGet _ = getDOMHTMLHeadElementProfile - attrSet _ = setDOMHTMLHeadElementProfile - attrConstruct _ = constructDOMHTMLHeadElementProfile - -type instance AttributeList DOMHTMLHeadElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m T.Text -getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m () -setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLHeadingElementAlignPropertyInfo -instance AttrInfo DOMHTMLHeadingElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLHeadingElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = DOMHTMLHeadingElementK - type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "DOMHTMLHeadingElement::align" - attrGet _ = getDOMHTMLHeadingElementAlign - attrSet _ = setDOMHTMLHeadingElementAlign - attrConstruct _ = constructDOMHTMLHeadingElementAlign - -type instance AttributeList DOMHTMLHeadingElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "manifest" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text -getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest" - -setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" val - -constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" val - -data DOMHTMLHtmlElementManifestPropertyInfo -instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where - type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK - type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = T.Text - type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "DOMHTMLHtmlElement::manifest" - attrGet _ = getDOMHTMLHtmlElementManifest - attrSet _ = setDOMHTMLHtmlElementManifest - attrConstruct _ = constructDOMHTMLHtmlElementManifest - --- VVV Prop "version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text -getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version" - -setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" val - -constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" val - -data DOMHTMLHtmlElementVersionPropertyInfo -instance AttrInfo DOMHTMLHtmlElementVersionPropertyInfo where - type AttrAllowedOps DOMHTMLHtmlElementVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = DOMHTMLHtmlElementK - type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = T.Text - type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "DOMHTMLHtmlElement::version" - attrGet _ = getDOMHTMLHtmlElementVersion - attrSet _ = setDOMHTMLHtmlElementVersion - attrConstruct _ = constructDOMHTMLHtmlElementVersion - -type instance AttributeList DOMHTMLHtmlElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLIFrameElementAlignPropertyInfo -instance AttrInfo DOMHTMLIFrameElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "DOMHTMLIFrameElement::align" - attrGet _ = getDOMHTMLIFrameElementAlign - attrSet _ = setDOMHTMLIFrameElementAlign - attrConstruct _ = constructDOMHTMLIFrameElementAlign - --- VVV Prop "content-document" - -- Type: TInterface "WebKit" "DOMDocument" - -- Flags: [PropertyReadable] - -getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument -getDOMHTMLIFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLIFrameElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLIFrameElementContentDocumentPropertyInfo = "DOMHTMLIFrameElement::content-document" - attrGet _ = getDOMHTMLIFrameElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "content-window" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDOMWindow -getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow - -data DOMHTMLIFrameElementContentWindowPropertyInfo -instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = DOMDOMWindow - type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "DOMHTMLIFrameElement::content-window" - attrGet _ = getDOMHTMLIFrameElementContentWindow - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "frame-border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" - -setDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val - -constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val - -data DOMHTMLIFrameElementFrameBorderPropertyInfo -instance AttrInfo DOMHTMLIFrameElementFrameBorderPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "DOMHTMLIFrameElement::frame-border" - attrGet _ = getDOMHTMLIFrameElementFrameBorder - attrSet _ = setDOMHTMLIFrameElementFrameBorder - attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val - -constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" val - -data DOMHTMLIFrameElementHeightPropertyInfo -instance AttrInfo DOMHTMLIFrameElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "DOMHTMLIFrameElement::height" - attrGet _ = getDOMHTMLIFrameElementHeight - attrSet _ = setDOMHTMLIFrameElementHeight - attrConstruct _ = constructDOMHTMLIFrameElementHeight - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" - -setDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val - -constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" val - -data DOMHTMLIFrameElementLongDescPropertyInfo -instance AttrInfo DOMHTMLIFrameElementLongDescPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "DOMHTMLIFrameElement::long-desc" - attrGet _ = getDOMHTMLIFrameElementLongDesc - attrSet _ = setDOMHTMLIFrameElementLongDesc - attrConstruct _ = constructDOMHTMLIFrameElementLongDesc - --- VVV Prop "margin-height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" - -setDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val - -constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val - -data DOMHTMLIFrameElementMarginHeightPropertyInfo -instance AttrInfo DOMHTMLIFrameElementMarginHeightPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "DOMHTMLIFrameElement::margin-height" - attrGet _ = getDOMHTMLIFrameElementMarginHeight - attrSet _ = setDOMHTMLIFrameElementMarginHeight - attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight - --- VVV Prop "margin-width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" - -setDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val - -constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val - -data DOMHTMLIFrameElementMarginWidthPropertyInfo -instance AttrInfo DOMHTMLIFrameElementMarginWidthPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "DOMHTMLIFrameElement::margin-width" - attrGet _ = getDOMHTMLIFrameElementMarginWidth - attrSet _ = setDOMHTMLIFrameElementMarginWidth - attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" val - -data DOMHTMLIFrameElementNamePropertyInfo -instance AttrInfo DOMHTMLIFrameElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "DOMHTMLIFrameElement::name" - attrGet _ = getDOMHTMLIFrameElementName - attrSet _ = setDOMHTMLIFrameElementName - attrConstruct _ = constructDOMHTMLIFrameElementName - --- VVV Prop "sandbox" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox" - -setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" val - -constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" val - -data DOMHTMLIFrameElementSandboxPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "DOMHTMLIFrameElement::sandbox" - attrGet _ = getDOMHTMLIFrameElementSandbox - attrSet _ = setDOMHTMLIFrameElementSandbox - attrConstruct _ = constructDOMHTMLIFrameElementSandbox - --- VVV Prop "scrolling" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" - -setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val - -constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" val - -data DOMHTMLIFrameElementScrollingPropertyInfo -instance AttrInfo DOMHTMLIFrameElementScrollingPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "DOMHTMLIFrameElement::scrolling" - attrGet _ = getDOMHTMLIFrameElementScrolling - attrSet _ = setDOMHTMLIFrameElementScrolling - attrConstruct _ = constructDOMHTMLIFrameElementScrolling - --- VVV Prop "seamless" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m Bool -getDOMHTMLIFrameElementSeamless obj = liftIO $ getObjectPropertyBool obj "seamless" - -setDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> Bool -> m () -setDOMHTMLIFrameElementSeamless obj val = liftIO $ setObjectPropertyBool obj "seamless" val - -constructDOMHTMLIFrameElementSeamless :: Bool -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSeamless val = constructObjectPropertyBool "seamless" val - -data DOMHTMLIFrameElementSeamlessPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSeamlessPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSeamlessPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSeamlessPropertyInfo = Bool - type AttrLabel DOMHTMLIFrameElementSeamlessPropertyInfo = "DOMHTMLIFrameElement::seamless" - attrGet _ = getDOMHTMLIFrameElementSeamless - attrSet _ = setDOMHTMLIFrameElementSeamless - attrConstruct _ = constructDOMHTMLIFrameElementSeamless - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLIFrameElementSrcPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "DOMHTMLIFrameElement::src" - attrGet _ = getDOMHTMLIFrameElementSrc - attrSet _ = setDOMHTMLIFrameElementSrc - attrConstruct _ = constructDOMHTMLIFrameElementSrc - --- VVV Prop "srcdoc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc" - -setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" val - -constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" val - -data DOMHTMLIFrameElementSrcdocPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "DOMHTMLIFrameElement::srcdoc" - attrGet _ = getDOMHTMLIFrameElementSrcdoc - attrSet _ = setDOMHTMLIFrameElementSrcdoc - attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text -getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLIFrameElementWidthPropertyInfo -instance AttrInfo DOMHTMLIFrameElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "DOMHTMLIFrameElement::width" - attrGet _ = getDOMHTMLIFrameElementWidth - attrSet _ = setDOMHTMLIFrameElementWidth - attrConstruct _ = constructDOMHTMLIFrameElementWidth - -type instance AttributeList DOMHTMLIFrameElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLIFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLIFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("seamless", DOMHTMLIFrameElementSeamlessPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLImageElementAlignPropertyInfo -instance AttrInfo DOMHTMLImageElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementAlignPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "DOMHTMLImageElement::align" - attrGet _ = getDOMHTMLImageElementAlign - attrSet _ = setDOMHTMLImageElementAlign - attrConstruct _ = constructDOMHTMLImageElementAlign - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val - -constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" val - -data DOMHTMLImageElementAltPropertyInfo -instance AttrInfo DOMHTMLImageElementAltPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementAltPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementAltPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementAltPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementAltPropertyInfo = "DOMHTMLImageElement::alt" - attrGet _ = getDOMHTMLImageElementAlt - attrSet _ = setDOMHTMLImageElementAlt - attrConstruct _ = constructDOMHTMLImageElementAlt - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val - -constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" val - -data DOMHTMLImageElementBorderPropertyInfo -instance AttrInfo DOMHTMLImageElementBorderPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementBorderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementBorderPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementBorderPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "DOMHTMLImageElement::border" - attrGet _ = getDOMHTMLImageElementBorder - attrSet _ = setDOMHTMLImageElementBorder - attrConstruct _ = constructDOMHTMLImageElementBorder - --- VVV Prop "complete" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLImageElementComplete :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool -getDOMHTMLImageElementComplete obj = liftIO $ getObjectPropertyBool obj "complete" - -data DOMHTMLImageElementCompletePropertyInfo -instance AttrInfo DOMHTMLImageElementCompletePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCompletePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementCompletePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementCompletePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCompletePropertyInfo = Bool - type AttrLabel DOMHTMLImageElementCompletePropertyInfo = "DOMHTMLImageElement::complete" - attrGet _ = getDOMHTMLImageElementComplete - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cross-origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" - -setDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val - -constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" val - -data DOMHTMLImageElementCrossOriginPropertyInfo -instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "DOMHTMLImageElement::cross-origin" - attrGet _ = getDOMHTMLImageElementCrossOrigin - attrSet _ = setDOMHTMLImageElementCrossOrigin - attrConstruct _ = constructDOMHTMLImageElementCrossOrigin - --- VVV Prop "height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" - -setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val - -constructDOMHTMLImageElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementHeight val = constructObjectPropertyInt64 "height" val - -data DOMHTMLImageElementHeightPropertyInfo -instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "DOMHTMLImageElement::height" - attrGet _ = getDOMHTMLImageElementHeight - attrSet _ = setDOMHTMLImageElementHeight - attrConstruct _ = constructDOMHTMLImageElementHeight - --- VVV Prop "hspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" - -setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val - -constructDOMHTMLImageElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementHspace val = constructObjectPropertyInt64 "hspace" val - -data DOMHTMLImageElementHspacePropertyInfo -instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHspacePropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "DOMHTMLImageElement::hspace" - attrGet _ = getDOMHTMLImageElementHspace - attrSet _ = setDOMHTMLImageElementHspace - attrConstruct _ = constructDOMHTMLImageElementHspace - --- VVV Prop "is-map" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool -getDOMHTMLImageElementIsMap obj = liftIO $ getObjectPropertyBool obj "is-map" - -setDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> Bool -> m () -setDOMHTMLImageElementIsMap obj val = liftIO $ setObjectPropertyBool obj "is-map" val - -constructDOMHTMLImageElementIsMap :: Bool -> IO ([Char], GValue) -constructDOMHTMLImageElementIsMap val = constructObjectPropertyBool "is-map" val - -data DOMHTMLImageElementIsMapPropertyInfo -instance AttrInfo DOMHTMLImageElementIsMapPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementIsMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementIsMapPropertyInfo = Bool - type AttrLabel DOMHTMLImageElementIsMapPropertyInfo = "DOMHTMLImageElement::is-map" - attrGet _ = getDOMHTMLImageElementIsMap - attrSet _ = setDOMHTMLImageElementIsMap - attrConstruct _ = constructDOMHTMLImageElementIsMap - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" - -setDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val - -constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" val - -data DOMHTMLImageElementLongDescPropertyInfo -instance AttrInfo DOMHTMLImageElementLongDescPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "DOMHTMLImageElement::long-desc" - attrGet _ = getDOMHTMLImageElementLongDesc - attrSet _ = setDOMHTMLImageElementLongDesc - attrConstruct _ = constructDOMHTMLImageElementLongDesc - --- VVV Prop "lowsrc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc" - -setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" val - -constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" val - -data DOMHTMLImageElementLowsrcPropertyInfo -instance AttrInfo DOMHTMLImageElementLowsrcPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementLowsrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "DOMHTMLImageElement::lowsrc" - attrGet _ = getDOMHTMLImageElementLowsrc - attrSet _ = setDOMHTMLImageElementLowsrc - attrConstruct _ = constructDOMHTMLImageElementLowsrc - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementName val = constructObjectPropertyString "name" val - -data DOMHTMLImageElementNamePropertyInfo -instance AttrInfo DOMHTMLImageElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementNamePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementNamePropertyInfo = "DOMHTMLImageElement::name" - attrGet _ = getDOMHTMLImageElementName - attrSet _ = setDOMHTMLImageElementName - attrConstruct _ = constructDOMHTMLImageElementName - --- VVV Prop "natural-height" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyInt64 obj "natural-height" - -data DOMHTMLImageElementNaturalHeightPropertyInfo -instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "DOMHTMLImageElement::natural-height" - attrGet _ = getDOMHTMLImageElementNaturalHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "natural-width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyInt64 obj "natural-width" - -data DOMHTMLImageElementNaturalWidthPropertyInfo -instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "DOMHTMLImageElement::natural-width" - attrGet _ = getDOMHTMLImageElementNaturalWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLImageElementSrcPropertyInfo -instance AttrInfo DOMHTMLImageElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementSrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "DOMHTMLImageElement::src" - attrGet _ = getDOMHTMLImageElementSrc - attrSet _ = setDOMHTMLImageElementSrc - attrConstruct _ = constructDOMHTMLImageElementSrc - --- VVV Prop "srcset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset" - -setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" val - -constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" val - -data DOMHTMLImageElementSrcsetPropertyInfo -instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "DOMHTMLImageElement::srcset" - attrGet _ = getDOMHTMLImageElementSrcset - attrSet _ = setDOMHTMLImageElementSrcset - attrConstruct _ = constructDOMHTMLImageElementSrcset - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text -getDOMHTMLImageElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" - -setDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val - -constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" val - -data DOMHTMLImageElementUseMapPropertyInfo -instance AttrInfo DOMHTMLImageElementUseMapPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = T.Text - type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "DOMHTMLImageElement::use-map" - attrGet _ = getDOMHTMLImageElementUseMap - attrSet _ = setDOMHTMLImageElementUseMap - attrConstruct _ = constructDOMHTMLImageElementUseMap - --- VVV Prop "vspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" - -setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val - -constructDOMHTMLImageElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementVspace val = constructObjectPropertyInt64 "vspace" val - -data DOMHTMLImageElementVspacePropertyInfo -instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementVspacePropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "DOMHTMLImageElement::vspace" - attrGet _ = getDOMHTMLImageElementVspace - attrSet _ = setDOMHTMLImageElementVspace - attrConstruct _ = constructDOMHTMLImageElementVspace - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val - -constructDOMHTMLImageElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementWidth val = constructObjectPropertyInt64 "width" val - -data DOMHTMLImageElementWidthPropertyInfo -instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "DOMHTMLImageElement::width" - attrGet _ = getDOMHTMLImageElementWidth - attrSet _ = setDOMHTMLImageElementWidth - attrConstruct _ = constructDOMHTMLImageElementWidth - --- VVV Prop "x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyInt64 obj "x" - -data DOMHTMLImageElementXPropertyInfo -instance AttrInfo DOMHTMLImageElementXPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementXPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementXPropertyInfo = "DOMHTMLImageElement::x" - attrGet _ = getDOMHTMLImageElementX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyInt64 obj "y" - -data DOMHTMLImageElementYPropertyInfo -instance AttrInfo DOMHTMLImageElementYPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementYPropertyInfo = Int64 - type AttrLabel DOMHTMLImageElementYPropertyInfo = "DOMHTMLImageElement::y" - attrGet _ = getDOMHTMLImageElementY - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLImageElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLImageElementCrossOriginPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("is-map", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("natural-height", DOMHTMLImageElementNaturalHeightPropertyInfo), '("natural-width", DOMHTMLImageElementNaturalWidthPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("use-map", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] - --- VVV Prop "accept" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept" - -setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" val - -constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" val - -data DOMHTMLInputElementAcceptPropertyInfo -instance AttrInfo DOMHTMLInputElementAcceptPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAcceptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "DOMHTMLInputElement::accept" - attrGet _ = getDOMHTMLInputElementAccept - attrSet _ = setDOMHTMLInputElementAccept - attrConstruct _ = constructDOMHTMLInputElementAccept - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLInputElementAlignPropertyInfo -instance AttrInfo DOMHTMLInputElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAlignPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "DOMHTMLInputElement::align" - attrGet _ = getDOMHTMLInputElementAlign - attrSet _ = setDOMHTMLInputElementAlign - attrConstruct _ = constructDOMHTMLInputElementAlign - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val - -constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" val - -data DOMHTMLInputElementAltPropertyInfo -instance AttrInfo DOMHTMLInputElementAltPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAltPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAltPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAltPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementAltPropertyInfo = "DOMHTMLInputElement::alt" - attrGet _ = getDOMHTMLInputElementAlt - attrSet _ = setDOMHTMLInputElementAlt - attrConstruct _ = constructDOMHTMLInputElementAlt - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val - -constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val - -data DOMHTMLInputElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "DOMHTMLInputElement::autocapitalize" - attrGet _ = getDOMHTMLInputElementAutocapitalize - attrSet _ = setDOMHTMLInputElementAutocapitalize - attrConstruct _ = constructDOMHTMLInputElementAutocapitalize - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val - -constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" val - -data DOMHTMLInputElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "DOMHTMLInputElement::autocomplete" - attrGet _ = getDOMHTMLInputElementAutocomplete - attrSet _ = setDOMHTMLInputElementAutocomplete - attrConstruct _ = constructDOMHTMLInputElementAutocomplete - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" - -setDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val - -constructDOMHTMLInputElementAutocorrect :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocorrect val = constructObjectPropertyBool "autocorrect" val - -data DOMHTMLInputElementAutocorrectPropertyInfo -instance AttrInfo DOMHTMLInputElementAutocorrectPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocorrectPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementAutocorrectPropertyInfo = "DOMHTMLInputElement::autocorrect" - attrGet _ = getDOMHTMLInputElementAutocorrect - attrSet _ = setDOMHTMLInputElementAutocorrect - attrConstruct _ = constructDOMHTMLInputElementAutocorrect - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" - -setDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val - -constructDOMHTMLInputElementAutofocus :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementAutofocus val = constructObjectPropertyBool "autofocus" val - -data DOMHTMLInputElementAutofocusPropertyInfo -instance AttrInfo DOMHTMLInputElementAutofocusPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutofocusPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementAutofocusPropertyInfo = "DOMHTMLInputElement::autofocus" - attrGet _ = getDOMHTMLInputElementAutofocus - attrSet _ = setDOMHTMLInputElementAutofocus - attrConstruct _ = constructDOMHTMLInputElementAutofocus - --- VVV Prop "capture" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyString obj "capture" - -setDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyString obj "capture" val - -constructDOMHTMLInputElementCapture :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementCapture val = constructObjectPropertyString "capture" val - -data DOMHTMLInputElementCapturePropertyInfo -instance AttrInfo DOMHTMLInputElementCapturePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementCapturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementCapturePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementCapturePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementCapturePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementCapturePropertyInfo = "DOMHTMLInputElement::capture" - attrGet _ = getDOMHTMLInputElementCapture - attrSet _ = setDOMHTMLInputElementCapture - attrConstruct _ = constructDOMHTMLInputElementCapture - --- VVV Prop "checked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementChecked obj = liftIO $ getObjectPropertyBool obj "checked" - -setDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementChecked obj val = liftIO $ setObjectPropertyBool obj "checked" val - -constructDOMHTMLInputElementChecked :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementChecked val = constructObjectPropertyBool "checked" val - -data DOMHTMLInputElementCheckedPropertyInfo -instance AttrInfo DOMHTMLInputElementCheckedPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementCheckedPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementCheckedPropertyInfo = "DOMHTMLInputElement::checked" - attrGet _ = getDOMHTMLInputElementChecked - attrSet _ = setDOMHTMLInputElementChecked - attrConstruct _ = constructDOMHTMLInputElementChecked - --- VVV Prop "default-checked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked" - -setDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementDefaultChecked obj val = liftIO $ setObjectPropertyBool obj "default-checked" val - -constructDOMHTMLInputElementDefaultChecked :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementDefaultChecked val = constructObjectPropertyBool "default-checked" val - -data DOMHTMLInputElementDefaultCheckedPropertyInfo -instance AttrInfo DOMHTMLInputElementDefaultCheckedPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDefaultCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDefaultCheckedPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementDefaultCheckedPropertyInfo = "DOMHTMLInputElement::default-checked" - attrGet _ = getDOMHTMLInputElementDefaultChecked - attrSet _ = setDOMHTMLInputElementDefaultChecked - attrConstruct _ = constructDOMHTMLInputElementDefaultChecked - --- VVV Prop "default-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" - -setDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val - -constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" val - -data DOMHTMLInputElementDefaultValuePropertyInfo -instance AttrInfo DOMHTMLInputElementDefaultValuePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "DOMHTMLInputElement::default-value" - attrGet _ = getDOMHTMLInputElementDefaultValue - attrSet _ = setDOMHTMLInputElementDefaultValue - attrConstruct _ = constructDOMHTMLInputElementDefaultValue - --- VVV Prop "dir-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" - -setDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val - -constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" val - -data DOMHTMLInputElementDirNamePropertyInfo -instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "DOMHTMLInputElement::dir-name" - attrGet _ = getDOMHTMLInputElementDirName - attrSet _ = setDOMHTMLInputElementDirName - attrConstruct _ = constructDOMHTMLInputElementDirName - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLInputElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLInputElementDisabledPropertyInfo -instance AttrInfo DOMHTMLInputElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementDisabledPropertyInfo = "DOMHTMLInputElement::disabled" - attrGet _ = getDOMHTMLInputElementDisabled - attrSet _ = setDOMHTMLInputElementDisabled - attrConstruct _ = constructDOMHTMLInputElementDisabled - --- VVV Prop "files" - -- Type: TInterface "WebKit" "DOMFileList" - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMFileList -getDOMHTMLInputElementFiles obj = liftIO $ getObjectPropertyObject obj "files" DOMFileList - -data DOMHTMLInputElementFilesPropertyInfo -instance AttrInfo DOMHTMLInputElementFilesPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFilesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFilesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementFilesPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFilesPropertyInfo = DOMFileList - type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "DOMHTMLInputElement::files" - attrGet _ = getDOMHTMLInputElementFiles - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLInputElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLInputElementFormPropertyInfo -instance AttrInfo DOMHTMLInputElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLInputElementFormPropertyInfo = "DOMHTMLInputElement::form" - attrGet _ = getDOMHTMLInputElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "form-action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" - -setDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val - -constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" val - -data DOMHTMLInputElementFormActionPropertyInfo -instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "DOMHTMLInputElement::form-action" - attrGet _ = getDOMHTMLInputElementFormAction - attrSet _ = setDOMHTMLInputElementFormAction - attrConstruct _ = constructDOMHTMLInputElementFormAction - --- VVV Prop "form-enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" - -setDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val - -constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" val - -data DOMHTMLInputElementFormEnctypePropertyInfo -instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "DOMHTMLInputElement::form-enctype" - attrGet _ = getDOMHTMLInputElementFormEnctype - attrSet _ = setDOMHTMLInputElementFormEnctype - attrConstruct _ = constructDOMHTMLInputElementFormEnctype - --- VVV Prop "form-method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" - -setDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val - -constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" val - -data DOMHTMLInputElementFormMethodPropertyInfo -instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "DOMHTMLInputElement::form-method" - attrGet _ = getDOMHTMLInputElementFormMethod - attrSet _ = setDOMHTMLInputElementFormMethod - attrConstruct _ = constructDOMHTMLInputElementFormMethod - --- VVV Prop "form-no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" - -setDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val - -constructDOMHTMLInputElementFormNoValidate :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val - -data DOMHTMLInputElementFormNoValidatePropertyInfo -instance AttrInfo DOMHTMLInputElementFormNoValidatePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormNoValidatePropertyInfo = Bool - type AttrLabel DOMHTMLInputElementFormNoValidatePropertyInfo = "DOMHTMLInputElement::form-no-validate" - attrGet _ = getDOMHTMLInputElementFormNoValidate - attrSet _ = setDOMHTMLInputElementFormNoValidate - attrConstruct _ = constructDOMHTMLInputElementFormNoValidate - --- VVV Prop "form-target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" - -setDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val - -constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" val - -data DOMHTMLInputElementFormTargetPropertyInfo -instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "DOMHTMLInputElement::form-target" - attrGet _ = getDOMHTMLInputElementFormTarget - attrSet _ = setDOMHTMLInputElementFormTarget - attrConstruct _ = constructDOMHTMLInputElementFormTarget - --- VVV Prop "height" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" - -setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val - -constructDOMHTMLInputElementHeight :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementHeight val = constructObjectPropertyUInt64 "height" val - -data DOMHTMLInputElementHeightPropertyInfo -instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementHeightPropertyInfo = Word64 - type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "DOMHTMLInputElement::height" - attrGet _ = getDOMHTMLInputElementHeight - attrSet _ = setDOMHTMLInputElementHeight - attrConstruct _ = constructDOMHTMLInputElementHeight - --- VVV Prop "incremental" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental" - -setDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementIncremental obj val = liftIO $ setObjectPropertyBool obj "incremental" val - -constructDOMHTMLInputElementIncremental :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementIncremental val = constructObjectPropertyBool "incremental" val - -data DOMHTMLInputElementIncrementalPropertyInfo -instance AttrInfo DOMHTMLInputElementIncrementalPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementIncrementalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementIncrementalPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementIncrementalPropertyInfo = "DOMHTMLInputElement::incremental" - attrGet _ = getDOMHTMLInputElementIncremental - attrSet _ = setDOMHTMLInputElementIncremental - attrConstruct _ = constructDOMHTMLInputElementIncremental - --- VVV Prop "indeterminate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementIndeterminate obj = liftIO $ getObjectPropertyBool obj "indeterminate" - -setDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementIndeterminate obj val = liftIO $ setObjectPropertyBool obj "indeterminate" val - -constructDOMHTMLInputElementIndeterminate :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementIndeterminate val = constructObjectPropertyBool "indeterminate" val - -data DOMHTMLInputElementIndeterminatePropertyInfo -instance AttrInfo DOMHTMLInputElementIndeterminatePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementIndeterminatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementIndeterminatePropertyInfo = Bool - type AttrLabel DOMHTMLInputElementIndeterminatePropertyInfo = "DOMHTMLInputElement::indeterminate" - attrGet _ = getDOMHTMLInputElementIndeterminate - attrSet _ = setDOMHTMLInputElementIndeterminate - attrConstruct _ = constructDOMHTMLInputElementIndeterminate - --- VVV Prop "labels" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMNodeList -getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLInputElementLabelsPropertyInfo -instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = DOMNodeList - type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "DOMHTMLInputElement::labels" - attrGet _ = getDOMHTMLInputElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "list" - -- Type: TInterface "WebKit" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement -getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement - -data DOMHTMLInputElementListPropertyInfo -instance AttrInfo DOMHTMLInputElementListPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementListPropertyInfo = DOMHTMLElement - type AttrLabel DOMHTMLInputElementListPropertyInfo = "DOMHTMLInputElement::list" - attrGet _ = getDOMHTMLInputElementList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "max" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max" - -setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" val - -constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" val - -data DOMHTMLInputElementMaxPropertyInfo -instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "DOMHTMLInputElement::max" - attrGet _ = getDOMHTMLInputElementMax - attrSet _ = setDOMHTMLInputElementMax - attrConstruct _ = constructDOMHTMLInputElementMax - --- VVV Prop "max-length" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Int64 -getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" - -setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> Int64 -> m () -setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val - -constructDOMHTMLInputElementMaxLength :: Int64 -> IO ([Char], GValue) -constructDOMHTMLInputElementMaxLength val = constructObjectPropertyInt64 "max-length" val - -data DOMHTMLInputElementMaxLengthPropertyInfo -instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = Int64 - type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "DOMHTMLInputElement::max-length" - attrGet _ = getDOMHTMLInputElementMaxLength - attrSet _ = setDOMHTMLInputElementMaxLength - attrConstruct _ = constructDOMHTMLInputElementMaxLength - --- VVV Prop "min" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min" - -setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" val - -constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" val - -data DOMHTMLInputElementMinPropertyInfo -instance AttrInfo DOMHTMLInputElementMinPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMinPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementMinPropertyInfo = "DOMHTMLInputElement::min" - attrGet _ = getDOMHTMLInputElementMin - attrSet _ = setDOMHTMLInputElementMin - attrConstruct _ = constructDOMHTMLInputElementMin - --- VVV Prop "multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" - -setDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val - -constructDOMHTMLInputElementMultiple :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementMultiple val = constructObjectPropertyBool "multiple" val - -data DOMHTMLInputElementMultiplePropertyInfo -instance AttrInfo DOMHTMLInputElementMultiplePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMultiplePropertyInfo = Bool - type AttrLabel DOMHTMLInputElementMultiplePropertyInfo = "DOMHTMLInputElement::multiple" - attrGet _ = getDOMHTMLInputElementMultiple - attrSet _ = setDOMHTMLInputElementMultiple - attrConstruct _ = constructDOMHTMLInputElementMultiple - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementName val = constructObjectPropertyString "name" val - -data DOMHTMLInputElementNamePropertyInfo -instance AttrInfo DOMHTMLInputElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementNamePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementNamePropertyInfo = "DOMHTMLInputElement::name" - attrGet _ = getDOMHTMLInputElementName - attrSet _ = setDOMHTMLInputElementName - attrConstruct _ = constructDOMHTMLInputElementName - --- VVV Prop "pattern" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern" - -setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val - -constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" val - -data DOMHTMLInputElementPatternPropertyInfo -instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPatternPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "DOMHTMLInputElement::pattern" - attrGet _ = getDOMHTMLInputElementPattern - attrSet _ = setDOMHTMLInputElementPattern - attrConstruct _ = constructDOMHTMLInputElementPattern - --- VVV Prop "placeholder" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" - -setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val - -constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" val - -data DOMHTMLInputElementPlaceholderPropertyInfo -instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "DOMHTMLInputElement::placeholder" - attrGet _ = getDOMHTMLInputElementPlaceholder - attrSet _ = setDOMHTMLInputElementPlaceholder - attrConstruct _ = constructDOMHTMLInputElementPlaceholder - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" - -setDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val - -constructDOMHTMLInputElementReadOnly :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementReadOnly val = constructObjectPropertyBool "read-only" val - -data DOMHTMLInputElementReadOnlyPropertyInfo -instance AttrInfo DOMHTMLInputElementReadOnlyPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementReadOnlyPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementReadOnlyPropertyInfo = "DOMHTMLInputElement::read-only" - attrGet _ = getDOMHTMLInputElementReadOnly - attrSet _ = setDOMHTMLInputElementReadOnly - attrConstruct _ = constructDOMHTMLInputElementReadOnly - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required" - -setDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val - -constructDOMHTMLInputElementRequired :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementRequired val = constructObjectPropertyBool "required" val - -data DOMHTMLInputElementRequiredPropertyInfo -instance AttrInfo DOMHTMLInputElementRequiredPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementRequiredPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementRequiredPropertyInfo = "DOMHTMLInputElement::required" - attrGet _ = getDOMHTMLInputElementRequired - attrSet _ = setDOMHTMLInputElementRequired - attrConstruct _ = constructDOMHTMLInputElementRequired - --- VVV Prop "size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyUInt64 obj "size" - -setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyUInt64 obj "size" val - -constructDOMHTMLInputElementSize :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementSize val = constructObjectPropertyUInt64 "size" val - -data DOMHTMLInputElementSizePropertyInfo -instance AttrInfo DOMHTMLInputElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementSizePropertyInfo = Word64 - type AttrLabel DOMHTMLInputElementSizePropertyInfo = "DOMHTMLInputElement::size" - attrGet _ = getDOMHTMLInputElementSize - attrSet _ = setDOMHTMLInputElementSize - attrConstruct _ = constructDOMHTMLInputElementSize - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLInputElementSrcPropertyInfo -instance AttrInfo DOMHTMLInputElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementSrcPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "DOMHTMLInputElement::src" - attrGet _ = getDOMHTMLInputElementSrc - attrSet _ = setDOMHTMLInputElementSrc - attrConstruct _ = constructDOMHTMLInputElementSrc - --- VVV Prop "step" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step" - -setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" val - -constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" val - -data DOMHTMLInputElementStepPropertyInfo -instance AttrInfo DOMHTMLInputElementStepPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementStepPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementStepPropertyInfo = "DOMHTMLInputElement::step" - attrGet _ = getDOMHTMLInputElementStep - attrSet _ = setDOMHTMLInputElementStep - attrConstruct _ = constructDOMHTMLInputElementStep - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementType val = constructObjectPropertyString "type" val - -data DOMHTMLInputElementTypePropertyInfo -instance AttrInfo DOMHTMLInputElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementTypePropertyInfo = "DOMHTMLInputElement::type" - attrGet _ = getDOMHTMLInputElementType - attrSet _ = setDOMHTMLInputElementType - attrConstruct _ = constructDOMHTMLInputElementType - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" - -setDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val - -constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" val - -data DOMHTMLInputElementUseMapPropertyInfo -instance AttrInfo DOMHTMLInputElementUseMapPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "DOMHTMLInputElement::use-map" - attrGet _ = getDOMHTMLInputElementUseMap - attrSet _ = setDOMHTMLInputElementUseMap - attrConstruct _ = constructDOMHTMLInputElementUseMap - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLInputElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "DOMHTMLInputElement::validation-message" - attrGet _ = getDOMHTMLInputElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementValidity :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMValidityState -getDOMHTMLInputElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLInputElementValidityPropertyInfo -instance AttrInfo DOMHTMLInputElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementValidityPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLInputElementValidityPropertyInfo = "DOMHTMLInputElement::validity" - attrGet _ = getDOMHTMLInputElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text -getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLInputElementValuePropertyInfo -instance AttrInfo DOMHTMLInputElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementValuePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLInputElementValuePropertyInfo = "DOMHTMLInputElement::value" - attrGet _ = getDOMHTMLInputElementValue - attrSet _ = setDOMHTMLInputElementValue - attrConstruct _ = constructDOMHTMLInputElementValue - --- VVV Prop "value-as-number" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double -getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number" - -setDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> Double -> m () -setDOMHTMLInputElementValueAsNumber obj val = liftIO $ setObjectPropertyDouble obj "value-as-number" val - -constructDOMHTMLInputElementValueAsNumber :: Double -> IO ([Char], GValue) -constructDOMHTMLInputElementValueAsNumber val = constructObjectPropertyDouble "value-as-number" val - -data DOMHTMLInputElementValueAsNumberPropertyInfo -instance AttrInfo DOMHTMLInputElementValueAsNumberPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValueAsNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValueAsNumberPropertyInfo = Double - type AttrLabel DOMHTMLInputElementValueAsNumberPropertyInfo = "DOMHTMLInputElement::value-as-number" - attrGet _ = getDOMHTMLInputElementValueAsNumber - attrSet _ = setDOMHTMLInputElementValueAsNumber - attrConstruct _ = constructDOMHTMLInputElementValueAsNumber - --- VVV Prop "webkit-grammar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementWebkitGrammar obj = liftIO $ getObjectPropertyBool obj "webkit-grammar" - -setDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementWebkitGrammar obj val = liftIO $ setObjectPropertyBool obj "webkit-grammar" val - -constructDOMHTMLInputElementWebkitGrammar :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementWebkitGrammar val = constructObjectPropertyBool "webkit-grammar" val - -data DOMHTMLInputElementWebkitGrammarPropertyInfo -instance AttrInfo DOMHTMLInputElementWebkitGrammarPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWebkitGrammarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWebkitGrammarPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementWebkitGrammarPropertyInfo = "DOMHTMLInputElement::webkit-grammar" - attrGet _ = getDOMHTMLInputElementWebkitGrammar - attrSet _ = setDOMHTMLInputElementWebkitGrammar - attrConstruct _ = constructDOMHTMLInputElementWebkitGrammar - --- VVV Prop "webkit-speech" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementWebkitSpeech obj = liftIO $ getObjectPropertyBool obj "webkit-speech" - -setDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementWebkitSpeech obj val = liftIO $ setObjectPropertyBool obj "webkit-speech" val - -constructDOMHTMLInputElementWebkitSpeech :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementWebkitSpeech val = constructObjectPropertyBool "webkit-speech" val - -data DOMHTMLInputElementWebkitSpeechPropertyInfo -instance AttrInfo DOMHTMLInputElementWebkitSpeechPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWebkitSpeechPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWebkitSpeechPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementWebkitSpeechPropertyInfo = "DOMHTMLInputElement::webkit-speech" - attrGet _ = getDOMHTMLInputElementWebkitSpeech - attrSet _ = setDOMHTMLInputElementWebkitSpeech - attrConstruct _ = constructDOMHTMLInputElementWebkitSpeech - --- VVV Prop "webkitdirectory" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementWebkitdirectory obj = liftIO $ getObjectPropertyBool obj "webkitdirectory" - -setDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () -setDOMHTMLInputElementWebkitdirectory obj val = liftIO $ setObjectPropertyBool obj "webkitdirectory" val - -constructDOMHTMLInputElementWebkitdirectory :: Bool -> IO ([Char], GValue) -constructDOMHTMLInputElementWebkitdirectory val = constructObjectPropertyBool "webkitdirectory" val - -data DOMHTMLInputElementWebkitdirectoryPropertyInfo -instance AttrInfo DOMHTMLInputElementWebkitdirectoryPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWebkitdirectoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWebkitdirectoryPropertyInfo = Bool - type AttrLabel DOMHTMLInputElementWebkitdirectoryPropertyInfo = "DOMHTMLInputElement::webkitdirectory" - attrGet _ = getDOMHTMLInputElementWebkitdirectory - attrSet _ = setDOMHTMLInputElementWebkitdirectory - attrConstruct _ = constructDOMHTMLInputElementWebkitdirectory - --- VVV Prop "width" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" - -setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val - -constructDOMHTMLInputElementWidth :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementWidth val = constructObjectPropertyUInt64 "width" val - -data DOMHTMLInputElementWidthPropertyInfo -instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWidthPropertyInfo = Word64 - type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "DOMHTMLInputElement::width" - attrGet _ = getDOMHTMLInputElementWidth - attrSet _ = setDOMHTMLInputElementWidth - attrConstruct _ = constructDOMHTMLInputElementWidth - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLInputElementWillValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool -getDOMHTMLInputElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLInputElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLInputElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLInputElementWillValidatePropertyInfo = "DOMHTMLInputElement::will-validate" - attrGet _ = getDOMHTMLInputElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLInputElement = '[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-checked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("default-value", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("form-action", DOMHTMLInputElementFormActionPropertyInfo), '("form-enctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("form-method", DOMHTMLInputElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("max-length", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("use-map", DOMHTMLInputElementUseMapPropertyInfo), '("validation-message", DOMHTMLInputElementValidationMessagePropertyInfo), '("validity", DOMHTMLInputElementValidityPropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("value-as-number", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkit-grammar", DOMHTMLInputElementWebkitGrammarPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-speech", DOMHTMLInputElementWebkitSpeechPropertyInfo), '("webkitdirectory", DOMHTMLInputElementWebkitdirectoryPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("will-validate", DOMHTMLInputElementWillValidatePropertyInfo)] - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool -getDOMHTMLKeygenElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" - -setDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () -setDOMHTMLKeygenElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val - -constructDOMHTMLKeygenElementAutofocus :: Bool -> IO ([Char], GValue) -constructDOMHTMLKeygenElementAutofocus val = constructObjectPropertyBool "autofocus" val - -data DOMHTMLKeygenElementAutofocusPropertyInfo -instance AttrInfo DOMHTMLKeygenElementAutofocusPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementAutofocusPropertyInfo = Bool - type AttrLabel DOMHTMLKeygenElementAutofocusPropertyInfo = "DOMHTMLKeygenElement::autofocus" - attrGet _ = getDOMHTMLKeygenElementAutofocus - attrSet _ = setDOMHTMLKeygenElementAutofocus - attrConstruct _ = constructDOMHTMLKeygenElementAutofocus - --- VVV Prop "challenge" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text -getDOMHTMLKeygenElementChallenge obj = liftIO $ getObjectPropertyString obj "challenge" - -setDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" val - -constructDOMHTMLKeygenElementChallenge :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" val - -data DOMHTMLKeygenElementChallengePropertyInfo -instance AttrInfo DOMHTMLKeygenElementChallengePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementChallengePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = T.Text - type AttrLabel DOMHTMLKeygenElementChallengePropertyInfo = "DOMHTMLKeygenElement::challenge" - attrGet _ = getDOMHTMLKeygenElementChallenge - attrSet _ = setDOMHTMLKeygenElementChallenge - attrConstruct _ = constructDOMHTMLKeygenElementChallenge - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool -getDOMHTMLKeygenElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () -setDOMHTMLKeygenElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLKeygenElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLKeygenElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLKeygenElementDisabledPropertyInfo -instance AttrInfo DOMHTMLKeygenElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLKeygenElementDisabledPropertyInfo = "DOMHTMLKeygenElement::disabled" - attrGet _ = getDOMHTMLKeygenElementDisabled - attrSet _ = setDOMHTMLKeygenElementDisabled - attrConstruct _ = constructDOMHTMLKeygenElementDisabled - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementForm :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLKeygenElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLKeygenElementFormPropertyInfo -instance AttrInfo DOMHTMLKeygenElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLKeygenElementFormPropertyInfo = "DOMHTMLKeygenElement::form" - attrGet _ = getDOMHTMLKeygenElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "keytype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text -getDOMHTMLKeygenElementKeytype obj = liftIO $ getObjectPropertyString obj "keytype" - -setDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" val - -constructDOMHTMLKeygenElementKeytype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" val - -data DOMHTMLKeygenElementKeytypePropertyInfo -instance AttrInfo DOMHTMLKeygenElementKeytypePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementKeytypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = T.Text - type AttrLabel DOMHTMLKeygenElementKeytypePropertyInfo = "DOMHTMLKeygenElement::keytype" - attrGet _ = getDOMHTMLKeygenElementKeytype - attrSet _ = setDOMHTMLKeygenElementKeytype - attrConstruct _ = constructDOMHTMLKeygenElementKeytype - --- VVV Prop "labels" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMNodeList -getDOMHTMLKeygenElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLKeygenElementLabelsPropertyInfo -instance AttrInfo DOMHTMLKeygenElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = DOMNodeList - type AttrLabel DOMHTMLKeygenElementLabelsPropertyInfo = "DOMHTMLKeygenElement::labels" - attrGet _ = getDOMHTMLKeygenElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text -getDOMHTMLKeygenElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLKeygenElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" val - -data DOMHTMLKeygenElementNamePropertyInfo -instance AttrInfo DOMHTMLKeygenElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLKeygenElementNamePropertyInfo = "DOMHTMLKeygenElement::name" - attrGet _ = getDOMHTMLKeygenElementName - attrSet _ = setDOMHTMLKeygenElementName - attrConstruct _ = constructDOMHTMLKeygenElementName - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text -getDOMHTMLKeygenElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLKeygenElementTypePropertyInfo -instance AttrInfo DOMHTMLKeygenElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLKeygenElementTypePropertyInfo = "DOMHTMLKeygenElement::type" - attrGet _ = getDOMHTMLKeygenElementType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text -getDOMHTMLKeygenElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLKeygenElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLKeygenElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLKeygenElementValidationMessagePropertyInfo = "DOMHTMLKeygenElement::validation-message" - attrGet _ = getDOMHTMLKeygenElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMValidityState -getDOMHTMLKeygenElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLKeygenElementValidityPropertyInfo -instance AttrInfo DOMHTMLKeygenElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLKeygenElementValidityPropertyInfo = "DOMHTMLKeygenElement::validity" - attrGet _ = getDOMHTMLKeygenElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLKeygenElementWillValidate :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool -getDOMHTMLKeygenElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLKeygenElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLKeygenElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLKeygenElementWillValidatePropertyInfo = "DOMHTMLKeygenElement::will-validate" - attrGet _ = getDOMHTMLKeygenElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLKeygenElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLKeygenElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("challenge", DOMHTMLKeygenElementChallengePropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLKeygenElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLKeygenElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("keytype", DOMHTMLKeygenElementKeytypePropertyInfo), '("labels", DOMHTMLKeygenElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLKeygenElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLKeygenElementTypePropertyInfo), '("validation-message", DOMHTMLKeygenElementValidationMessagePropertyInfo), '("validity", DOMHTMLKeygenElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLKeygenElementWillValidatePropertyInfo)] - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m T.Text -getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m () -setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLIElementType val = constructObjectPropertyString "type" val - -data DOMHTMLLIElementTypePropertyInfo -instance AttrInfo DOMHTMLLIElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLLIElementTypePropertyInfo = "DOMHTMLLIElement::type" - attrGet _ = getDOMHTMLLIElementType - attrSet _ = setDOMHTMLLIElementType - attrConstruct _ = constructDOMHTMLLIElementType - --- VVV Prop "value" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m Int64 -getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyInt64 obj "value" - -setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> Int64 -> m () -setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyInt64 obj "value" val - -constructDOMHTMLLIElementValue :: Int64 -> IO ([Char], GValue) -constructDOMHTMLLIElementValue val = constructObjectPropertyInt64 "value" val - -data DOMHTMLLIElementValuePropertyInfo -instance AttrInfo DOMHTMLLIElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementValuePropertyInfo = Int64 - type AttrLabel DOMHTMLLIElementValuePropertyInfo = "DOMHTMLLIElement::value" - attrGet _ = getDOMHTMLLIElementValue - attrSet _ = setDOMHTMLLIElementValue - attrConstruct _ = constructDOMHTMLLIElementValue - -type instance AttributeList DOMHTMLLIElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "control" - -- Type: TInterface "WebKit" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement -getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement - -data DOMHTMLLabelElementControlPropertyInfo -instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementControlPropertyInfo = DOMHTMLElement - type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "DOMHTMLLabelElement::control" - attrGet _ = getDOMHTMLLabelElementControl - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLabelElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLLabelElementFormPropertyInfo -instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLLabelElementFormPropertyInfo = "DOMHTMLLabelElement::form" - attrGet _ = getDOMHTMLLabelElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "html-for" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m T.Text -getDOMHTMLLabelElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" - -setDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> T.Text -> m () -setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val - -constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" val - -data DOMHTMLLabelElementHtmlForPropertyInfo -instance AttrInfo DOMHTMLLabelElementHtmlForPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = T.Text - type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "DOMHTMLLabelElement::html-for" - attrGet _ = getDOMHTMLLabelElementHtmlFor - attrSet _ = setDOMHTMLLabelElementHtmlFor - attrConstruct _ = constructDOMHTMLLabelElementHtmlFor - -type instance AttributeList DOMHTMLLabelElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m T.Text -getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m () -setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLLegendElementAlignPropertyInfo -instance AttrInfo DOMHTMLLegendElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLLegendElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = DOMHTMLLegendElementK - type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "DOMHTMLLegendElement::align" - attrGet _ = getDOMHTMLLegendElementAlign - attrSet _ = setDOMHTMLLegendElementAlign - attrConstruct _ = constructDOMHTMLLegendElementAlign - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLegendElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLLegendElementFormPropertyInfo -instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK - type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLLegendElementFormPropertyInfo = "DOMHTMLLegendElement::form" - attrGet _ = getDOMHTMLLegendElementForm - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLLegendElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val - -constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val - -data DOMHTMLLinkElementCharsetPropertyInfo -instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "DOMHTMLLinkElement::charset" - attrGet _ = getDOMHTMLLinkElementCharset - attrSet _ = setDOMHTMLLinkElementCharset - attrConstruct _ = constructDOMHTMLLinkElementCharset - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool -getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> Bool -> m () -setDOMHTMLLinkElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLLinkElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLLinkElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLLinkElementDisabledPropertyInfo -instance AttrInfo DOMHTMLLinkElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLLinkElementDisabledPropertyInfo = "DOMHTMLLinkElement::disabled" - attrGet _ = getDOMHTMLLinkElementDisabled - attrSet _ = setDOMHTMLLinkElementDisabled - attrConstruct _ = constructDOMHTMLLinkElementDisabled - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val - -constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val - -data DOMHTMLLinkElementHrefPropertyInfo -instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "DOMHTMLLinkElement::href" - attrGet _ = getDOMHTMLLinkElementHref - attrSet _ = setDOMHTMLLinkElementHref - attrConstruct _ = constructDOMHTMLLinkElementHref - --- VVV Prop "hreflang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" - -setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val - -constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val - -data DOMHTMLLinkElementHreflangPropertyInfo -instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "DOMHTMLLinkElement::hreflang" - attrGet _ = getDOMHTMLLinkElementHreflang - attrSet _ = setDOMHTMLLinkElementHreflang - attrConstruct _ = constructDOMHTMLLinkElementHreflang - --- VVV Prop "media" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media" - -setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val - -constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val - -data DOMHTMLLinkElementMediaPropertyInfo -instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "DOMHTMLLinkElement::media" - attrGet _ = getDOMHTMLLinkElementMedia - attrSet _ = setDOMHTMLLinkElementMedia - attrConstruct _ = constructDOMHTMLLinkElementMedia - --- VVV Prop "rel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel" - -setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val - -constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val - -data DOMHTMLLinkElementRelPropertyInfo -instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "DOMHTMLLinkElement::rel" - attrGet _ = getDOMHTMLLinkElementRel - attrSet _ = setDOMHTMLLinkElementRel - attrConstruct _ = constructDOMHTMLLinkElementRel - --- VVV Prop "rev" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev" - -setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val - -constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val - -data DOMHTMLLinkElementRevPropertyInfo -instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "DOMHTMLLinkElement::rev" - attrGet _ = getDOMHTMLLinkElementRev - attrSet _ = setDOMHTMLLinkElementRev - attrConstruct _ = constructDOMHTMLLinkElementRev - --- VVV Prop "sheet" - -- Type: TInterface "WebKit" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet -getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMHTMLLinkElementSheetPropertyInfo -instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet - type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "DOMHTMLLinkElement::sheet" - attrGet _ = getDOMHTMLLinkElementSheet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val - -constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val - -data DOMHTMLLinkElementTargetPropertyInfo -instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "DOMHTMLLinkElement::target" - attrGet _ = getDOMHTMLLinkElementTarget - attrSet _ = setDOMHTMLLinkElementTarget - attrConstruct _ = constructDOMHTMLLinkElementTarget - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text -getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val - -data DOMHTMLLinkElementTypePropertyInfo -instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "DOMHTMLLinkElement::type" - attrGet _ = getDOMHTMLLinkElementType - attrSet _ = setDOMHTMLLinkElementType - attrConstruct _ = constructDOMHTMLLinkElementType - -type instance AttributeList DOMHTMLLinkElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "areas" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m DOMHTMLCollection -getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection - -data DOMHTMLMapElementAreasPropertyInfo -instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where - type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK - type AttrGetType DOMHTMLMapElementAreasPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "DOMHTMLMapElement::areas" - attrGet _ = getDOMHTMLMapElementAreas - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m T.Text -getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m () -setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMapElementName val = constructObjectPropertyString "name" val - -data DOMHTMLMapElementNamePropertyInfo -instance AttrInfo DOMHTMLMapElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLMapElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMapElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMapElementNamePropertyInfo = DOMHTMLMapElementK - type AttrGetType DOMHTMLMapElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLMapElementNamePropertyInfo = "DOMHTMLMapElement::name" - attrGet _ = getDOMHTMLMapElementName - attrSet _ = setDOMHTMLMapElementName - attrConstruct _ = constructDOMHTMLMapElementName - -type instance AttributeList DOMHTMLMapElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "behavior" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text -getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior" - -setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" val - -constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" val - -data DOMHTMLMarqueeElementBehaviorPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = T.Text - type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "DOMHTMLMarqueeElement::behavior" - attrGet _ = getDOMHTMLMarqueeElementBehavior - attrSet _ = setDOMHTMLMarqueeElementBehavior - attrConstruct _ = constructDOMHTMLMarqueeElementBehavior - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text -getDOMHTMLMarqueeElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLMarqueeElementBgColorPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "DOMHTMLMarqueeElement::bg-color" - attrGet _ = getDOMHTMLMarqueeElementBgColor - attrSet _ = setDOMHTMLMarqueeElementBgColor - attrConstruct _ = constructDOMHTMLMarqueeElementBgColor - --- VVV Prop "direction" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text -getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction" - -setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" val - -constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" val - -data DOMHTMLMarqueeElementDirectionPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = T.Text - type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "DOMHTMLMarqueeElement::direction" - attrGet _ = getDOMHTMLMarqueeElementDirection - attrSet _ = setDOMHTMLMarqueeElementDirection - attrConstruct _ = constructDOMHTMLMarqueeElementDirection - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text -getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val - -constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" val - -data DOMHTMLMarqueeElementHeightPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "DOMHTMLMarqueeElement::height" - attrGet _ = getDOMHTMLMarqueeElementHeight - attrSet _ = setDOMHTMLMarqueeElementHeight - attrConstruct _ = constructDOMHTMLMarqueeElementHeight - --- VVV Prop "hspace" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 -getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyUInt64 obj "hspace" - -setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () -setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyUInt64 obj "hspace" val - -constructDOMHTMLMarqueeElementHspace :: Word64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyUInt64 "hspace" val - -data DOMHTMLMarqueeElementHspacePropertyInfo -instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = Word64 - type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "DOMHTMLMarqueeElement::hspace" - attrGet _ = getDOMHTMLMarqueeElementHspace - attrSet _ = setDOMHTMLMarqueeElementHspace - attrConstruct _ = constructDOMHTMLMarqueeElementHspace - --- VVV Prop "loop" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyInt64 obj "loop" - -setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyInt64 obj "loop" val - -constructDOMHTMLMarqueeElementLoop :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyInt64 "loop" val - -data DOMHTMLMarqueeElementLoopPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = Int64 - type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "DOMHTMLMarqueeElement::loop" - attrGet _ = getDOMHTMLMarqueeElementLoop - attrSet _ = setDOMHTMLMarqueeElementLoop - attrConstruct _ = constructDOMHTMLMarqueeElementLoop - --- VVV Prop "scroll-amount" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyInt64 obj "scroll-amount" - -setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyInt64 obj "scroll-amount" val - -constructDOMHTMLMarqueeElementScrollAmount :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyInt64 "scroll-amount" val - -data DOMHTMLMarqueeElementScrollAmountPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = Int64 - type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "DOMHTMLMarqueeElement::scroll-amount" - attrGet _ = getDOMHTMLMarqueeElementScrollAmount - attrSet _ = setDOMHTMLMarqueeElementScrollAmount - attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount - --- VVV Prop "scroll-delay" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyInt64 obj "scroll-delay" - -setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyInt64 obj "scroll-delay" val - -constructDOMHTMLMarqueeElementScrollDelay :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyInt64 "scroll-delay" val - -data DOMHTMLMarqueeElementScrollDelayPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = Int64 - type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "DOMHTMLMarqueeElement::scroll-delay" - attrGet _ = getDOMHTMLMarqueeElementScrollDelay - attrSet _ = setDOMHTMLMarqueeElementScrollDelay - attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay - --- VVV Prop "true-speed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool -getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed" - -setDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Bool -> m () -setDOMHTMLMarqueeElementTrueSpeed obj val = liftIO $ setObjectPropertyBool obj "true-speed" val - -constructDOMHTMLMarqueeElementTrueSpeed :: Bool -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementTrueSpeed val = constructObjectPropertyBool "true-speed" val - -data DOMHTMLMarqueeElementTrueSpeedPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementTrueSpeedPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementTrueSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementTrueSpeedPropertyInfo = Bool - type AttrLabel DOMHTMLMarqueeElementTrueSpeedPropertyInfo = "DOMHTMLMarqueeElement::true-speed" - attrGet _ = getDOMHTMLMarqueeElementTrueSpeed - attrSet _ = setDOMHTMLMarqueeElementTrueSpeed - attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed - --- VVV Prop "vspace" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 -getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyUInt64 obj "vspace" - -setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () -setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyUInt64 obj "vspace" val - -constructDOMHTMLMarqueeElementVspace :: Word64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyUInt64 "vspace" val - -data DOMHTMLMarqueeElementVspacePropertyInfo -instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = Word64 - type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "DOMHTMLMarqueeElement::vspace" - attrGet _ = getDOMHTMLMarqueeElementVspace - attrSet _ = setDOMHTMLMarqueeElementVspace - attrConstruct _ = constructDOMHTMLMarqueeElementVspace - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text -getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLMarqueeElementWidthPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "DOMHTMLMarqueeElement::width" - attrGet _ = getDOMHTMLMarqueeElementWidth - attrSet _ = setDOMHTMLMarqueeElementWidth - attrConstruct _ = constructDOMHTMLMarqueeElementWidth - -type instance AttributeList DOMHTMLMarqueeElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bg-color", DOMHTMLMarqueeElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-amount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scroll-delay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("true-speed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] - --- VVV Prop "audio-tracks" - -- Type: TInterface "WebKit" "DOMAudioTrackList" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMAudioTrackList -getDOMHTMLMediaElementAudioTracks obj = liftIO $ getObjectPropertyObject obj "audio-tracks" DOMAudioTrackList - -data DOMHTMLMediaElementAudioTracksPropertyInfo -instance AttrInfo DOMHTMLMediaElementAudioTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = DOMAudioTrackList - type AttrLabel DOMHTMLMediaElementAudioTracksPropertyInfo = "DOMHTMLMediaElement::audio-tracks" - attrGet _ = getDOMHTMLMediaElementAudioTracks - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "autoplay" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementAutoplay obj = liftIO $ getObjectPropertyBool obj "autoplay" - -setDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementAutoplay obj val = liftIO $ setObjectPropertyBool obj "autoplay" val - -constructDOMHTMLMediaElementAutoplay :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementAutoplay val = constructObjectPropertyBool "autoplay" val - -data DOMHTMLMediaElementAutoplayPropertyInfo -instance AttrInfo DOMHTMLMediaElementAutoplayPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementAutoplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementAutoplayPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementAutoplayPropertyInfo = "DOMHTMLMediaElement::autoplay" - attrGet _ = getDOMHTMLMediaElementAutoplay - attrSet _ = setDOMHTMLMediaElementAutoplay - attrConstruct _ = constructDOMHTMLMediaElementAutoplay - --- VVV Prop "buffered" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges -getDOMHTMLMediaElementBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges - -data DOMHTMLMediaElementBufferedPropertyInfo -instance AttrInfo DOMHTMLMediaElementBufferedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = DOMTimeRanges - type AttrLabel DOMHTMLMediaElementBufferedPropertyInfo = "DOMHTMLMediaElement::buffered" - attrGet _ = getDOMHTMLMediaElementBuffered - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "controller" - -- Type: TInterface "WebKit" "DOMMediaController" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaController -getDOMHTMLMediaElementController obj = liftIO $ getObjectPropertyObject obj "controller" DOMMediaController - -data DOMHTMLMediaElementControllerPropertyInfo -instance AttrInfo DOMHTMLMediaElementControllerPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = DOMMediaController - type AttrLabel DOMHTMLMediaElementControllerPropertyInfo = "DOMHTMLMediaElement::controller" - attrGet _ = getDOMHTMLMediaElementController - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "controls" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementControls obj = liftIO $ getObjectPropertyBool obj "controls" - -setDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementControls obj val = liftIO $ setObjectPropertyBool obj "controls" val - -constructDOMHTMLMediaElementControls :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementControls val = constructObjectPropertyBool "controls" val - -data DOMHTMLMediaElementControlsPropertyInfo -instance AttrInfo DOMHTMLMediaElementControlsPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementControlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementControlsPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementControlsPropertyInfo = "DOMHTMLMediaElement::controls" - attrGet _ = getDOMHTMLMediaElementControls - attrSet _ = setDOMHTMLMediaElementControls - attrConstruct _ = constructDOMHTMLMediaElementControls - --- VVV Prop "current-src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text -getDOMHTMLMediaElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" - -data DOMHTMLMediaElementCurrentSrcPropertyInfo -instance AttrInfo DOMHTMLMediaElementCurrentSrcPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLMediaElementCurrentSrcPropertyInfo = "DOMHTMLMediaElement::current-src" - attrGet _ = getDOMHTMLMediaElementCurrentSrc - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "current-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double -getDOMHTMLMediaElementCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" - -setDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () -setDOMHTMLMediaElementCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val - -constructDOMHTMLMediaElementCurrentTime :: Double -> IO ([Char], GValue) -constructDOMHTMLMediaElementCurrentTime val = constructObjectPropertyDouble "current-time" val - -data DOMHTMLMediaElementCurrentTimePropertyInfo -instance AttrInfo DOMHTMLMediaElementCurrentTimePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementCurrentTimePropertyInfo = Double - type AttrLabel DOMHTMLMediaElementCurrentTimePropertyInfo = "DOMHTMLMediaElement::current-time" - attrGet _ = getDOMHTMLMediaElementCurrentTime - attrSet _ = setDOMHTMLMediaElementCurrentTime - attrConstruct _ = constructDOMHTMLMediaElementCurrentTime - --- VVV Prop "default-muted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementDefaultMuted obj = liftIO $ getObjectPropertyBool obj "default-muted" - -setDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementDefaultMuted obj val = liftIO $ setObjectPropertyBool obj "default-muted" val - -constructDOMHTMLMediaElementDefaultMuted :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementDefaultMuted val = constructObjectPropertyBool "default-muted" val - -data DOMHTMLMediaElementDefaultMutedPropertyInfo -instance AttrInfo DOMHTMLMediaElementDefaultMutedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementDefaultMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementDefaultMutedPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementDefaultMutedPropertyInfo = "DOMHTMLMediaElement::default-muted" - attrGet _ = getDOMHTMLMediaElementDefaultMuted - attrSet _ = setDOMHTMLMediaElementDefaultMuted - attrConstruct _ = constructDOMHTMLMediaElementDefaultMuted - --- VVV Prop "default-playback-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double -getDOMHTMLMediaElementDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" - -setDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () -setDOMHTMLMediaElementDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val - -constructDOMHTMLMediaElementDefaultPlaybackRate :: Double -> IO ([Char], GValue) -constructDOMHTMLMediaElementDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val - -data DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo -instance AttrInfo DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = Double - type AttrLabel DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = "DOMHTMLMediaElement::default-playback-rate" - attrGet _ = getDOMHTMLMediaElementDefaultPlaybackRate - attrSet _ = setDOMHTMLMediaElementDefaultPlaybackRate - attrConstruct _ = constructDOMHTMLMediaElementDefaultPlaybackRate - --- VVV Prop "duration" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementDuration :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double -getDOMHTMLMediaElementDuration obj = liftIO $ getObjectPropertyDouble obj "duration" - -data DOMHTMLMediaElementDurationPropertyInfo -instance AttrInfo DOMHTMLMediaElementDurationPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementDurationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementDurationPropertyInfo = Double - type AttrLabel DOMHTMLMediaElementDurationPropertyInfo = "DOMHTMLMediaElement::duration" - attrGet _ = getDOMHTMLMediaElementDuration - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ended" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementEnded :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementEnded obj = liftIO $ getObjectPropertyBool obj "ended" - -data DOMHTMLMediaElementEndedPropertyInfo -instance AttrInfo DOMHTMLMediaElementEndedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementEndedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementEndedPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementEndedPropertyInfo = "DOMHTMLMediaElement::ended" - attrGet _ = getDOMHTMLMediaElementEnded - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "error" - -- Type: TInterface "WebKit" "DOMMediaError" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaError -getDOMHTMLMediaElementError obj = liftIO $ getObjectPropertyObject obj "error" DOMMediaError - -data DOMHTMLMediaElementErrorPropertyInfo -instance AttrInfo DOMHTMLMediaElementErrorPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = DOMMediaError - type AttrLabel DOMHTMLMediaElementErrorPropertyInfo = "DOMHTMLMediaElement::error" - attrGet _ = getDOMHTMLMediaElementError - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "loop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementLoop obj = liftIO $ getObjectPropertyBool obj "loop" - -setDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val - -constructDOMHTMLMediaElementLoop :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementLoop val = constructObjectPropertyBool "loop" val - -data DOMHTMLMediaElementLoopPropertyInfo -instance AttrInfo DOMHTMLMediaElementLoopPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementLoopPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementLoopPropertyInfo = "DOMHTMLMediaElement::loop" - attrGet _ = getDOMHTMLMediaElementLoop - attrSet _ = setDOMHTMLMediaElementLoop - attrConstruct _ = constructDOMHTMLMediaElementLoop - --- VVV Prop "media-group" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text -getDOMHTMLMediaElementMediaGroup obj = liftIO $ getObjectPropertyString obj "media-group" - -setDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" val - -constructDOMHTMLMediaElementMediaGroup :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" val - -data DOMHTMLMediaElementMediaGroupPropertyInfo -instance AttrInfo DOMHTMLMediaElementMediaGroupPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementMediaGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = T.Text - type AttrLabel DOMHTMLMediaElementMediaGroupPropertyInfo = "DOMHTMLMediaElement::media-group" - attrGet _ = getDOMHTMLMediaElementMediaGroup - attrSet _ = setDOMHTMLMediaElementMediaGroup - attrConstruct _ = constructDOMHTMLMediaElementMediaGroup - --- VVV Prop "muted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementMuted obj = liftIO $ getObjectPropertyBool obj "muted" - -setDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val - -constructDOMHTMLMediaElementMuted :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementMuted val = constructObjectPropertyBool "muted" val - -data DOMHTMLMediaElementMutedPropertyInfo -instance AttrInfo DOMHTMLMediaElementMutedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementMutedPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementMutedPropertyInfo = "DOMHTMLMediaElement::muted" - attrGet _ = getDOMHTMLMediaElementMuted - attrSet _ = setDOMHTMLMediaElementMuted - attrConstruct _ = constructDOMHTMLMediaElementMuted - --- VVV Prop "network-state" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementNetworkState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 -getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyCUInt obj "network-state" - -data DOMHTMLMediaElementNetworkStatePropertyInfo -instance AttrInfo DOMHTMLMediaElementNetworkStatePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementNetworkStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementNetworkStatePropertyInfo = Word32 - type AttrLabel DOMHTMLMediaElementNetworkStatePropertyInfo = "DOMHTMLMediaElement::network-state" - attrGet _ = getDOMHTMLMediaElementNetworkState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "paused" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementPaused :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementPaused obj = liftIO $ getObjectPropertyBool obj "paused" - -data DOMHTMLMediaElementPausedPropertyInfo -instance AttrInfo DOMHTMLMediaElementPausedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementPausedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPausedPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementPausedPropertyInfo = "DOMHTMLMediaElement::paused" - attrGet _ = getDOMHTMLMediaElementPaused - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "playback-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double -getDOMHTMLMediaElementPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" - -setDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () -setDOMHTMLMediaElementPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val - -constructDOMHTMLMediaElementPlaybackRate :: Double -> IO ([Char], GValue) -constructDOMHTMLMediaElementPlaybackRate val = constructObjectPropertyDouble "playback-rate" val - -data DOMHTMLMediaElementPlaybackRatePropertyInfo -instance AttrInfo DOMHTMLMediaElementPlaybackRatePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPlaybackRatePropertyInfo = Double - type AttrLabel DOMHTMLMediaElementPlaybackRatePropertyInfo = "DOMHTMLMediaElement::playback-rate" - attrGet _ = getDOMHTMLMediaElementPlaybackRate - attrSet _ = setDOMHTMLMediaElementPlaybackRate - attrConstruct _ = constructDOMHTMLMediaElementPlaybackRate - --- VVV Prop "played" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges -getDOMHTMLMediaElementPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges - -data DOMHTMLMediaElementPlayedPropertyInfo -instance AttrInfo DOMHTMLMediaElementPlayedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = DOMTimeRanges - type AttrLabel DOMHTMLMediaElementPlayedPropertyInfo = "DOMHTMLMediaElement::played" - attrGet _ = getDOMHTMLMediaElementPlayed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "preload" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text -getDOMHTMLMediaElementPreload obj = liftIO $ getObjectPropertyString obj "preload" - -setDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" val - -constructDOMHTMLMediaElementPreload :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" val - -data DOMHTMLMediaElementPreloadPropertyInfo -instance AttrInfo DOMHTMLMediaElementPreloadPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = T.Text - type AttrLabel DOMHTMLMediaElementPreloadPropertyInfo = "DOMHTMLMediaElement::preload" - attrGet _ = getDOMHTMLMediaElementPreload - attrSet _ = setDOMHTMLMediaElementPreload - attrConstruct _ = constructDOMHTMLMediaElementPreload - --- VVV Prop "ready-state" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementReadyState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 -getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyCUInt obj "ready-state" - -data DOMHTMLMediaElementReadyStatePropertyInfo -instance AttrInfo DOMHTMLMediaElementReadyStatePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementReadyStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementReadyStatePropertyInfo = Word32 - type AttrLabel DOMHTMLMediaElementReadyStatePropertyInfo = "DOMHTMLMediaElement::ready-state" - attrGet _ = getDOMHTMLMediaElementReadyState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "seekable" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges -getDOMHTMLMediaElementSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges - -data DOMHTMLMediaElementSeekablePropertyInfo -instance AttrInfo DOMHTMLMediaElementSeekablePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = DOMTimeRanges - type AttrLabel DOMHTMLMediaElementSeekablePropertyInfo = "DOMHTMLMediaElement::seekable" - attrGet _ = getDOMHTMLMediaElementSeekable - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "seeking" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementSeeking :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementSeeking obj = liftIO $ getObjectPropertyBool obj "seeking" - -data DOMHTMLMediaElementSeekingPropertyInfo -instance AttrInfo DOMHTMLMediaElementSeekingPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementSeekingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementSeekingPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementSeekingPropertyInfo = "DOMHTMLMediaElement::seeking" - attrGet _ = getDOMHTMLMediaElementSeeking - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text -getDOMHTMLMediaElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLMediaElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLMediaElementSrcPropertyInfo -instance AttrInfo DOMHTMLMediaElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLMediaElementSrcPropertyInfo = "DOMHTMLMediaElement::src" - attrGet _ = getDOMHTMLMediaElementSrc - attrSet _ = setDOMHTMLMediaElementSrc - attrConstruct _ = constructDOMHTMLMediaElementSrc - --- VVV Prop "text-tracks" - -- Type: TInterface "WebKit" "DOMTextTrackList" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementTextTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTextTrackList -getDOMHTMLMediaElementTextTracks obj = liftIO $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList - -data DOMHTMLMediaElementTextTracksPropertyInfo -instance AttrInfo DOMHTMLMediaElementTextTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementTextTracksPropertyInfo = DOMTextTrackList - type AttrLabel DOMHTMLMediaElementTextTracksPropertyInfo = "DOMHTMLMediaElement::text-tracks" - attrGet _ = getDOMHTMLMediaElementTextTracks - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "video-tracks" - -- Type: TInterface "WebKit" "DOMVideoTrackList" - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementVideoTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMVideoTrackList -getDOMHTMLMediaElementVideoTracks obj = liftIO $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList - -data DOMHTMLMediaElementVideoTracksPropertyInfo -instance AttrInfo DOMHTMLMediaElementVideoTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementVideoTracksPropertyInfo = DOMVideoTrackList - type AttrLabel DOMHTMLMediaElementVideoTracksPropertyInfo = "DOMHTMLMediaElement::video-tracks" - attrGet _ = getDOMHTMLMediaElementVideoTracks - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "volume" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double -getDOMHTMLMediaElementVolume obj = liftIO $ getObjectPropertyDouble obj "volume" - -setDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () -setDOMHTMLMediaElementVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val - -constructDOMHTMLMediaElementVolume :: Double -> IO ([Char], GValue) -constructDOMHTMLMediaElementVolume val = constructObjectPropertyDouble "volume" val - -data DOMHTMLMediaElementVolumePropertyInfo -instance AttrInfo DOMHTMLMediaElementVolumePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementVolumePropertyInfo = Double - type AttrLabel DOMHTMLMediaElementVolumePropertyInfo = "DOMHTMLMediaElement::volume" - attrGet _ = getDOMHTMLMediaElementVolume - attrSet _ = setDOMHTMLMediaElementVolume - attrConstruct _ = constructDOMHTMLMediaElementVolume - --- VVV Prop "webkit-audio-decoded-byte-count" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 -getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-audio-decoded-byte-count" - -data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = Word64 - type AttrLabel DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-audio-decoded-byte-count" - attrGet _ = getDOMHTMLMediaElementWebkitAudioDecodedByteCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-closed-captions-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementWebkitClosedCaptionsVisible obj = liftIO $ getObjectPropertyBool obj "webkit-closed-captions-visible" - -setDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementWebkitClosedCaptionsVisible obj val = liftIO $ setObjectPropertyBool obj "webkit-closed-captions-visible" val - -constructDOMHTMLMediaElementWebkitClosedCaptionsVisible :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementWebkitClosedCaptionsVisible val = constructObjectPropertyBool "webkit-closed-captions-visible" val - -data DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = "DOMHTMLMediaElement::webkit-closed-captions-visible" - attrGet _ = getDOMHTMLMediaElementWebkitClosedCaptionsVisible - attrSet _ = setDOMHTMLMediaElementWebkitClosedCaptionsVisible - attrConstruct _ = constructDOMHTMLMediaElementWebkitClosedCaptionsVisible - --- VVV Prop "webkit-current-playback-target-is-wireless" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless obj = liftIO $ getObjectPropertyBool obj "webkit-current-playback-target-is-wireless" - -data DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = "DOMHTMLMediaElement::webkit-current-playback-target-is-wireless" - attrGet _ = getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-has-closed-captions" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementWebkitHasClosedCaptions :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementWebkitHasClosedCaptions obj = liftIO $ getObjectPropertyBool obj "webkit-has-closed-captions" - -data DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = "DOMHTMLMediaElement::webkit-has-closed-captions" - attrGet _ = getDOMHTMLMediaElementWebkitHasClosedCaptions - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-preserves-pitch" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool -getDOMHTMLMediaElementWebkitPreservesPitch obj = liftIO $ getObjectPropertyBool obj "webkit-preserves-pitch" - -setDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () -setDOMHTMLMediaElementWebkitPreservesPitch obj val = liftIO $ setObjectPropertyBool obj "webkit-preserves-pitch" val - -constructDOMHTMLMediaElementWebkitPreservesPitch :: Bool -> IO ([Char], GValue) -constructDOMHTMLMediaElementWebkitPreservesPitch val = constructObjectPropertyBool "webkit-preserves-pitch" val - -data DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = Bool - type AttrLabel DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = "DOMHTMLMediaElement::webkit-preserves-pitch" - attrGet _ = getDOMHTMLMediaElementWebkitPreservesPitch - attrSet _ = setDOMHTMLMediaElementWebkitPreservesPitch - attrConstruct _ = constructDOMHTMLMediaElementWebkitPreservesPitch - --- VVV Prop "webkit-video-decoded-byte-count" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 -getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-video-decoded-byte-count" - -data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo -instance AttrInfo DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = Word64 - type AttrLabel DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-video-decoded-byte-count" - attrGet _ = getDOMHTMLMediaElementWebkitVideoDecodedByteCount - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLMediaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> m Bool -getDOMHTMLMenuElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" - -setDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> Bool -> m () -setDOMHTMLMenuElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val - -constructDOMHTMLMenuElementCompact :: Bool -> IO ([Char], GValue) -constructDOMHTMLMenuElementCompact val = constructObjectPropertyBool "compact" val - -data DOMHTMLMenuElementCompactPropertyInfo -instance AttrInfo DOMHTMLMenuElementCompactPropertyInfo where - type AttrAllowedOps DOMHTMLMenuElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = DOMHTMLMenuElementK - type AttrGetType DOMHTMLMenuElementCompactPropertyInfo = Bool - type AttrLabel DOMHTMLMenuElementCompactPropertyInfo = "DOMHTMLMenuElement::compact" - attrGet _ = getDOMHTMLMenuElementCompact - attrSet _ = setDOMHTMLMenuElementCompact - attrConstruct _ = constructDOMHTMLMenuElementCompact - -type instance AttributeList DOMHTMLMenuElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "content" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text -getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content" - -setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" val - -constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" val - -data DOMHTMLMetaElementContentPropertyInfo -instance AttrInfo DOMHTMLMetaElementContentPropertyInfo where - type AttrAllowedOps DOMHTMLMetaElementContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMetaElementContentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMetaElementContentPropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementContentPropertyInfo = T.Text - type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "DOMHTMLMetaElement::content" - attrGet _ = getDOMHTMLMetaElementContent - attrSet _ = setDOMHTMLMetaElementContent - attrConstruct _ = constructDOMHTMLMetaElementContent - --- VVV Prop "http-equiv" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text -getDOMHTMLMetaElementHttpEquiv obj = liftIO $ getObjectPropertyString obj "http-equiv" - -setDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" val - -constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" val - -data DOMHTMLMetaElementHttpEquivPropertyInfo -instance AttrInfo DOMHTMLMetaElementHttpEquivPropertyInfo where - type AttrAllowedOps DOMHTMLMetaElementHttpEquivPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = T.Text - type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "DOMHTMLMetaElement::http-equiv" - attrGet _ = getDOMHTMLMetaElementHttpEquiv - attrSet _ = setDOMHTMLMetaElementHttpEquiv - attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text -getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" val - -data DOMHTMLMetaElementNamePropertyInfo -instance AttrInfo DOMHTMLMetaElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLMetaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMetaElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMetaElementNamePropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "DOMHTMLMetaElement::name" - attrGet _ = getDOMHTMLMetaElementName - attrSet _ = setDOMHTMLMetaElementName - attrConstruct _ = constructDOMHTMLMetaElementName - --- VVV Prop "scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text -getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme" - -setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" val - -constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" val - -data DOMHTMLMetaElementSchemePropertyInfo -instance AttrInfo DOMHTMLMetaElementSchemePropertyInfo where - type AttrAllowedOps DOMHTMLMetaElementSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = T.Text - type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "DOMHTMLMetaElement::scheme" - attrGet _ = getDOMHTMLMetaElementScheme - attrSet _ = setDOMHTMLMetaElementScheme - attrConstruct _ = constructDOMHTMLMetaElementScheme - -type instance AttributeList DOMHTMLMetaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("http-equiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "cite" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text -getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite" - -setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () -setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val - -constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" val - -data DOMHTMLModElementCitePropertyInfo -instance AttrInfo DOMHTMLModElementCitePropertyInfo where - type AttrAllowedOps DOMHTMLModElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLModElementCitePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLModElementCitePropertyInfo = DOMHTMLModElementK - type AttrGetType DOMHTMLModElementCitePropertyInfo = T.Text - type AttrLabel DOMHTMLModElementCitePropertyInfo = "DOMHTMLModElement::cite" - attrGet _ = getDOMHTMLModElementCite - attrSet _ = setDOMHTMLModElementCite - attrConstruct _ = constructDOMHTMLModElementCite - --- VVV Prop "date-time" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text -getDOMHTMLModElementDateTime obj = liftIO $ getObjectPropertyString obj "date-time" - -setDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () -setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" val - -constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" val - -data DOMHTMLModElementDateTimePropertyInfo -instance AttrInfo DOMHTMLModElementDateTimePropertyInfo where - type AttrAllowedOps DOMHTMLModElementDateTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLModElementDateTimePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLModElementDateTimePropertyInfo = DOMHTMLModElementK - type AttrGetType DOMHTMLModElementDateTimePropertyInfo = T.Text - type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "DOMHTMLModElement::date-time" - attrGet _ = getDOMHTMLModElementDateTime - attrSet _ = setDOMHTMLModElementDateTime - attrConstruct _ = constructDOMHTMLModElementDateTime - -type instance AttributeList DOMHTMLModElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("date-time", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool -getDOMHTMLOListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" - -setDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () -setDOMHTMLOListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val - -constructDOMHTMLOListElementCompact :: Bool -> IO ([Char], GValue) -constructDOMHTMLOListElementCompact val = constructObjectPropertyBool "compact" val - -data DOMHTMLOListElementCompactPropertyInfo -instance AttrInfo DOMHTMLOListElementCompactPropertyInfo where - type AttrAllowedOps DOMHTMLOListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementCompactPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOListElementCompactPropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementCompactPropertyInfo = Bool - type AttrLabel DOMHTMLOListElementCompactPropertyInfo = "DOMHTMLOListElement::compact" - attrGet _ = getDOMHTMLOListElementCompact - attrSet _ = setDOMHTMLOListElementCompact - attrConstruct _ = constructDOMHTMLOListElementCompact - --- VVV Prop "reversed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool -getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed" - -setDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () -setDOMHTMLOListElementReversed obj val = liftIO $ setObjectPropertyBool obj "reversed" val - -constructDOMHTMLOListElementReversed :: Bool -> IO ([Char], GValue) -constructDOMHTMLOListElementReversed val = constructObjectPropertyBool "reversed" val - -data DOMHTMLOListElementReversedPropertyInfo -instance AttrInfo DOMHTMLOListElementReversedPropertyInfo where - type AttrAllowedOps DOMHTMLOListElementReversedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementReversedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOListElementReversedPropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementReversedPropertyInfo = Bool - type AttrLabel DOMHTMLOListElementReversedPropertyInfo = "DOMHTMLOListElement::reversed" - attrGet _ = getDOMHTMLOListElementReversed - attrSet _ = setDOMHTMLOListElementReversed - attrConstruct _ = constructDOMHTMLOListElementReversed - --- VVV Prop "start" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Int64 -getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyInt64 obj "start" - -setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> Int64 -> m () -setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyInt64 obj "start" val - -constructDOMHTMLOListElementStart :: Int64 -> IO ([Char], GValue) -constructDOMHTMLOListElementStart val = constructObjectPropertyInt64 "start" val - -data DOMHTMLOListElementStartPropertyInfo -instance AttrInfo DOMHTMLOListElementStartPropertyInfo where - type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementStartPropertyInfo = Int64 - type AttrLabel DOMHTMLOListElementStartPropertyInfo = "DOMHTMLOListElement::start" - attrGet _ = getDOMHTMLOListElementStart - attrSet _ = setDOMHTMLOListElementStart - attrConstruct _ = constructDOMHTMLOListElementStart - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m T.Text -getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m () -setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOListElementType val = constructObjectPropertyString "type" val - -data DOMHTMLOListElementTypePropertyInfo -instance AttrInfo DOMHTMLOListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLOListElementTypePropertyInfo = "DOMHTMLOListElement::type" - attrGet _ = getDOMHTMLOListElementType - attrSet _ = setDOMHTMLOListElementType - attrConstruct _ = constructDOMHTMLOListElementType - -type instance AttributeList DOMHTMLOListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLObjectElementAlignPropertyInfo -instance AttrInfo DOMHTMLObjectElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "DOMHTMLObjectElement::align" - attrGet _ = getDOMHTMLObjectElementAlign - attrSet _ = setDOMHTMLObjectElementAlign - attrConstruct _ = constructDOMHTMLObjectElementAlign - --- VVV Prop "archive" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive" - -setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val - -constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" val - -data DOMHTMLObjectElementArchivePropertyInfo -instance AttrInfo DOMHTMLObjectElementArchivePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "DOMHTMLObjectElement::archive" - attrGet _ = getDOMHTMLObjectElementArchive - attrSet _ = setDOMHTMLObjectElementArchive - attrConstruct _ = constructDOMHTMLObjectElementArchive - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val - -constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" val - -data DOMHTMLObjectElementBorderPropertyInfo -instance AttrInfo DOMHTMLObjectElementBorderPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "DOMHTMLObjectElement::border" - attrGet _ = getDOMHTMLObjectElementBorder - attrSet _ = setDOMHTMLObjectElementBorder - attrConstruct _ = constructDOMHTMLObjectElementBorder - --- VVV Prop "code" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code" - -setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" val - -constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" val - -data DOMHTMLObjectElementCodePropertyInfo -instance AttrInfo DOMHTMLObjectElementCodePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementCodePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementCodePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "DOMHTMLObjectElement::code" - attrGet _ = getDOMHTMLObjectElementCode - attrSet _ = setDOMHTMLObjectElementCode - attrConstruct _ = constructDOMHTMLObjectElementCode - --- VVV Prop "code-base" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" - -setDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val - -constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" val - -data DOMHTMLObjectElementCodeBasePropertyInfo -instance AttrInfo DOMHTMLObjectElementCodeBasePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "DOMHTMLObjectElement::code-base" - attrGet _ = getDOMHTMLObjectElementCodeBase - attrSet _ = setDOMHTMLObjectElementCodeBase - attrConstruct _ = constructDOMHTMLObjectElementCodeBase - --- VVV Prop "code-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementCodeType obj = liftIO $ getObjectPropertyString obj "code-type" - -setDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" val - -constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" val - -data DOMHTMLObjectElementCodeTypePropertyInfo -instance AttrInfo DOMHTMLObjectElementCodeTypePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementCodeTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "DOMHTMLObjectElement::code-type" - attrGet _ = getDOMHTMLObjectElementCodeType - attrSet _ = setDOMHTMLObjectElementCodeType - attrConstruct _ = constructDOMHTMLObjectElementCodeType - --- VVV Prop "content-document" - -- Type: TInterface "WebKit" "DOMDocument" - -- Flags: [PropertyReadable] - -getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument -getDOMHTMLObjectElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLObjectElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLObjectElementContentDocumentPropertyInfo = "DOMHTMLObjectElement::content-document" - attrGet _ = getDOMHTMLObjectElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "data" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data" - -setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" val - -constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" val - -data DOMHTMLObjectElementDataPropertyInfo -instance AttrInfo DOMHTMLObjectElementDataPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementDataPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementDataPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementDataPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "DOMHTMLObjectElement::data" - attrGet _ = getDOMHTMLObjectElementData - attrSet _ = setDOMHTMLObjectElementData - attrConstruct _ = constructDOMHTMLObjectElementData - --- VVV Prop "declare" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool -getDOMHTMLObjectElementDeclare obj = liftIO $ getObjectPropertyBool obj "declare" - -setDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Bool -> m () -setDOMHTMLObjectElementDeclare obj val = liftIO $ setObjectPropertyBool obj "declare" val - -constructDOMHTMLObjectElementDeclare :: Bool -> IO ([Char], GValue) -constructDOMHTMLObjectElementDeclare val = constructObjectPropertyBool "declare" val - -data DOMHTMLObjectElementDeclarePropertyInfo -instance AttrInfo DOMHTMLObjectElementDeclarePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementDeclarePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementDeclarePropertyInfo = Bool - type AttrLabel DOMHTMLObjectElementDeclarePropertyInfo = "DOMHTMLObjectElement::declare" - attrGet _ = getDOMHTMLObjectElementDeclare - attrSet _ = setDOMHTMLObjectElementDeclare - attrConstruct _ = constructDOMHTMLObjectElementDeclare - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLObjectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLObjectElementFormPropertyInfo -instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLObjectElementFormPropertyInfo = "DOMHTMLObjectElement::form" - attrGet _ = getDOMHTMLObjectElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val - -constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" val - -data DOMHTMLObjectElementHeightPropertyInfo -instance AttrInfo DOMHTMLObjectElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "DOMHTMLObjectElement::height" - attrGet _ = getDOMHTMLObjectElementHeight - attrSet _ = setDOMHTMLObjectElementHeight - attrConstruct _ = constructDOMHTMLObjectElementHeight - --- VVV Prop "hspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 -getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" - -setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () -setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val - -constructDOMHTMLObjectElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLObjectElementHspace val = constructObjectPropertyInt64 "hspace" val - -data DOMHTMLObjectElementHspacePropertyInfo -instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = Int64 - type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "DOMHTMLObjectElement::hspace" - attrGet _ = getDOMHTMLObjectElementHspace - attrSet _ = setDOMHTMLObjectElementHspace - attrConstruct _ = constructDOMHTMLObjectElementHspace - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" val - -data DOMHTMLObjectElementNamePropertyInfo -instance AttrInfo DOMHTMLObjectElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementNamePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "DOMHTMLObjectElement::name" - attrGet _ = getDOMHTMLObjectElementName - attrSet _ = setDOMHTMLObjectElementName - attrConstruct _ = constructDOMHTMLObjectElementName - --- VVV Prop "standby" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby" - -setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" val - -constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" val - -data DOMHTMLObjectElementStandbyPropertyInfo -instance AttrInfo DOMHTMLObjectElementStandbyPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementStandbyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "DOMHTMLObjectElement::standby" - attrGet _ = getDOMHTMLObjectElementStandby - attrSet _ = setDOMHTMLObjectElementStandby - attrConstruct _ = constructDOMHTMLObjectElementStandby - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" val - -data DOMHTMLObjectElementTypePropertyInfo -instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "DOMHTMLObjectElement::type" - attrGet _ = getDOMHTMLObjectElementType - attrSet _ = setDOMHTMLObjectElementType - attrConstruct _ = constructDOMHTMLObjectElementType - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" - -setDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val - -constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" val - -data DOMHTMLObjectElementUseMapPropertyInfo -instance AttrInfo DOMHTMLObjectElementUseMapPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "DOMHTMLObjectElement::use-map" - attrGet _ = getDOMHTMLObjectElementUseMap - attrSet _ = setDOMHTMLObjectElementUseMap - attrConstruct _ = constructDOMHTMLObjectElementUseMap - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLObjectElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "DOMHTMLObjectElement::validation-message" - attrGet _ = getDOMHTMLObjectElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLObjectElementValidity :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMValidityState -getDOMHTMLObjectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLObjectElementValidityPropertyInfo -instance AttrInfo DOMHTMLObjectElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLObjectElementValidityPropertyInfo = "DOMHTMLObjectElement::validity" - attrGet _ = getDOMHTMLObjectElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vspace" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 -getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" - -setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () -setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val - -constructDOMHTMLObjectElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLObjectElementVspace val = constructObjectPropertyInt64 "vspace" val - -data DOMHTMLObjectElementVspacePropertyInfo -instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = Int64 - type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "DOMHTMLObjectElement::vspace" - attrGet _ = getDOMHTMLObjectElementVspace - attrSet _ = setDOMHTMLObjectElementVspace - attrConstruct _ = constructDOMHTMLObjectElementVspace - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text -getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLObjectElementWidthPropertyInfo -instance AttrInfo DOMHTMLObjectElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "DOMHTMLObjectElement::width" - attrGet _ = getDOMHTMLObjectElementWidth - attrSet _ = setDOMHTMLObjectElementWidth - attrConstruct _ = constructDOMHTMLObjectElementWidth - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool -getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLObjectElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLObjectElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLObjectElementWillValidatePropertyInfo = "DOMHTMLObjectElement::will-validate" - attrGet _ = getDOMHTMLObjectElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLObjectElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("code-base", DOMHTMLObjectElementCodeBasePropertyInfo), '("code-type", DOMHTMLObjectElementCodeTypePropertyInfo), '("content-document", DOMHTMLObjectElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("use-map", DOMHTMLObjectElementUseMapPropertyInfo), '("validation-message", DOMHTMLObjectElementValidationMessagePropertyInfo), '("validity", DOMHTMLObjectElementValidityPropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("will-validate", DOMHTMLObjectElementWillValidatePropertyInfo)] - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m Bool -getDOMHTMLOptGroupElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> Bool -> m () -setDOMHTMLOptGroupElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLOptGroupElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLOptGroupElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLOptGroupElementDisabledPropertyInfo -instance AttrInfo DOMHTMLOptGroupElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLOptGroupElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = DOMHTMLOptGroupElementK - type AttrGetType DOMHTMLOptGroupElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLOptGroupElementDisabledPropertyInfo = "DOMHTMLOptGroupElement::disabled" - attrGet _ = getDOMHTMLOptGroupElementDisabled - attrSet _ = setDOMHTMLOptGroupElementDisabled - attrConstruct _ = constructDOMHTMLOptGroupElementDisabled - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m T.Text -getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label" - -setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m () -setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" val - -data DOMHTMLOptGroupElementLabelPropertyInfo -instance AttrInfo DOMHTMLOptGroupElementLabelPropertyInfo where - type AttrAllowedOps DOMHTMLOptGroupElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = DOMHTMLOptGroupElementK - type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = T.Text - type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "DOMHTMLOptGroupElement::label" - attrGet _ = getDOMHTMLOptGroupElementLabel - attrSet _ = setDOMHTMLOptGroupElementLabel - attrConstruct _ = constructDOMHTMLOptGroupElementLabel - -type instance AttributeList DOMHTMLOptGroupElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "default-selected" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool -getDOMHTMLOptionElementDefaultSelected obj = liftIO $ getObjectPropertyBool obj "default-selected" - -setDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () -setDOMHTMLOptionElementDefaultSelected obj val = liftIO $ setObjectPropertyBool obj "default-selected" val - -constructDOMHTMLOptionElementDefaultSelected :: Bool -> IO ([Char], GValue) -constructDOMHTMLOptionElementDefaultSelected val = constructObjectPropertyBool "default-selected" val - -data DOMHTMLOptionElementDefaultSelectedPropertyInfo -instance AttrInfo DOMHTMLOptionElementDefaultSelectedPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementDefaultSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementDefaultSelectedPropertyInfo = Bool - type AttrLabel DOMHTMLOptionElementDefaultSelectedPropertyInfo = "DOMHTMLOptionElement::default-selected" - attrGet _ = getDOMHTMLOptionElementDefaultSelected - attrSet _ = setDOMHTMLOptionElementDefaultSelected - attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool -getDOMHTMLOptionElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () -setDOMHTMLOptionElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLOptionElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLOptionElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLOptionElementDisabledPropertyInfo -instance AttrInfo DOMHTMLOptionElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLOptionElementDisabledPropertyInfo = "DOMHTMLOptionElement::disabled" - attrGet _ = getDOMHTMLOptionElementDisabled - attrSet _ = setDOMHTMLOptionElementDisabled - attrConstruct _ = constructDOMHTMLOptionElementDisabled - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLOptionElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLOptionElementFormPropertyInfo -instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLOptionElementFormPropertyInfo = "DOMHTMLOptionElement::form" - attrGet _ = getDOMHTMLOptionElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Int64 -getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyInt64 obj "index" - -data DOMHTMLOptionElementIndexPropertyInfo -instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "DOMHTMLOptionElement::index" - attrGet _ = getDOMHTMLOptionElementIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text -getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label" - -setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" val - -data DOMHTMLOptionElementLabelPropertyInfo -instance AttrInfo DOMHTMLOptionElementLabelPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = T.Text - type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "DOMHTMLOptionElement::label" - attrGet _ = getDOMHTMLOptionElementLabel - attrSet _ = setDOMHTMLOptionElementLabel - attrConstruct _ = constructDOMHTMLOptionElementLabel - --- VVV Prop "selected" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool -getDOMHTMLOptionElementSelected obj = liftIO $ getObjectPropertyBool obj "selected" - -setDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () -setDOMHTMLOptionElementSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val - -constructDOMHTMLOptionElementSelected :: Bool -> IO ([Char], GValue) -constructDOMHTMLOptionElementSelected val = constructObjectPropertyBool "selected" val - -data DOMHTMLOptionElementSelectedPropertyInfo -instance AttrInfo DOMHTMLOptionElementSelectedPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementSelectedPropertyInfo = Bool - type AttrLabel DOMHTMLOptionElementSelectedPropertyInfo = "DOMHTMLOptionElement::selected" - attrGet _ = getDOMHTMLOptionElementSelected - attrSet _ = setDOMHTMLOptionElementSelected - attrConstruct _ = constructDOMHTMLOptionElementSelected - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text -getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text" - -data DOMHTMLOptionElementTextPropertyInfo -instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementTextPropertyInfo = T.Text - type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "DOMHTMLOptionElement::text" - attrGet _ = getDOMHTMLOptionElementText - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text -getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLOptionElementValuePropertyInfo -instance AttrInfo DOMHTMLOptionElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLOptionElementValuePropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "DOMHTMLOptionElement::value" - attrGet _ = getDOMHTMLOptionElementValue - attrSet _ = setDOMHTMLOptionElementValue - attrConstruct _ = constructDOMHTMLOptionElementValue - -type instance AttributeList DOMHTMLOptionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-selected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Word64 -getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMHTMLOptionsCollectionLengthPropertyInfo -instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where - type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = Word64 - type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "DOMHTMLOptionsCollection::length" - attrGet _ = getDOMHTMLOptionsCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "selected-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Int64 -getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" - -setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> Int64 -> m () -setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val - -constructDOMHTMLOptionsCollectionSelectedIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyInt64 "selected-index" val - -data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo -instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where - type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "DOMHTMLOptionsCollection::selected-index" - attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex - attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex - attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex - -type instance AttributeList DOMHTMLOptionsCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selected-index", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m T.Text -getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m () -setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLParagraphElementAlignPropertyInfo -instance AttrInfo DOMHTMLParagraphElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLParagraphElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = DOMHTMLParagraphElementK - type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "DOMHTMLParagraphElement::align" - attrGet _ = getDOMHTMLParagraphElementAlign - attrSet _ = setDOMHTMLParagraphElementAlign - attrConstruct _ = constructDOMHTMLParagraphElementAlign - -type instance AttributeList DOMHTMLParagraphElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text -getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementName val = constructObjectPropertyString "name" val - -data DOMHTMLParamElementNamePropertyInfo -instance AttrInfo DOMHTMLParamElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLParamElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParamElementNamePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLParamElementNamePropertyInfo = "DOMHTMLParamElement::name" - attrGet _ = getDOMHTMLParamElementName - attrSet _ = setDOMHTMLParamElementName - attrConstruct _ = constructDOMHTMLParamElementName - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text -getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementType val = constructObjectPropertyString "type" val - -data DOMHTMLParamElementTypePropertyInfo -instance AttrInfo DOMHTMLParamElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLParamElementTypePropertyInfo = "DOMHTMLParamElement::type" - attrGet _ = getDOMHTMLParamElementType - attrSet _ = setDOMHTMLParamElementType - attrConstruct _ = constructDOMHTMLParamElementType - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text -getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLParamElementValuePropertyInfo -instance AttrInfo DOMHTMLParamElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLParamElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParamElementValuePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLParamElementValuePropertyInfo = "DOMHTMLParamElement::value" - attrGet _ = getDOMHTMLParamElementValue - attrSet _ = setDOMHTMLParamElementValue - attrConstruct _ = constructDOMHTMLParamElementValue - --- VVV Prop "value-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text -getDOMHTMLParamElementValueType obj = liftIO $ getObjectPropertyString obj "value-type" - -setDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" val - -constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" val - -data DOMHTMLParamElementValueTypePropertyInfo -instance AttrInfo DOMHTMLParamElementValueTypePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementValueTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = T.Text - type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "DOMHTMLParamElement::value-type" - attrGet _ = getDOMHTMLParamElementValueType - attrSet _ = setDOMHTMLParamElementValueType - attrConstruct _ = constructDOMHTMLParamElementValueType - -type instance AttributeList DOMHTMLParamElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("value-type", DOMHTMLParamElementValueTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "width" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Int64 -getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" - -setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> Int64 -> m () -setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val - -constructDOMHTMLPreElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLPreElementWidth val = constructObjectPropertyInt64 "width" val - -data DOMHTMLPreElementWidthPropertyInfo -instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK - type AttrGetType DOMHTMLPreElementWidthPropertyInfo = Int64 - type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "DOMHTMLPreElement::width" - attrGet _ = getDOMHTMLPreElementWidth - attrSet _ = setDOMHTMLPreElementWidth - attrConstruct _ = constructDOMHTMLPreElementWidth - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Bool -getDOMHTMLPreElementWrap obj = liftIO $ getObjectPropertyBool obj "wrap" - -setDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> Bool -> m () -setDOMHTMLPreElementWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val - -constructDOMHTMLPreElementWrap :: Bool -> IO ([Char], GValue) -constructDOMHTMLPreElementWrap val = constructObjectPropertyBool "wrap" val - -data DOMHTMLPreElementWrapPropertyInfo -instance AttrInfo DOMHTMLPreElementWrapPropertyInfo where - type AttrAllowedOps DOMHTMLPreElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPreElementWrapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLPreElementWrapPropertyInfo = DOMHTMLPreElementK - type AttrGetType DOMHTMLPreElementWrapPropertyInfo = Bool - type AttrLabel DOMHTMLPreElementWrapPropertyInfo = "DOMHTMLPreElement::wrap" - attrGet _ = getDOMHTMLPreElementWrap - attrSet _ = setDOMHTMLPreElementWrap - attrConstruct _ = constructDOMHTMLPreElementWrap - -type instance AttributeList DOMHTMLPreElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m Word64 -getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMHTMLPropertiesCollectionLengthPropertyInfo -instance AttrInfo DOMHTMLPropertiesCollectionLengthPropertyInfo where - type AttrAllowedOps DOMHTMLPropertiesCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = DOMHTMLPropertiesCollectionK - type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = Word64 - type AttrLabel DOMHTMLPropertiesCollectionLengthPropertyInfo = "DOMHTMLPropertiesCollection::length" - attrGet _ = getDOMHTMLPropertiesCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "names" - -- Type: TInterface "WebKit" "DOMDOMStringList" - -- Flags: [PropertyReadable] - -getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m DOMDOMStringList -getDOMHTMLPropertiesCollectionNames obj = liftIO $ getObjectPropertyObject obj "names" DOMDOMStringList - -data DOMHTMLPropertiesCollectionNamesPropertyInfo -instance AttrInfo DOMHTMLPropertiesCollectionNamesPropertyInfo where - type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMHTMLPropertiesCollectionK - type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMDOMStringList - type AttrLabel DOMHTMLPropertiesCollectionNamesPropertyInfo = "DOMHTMLPropertiesCollection::names" - attrGet _ = getDOMHTMLPropertiesCollectionNames - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLPropertiesCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLPropertiesCollectionLengthPropertyInfo), '("names", DOMHTMLPropertiesCollectionNamesPropertyInfo)] - --- VVV Prop "cite" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m T.Text -getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite" - -setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m () -setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val - -constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" val - -data DOMHTMLQuoteElementCitePropertyInfo -instance AttrInfo DOMHTMLQuoteElementCitePropertyInfo where - type AttrAllowedOps DOMHTMLQuoteElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = DOMHTMLQuoteElementK - type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = T.Text - type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "DOMHTMLQuoteElement::cite" - attrGet _ = getDOMHTMLQuoteElementCite - attrSet _ = setDOMHTMLQuoteElementCite - attrConstruct _ = constructDOMHTMLQuoteElementCite - -type instance AttributeList DOMHTMLQuoteElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "async" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool -getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async" - -setDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () -setDOMHTMLScriptElementAsync obj val = liftIO $ setObjectPropertyBool obj "async" val - -constructDOMHTMLScriptElementAsync :: Bool -> IO ([Char], GValue) -constructDOMHTMLScriptElementAsync val = constructObjectPropertyBool "async" val - -data DOMHTMLScriptElementAsyncPropertyInfo -instance AttrInfo DOMHTMLScriptElementAsyncPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementAsyncPropertyInfo = Bool - type AttrLabel DOMHTMLScriptElementAsyncPropertyInfo = "DOMHTMLScriptElement::async" - attrGet _ = getDOMHTMLScriptElementAsync - attrSet _ = setDOMHTMLScriptElementAsync - attrConstruct _ = constructDOMHTMLScriptElementAsync - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val - -constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" val - -data DOMHTMLScriptElementCharsetPropertyInfo -instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "DOMHTMLScriptElement::charset" - attrGet _ = getDOMHTMLScriptElementCharset - attrSet _ = setDOMHTMLScriptElementCharset - attrConstruct _ = constructDOMHTMLScriptElementCharset - --- VVV Prop "cross-origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" - -setDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val - -constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" val - -data DOMHTMLScriptElementCrossOriginPropertyInfo -instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "DOMHTMLScriptElement::cross-origin" - attrGet _ = getDOMHTMLScriptElementCrossOrigin - attrSet _ = setDOMHTMLScriptElementCrossOrigin - attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin - --- VVV Prop "defer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool -getDOMHTMLScriptElementDefer obj = liftIO $ getObjectPropertyBool obj "defer" - -setDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () -setDOMHTMLScriptElementDefer obj val = liftIO $ setObjectPropertyBool obj "defer" val - -constructDOMHTMLScriptElementDefer :: Bool -> IO ([Char], GValue) -constructDOMHTMLScriptElementDefer val = constructObjectPropertyBool "defer" val - -data DOMHTMLScriptElementDeferPropertyInfo -instance AttrInfo DOMHTMLScriptElementDeferPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementDeferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementDeferPropertyInfo = Bool - type AttrLabel DOMHTMLScriptElementDeferPropertyInfo = "DOMHTMLScriptElement::defer" - attrGet _ = getDOMHTMLScriptElementDefer - attrSet _ = setDOMHTMLScriptElementDefer - attrConstruct _ = constructDOMHTMLScriptElementDefer - --- VVV Prop "event" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event" - -setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" val - -constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" val - -data DOMHTMLScriptElementEventPropertyInfo -instance AttrInfo DOMHTMLScriptElementEventPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementEventPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementEventPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementEventPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementEventPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "DOMHTMLScriptElement::event" - attrGet _ = getDOMHTMLScriptElementEvent - attrSet _ = setDOMHTMLScriptElementEvent - attrConstruct _ = constructDOMHTMLScriptElementEvent - --- VVV Prop "html-for" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" - -setDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val - -constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" val - -data DOMHTMLScriptElementHtmlForPropertyInfo -instance AttrInfo DOMHTMLScriptElementHtmlForPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "DOMHTMLScriptElement::html-for" - attrGet _ = getDOMHTMLScriptElementHtmlFor - attrSet _ = setDOMHTMLScriptElementHtmlFor - attrConstruct _ = constructDOMHTMLScriptElementHtmlFor - --- VVV Prop "nonce" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce" - -setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" val - -constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" val - -data DOMHTMLScriptElementNoncePropertyInfo -instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "DOMHTMLScriptElement::nonce" - attrGet _ = getDOMHTMLScriptElementNonce - attrSet _ = setDOMHTMLScriptElementNonce - attrConstruct _ = constructDOMHTMLScriptElementNonce - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val - -constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" val - -data DOMHTMLScriptElementSrcPropertyInfo -instance AttrInfo DOMHTMLScriptElementSrcPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "DOMHTMLScriptElement::src" - attrGet _ = getDOMHTMLScriptElementSrc - attrSet _ = setDOMHTMLScriptElementSrc - attrConstruct _ = constructDOMHTMLScriptElementSrc - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" val - -data DOMHTMLScriptElementTextPropertyInfo -instance AttrInfo DOMHTMLScriptElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementTextPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementTextPropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "DOMHTMLScriptElement::text" - attrGet _ = getDOMHTMLScriptElementText - attrSet _ = setDOMHTMLScriptElementText - attrConstruct _ = constructDOMHTMLScriptElementText - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text -getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" val - -data DOMHTMLScriptElementTypePropertyInfo -instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "DOMHTMLScriptElement::type" - attrGet _ = getDOMHTMLScriptElementType - attrSet _ = setDOMHTMLScriptElementType - attrConstruct _ = constructDOMHTMLScriptElementType - -type instance AttributeList DOMHTMLScriptElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool -getDOMHTMLSelectElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" - -setDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () -setDOMHTMLSelectElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val - -constructDOMHTMLSelectElementAutofocus :: Bool -> IO ([Char], GValue) -constructDOMHTMLSelectElementAutofocus val = constructObjectPropertyBool "autofocus" val - -data DOMHTMLSelectElementAutofocusPropertyInfo -instance AttrInfo DOMHTMLSelectElementAutofocusPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementAutofocusPropertyInfo = Bool - type AttrLabel DOMHTMLSelectElementAutofocusPropertyInfo = "DOMHTMLSelectElement::autofocus" - attrGet _ = getDOMHTMLSelectElementAutofocus - attrSet _ = setDOMHTMLSelectElementAutofocus - attrConstruct _ = constructDOMHTMLSelectElementAutofocus - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool -getDOMHTMLSelectElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () -setDOMHTMLSelectElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLSelectElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLSelectElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLSelectElementDisabledPropertyInfo -instance AttrInfo DOMHTMLSelectElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLSelectElementDisabledPropertyInfo = "DOMHTMLSelectElement::disabled" - attrGet _ = getDOMHTMLSelectElementDisabled - attrSet _ = setDOMHTMLSelectElementDisabled - attrConstruct _ = constructDOMHTMLSelectElementDisabled - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLSelectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLSelectElementFormPropertyInfo -instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLSelectElementFormPropertyInfo = "DOMHTMLSelectElement::form" - attrGet _ = getDOMHTMLSelectElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "labels" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMNodeList -getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLSelectElementLabelsPropertyInfo -instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = DOMNodeList - type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "DOMHTMLSelectElement::labels" - attrGet _ = getDOMHTMLSelectElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Word64 -getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Word64 -> m () -setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyUInt64 obj "length" val - -constructDOMHTMLSelectElementLength :: Word64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementLength val = constructObjectPropertyUInt64 "length" val - -data DOMHTMLSelectElementLengthPropertyInfo -instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = Word64 - type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "DOMHTMLSelectElement::length" - attrGet _ = getDOMHTMLSelectElementLength - attrSet _ = setDOMHTMLSelectElementLength - attrConstruct _ = constructDOMHTMLSelectElementLength - --- VVV Prop "multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool -getDOMHTMLSelectElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" - -setDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () -setDOMHTMLSelectElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val - -constructDOMHTMLSelectElementMultiple :: Bool -> IO ([Char], GValue) -constructDOMHTMLSelectElementMultiple val = constructObjectPropertyBool "multiple" val - -data DOMHTMLSelectElementMultiplePropertyInfo -instance AttrInfo DOMHTMLSelectElementMultiplePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementMultiplePropertyInfo = Bool - type AttrLabel DOMHTMLSelectElementMultiplePropertyInfo = "DOMHTMLSelectElement::multiple" - attrGet _ = getDOMHTMLSelectElementMultiple - attrSet _ = setDOMHTMLSelectElementMultiple - attrConstruct _ = constructDOMHTMLSelectElementMultiple - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text -getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" val - -data DOMHTMLSelectElementNamePropertyInfo -instance AttrInfo DOMHTMLSelectElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLSelectElementNamePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "DOMHTMLSelectElement::name" - attrGet _ = getDOMHTMLSelectElementName - attrSet _ = setDOMHTMLSelectElementName - attrConstruct _ = constructDOMHTMLSelectElementName - --- VVV Prop "options" - -- Type: TInterface "WebKit" "DOMHTMLOptionsCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLOptionsCollection -getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection - -data DOMHTMLSelectElementOptionsPropertyInfo -instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLOptionsCollection - type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "DOMHTMLSelectElement::options" - attrGet _ = getDOMHTMLSelectElementOptions - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool -getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required" - -setDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () -setDOMHTMLSelectElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val - -constructDOMHTMLSelectElementRequired :: Bool -> IO ([Char], GValue) -constructDOMHTMLSelectElementRequired val = constructObjectPropertyBool "required" val - -data DOMHTMLSelectElementRequiredPropertyInfo -instance AttrInfo DOMHTMLSelectElementRequiredPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementRequiredPropertyInfo = Bool - type AttrLabel DOMHTMLSelectElementRequiredPropertyInfo = "DOMHTMLSelectElement::required" - attrGet _ = getDOMHTMLSelectElementRequired - attrSet _ = setDOMHTMLSelectElementRequired - attrConstruct _ = constructDOMHTMLSelectElementRequired - --- VVV Prop "selected-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 -getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" - -setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () -setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val - -constructDOMHTMLSelectElementSelectedIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyInt64 "selected-index" val - -data DOMHTMLSelectElementSelectedIndexPropertyInfo -instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "DOMHTMLSelectElement::selected-index" - attrGet _ = getDOMHTMLSelectElementSelectedIndex - attrSet _ = setDOMHTMLSelectElementSelectedIndex - attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex - --- VVV Prop "selected-options" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLCollection -getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection - -data DOMHTMLSelectElementSelectedOptionsPropertyInfo -instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "DOMHTMLSelectElement::selected-options" - attrGet _ = getDOMHTMLSelectElementSelectedOptions - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 -getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" - -setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () -setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val - -constructDOMHTMLSelectElementSize :: Int64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementSize val = constructObjectPropertyInt64 "size" val - -data DOMHTMLSelectElementSizePropertyInfo -instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSizePropertyInfo = Int64 - type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "DOMHTMLSelectElement::size" - attrGet _ = getDOMHTMLSelectElementSize - attrSet _ = setDOMHTMLSelectElementSize - attrConstruct _ = constructDOMHTMLSelectElementSize - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text -getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLSelectElementTypePropertyInfo -instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "DOMHTMLSelectElement::type" - attrGet _ = getDOMHTMLSelectElementType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text -getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLSelectElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "DOMHTMLSelectElement::validation-message" - attrGet _ = getDOMHTMLSelectElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementValidity :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMValidityState -getDOMHTMLSelectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLSelectElementValidityPropertyInfo -instance AttrInfo DOMHTMLSelectElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLSelectElementValidityPropertyInfo = "DOMHTMLSelectElement::validity" - attrGet _ = getDOMHTMLSelectElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text -getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLSelectElementValuePropertyInfo -instance AttrInfo DOMHTMLSelectElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLSelectElementValuePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "DOMHTMLSelectElement::value" - attrGet _ = getDOMHTMLSelectElementValue - attrSet _ = setDOMHTMLSelectElementValue - attrConstruct _ = constructDOMHTMLSelectElementValue - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLSelectElementWillValidate :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool -getDOMHTMLSelectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLSelectElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLSelectElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLSelectElementWillValidatePropertyInfo = "DOMHTMLSelectElement::will-validate" - attrGet _ = getDOMHTMLSelectElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHTMLSelectElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected-index", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selected-options", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validation-message", DOMHTMLSelectElementValidationMessagePropertyInfo), '("validity", DOMHTMLSelectElementValidityPropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLSelectElementWillValidatePropertyInfo)] - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m Bool -getDOMHTMLStyleElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> Bool -> m () -setDOMHTMLStyleElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLStyleElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLStyleElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLStyleElementDisabledPropertyInfo -instance AttrInfo DOMHTMLStyleElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLStyleElementDisabledPropertyInfo = "DOMHTMLStyleElement::disabled" - attrGet _ = getDOMHTMLStyleElementDisabled - attrSet _ = setDOMHTMLStyleElementDisabled - attrConstruct _ = constructDOMHTMLStyleElementDisabled - --- VVV Prop "media" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text -getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media" - -setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val - -constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" val - -data DOMHTMLStyleElementMediaPropertyInfo -instance AttrInfo DOMHTMLStyleElementMediaPropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = T.Text - type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "DOMHTMLStyleElement::media" - attrGet _ = getDOMHTMLStyleElementMedia - attrSet _ = setDOMHTMLStyleElementMedia - attrConstruct _ = constructDOMHTMLStyleElementMedia - --- VVV Prop "sheet" - -- Type: TInterface "WebKit" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m DOMStyleSheet -getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMHTMLStyleElementSheetPropertyInfo -instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = DOMStyleSheet - type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "DOMHTMLStyleElement::sheet" - attrGet _ = getDOMHTMLStyleElementSheet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text -getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" val - -data DOMHTMLStyleElementTypePropertyInfo -instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "DOMHTMLStyleElement::type" - attrGet _ = getDOMHTMLStyleElementType - attrSet _ = setDOMHTMLStyleElementType - attrConstruct _ = constructDOMHTMLStyleElementType - -type instance AttributeList DOMHTMLStyleElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m T.Text -getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m () -setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableCaptionElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableCaptionElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableCaptionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = DOMHTMLTableCaptionElementK - type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "DOMHTMLTableCaptionElement::align" - attrGet _ = getDOMHTMLTableCaptionElementAlign - attrSet _ = setDOMHTMLTableCaptionElementAlign - attrConstruct _ = constructDOMHTMLTableCaptionElementAlign - -type instance AttributeList DOMHTMLTableCaptionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "abbr" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr" - -setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" val - -constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" val - -data DOMHTMLTableCellElementAbbrPropertyInfo -instance AttrInfo DOMHTMLTableCellElementAbbrPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementAbbrPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "DOMHTMLTableCellElement::abbr" - attrGet _ = getDOMHTMLTableCellElementAbbr - attrSet _ = setDOMHTMLTableCellElementAbbr - attrConstruct _ = constructDOMHTMLTableCellElementAbbr - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableCellElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableCellElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "DOMHTMLTableCellElement::align" - attrGet _ = getDOMHTMLTableCellElementAlign - attrSet _ = setDOMHTMLTableCellElementAlign - attrConstruct _ = constructDOMHTMLTableCellElementAlign - --- VVV Prop "axis" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis" - -setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" val - -constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" val - -data DOMHTMLTableCellElementAxisPropertyInfo -instance AttrInfo DOMHTMLTableCellElementAxisPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementAxisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "DOMHTMLTableCellElement::axis" - attrGet _ = getDOMHTMLTableCellElementAxis - attrSet _ = setDOMHTMLTableCellElementAxis - attrConstruct _ = constructDOMHTMLTableCellElementAxis - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLTableCellElementBgColorPropertyInfo -instance AttrInfo DOMHTMLTableCellElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "DOMHTMLTableCellElement::bg-color" - attrGet _ = getDOMHTMLTableCellElementBgColor - attrSet _ = setDOMHTMLTableCellElementBgColor - attrConstruct _ = constructDOMHTMLTableCellElementBgColor - --- VVV Prop "cell-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyInt64 obj "cell-index" - -data DOMHTMLTableCellElementCellIndexPropertyInfo -instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "DOMHTMLTableCellElement::cell-index" - attrGet _ = getDOMHTMLTableCellElementCellIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val - -constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" val - -data DOMHTMLTableCellElementChPropertyInfo -instance AttrInfo DOMHTMLTableCellElementChPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementChPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementChPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementChPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "DOMHTMLTableCellElement::ch" - attrGet _ = getDOMHTMLTableCellElementCh - attrSet _ = setDOMHTMLTableCellElementCh - attrConstruct _ = constructDOMHTMLTableCellElementCh - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" - -setDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val - -constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" val - -data DOMHTMLTableCellElementChOffPropertyInfo -instance AttrInfo DOMHTMLTableCellElementChOffPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "DOMHTMLTableCellElement::ch-off" - attrGet _ = getDOMHTMLTableCellElementChOff - attrSet _ = setDOMHTMLTableCellElementChOff - attrConstruct _ = constructDOMHTMLTableCellElementChOff - --- VVV Prop "col-span" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyInt64 obj "col-span" - -setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () -setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyInt64 obj "col-span" val - -constructDOMHTMLTableCellElementColSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyInt64 "col-span" val - -data DOMHTMLTableCellElementColSpanPropertyInfo -instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = Int64 - type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "DOMHTMLTableCellElement::col-span" - attrGet _ = getDOMHTMLTableCellElementColSpan - attrSet _ = setDOMHTMLTableCellElementColSpan - attrConstruct _ = constructDOMHTMLTableCellElementColSpan - --- VVV Prop "headers" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers" - -setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" val - -constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" val - -data DOMHTMLTableCellElementHeadersPropertyInfo -instance AttrInfo DOMHTMLTableCellElementHeadersPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "DOMHTMLTableCellElement::headers" - attrGet _ = getDOMHTMLTableCellElementHeaders - attrSet _ = setDOMHTMLTableCellElementHeaders - attrConstruct _ = constructDOMHTMLTableCellElementHeaders - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val - -constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" val - -data DOMHTMLTableCellElementHeightPropertyInfo -instance AttrInfo DOMHTMLTableCellElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "DOMHTMLTableCellElement::height" - attrGet _ = getDOMHTMLTableCellElementHeight - attrSet _ = setDOMHTMLTableCellElementHeight - attrConstruct _ = constructDOMHTMLTableCellElementHeight - --- VVV Prop "no-wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Bool -getDOMHTMLTableCellElementNoWrap obj = liftIO $ getObjectPropertyBool obj "no-wrap" - -setDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Bool -> m () -setDOMHTMLTableCellElementNoWrap obj val = liftIO $ setObjectPropertyBool obj "no-wrap" val - -constructDOMHTMLTableCellElementNoWrap :: Bool -> IO ([Char], GValue) -constructDOMHTMLTableCellElementNoWrap val = constructObjectPropertyBool "no-wrap" val - -data DOMHTMLTableCellElementNoWrapPropertyInfo -instance AttrInfo DOMHTMLTableCellElementNoWrapPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementNoWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementNoWrapPropertyInfo = Bool - type AttrLabel DOMHTMLTableCellElementNoWrapPropertyInfo = "DOMHTMLTableCellElement::no-wrap" - attrGet _ = getDOMHTMLTableCellElementNoWrap - attrSet _ = setDOMHTMLTableCellElementNoWrap - attrConstruct _ = constructDOMHTMLTableCellElementNoWrap - --- VVV Prop "row-span" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyInt64 obj "row-span" - -setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () -setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyInt64 obj "row-span" val - -constructDOMHTMLTableCellElementRowSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyInt64 "row-span" val - -data DOMHTMLTableCellElementRowSpanPropertyInfo -instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = Int64 - type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "DOMHTMLTableCellElement::row-span" - attrGet _ = getDOMHTMLTableCellElementRowSpan - attrSet _ = setDOMHTMLTableCellElementRowSpan - attrConstruct _ = constructDOMHTMLTableCellElementRowSpan - --- VVV Prop "scope" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope" - -setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" val - -constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" val - -data DOMHTMLTableCellElementScopePropertyInfo -instance AttrInfo DOMHTMLTableCellElementScopePropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "DOMHTMLTableCellElement::scope" - attrGet _ = getDOMHTMLTableCellElementScope - attrSet _ = setDOMHTMLTableCellElementScope - attrConstruct _ = constructDOMHTMLTableCellElementScope - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" - -setDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val - -constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" val - -data DOMHTMLTableCellElementVAlignPropertyInfo -instance AttrInfo DOMHTMLTableCellElementVAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "DOMHTMLTableCellElement::v-align" - attrGet _ = getDOMHTMLTableCellElementVAlign - attrSet _ = setDOMHTMLTableCellElementVAlign - attrConstruct _ = constructDOMHTMLTableCellElementVAlign - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text -getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLTableCellElementWidthPropertyInfo -instance AttrInfo DOMHTMLTableCellElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "DOMHTMLTableCellElement::width" - attrGet _ = getDOMHTMLTableCellElementWidth - attrSet _ = setDOMHTMLTableCellElementWidth - attrConstruct _ = constructDOMHTMLTableCellElementWidth - -type instance AttributeList DOMHTMLTableCellElement = '[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableCellElementBgColorPropertyInfo), '("cell-index", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("ch-off", DOMHTMLTableCellElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("col-span", DOMHTMLTableCellElementColSpanPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-wrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-span", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text -getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableColElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableColElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "DOMHTMLTableColElement::align" - attrGet _ = getDOMHTMLTableColElementAlign - attrSet _ = setDOMHTMLTableColElementAlign - attrConstruct _ = constructDOMHTMLTableColElementAlign - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text -getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val - -constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" val - -data DOMHTMLTableColElementChPropertyInfo -instance AttrInfo DOMHTMLTableColElementChPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementChPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableColElementChPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementChPropertyInfo = T.Text - type AttrLabel DOMHTMLTableColElementChPropertyInfo = "DOMHTMLTableColElement::ch" - attrGet _ = getDOMHTMLTableColElementCh - attrSet _ = setDOMHTMLTableColElementCh - attrConstruct _ = constructDOMHTMLTableColElementCh - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text -getDOMHTMLTableColElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" - -setDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val - -constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" val - -data DOMHTMLTableColElementChOffPropertyInfo -instance AttrInfo DOMHTMLTableColElementChOffPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = T.Text - type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "DOMHTMLTableColElement::ch-off" - attrGet _ = getDOMHTMLTableColElementChOff - attrSet _ = setDOMHTMLTableColElementChOff - attrConstruct _ = constructDOMHTMLTableColElementChOff - --- VVV Prop "span" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m Int64 -getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyInt64 obj "span" - -setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> Int64 -> m () -setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyInt64 obj "span" val - -constructDOMHTMLTableColElementSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableColElementSpan val = constructObjectPropertyInt64 "span" val - -data DOMHTMLTableColElementSpanPropertyInfo -instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = Int64 - type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "DOMHTMLTableColElement::span" - attrGet _ = getDOMHTMLTableColElementSpan - attrSet _ = setDOMHTMLTableColElementSpan - attrConstruct _ = constructDOMHTMLTableColElementSpan - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text -getDOMHTMLTableColElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" - -setDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val - -constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" val - -data DOMHTMLTableColElementVAlignPropertyInfo -instance AttrInfo DOMHTMLTableColElementVAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "DOMHTMLTableColElement::v-align" - attrGet _ = getDOMHTMLTableColElementVAlign - attrSet _ = setDOMHTMLTableColElementVAlign - attrConstruct _ = constructDOMHTMLTableColElementVAlign - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text -getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLTableColElementWidthPropertyInfo -instance AttrInfo DOMHTMLTableColElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "DOMHTMLTableColElement::width" - attrGet _ = getDOMHTMLTableColElementWidth - attrSet _ = setDOMHTMLTableColElementWidth - attrConstruct _ = constructDOMHTMLTableColElementWidth - -type instance AttributeList DOMHTMLTableColElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("ch-off", DOMHTMLTableColElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableColElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementAlignPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "DOMHTMLTableElement::align" - attrGet _ = getDOMHTMLTableElementAlign - attrSet _ = setDOMHTMLTableElementAlign - attrConstruct _ = constructDOMHTMLTableElementAlign - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLTableElementBgColorPropertyInfo -instance AttrInfo DOMHTMLTableElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "DOMHTMLTableElement::bg-color" - attrGet _ = getDOMHTMLTableElementBgColor - attrSet _ = setDOMHTMLTableElementBgColor - attrConstruct _ = constructDOMHTMLTableElementBgColor - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val - -constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" val - -data DOMHTMLTableElementBorderPropertyInfo -instance AttrInfo DOMHTMLTableElementBorderPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementBorderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementBorderPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementBorderPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "DOMHTMLTableElement::border" - attrGet _ = getDOMHTMLTableElementBorder - attrSet _ = setDOMHTMLTableElementBorder - attrConstruct _ = constructDOMHTMLTableElementBorder - --- VVV Prop "caption" - -- Type: TInterface "WebKit" "DOMHTMLTableCaptionElement" - -- Flags: [PropertyReadable] - -getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement -getDOMHTMLTableElementCaption obj = liftIO $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement - -data DOMHTMLTableElementCaptionPropertyInfo -instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement - type AttrLabel DOMHTMLTableElementCaptionPropertyInfo = "DOMHTMLTableElement::caption" - attrGet _ = getDOMHTMLTableElementCaption - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cell-padding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementCellPadding obj = liftIO $ getObjectPropertyString obj "cell-padding" - -setDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" val - -constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" val - -data DOMHTMLTableElementCellPaddingPropertyInfo -instance AttrInfo DOMHTMLTableElementCellPaddingPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementCellPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "DOMHTMLTableElement::cell-padding" - attrGet _ = getDOMHTMLTableElementCellPadding - attrSet _ = setDOMHTMLTableElementCellPadding - attrConstruct _ = constructDOMHTMLTableElementCellPadding - --- VVV Prop "cell-spacing" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementCellSpacing obj = liftIO $ getObjectPropertyString obj "cell-spacing" - -setDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" val - -constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" val - -data DOMHTMLTableElementCellSpacingPropertyInfo -instance AttrInfo DOMHTMLTableElementCellSpacingPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementCellSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "DOMHTMLTableElement::cell-spacing" - attrGet _ = getDOMHTMLTableElementCellSpacing - attrSet _ = setDOMHTMLTableElementCellSpacing - attrConstruct _ = constructDOMHTMLTableElementCellSpacing - --- VVV Prop "frame" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame" - -setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" val - -constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" val - -data DOMHTMLTableElementFramePropertyInfo -instance AttrInfo DOMHTMLTableElementFramePropertyInfo where - type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementFramePropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementFramePropertyInfo = "DOMHTMLTableElement::frame" - attrGet _ = getDOMHTMLTableElementFrame - attrSet _ = setDOMHTMLTableElementFrame - attrConstruct _ = constructDOMHTMLTableElementFrame - --- VVV Prop "rows" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection -getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection - -data DOMHTMLTableElementRowsPropertyInfo -instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementRowsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "DOMHTMLTableElement::rows" - attrGet _ = getDOMHTMLTableElementRows - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "rules" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules" - -setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" val - -constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" val - -data DOMHTMLTableElementRulesPropertyInfo -instance AttrInfo DOMHTMLTableElementRulesPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementRulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementRulesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementRulesPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementRulesPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "DOMHTMLTableElement::rules" - attrGet _ = getDOMHTMLTableElementRules - attrSet _ = setDOMHTMLTableElementRules - attrConstruct _ = constructDOMHTMLTableElementRules - --- VVV Prop "summary" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary" - -setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" val - -constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" val - -data DOMHTMLTableElementSummaryPropertyInfo -instance AttrInfo DOMHTMLTableElementSummaryPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "DOMHTMLTableElement::summary" - attrGet _ = getDOMHTMLTableElementSummary - attrSet _ = setDOMHTMLTableElementSummary - attrConstruct _ = constructDOMHTMLTableElementSummary - --- VVV Prop "t-bodies" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection -getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection - -data DOMHTMLTableElementTBodiesPropertyInfo -instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "DOMHTMLTableElement::t-bodies" - attrGet _ = getDOMHTMLTableElementTBodies - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "t-foot" - -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" - -- Flags: [PropertyReadable] - -getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTFoot obj = liftIO $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement - -data DOMHTMLTableElementTFootPropertyInfo -instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement - type AttrLabel DOMHTMLTableElementTFootPropertyInfo = "DOMHTMLTableElement::t-foot" - attrGet _ = getDOMHTMLTableElementTFoot - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "t-head" - -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" - -- Flags: [PropertyReadable] - -getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTHead obj = liftIO $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement - -data DOMHTMLTableElementTHeadPropertyInfo -instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement - type AttrLabel DOMHTMLTableElementTHeadPropertyInfo = "DOMHTMLTableElement::t-head" - attrGet _ = getDOMHTMLTableElementTHead - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text -getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val - -constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" val - -data DOMHTMLTableElementWidthPropertyInfo -instance AttrInfo DOMHTMLTableElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementWidthPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementWidthPropertyInfo = T.Text - type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "DOMHTMLTableElement::width" - attrGet _ = getDOMHTMLTableElementWidth - attrSet _ = setDOMHTMLTableElementWidth - attrConstruct _ = constructDOMHTMLTableElementWidth - -type instance AttributeList DOMHTMLTableElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cell-padding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cell-spacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("t-bodies", DOMHTMLTableElementTBodiesPropertyInfo), '("t-foot", DOMHTMLTableElementTFootPropertyInfo), '("t-head", DOMHTMLTableElementTHeadPropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text -getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableRowElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableRowElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "DOMHTMLTableRowElement::align" - attrGet _ = getDOMHTMLTableRowElementAlign - attrSet _ = setDOMHTMLTableRowElementAlign - attrConstruct _ = constructDOMHTMLTableRowElementAlign - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text -getDOMHTMLTableRowElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" - -setDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val - -constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" val - -data DOMHTMLTableRowElementBgColorPropertyInfo -instance AttrInfo DOMHTMLTableRowElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = T.Text - type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "DOMHTMLTableRowElement::bg-color" - attrGet _ = getDOMHTMLTableRowElementBgColor - attrSet _ = setDOMHTMLTableRowElementBgColor - attrConstruct _ = constructDOMHTMLTableRowElementBgColor - --- VVV Prop "cells" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m DOMHTMLCollection -getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection - -data DOMHTMLTableRowElementCellsPropertyInfo -instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "DOMHTMLTableRowElement::cells" - attrGet _ = getDOMHTMLTableRowElementCells - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text -getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val - -constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" val - -data DOMHTMLTableRowElementChPropertyInfo -instance AttrInfo DOMHTMLTableRowElementChPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementChPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableRowElementChPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementChPropertyInfo = T.Text - type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "DOMHTMLTableRowElement::ch" - attrGet _ = getDOMHTMLTableRowElementCh - attrSet _ = setDOMHTMLTableRowElementCh - attrConstruct _ = constructDOMHTMLTableRowElementCh - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text -getDOMHTMLTableRowElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" - -setDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val - -constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" val - -data DOMHTMLTableRowElementChOffPropertyInfo -instance AttrInfo DOMHTMLTableRowElementChOffPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = T.Text - type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "DOMHTMLTableRowElement::ch-off" - attrGet _ = getDOMHTMLTableRowElementChOff - attrSet _ = setDOMHTMLTableRowElementChOff - attrConstruct _ = constructDOMHTMLTableRowElementChOff - --- VVV Prop "row-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 -getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyInt64 obj "row-index" - -data DOMHTMLTableRowElementRowIndexPropertyInfo -instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "DOMHTMLTableRowElement::row-index" - attrGet _ = getDOMHTMLTableRowElementRowIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "section-row-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 -getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyInt64 obj "section-row-index" - -data DOMHTMLTableRowElementSectionRowIndexPropertyInfo -instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = Int64 - type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "DOMHTMLTableRowElement::section-row-index" - attrGet _ = getDOMHTMLTableRowElementSectionRowIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text -getDOMHTMLTableRowElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" - -setDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val - -constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" val - -data DOMHTMLTableRowElementVAlignPropertyInfo -instance AttrInfo DOMHTMLTableRowElementVAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "DOMHTMLTableRowElement::v-align" - attrGet _ = getDOMHTMLTableRowElementVAlign - attrSet _ = setDOMHTMLTableRowElementVAlign - attrConstruct _ = constructDOMHTMLTableRowElementVAlign - -type instance AttributeList DOMHTMLTableRowElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("ch-off", DOMHTMLTableRowElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-index", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("section-row-index", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text -getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val - -data DOMHTMLTableSectionElementAlignPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "DOMHTMLTableSectionElement::align" - attrGet _ = getDOMHTMLTableSectionElementAlign - attrSet _ = setDOMHTMLTableSectionElementAlign - attrConstruct _ = constructDOMHTMLTableSectionElementAlign - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text -getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val - -constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val - -data DOMHTMLTableSectionElementChPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text - type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "DOMHTMLTableSectionElement::ch" - attrGet _ = getDOMHTMLTableSectionElementCh - attrSet _ = setDOMHTMLTableSectionElementCh - attrConstruct _ = constructDOMHTMLTableSectionElementCh - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text -getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" - -setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val - -constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val - -data DOMHTMLTableSectionElementChOffPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text - type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "DOMHTMLTableSectionElement::ch-off" - attrGet _ = getDOMHTMLTableSectionElementChOff - attrSet _ = setDOMHTMLTableSectionElementChOff - attrConstruct _ = constructDOMHTMLTableSectionElementChOff - --- VVV Prop "rows" - -- Type: TInterface "WebKit" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection -getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection - -data DOMHTMLTableSectionElementRowsPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection - type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "DOMHTMLTableSectionElement::rows" - attrGet _ = getDOMHTMLTableSectionElementRows - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text -getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" - -setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val - -constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val - -data DOMHTMLTableSectionElementVAlignPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text - type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "DOMHTMLTableSectionElement::v-align" - attrGet _ = getDOMHTMLTableSectionElementVAlign - attrSet _ = setDOMHTMLTableSectionElementVAlign - attrConstruct _ = constructDOMHTMLTableSectionElementVAlign - -type instance AttributeList DOMHTMLTableSectionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("ch-off", DOMHTMLTableSectionElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val - -constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val - -data DOMHTMLTextAreaElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "DOMHTMLTextAreaElement::autocapitalize" - attrGet _ = getDOMHTMLTextAreaElementAutocapitalize - attrSet _ = setDOMHTMLTextAreaElementAutocapitalize - attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" - -setDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () -setDOMHTMLTextAreaElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val - -constructDOMHTMLTextAreaElementAutocorrect :: Bool -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutocorrect val = constructObjectPropertyBool "autocorrect" val - -data DOMHTMLTextAreaElementAutocorrectPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementAutocorrectPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutocorrectPropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementAutocorrectPropertyInfo = "DOMHTMLTextAreaElement::autocorrect" - attrGet _ = getDOMHTMLTextAreaElementAutocorrect - attrSet _ = setDOMHTMLTextAreaElementAutocorrect - attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" - -setDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () -setDOMHTMLTextAreaElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val - -constructDOMHTMLTextAreaElementAutofocus :: Bool -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutofocus val = constructObjectPropertyBool "autofocus" val - -data DOMHTMLTextAreaElementAutofocusPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementAutofocusPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutofocusPropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementAutofocusPropertyInfo = "DOMHTMLTextAreaElement::autofocus" - attrGet _ = getDOMHTMLTextAreaElementAutofocus - attrSet _ = setDOMHTMLTextAreaElementAutofocus - attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus - --- VVV Prop "cols" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyInt64 obj "cols" - -setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyInt64 obj "cols" val - -constructDOMHTMLTextAreaElementCols :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementCols val = constructObjectPropertyInt64 "cols" val - -data DOMHTMLTextAreaElementColsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = Int64 - type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "DOMHTMLTextAreaElement::cols" - attrGet _ = getDOMHTMLTextAreaElementCols - attrSet _ = setDOMHTMLTextAreaElementCols - attrConstruct _ = constructDOMHTMLTextAreaElementCols - --- VVV Prop "default-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" - -setDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val - -constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" val - -data DOMHTMLTextAreaElementDefaultValuePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementDefaultValuePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "DOMHTMLTextAreaElement::default-value" - attrGet _ = getDOMHTMLTextAreaElementDefaultValue - attrSet _ = setDOMHTMLTextAreaElementDefaultValue - attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue - --- VVV Prop "dir-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" - -setDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val - -constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" val - -data DOMHTMLTextAreaElementDirNamePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "DOMHTMLTextAreaElement::dir-name" - attrGet _ = getDOMHTMLTextAreaElementDirName - attrSet _ = setDOMHTMLTextAreaElementDirName - attrConstruct _ = constructDOMHTMLTextAreaElementDirName - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () -setDOMHTMLTextAreaElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMHTMLTextAreaElementDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDisabled val = constructObjectPropertyBool "disabled" val - -data DOMHTMLTextAreaElementDisabledPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementDisabledPropertyInfo = "DOMHTMLTextAreaElement::disabled" - attrGet _ = getDOMHTMLTextAreaElementDisabled - attrSet _ = setDOMHTMLTextAreaElementDisabled - attrConstruct _ = constructDOMHTMLTextAreaElementDisabled - --- VVV Prop "form" - -- Type: TInterface "WebKit" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLTextAreaElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLTextAreaElementFormPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLTextAreaElementFormPropertyInfo = "DOMHTMLTextAreaElement::form" - attrGet _ = getDOMHTMLTextAreaElementForm - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "labels" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMNodeList -getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLTextAreaElementLabelsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = DOMNodeList - type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "DOMHTMLTextAreaElement::labels" - attrGet _ = getDOMHTMLTextAreaElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "max-length" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" - -setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val - -constructDOMHTMLTextAreaElementMaxLength :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyInt64 "max-length" val - -data DOMHTMLTextAreaElementMaxLengthPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = Int64 - type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "DOMHTMLTextAreaElement::max-length" - attrGet _ = getDOMHTMLTextAreaElementMaxLength - attrSet _ = setDOMHTMLTextAreaElementMaxLength - attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" val - -data DOMHTMLTextAreaElementNamePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "DOMHTMLTextAreaElement::name" - attrGet _ = getDOMHTMLTextAreaElementName - attrSet _ = setDOMHTMLTextAreaElementName - attrConstruct _ = constructDOMHTMLTextAreaElementName - --- VVV Prop "placeholder" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" - -setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val - -constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" val - -data DOMHTMLTextAreaElementPlaceholderPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "DOMHTMLTextAreaElement::placeholder" - attrGet _ = getDOMHTMLTextAreaElementPlaceholder - attrSet _ = setDOMHTMLTextAreaElementPlaceholder - attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" - -setDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () -setDOMHTMLTextAreaElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val - -constructDOMHTMLTextAreaElementReadOnly :: Bool -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementReadOnly val = constructObjectPropertyBool "read-only" val - -data DOMHTMLTextAreaElementReadOnlyPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementReadOnlyPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementReadOnlyPropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementReadOnlyPropertyInfo = "DOMHTMLTextAreaElement::read-only" - attrGet _ = getDOMHTMLTextAreaElementReadOnly - attrSet _ = setDOMHTMLTextAreaElementReadOnly - attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required" - -setDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () -setDOMHTMLTextAreaElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val - -constructDOMHTMLTextAreaElementRequired :: Bool -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementRequired val = constructObjectPropertyBool "required" val - -data DOMHTMLTextAreaElementRequiredPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementRequiredPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementRequiredPropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementRequiredPropertyInfo = "DOMHTMLTextAreaElement::required" - attrGet _ = getDOMHTMLTextAreaElementRequired - attrSet _ = setDOMHTMLTextAreaElementRequired - attrConstruct _ = constructDOMHTMLTextAreaElementRequired - --- VVV Prop "rows" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyInt64 obj "rows" - -setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyInt64 obj "rows" val - -constructDOMHTMLTextAreaElementRows :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementRows val = constructObjectPropertyInt64 "rows" val - -data DOMHTMLTextAreaElementRowsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = Int64 - type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "DOMHTMLTextAreaElement::rows" - attrGet _ = getDOMHTMLTextAreaElementRows - attrSet _ = setDOMHTMLTextAreaElementRows - attrConstruct _ = constructDOMHTMLTextAreaElementRows - --- VVV Prop "selection-direction" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ getObjectPropertyString obj "selection-direction" - -setDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" val - -constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" val - -data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "DOMHTMLTextAreaElement::selection-direction" - attrGet _ = getDOMHTMLTextAreaElementSelectionDirection - attrSet _ = setDOMHTMLTextAreaElementSelectionDirection - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection - --- VVV Prop "selection-end" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyInt64 obj "selection-end" - -setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyInt64 obj "selection-end" val - -constructDOMHTMLTextAreaElementSelectionEnd :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyInt64 "selection-end" val - -data DOMHTMLTextAreaElementSelectionEndPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = Int64 - type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "DOMHTMLTextAreaElement::selection-end" - attrGet _ = getDOMHTMLTextAreaElementSelectionEnd - attrSet _ = setDOMHTMLTextAreaElementSelectionEnd - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd - --- VVV Prop "selection-start" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyInt64 obj "selection-start" - -setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyInt64 obj "selection-start" val - -constructDOMHTMLTextAreaElementSelectionStart :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyInt64 "selection-start" val - -data DOMHTMLTextAreaElementSelectionStartPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = Int64 - type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "DOMHTMLTextAreaElement::selection-start" - attrGet _ = getDOMHTMLTextAreaElementSelectionStart - attrSet _ = setDOMHTMLTextAreaElementSelectionStart - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart - --- VVV Prop "text-length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Word64 -getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyUInt64 obj "text-length" - -data DOMHTMLTextAreaElementTextLengthPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = Word64 - type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "DOMHTMLTextAreaElement::text-length" - attrGet _ = getDOMHTMLTextAreaElementTextLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLTextAreaElementTypePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "DOMHTMLTextAreaElement::type" - attrGet _ = getDOMHTMLTextAreaElementType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLTextAreaElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "DOMHTMLTextAreaElement::validation-message" - attrGet _ = getDOMHTMLTextAreaElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "validity" - -- Type: TInterface "WebKit" "DOMValidityState" - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementValidity :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMValidityState -getDOMHTMLTextAreaElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState - -data DOMHTMLTextAreaElementValidityPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValidityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValidityPropertyInfo = DOMValidityState - type AttrLabel DOMHTMLTextAreaElementValidityPropertyInfo = "DOMHTMLTextAreaElement::validity" - attrGet _ = getDOMHTMLTextAreaElementValidity - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" val - -constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" val - -data DOMHTMLTextAreaElementValuePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "DOMHTMLTextAreaElement::value" - attrGet _ = getDOMHTMLTextAreaElementValue - attrSet _ = setDOMHTMLTextAreaElementValue - attrConstruct _ = constructDOMHTMLTextAreaElementValue - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLTextAreaElementWillValidate :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool -getDOMHTMLTextAreaElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" - -data DOMHTMLTextAreaElementWillValidatePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementWillValidatePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementWillValidatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementWillValidatePropertyInfo = Bool - type AttrLabel DOMHTMLTextAreaElementWillValidatePropertyInfo = "DOMHTMLTextAreaElement::will-validate" - attrGet _ = getDOMHTMLTextAreaElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "wrap" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text -getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap" - -setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" val - -constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" val - -data DOMHTMLTextAreaElementWrapPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = T.Text - type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "DOMHTMLTextAreaElement::wrap" - attrGet _ = getDOMHTMLTextAreaElementWrap - attrSet _ = setDOMHTMLTextAreaElementWrap - attrConstruct _ = constructDOMHTMLTextAreaElementWrap - -type instance AttributeList DOMHTMLTextAreaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-value", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max-length", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selection-direction", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selection-end", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selection-start", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-length", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validation-message", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("validity", DOMHTMLTextAreaElementValidityPropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m T.Text -getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m () -setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" val - -data DOMHTMLTitleElementTextPropertyInfo -instance AttrInfo DOMHTMLTitleElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLTitleElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTitleElementTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTitleElementTextPropertyInfo = DOMHTMLTitleElementK - type AttrGetType DOMHTMLTitleElementTextPropertyInfo = T.Text - type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "DOMHTMLTitleElement::text" - attrGet _ = getDOMHTMLTitleElementText - attrSet _ = setDOMHTMLTitleElementText - attrConstruct _ = constructDOMHTMLTitleElementText - -type instance AttributeList DOMHTMLTitleElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> m Bool -getDOMHTMLUListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" - -setDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> Bool -> m () -setDOMHTMLUListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val - -constructDOMHTMLUListElementCompact :: Bool -> IO ([Char], GValue) -constructDOMHTMLUListElementCompact val = constructObjectPropertyBool "compact" val - -data DOMHTMLUListElementCompactPropertyInfo -instance AttrInfo DOMHTMLUListElementCompactPropertyInfo where - type AttrAllowedOps DOMHTMLUListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLUListElementCompactPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLUListElementCompactPropertyInfo = DOMHTMLUListElementK - type AttrGetType DOMHTMLUListElementCompactPropertyInfo = Bool - type AttrLabel DOMHTMLUListElementCompactPropertyInfo = "DOMHTMLUListElement::compact" - attrGet _ = getDOMHTMLUListElementCompact - attrSet _ = setDOMHTMLUListElementCompact - attrConstruct _ = constructDOMHTMLUListElementCompact - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m T.Text -getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m () -setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" val - -constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLUListElementType val = constructObjectPropertyString "type" val - -data DOMHTMLUListElementTypePropertyInfo -instance AttrInfo DOMHTMLUListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK - type AttrGetType DOMHTMLUListElementTypePropertyInfo = T.Text - type AttrLabel DOMHTMLUListElementTypePropertyInfo = "DOMHTMLUListElement::type" - attrGet _ = getDOMHTMLUListElementType - attrSet _ = setDOMHTMLUListElementType - attrConstruct _ = constructDOMHTMLUListElementType - -type instance AttributeList DOMHTMLUListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] - --- VVV Prop "height" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" - -setDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () -setDOMHTMLVideoElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val - -constructDOMHTMLVideoElementHeight :: Word64 -> IO ([Char], GValue) -constructDOMHTMLVideoElementHeight val = constructObjectPropertyUInt64 "height" val - -data DOMHTMLVideoElementHeightPropertyInfo -instance AttrInfo DOMHTMLVideoElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementHeightPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementHeightPropertyInfo = "DOMHTMLVideoElement::height" - attrGet _ = getDOMHTMLVideoElementHeight - attrSet _ = setDOMHTMLVideoElementHeight - attrConstruct _ = constructDOMHTMLVideoElementHeight - --- VVV Prop "poster" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m T.Text -getDOMHTMLVideoElementPoster obj = liftIO $ getObjectPropertyString obj "poster" - -setDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> T.Text -> m () -setDOMHTMLVideoElementPoster obj val = liftIO $ setObjectPropertyString obj "poster" val - -constructDOMHTMLVideoElementPoster :: T.Text -> IO ([Char], GValue) -constructDOMHTMLVideoElementPoster val = constructObjectPropertyString "poster" val - -data DOMHTMLVideoElementPosterPropertyInfo -instance AttrInfo DOMHTMLVideoElementPosterPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementPosterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementPosterPropertyInfo = T.Text - type AttrLabel DOMHTMLVideoElementPosterPropertyInfo = "DOMHTMLVideoElement::poster" - attrGet _ = getDOMHTMLVideoElementPoster - attrSet _ = setDOMHTMLVideoElementPoster - attrConstruct _ = constructDOMHTMLVideoElementPoster - --- VVV Prop "video-height" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementVideoHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementVideoHeight obj = liftIO $ getObjectPropertyUInt64 obj "video-height" - -data DOMHTMLVideoElementVideoHeightPropertyInfo -instance AttrInfo DOMHTMLVideoElementVideoHeightPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementVideoHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementVideoHeightPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementVideoHeightPropertyInfo = "DOMHTMLVideoElement::video-height" - attrGet _ = getDOMHTMLVideoElementVideoHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "video-width" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementVideoWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementVideoWidth obj = liftIO $ getObjectPropertyUInt64 obj "video-width" - -data DOMHTMLVideoElementVideoWidthPropertyInfo -instance AttrInfo DOMHTMLVideoElementVideoWidthPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementVideoWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementVideoWidthPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementVideoWidthPropertyInfo = "DOMHTMLVideoElement::video-width" - attrGet _ = getDOMHTMLVideoElementVideoWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-decoded-frame-count" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWebkitDecodedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-decoded-frame-count" - -data DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo -instance AttrInfo DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-decoded-frame-count" - attrGet _ = getDOMHTMLVideoElementWebkitDecodedFrameCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-displaying-fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementWebkitDisplayingFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool -getDOMHTMLVideoElementWebkitDisplayingFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-displaying-fullscreen" - -data DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo -instance AttrInfo DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = Bool - type AttrLabel DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-displaying-fullscreen" - attrGet _ = getDOMHTMLVideoElementWebkitDisplayingFullscreen - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-dropped-frame-count" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWebkitDroppedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-dropped-frame-count" - -data DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo -instance AttrInfo DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-dropped-frame-count" - attrGet _ = getDOMHTMLVideoElementWebkitDroppedFrameCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-supports-fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMHTMLVideoElementWebkitSupportsFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool -getDOMHTMLVideoElementWebkitSupportsFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-supports-fullscreen" - -data DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo -instance AttrInfo DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = Bool - type AttrLabel DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-supports-fullscreen" - attrGet _ = getDOMHTMLVideoElementWebkitSupportsFullscreen - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-wireless-video-playback-disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool -getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj = liftIO $ getObjectPropertyBool obj "webkit-wireless-video-playback-disabled" - -setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Bool -> m () -setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj val = liftIO $ setObjectPropertyBool obj "webkit-wireless-video-playback-disabled" val - -constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: Bool -> IO ([Char], GValue) -constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled val = constructObjectPropertyBool "webkit-wireless-video-playback-disabled" val - -data DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo -instance AttrInfo DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = Bool - type AttrLabel DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = "DOMHTMLVideoElement::webkit-wireless-video-playback-disabled" - attrGet _ = getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled - attrSet _ = setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled - attrConstruct _ = constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled - --- VVV Prop "width" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" - -setDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () -setDOMHTMLVideoElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val - -constructDOMHTMLVideoElementWidth :: Word64 -> IO ([Char], GValue) -constructDOMHTMLVideoElementWidth val = constructObjectPropertyUInt64 "width" val - -data DOMHTMLVideoElementWidthPropertyInfo -instance AttrInfo DOMHTMLVideoElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLVideoElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWidthPropertyInfo = Word64 - type AttrLabel DOMHTMLVideoElementWidthPropertyInfo = "DOMHTMLVideoElement::width" - attrGet _ = getDOMHTMLVideoElementWidth - attrSet _ = setDOMHTMLVideoElementWidth - attrConstruct _ = constructDOMHTMLVideoElementWidth - -type instance AttributeList DOMHTMLVideoElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLVideoElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("poster", DOMHTMLVideoElementPosterPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-height", DOMHTMLVideoElementVideoHeightPropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("video-width", DOMHTMLVideoElementVideoWidthPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-decoded-frame-count", DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo), '("webkit-displaying-fullscreen", DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo), '("webkit-dropped-frame-count", DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-supports-fullscreen", DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkit-wireless-video-playback-disabled", DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLVideoElementWidthPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m Word64 -getDOMHistoryLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMHistoryLengthPropertyInfo -instance AttrInfo DOMHistoryLengthPropertyInfo where - type AttrAllowedOps DOMHistoryLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHistoryLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHistoryLengthPropertyInfo = DOMHistoryK - type AttrGetType DOMHistoryLengthPropertyInfo = Word64 - type AttrLabel DOMHistoryLengthPropertyInfo = "DOMHistory::length" - attrGet _ = getDOMHistoryLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMHistory = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHistoryLengthPropertyInfo)] - --- VVV Prop "alt-graph-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool -getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key" - -data DOMKeyboardEventAltGraphKeyPropertyInfo -instance AttrInfo DOMKeyboardEventAltGraphKeyPropertyInfo where - type AttrAllowedOps DOMKeyboardEventAltGraphKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventAltGraphKeyPropertyInfo = Bool - type AttrLabel DOMKeyboardEventAltGraphKeyPropertyInfo = "DOMKeyboardEvent::alt-graph-key" - attrGet _ = getDOMKeyboardEventAltGraphKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "alt-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool -getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" - -data DOMKeyboardEventAltKeyPropertyInfo -instance AttrInfo DOMKeyboardEventAltKeyPropertyInfo where - type AttrAllowedOps DOMKeyboardEventAltKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventAltKeyPropertyInfo = Bool - type AttrLabel DOMKeyboardEventAltKeyPropertyInfo = "DOMKeyboardEvent::alt-key" - attrGet _ = getDOMKeyboardEventAltKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ctrl-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool -getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" - -data DOMKeyboardEventCtrlKeyPropertyInfo -instance AttrInfo DOMKeyboardEventCtrlKeyPropertyInfo where - type AttrAllowedOps DOMKeyboardEventCtrlKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventCtrlKeyPropertyInfo = Bool - type AttrLabel DOMKeyboardEventCtrlKeyPropertyInfo = "DOMKeyboardEvent::ctrl-key" - attrGet _ = getDOMKeyboardEventCtrlKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "key-identifier" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text -getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier" - -data DOMKeyboardEventKeyIdentifierPropertyInfo -instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where - type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text - type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "DOMKeyboardEvent::key-identifier" - attrGet _ = getDOMKeyboardEventKeyIdentifier - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "key-location" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64 -getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location" - -data DOMKeyboardEventKeyLocationPropertyInfo -instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where - type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64 - type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "DOMKeyboardEvent::key-location" - attrGet _ = getDOMKeyboardEventKeyLocation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "meta-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool -getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" - -data DOMKeyboardEventMetaKeyPropertyInfo -instance AttrInfo DOMKeyboardEventMetaKeyPropertyInfo where - type AttrAllowedOps DOMKeyboardEventMetaKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventMetaKeyPropertyInfo = Bool - type AttrLabel DOMKeyboardEventMetaKeyPropertyInfo = "DOMKeyboardEvent::meta-key" - attrGet _ = getDOMKeyboardEventMetaKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "shift-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool -getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" - -data DOMKeyboardEventShiftKeyPropertyInfo -instance AttrInfo DOMKeyboardEventShiftKeyPropertyInfo where - type AttrAllowedOps DOMKeyboardEventShiftKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventShiftKeyPropertyInfo = Bool - type AttrLabel DOMKeyboardEventShiftKeyPropertyInfo = "DOMKeyboardEvent::shift-key" - attrGet _ = getDOMKeyboardEventShiftKey - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMKeyboardEvent = '[ '("alt-graph-key", DOMKeyboardEventAltGraphKeyPropertyInfo), '("alt-key", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMKeyboardEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("key-identifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("key-location", DOMKeyboardEventKeyLocationPropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMKeyboardEventMetaKeyPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("shift-key", DOMKeyboardEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] - --- VVV Prop "ancestor-origins" - -- Type: TInterface "WebKit" "DOMDOMStringList" - -- Flags: [PropertyReadable] - -getDOMLocationAncestorOrigins :: (MonadIO m, DOMLocationK o) => o -> m DOMDOMStringList -getDOMLocationAncestorOrigins obj = liftIO $ getObjectPropertyObject obj "ancestor-origins" DOMDOMStringList - -data DOMLocationAncestorOriginsPropertyInfo -instance AttrInfo DOMLocationAncestorOriginsPropertyInfo where - type AttrAllowedOps DOMLocationAncestorOriginsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationAncestorOriginsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationAncestorOriginsPropertyInfo = DOMLocationK - type AttrGetType DOMLocationAncestorOriginsPropertyInfo = DOMDOMStringList - type AttrLabel DOMLocationAncestorOriginsPropertyInfo = "DOMLocation::ancestor-origins" - attrGet _ = getDOMLocationAncestorOrigins - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hash" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationHash :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationHash obj = liftIO $ getObjectPropertyString obj "hash" - -data DOMLocationHashPropertyInfo -instance AttrInfo DOMLocationHashPropertyInfo where - type AttrAllowedOps DOMLocationHashPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationHashPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationHashPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHashPropertyInfo = T.Text - type AttrLabel DOMLocationHashPropertyInfo = "DOMLocation::hash" - attrGet _ = getDOMLocationHash - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationHost :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationHost obj = liftIO $ getObjectPropertyString obj "host" - -data DOMLocationHostPropertyInfo -instance AttrInfo DOMLocationHostPropertyInfo where - type AttrAllowedOps DOMLocationHostPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationHostPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationHostPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHostPropertyInfo = T.Text - type AttrLabel DOMLocationHostPropertyInfo = "DOMLocation::host" - attrGet _ = getDOMLocationHost - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationHostname :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationHostname obj = liftIO $ getObjectPropertyString obj "hostname" - -data DOMLocationHostnamePropertyInfo -instance AttrInfo DOMLocationHostnamePropertyInfo where - type AttrAllowedOps DOMLocationHostnamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationHostnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationHostnamePropertyInfo = DOMLocationK - type AttrGetType DOMLocationHostnamePropertyInfo = T.Text - type AttrLabel DOMLocationHostnamePropertyInfo = "DOMLocation::hostname" - attrGet _ = getDOMLocationHostname - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationHref :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationHref obj = liftIO $ getObjectPropertyString obj "href" - -data DOMLocationHrefPropertyInfo -instance AttrInfo DOMLocationHrefPropertyInfo where - type AttrAllowedOps DOMLocationHrefPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationHrefPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationHrefPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHrefPropertyInfo = T.Text - type AttrLabel DOMLocationHrefPropertyInfo = "DOMLocation::href" - attrGet _ = getDOMLocationHref - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationOrigin :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -data DOMLocationOriginPropertyInfo -instance AttrInfo DOMLocationOriginPropertyInfo where - type AttrAllowedOps DOMLocationOriginPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationOriginPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationOriginPropertyInfo = DOMLocationK - type AttrGetType DOMLocationOriginPropertyInfo = T.Text - type AttrLabel DOMLocationOriginPropertyInfo = "DOMLocation::origin" - attrGet _ = getDOMLocationOrigin - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pathname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationPathname :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationPathname obj = liftIO $ getObjectPropertyString obj "pathname" - -data DOMLocationPathnamePropertyInfo -instance AttrInfo DOMLocationPathnamePropertyInfo where - type AttrAllowedOps DOMLocationPathnamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationPathnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationPathnamePropertyInfo = DOMLocationK - type AttrGetType DOMLocationPathnamePropertyInfo = T.Text - type AttrLabel DOMLocationPathnamePropertyInfo = "DOMLocation::pathname" - attrGet _ = getDOMLocationPathname - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationPort :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationPort obj = liftIO $ getObjectPropertyString obj "port" - -data DOMLocationPortPropertyInfo -instance AttrInfo DOMLocationPortPropertyInfo where - type AttrAllowedOps DOMLocationPortPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationPortPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationPortPropertyInfo = DOMLocationK - type AttrGetType DOMLocationPortPropertyInfo = T.Text - type AttrLabel DOMLocationPortPropertyInfo = "DOMLocation::port" - attrGet _ = getDOMLocationPort - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationProtocol :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -data DOMLocationProtocolPropertyInfo -instance AttrInfo DOMLocationProtocolPropertyInfo where - type AttrAllowedOps DOMLocationProtocolPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationProtocolPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationProtocolPropertyInfo = DOMLocationK - type AttrGetType DOMLocationProtocolPropertyInfo = T.Text - type AttrLabel DOMLocationProtocolPropertyInfo = "DOMLocation::protocol" - attrGet _ = getDOMLocationProtocol - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "search" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMLocationSearch :: (MonadIO m, DOMLocationK o) => o -> m T.Text -getDOMLocationSearch obj = liftIO $ getObjectPropertyString obj "search" - -data DOMLocationSearchPropertyInfo -instance AttrInfo DOMLocationSearchPropertyInfo where - type AttrAllowedOps DOMLocationSearchPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMLocationSearchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMLocationSearchPropertyInfo = DOMLocationK - type AttrGetType DOMLocationSearchPropertyInfo = T.Text - type AttrLabel DOMLocationSearchPropertyInfo = "DOMLocation::search" - attrGet _ = getDOMLocationSearch - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMLocation = '[ '("ancestor-origins", DOMLocationAncestorOriginsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("hash", DOMLocationHashPropertyInfo), '("host", DOMLocationHostPropertyInfo), '("hostname", DOMLocationHostnamePropertyInfo), '("href", DOMLocationHrefPropertyInfo), '("origin", DOMLocationOriginPropertyInfo), '("pathname", DOMLocationPathnamePropertyInfo), '("port", DOMLocationPortPropertyInfo), '("protocol", DOMLocationProtocolPropertyInfo), '("search", DOMLocationSearchPropertyInfo)] - --- VVV Prop "buffered" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMMediaControllerBuffered :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges -getDOMMediaControllerBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges - -data DOMMediaControllerBufferedPropertyInfo -instance AttrInfo DOMMediaControllerBufferedPropertyInfo where - type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerBufferedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerBufferedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerBufferedPropertyInfo = DOMTimeRanges - type AttrLabel DOMMediaControllerBufferedPropertyInfo = "DOMMediaController::buffered" - attrGet _ = getDOMMediaControllerBuffered - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "current-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> m Double -getDOMMediaControllerCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" - -setDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () -setDOMMediaControllerCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val - -constructDOMMediaControllerCurrentTime :: Double -> IO ([Char], GValue) -constructDOMMediaControllerCurrentTime val = constructObjectPropertyDouble "current-time" val - -data DOMMediaControllerCurrentTimePropertyInfo -instance AttrInfo DOMMediaControllerCurrentTimePropertyInfo where - type AttrAllowedOps DOMMediaControllerCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerCurrentTimePropertyInfo = Double - type AttrLabel DOMMediaControllerCurrentTimePropertyInfo = "DOMMediaController::current-time" - attrGet _ = getDOMMediaControllerCurrentTime - attrSet _ = setDOMMediaControllerCurrentTime - attrConstruct _ = constructDOMMediaControllerCurrentTime - --- VVV Prop "default-playback-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double -getDOMMediaControllerDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" - -setDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () -setDOMMediaControllerDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val - -constructDOMMediaControllerDefaultPlaybackRate :: Double -> IO ([Char], GValue) -constructDOMMediaControllerDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val - -data DOMMediaControllerDefaultPlaybackRatePropertyInfo -instance AttrInfo DOMMediaControllerDefaultPlaybackRatePropertyInfo where - type AttrAllowedOps DOMMediaControllerDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerDefaultPlaybackRatePropertyInfo = Double - type AttrLabel DOMMediaControllerDefaultPlaybackRatePropertyInfo = "DOMMediaController::default-playback-rate" - attrGet _ = getDOMMediaControllerDefaultPlaybackRate - attrSet _ = setDOMMediaControllerDefaultPlaybackRate - attrConstruct _ = constructDOMMediaControllerDefaultPlaybackRate - --- VVV Prop "duration" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMMediaControllerDuration :: (MonadIO m, DOMMediaControllerK o) => o -> m Double -getDOMMediaControllerDuration obj = liftIO $ getObjectPropertyDouble obj "duration" - -data DOMMediaControllerDurationPropertyInfo -instance AttrInfo DOMMediaControllerDurationPropertyInfo where - type AttrAllowedOps DOMMediaControllerDurationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerDurationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerDurationPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerDurationPropertyInfo = Double - type AttrLabel DOMMediaControllerDurationPropertyInfo = "DOMMediaController::duration" - attrGet _ = getDOMMediaControllerDuration - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "muted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool -getDOMMediaControllerMuted obj = liftIO $ getObjectPropertyBool obj "muted" - -setDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> Bool -> m () -setDOMMediaControllerMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val - -constructDOMMediaControllerMuted :: Bool -> IO ([Char], GValue) -constructDOMMediaControllerMuted val = constructObjectPropertyBool "muted" val - -data DOMMediaControllerMutedPropertyInfo -instance AttrInfo DOMMediaControllerMutedPropertyInfo where - type AttrAllowedOps DOMMediaControllerMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerMutedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMMediaControllerMutedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerMutedPropertyInfo = Bool - type AttrLabel DOMMediaControllerMutedPropertyInfo = "DOMMediaController::muted" - attrGet _ = getDOMMediaControllerMuted - attrSet _ = setDOMMediaControllerMuted - attrConstruct _ = constructDOMMediaControllerMuted - --- VVV Prop "paused" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMediaControllerPaused :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool -getDOMMediaControllerPaused obj = liftIO $ getObjectPropertyBool obj "paused" - -data DOMMediaControllerPausedPropertyInfo -instance AttrInfo DOMMediaControllerPausedPropertyInfo where - type AttrAllowedOps DOMMediaControllerPausedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerPausedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerPausedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPausedPropertyInfo = Bool - type AttrLabel DOMMediaControllerPausedPropertyInfo = "DOMMediaController::paused" - attrGet _ = getDOMMediaControllerPaused - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "playback-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double -getDOMMediaControllerPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" - -setDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () -setDOMMediaControllerPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val - -constructDOMMediaControllerPlaybackRate :: Double -> IO ([Char], GValue) -constructDOMMediaControllerPlaybackRate val = constructObjectPropertyDouble "playback-rate" val - -data DOMMediaControllerPlaybackRatePropertyInfo -instance AttrInfo DOMMediaControllerPlaybackRatePropertyInfo where - type AttrAllowedOps DOMMediaControllerPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPlaybackRatePropertyInfo = Double - type AttrLabel DOMMediaControllerPlaybackRatePropertyInfo = "DOMMediaController::playback-rate" - attrGet _ = getDOMMediaControllerPlaybackRate - attrSet _ = setDOMMediaControllerPlaybackRate - attrConstruct _ = constructDOMMediaControllerPlaybackRate - --- VVV Prop "playback-state" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMMediaControllerPlaybackState :: (MonadIO m, DOMMediaControllerK o) => o -> m T.Text -getDOMMediaControllerPlaybackState obj = liftIO $ getObjectPropertyString obj "playback-state" - -data DOMMediaControllerPlaybackStatePropertyInfo -instance AttrInfo DOMMediaControllerPlaybackStatePropertyInfo where - type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = T.Text - type AttrLabel DOMMediaControllerPlaybackStatePropertyInfo = "DOMMediaController::playback-state" - attrGet _ = getDOMMediaControllerPlaybackState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "played" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMMediaControllerPlayed :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges -getDOMMediaControllerPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges - -data DOMMediaControllerPlayedPropertyInfo -instance AttrInfo DOMMediaControllerPlayedPropertyInfo where - type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerPlayedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerPlayedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPlayedPropertyInfo = DOMTimeRanges - type AttrLabel DOMMediaControllerPlayedPropertyInfo = "DOMMediaController::played" - attrGet _ = getDOMMediaControllerPlayed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "seekable" - -- Type: TInterface "WebKit" "DOMTimeRanges" - -- Flags: [PropertyReadable] - -getDOMMediaControllerSeekable :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges -getDOMMediaControllerSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges - -data DOMMediaControllerSeekablePropertyInfo -instance AttrInfo DOMMediaControllerSeekablePropertyInfo where - type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerSeekablePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaControllerSeekablePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerSeekablePropertyInfo = DOMTimeRanges - type AttrLabel DOMMediaControllerSeekablePropertyInfo = "DOMMediaController::seekable" - attrGet _ = getDOMMediaControllerSeekable - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "volume" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> m Double -getDOMMediaControllerVolume obj = liftIO $ getObjectPropertyDouble obj "volume" - -setDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () -setDOMMediaControllerVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val - -constructDOMMediaControllerVolume :: Double -> IO ([Char], GValue) -constructDOMMediaControllerVolume val = constructObjectPropertyDouble "volume" val - -data DOMMediaControllerVolumePropertyInfo -instance AttrInfo DOMMediaControllerVolumePropertyInfo where - type AttrAllowedOps DOMMediaControllerVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaControllerVolumePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMMediaControllerVolumePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerVolumePropertyInfo = Double - type AttrLabel DOMMediaControllerVolumePropertyInfo = "DOMMediaController::volume" - attrGet _ = getDOMMediaControllerVolume - attrSet _ = setDOMMediaControllerVolume - attrConstruct _ = constructDOMMediaControllerVolume - -type instance AttributeList DOMMediaController = '[ '("buffered", DOMMediaControllerBufferedPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-time", DOMMediaControllerCurrentTimePropertyInfo), '("default-playback-rate", DOMMediaControllerDefaultPlaybackRatePropertyInfo), '("duration", DOMMediaControllerDurationPropertyInfo), '("muted", DOMMediaControllerMutedPropertyInfo), '("paused", DOMMediaControllerPausedPropertyInfo), '("playback-rate", DOMMediaControllerPlaybackRatePropertyInfo), '("playback-state", DOMMediaControllerPlaybackStatePropertyInfo), '("played", DOMMediaControllerPlayedPropertyInfo), '("seekable", DOMMediaControllerSeekablePropertyInfo), '("volume", DOMMediaControllerVolumePropertyInfo)] - --- VVV Prop "code" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMMediaErrorCode :: (MonadIO m, DOMMediaErrorK o) => o -> m Word32 -getDOMMediaErrorCode obj = liftIO $ getObjectPropertyCUInt obj "code" - -data DOMMediaErrorCodePropertyInfo -instance AttrInfo DOMMediaErrorCodePropertyInfo where - type AttrAllowedOps DOMMediaErrorCodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaErrorCodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaErrorCodePropertyInfo = DOMMediaErrorK - type AttrGetType DOMMediaErrorCodePropertyInfo = Word32 - type AttrLabel DOMMediaErrorCodePropertyInfo = "DOMMediaError::code" - attrGet _ = getDOMMediaErrorCode - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMMediaError = '[ '("code", DOMMediaErrorCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m Word64 -getDOMMediaListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMMediaListLengthPropertyInfo -instance AttrInfo DOMMediaListLengthPropertyInfo where - type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListLengthPropertyInfo = Word64 - type AttrLabel DOMMediaListLengthPropertyInfo = "DOMMediaList::length" - attrGet _ = getDOMMediaListLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "media-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m T.Text -getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text" - -setDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> T.Text -> m () -setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" val - -constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue) -constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" val - -data DOMMediaListMediaTextPropertyInfo -instance AttrInfo DOMMediaListMediaTextPropertyInfo where - type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListMediaTextPropertyInfo = T.Text - type AttrLabel DOMMediaListMediaTextPropertyInfo = "DOMMediaList::media-text" - attrGet _ = getDOMMediaListMediaText - attrSet _ = setDOMMediaListMediaText - attrConstruct _ = constructDOMMediaListMediaText - -type instance AttributeList DOMMediaList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("media-text", DOMMediaListMediaTextPropertyInfo)] - --- VVV Prop "matches" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMediaQueryListMatches :: (MonadIO m, DOMMediaQueryListK o) => o -> m Bool -getDOMMediaQueryListMatches obj = liftIO $ getObjectPropertyBool obj "matches" - -data DOMMediaQueryListMatchesPropertyInfo -instance AttrInfo DOMMediaQueryListMatchesPropertyInfo where - type AttrAllowedOps DOMMediaQueryListMatchesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaQueryListMatchesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaQueryListMatchesPropertyInfo = DOMMediaQueryListK - type AttrGetType DOMMediaQueryListMatchesPropertyInfo = Bool - type AttrLabel DOMMediaQueryListMatchesPropertyInfo = "DOMMediaQueryList::matches" - attrGet _ = getDOMMediaQueryListMatches - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "media" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m T.Text -getDOMMediaQueryListMedia obj = liftIO $ getObjectPropertyString obj "media" - -data DOMMediaQueryListMediaPropertyInfo -instance AttrInfo DOMMediaQueryListMediaPropertyInfo where - type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaQueryListMediaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaQueryListMediaPropertyInfo = DOMMediaQueryListK - type AttrGetType DOMMediaQueryListMediaPropertyInfo = T.Text - type AttrLabel DOMMediaQueryListMediaPropertyInfo = "DOMMediaQueryList::media" - attrGet _ = getDOMMediaQueryListMedia - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMMediaQueryList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("matches", DOMMediaQueryListMatchesPropertyInfo), '("media", DOMMediaQueryListMediaPropertyInfo)] - --- VVV Prop "js-heap-size-limit" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMMemoryInfoJsHeapSizeLimit :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoJsHeapSizeLimit obj = liftIO $ getObjectPropertyUInt64 obj "js-heap-size-limit" - -data DOMMemoryInfoJsHeapSizeLimitPropertyInfo -instance AttrInfo DOMMemoryInfoJsHeapSizeLimitPropertyInfo where - type AttrAllowedOps DOMMemoryInfoJsHeapSizeLimitPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoJsHeapSizeLimitPropertyInfo = Word64 - type AttrLabel DOMMemoryInfoJsHeapSizeLimitPropertyInfo = "DOMMemoryInfo::js-heap-size-limit" - attrGet _ = getDOMMemoryInfoJsHeapSizeLimit - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "total-js-heap-size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMMemoryInfoTotalJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoTotalJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "total-js-heap-size" - -data DOMMemoryInfoTotalJsHeapSizePropertyInfo -instance AttrInfo DOMMemoryInfoTotalJsHeapSizePropertyInfo where - type AttrAllowedOps DOMMemoryInfoTotalJsHeapSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoTotalJsHeapSizePropertyInfo = Word64 - type AttrLabel DOMMemoryInfoTotalJsHeapSizePropertyInfo = "DOMMemoryInfo::total-js-heap-size" - attrGet _ = getDOMMemoryInfoTotalJsHeapSize - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "used-js-heap-size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMMemoryInfoUsedJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoUsedJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "used-js-heap-size" - -data DOMMemoryInfoUsedJsHeapSizePropertyInfo -instance AttrInfo DOMMemoryInfoUsedJsHeapSizePropertyInfo where - type AttrAllowedOps DOMMemoryInfoUsedJsHeapSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoUsedJsHeapSizePropertyInfo = Word64 - type AttrLabel DOMMemoryInfoUsedJsHeapSizePropertyInfo = "DOMMemoryInfo::used-js-heap-size" - attrGet _ = getDOMMemoryInfoUsedJsHeapSize - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMMemoryInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("js-heap-size-limit", DOMMemoryInfoJsHeapSizeLimitPropertyInfo), '("total-js-heap-size", DOMMemoryInfoTotalJsHeapSizePropertyInfo), '("used-js-heap-size", DOMMemoryInfoUsedJsHeapSizePropertyInfo)] - -type instance AttributeList DOMMessagePort = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - -type instance AttributeList DOMMicroDataItemValue = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "alt-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool -getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" - -data DOMMouseEventAltKeyPropertyInfo -instance AttrInfo DOMMouseEventAltKeyPropertyInfo where - type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool - type AttrLabel DOMMouseEventAltKeyPropertyInfo = "DOMMouseEvent::alt-key" - attrGet _ = getDOMMouseEventAltKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "button" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32 -getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button" - -data DOMMouseEventButtonPropertyInfo -instance AttrInfo DOMMouseEventButtonPropertyInfo where - type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventButtonPropertyInfo = Word32 - type AttrLabel DOMMouseEventButtonPropertyInfo = "DOMMouseEvent::button" - attrGet _ = getDOMMouseEventButton - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" - -data DOMMouseEventClientXPropertyInfo -instance AttrInfo DOMMouseEventClientXPropertyInfo where - type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientXPropertyInfo = Int64 - type AttrLabel DOMMouseEventClientXPropertyInfo = "DOMMouseEvent::client-x" - attrGet _ = getDOMMouseEventClientX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" - -data DOMMouseEventClientYPropertyInfo -instance AttrInfo DOMMouseEventClientYPropertyInfo where - type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientYPropertyInfo = Int64 - type AttrLabel DOMMouseEventClientYPropertyInfo = "DOMMouseEvent::client-y" - attrGet _ = getDOMMouseEventClientY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ctrl-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool -getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" - -data DOMMouseEventCtrlKeyPropertyInfo -instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where - type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool - type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "DOMMouseEvent::ctrl-key" - attrGet _ = getDOMMouseEventCtrlKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "from-element" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode - -data DOMMouseEventFromElementPropertyInfo -instance AttrInfo DOMMouseEventFromElementPropertyInfo where - type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode - type AttrLabel DOMMouseEventFromElementPropertyInfo = "DOMMouseEvent::from-element" - attrGet _ = getDOMMouseEventFromElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "meta-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool -getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" - -data DOMMouseEventMetaKeyPropertyInfo -instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where - type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool - type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "DOMMouseEvent::meta-key" - attrGet _ = getDOMMouseEventMetaKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x" - -data DOMMouseEventOffsetXPropertyInfo -instance AttrInfo DOMMouseEventOffsetXPropertyInfo where - type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64 - type AttrLabel DOMMouseEventOffsetXPropertyInfo = "DOMMouseEvent::offset-x" - attrGet _ = getDOMMouseEventOffsetX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "offset-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y" - -data DOMMouseEventOffsetYPropertyInfo -instance AttrInfo DOMMouseEventOffsetYPropertyInfo where - type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64 - type AttrLabel DOMMouseEventOffsetYPropertyInfo = "DOMMouseEvent::offset-y" - attrGet _ = getDOMMouseEventOffsetY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "related-target" - -- Type: TInterface "WebKit" "DOMEventTarget" - -- Flags: [PropertyReadable] - -getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget -getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget - -data DOMMouseEventRelatedTargetPropertyInfo -instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where - type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget - type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "DOMMouseEvent::related-target" - attrGet _ = getDOMMouseEventRelatedTarget - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" - -data DOMMouseEventScreenXPropertyInfo -instance AttrInfo DOMMouseEventScreenXPropertyInfo where - type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64 - type AttrLabel DOMMouseEventScreenXPropertyInfo = "DOMMouseEvent::screen-x" - attrGet _ = getDOMMouseEventScreenX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" - -data DOMMouseEventScreenYPropertyInfo -instance AttrInfo DOMMouseEventScreenYPropertyInfo where - type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64 - type AttrLabel DOMMouseEventScreenYPropertyInfo = "DOMMouseEvent::screen-y" - attrGet _ = getDOMMouseEventScreenY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "shift-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool -getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" - -data DOMMouseEventShiftKeyPropertyInfo -instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where - type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool - type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "DOMMouseEvent::shift-key" - attrGet _ = getDOMMouseEventShiftKey - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "to-element" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode - -data DOMMouseEventToElementPropertyInfo -instance AttrInfo DOMMouseEventToElementPropertyInfo where - type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode - type AttrLabel DOMMouseEventToElementPropertyInfo = "DOMMouseEvent::to-element" - attrGet _ = getDOMMouseEventToElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-movement-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventWebkitMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventWebkitMovementX obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-x" - -data DOMMouseEventWebkitMovementXPropertyInfo -instance AttrInfo DOMMouseEventWebkitMovementXPropertyInfo where - type AttrAllowedOps DOMMouseEventWebkitMovementXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventWebkitMovementXPropertyInfo = Int64 - type AttrLabel DOMMouseEventWebkitMovementXPropertyInfo = "DOMMouseEvent::webkit-movement-x" - attrGet _ = getDOMMouseEventWebkitMovementX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-movement-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventWebkitMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventWebkitMovementY obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-y" - -data DOMMouseEventWebkitMovementYPropertyInfo -instance AttrInfo DOMMouseEventWebkitMovementYPropertyInfo where - type AttrAllowedOps DOMMouseEventWebkitMovementYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventWebkitMovementYPropertyInfo = Int64 - type AttrLabel DOMMouseEventWebkitMovementYPropertyInfo = "DOMMouseEvent::webkit-movement-y" - attrGet _ = getDOMMouseEventWebkitMovementY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x" - -data DOMMouseEventXPropertyInfo -instance AttrInfo DOMMouseEventXPropertyInfo where - type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventXPropertyInfo = Int64 - type AttrLabel DOMMouseEventXPropertyInfo = "DOMMouseEvent::x" - attrGet _ = getDOMMouseEventX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y" - -data DOMMouseEventYPropertyInfo -instance AttrInfo DOMMouseEventYPropertyInfo where - type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventYPropertyInfo = Int64 - type AttrLabel DOMMouseEventYPropertyInfo = "DOMMouseEvent::y" - attrGet _ = getDOMMouseEventY - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMMouseEvent = '[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m Word64 -getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMNamedNodeMapLengthPropertyInfo -instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where - type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK - type AttrGetType DOMNamedNodeMapLengthPropertyInfo = Word64 - type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "DOMNamedNodeMap::length" - attrGet _ = getDOMNamedNodeMapLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMNamedNodeMap = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] - --- VVV Prop "app-code-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorAppCodeName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorAppCodeName obj = liftIO $ getObjectPropertyString obj "app-code-name" - -data DOMNavigatorAppCodeNamePropertyInfo -instance AttrInfo DOMNavigatorAppCodeNamePropertyInfo where - type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = T.Text - type AttrLabel DOMNavigatorAppCodeNamePropertyInfo = "DOMNavigator::app-code-name" - attrGet _ = getDOMNavigatorAppCodeName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "app-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorAppName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorAppName obj = liftIO $ getObjectPropertyString obj "app-name" - -data DOMNavigatorAppNamePropertyInfo -instance AttrInfo DOMNavigatorAppNamePropertyInfo where - type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorAppNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorAppNamePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppNamePropertyInfo = T.Text - type AttrLabel DOMNavigatorAppNamePropertyInfo = "DOMNavigator::app-name" - attrGet _ = getDOMNavigatorAppName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "app-version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorAppVersion :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorAppVersion obj = liftIO $ getObjectPropertyString obj "app-version" - -data DOMNavigatorAppVersionPropertyInfo -instance AttrInfo DOMNavigatorAppVersionPropertyInfo where - type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorAppVersionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorAppVersionPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppVersionPropertyInfo = T.Text - type AttrLabel DOMNavigatorAppVersionPropertyInfo = "DOMNavigator::app-version" - attrGet _ = getDOMNavigatorAppVersion - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cookie-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMNavigatorCookieEnabled :: (MonadIO m, DOMNavigatorK o) => o -> m Bool -getDOMNavigatorCookieEnabled obj = liftIO $ getObjectPropertyBool obj "cookie-enabled" - -data DOMNavigatorCookieEnabledPropertyInfo -instance AttrInfo DOMNavigatorCookieEnabledPropertyInfo where - type AttrAllowedOps DOMNavigatorCookieEnabledPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorCookieEnabledPropertyInfo = Bool - type AttrLabel DOMNavigatorCookieEnabledPropertyInfo = "DOMNavigator::cookie-enabled" - attrGet _ = getDOMNavigatorCookieEnabled - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "geolocation" - -- Type: TInterface "WebKit" "DOMGeolocation" - -- Flags: [PropertyReadable] - -getDOMNavigatorGeolocation :: (MonadIO m, DOMNavigatorK o) => o -> m DOMGeolocation -getDOMNavigatorGeolocation obj = liftIO $ getObjectPropertyObject obj "geolocation" DOMGeolocation - -data DOMNavigatorGeolocationPropertyInfo -instance AttrInfo DOMNavigatorGeolocationPropertyInfo where - type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorGeolocationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorGeolocationPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorGeolocationPropertyInfo = DOMGeolocation - type AttrLabel DOMNavigatorGeolocationPropertyInfo = "DOMNavigator::geolocation" - attrGet _ = getDOMNavigatorGeolocation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorLanguage :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorLanguage obj = liftIO $ getObjectPropertyString obj "language" - -data DOMNavigatorLanguagePropertyInfo -instance AttrInfo DOMNavigatorLanguagePropertyInfo where - type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorLanguagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorLanguagePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorLanguagePropertyInfo = T.Text - type AttrLabel DOMNavigatorLanguagePropertyInfo = "DOMNavigator::language" - attrGet _ = getDOMNavigatorLanguage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mime-types" - -- Type: TInterface "WebKit" "DOMDOMMimeTypeArray" - -- Flags: [PropertyReadable] - -getDOMNavigatorMimeTypes :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMMimeTypeArray -getDOMNavigatorMimeTypes obj = liftIO $ getObjectPropertyObject obj "mime-types" DOMDOMMimeTypeArray - -data DOMNavigatorMimeTypesPropertyInfo -instance AttrInfo DOMNavigatorMimeTypesPropertyInfo where - type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorMimeTypesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorMimeTypesPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorMimeTypesPropertyInfo = DOMDOMMimeTypeArray - type AttrLabel DOMNavigatorMimeTypesPropertyInfo = "DOMNavigator::mime-types" - attrGet _ = getDOMNavigatorMimeTypes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "on-line" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMNavigatorOnLine :: (MonadIO m, DOMNavigatorK o) => o -> m Bool -getDOMNavigatorOnLine obj = liftIO $ getObjectPropertyBool obj "on-line" - -data DOMNavigatorOnLinePropertyInfo -instance AttrInfo DOMNavigatorOnLinePropertyInfo where - type AttrAllowedOps DOMNavigatorOnLinePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorOnLinePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorOnLinePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorOnLinePropertyInfo = Bool - type AttrLabel DOMNavigatorOnLinePropertyInfo = "DOMNavigator::on-line" - attrGet _ = getDOMNavigatorOnLine - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "platform" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorPlatform :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorPlatform obj = liftIO $ getObjectPropertyString obj "platform" - -data DOMNavigatorPlatformPropertyInfo -instance AttrInfo DOMNavigatorPlatformPropertyInfo where - type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorPlatformPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorPlatformPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorPlatformPropertyInfo = T.Text - type AttrLabel DOMNavigatorPlatformPropertyInfo = "DOMNavigator::platform" - attrGet _ = getDOMNavigatorPlatform - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "plugins" - -- Type: TInterface "WebKit" "DOMDOMPluginArray" - -- Flags: [PropertyReadable] - -getDOMNavigatorPlugins :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMPluginArray -getDOMNavigatorPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMDOMPluginArray - -data DOMNavigatorPluginsPropertyInfo -instance AttrInfo DOMNavigatorPluginsPropertyInfo where - type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorPluginsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorPluginsPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorPluginsPropertyInfo = DOMDOMPluginArray - type AttrLabel DOMNavigatorPluginsPropertyInfo = "DOMNavigator::plugins" - attrGet _ = getDOMNavigatorPlugins - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "product" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorProduct :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorProduct obj = liftIO $ getObjectPropertyString obj "product" - -data DOMNavigatorProductPropertyInfo -instance AttrInfo DOMNavigatorProductPropertyInfo where - type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorProductPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorProductPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorProductPropertyInfo = T.Text - type AttrLabel DOMNavigatorProductPropertyInfo = "DOMNavigator::product" - attrGet _ = getDOMNavigatorProduct - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "product-sub" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorProductSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorProductSub obj = liftIO $ getObjectPropertyString obj "product-sub" - -data DOMNavigatorProductSubPropertyInfo -instance AttrInfo DOMNavigatorProductSubPropertyInfo where - type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorProductSubPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorProductSubPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorProductSubPropertyInfo = T.Text - type AttrLabel DOMNavigatorProductSubPropertyInfo = "DOMNavigator::product-sub" - attrGet _ = getDOMNavigatorProductSub - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorUserAgent :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" - -data DOMNavigatorUserAgentPropertyInfo -instance AttrInfo DOMNavigatorUserAgentPropertyInfo where - type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorUserAgentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorUserAgentPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorUserAgentPropertyInfo = T.Text - type AttrLabel DOMNavigatorUserAgentPropertyInfo = "DOMNavigator::user-agent" - attrGet _ = getDOMNavigatorUserAgent - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vendor" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorVendor :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorVendor obj = liftIO $ getObjectPropertyString obj "vendor" - -data DOMNavigatorVendorPropertyInfo -instance AttrInfo DOMNavigatorVendorPropertyInfo where - type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorVendorPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorVendorPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorVendorPropertyInfo = T.Text - type AttrLabel DOMNavigatorVendorPropertyInfo = "DOMNavigator::vendor" - attrGet _ = getDOMNavigatorVendor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vendor-sub" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNavigatorVendorSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text -getDOMNavigatorVendorSub obj = liftIO $ getObjectPropertyString obj "vendor-sub" - -data DOMNavigatorVendorSubPropertyInfo -instance AttrInfo DOMNavigatorVendorSubPropertyInfo where - type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorVendorSubPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorVendorSubPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorVendorSubPropertyInfo = T.Text - type AttrLabel DOMNavigatorVendorSubPropertyInfo = "DOMNavigator::vendor-sub" - attrGet _ = getDOMNavigatorVendorSub - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-battery" - -- Type: TInterface "WebKit" "DOMBatteryManager" - -- Flags: [PropertyReadable] - -getDOMNavigatorWebkitBattery :: (MonadIO m, DOMNavigatorK o) => o -> m DOMBatteryManager -getDOMNavigatorWebkitBattery obj = liftIO $ getObjectPropertyObject obj "webkit-battery" DOMBatteryManager - -data DOMNavigatorWebkitBatteryPropertyInfo -instance AttrInfo DOMNavigatorWebkitBatteryPropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = DOMBatteryManager - type AttrLabel DOMNavigatorWebkitBatteryPropertyInfo = "DOMNavigator::webkit-battery" - attrGet _ = getDOMNavigatorWebkitBattery - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-persistent-storage" - -- Type: TInterface "WebKit" "DOMStorageQuota" - -- Flags: [PropertyReadable] - -getDOMNavigatorWebkitPersistentStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota -getDOMNavigatorWebkitPersistentStorage obj = liftIO $ getObjectPropertyObject obj "webkit-persistent-storage" DOMStorageQuota - -data DOMNavigatorWebkitPersistentStoragePropertyInfo -instance AttrInfo DOMNavigatorWebkitPersistentStoragePropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMStorageQuota - type AttrLabel DOMNavigatorWebkitPersistentStoragePropertyInfo = "DOMNavigator::webkit-persistent-storage" - attrGet _ = getDOMNavigatorWebkitPersistentStorage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-temporary-storage" - -- Type: TInterface "WebKit" "DOMStorageQuota" - -- Flags: [PropertyReadable] - -getDOMNavigatorWebkitTemporaryStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota -getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ getObjectPropertyObject obj "webkit-temporary-storage" DOMStorageQuota - -data DOMNavigatorWebkitTemporaryStoragePropertyInfo -instance AttrInfo DOMNavigatorWebkitTemporaryStoragePropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMStorageQuota - type AttrLabel DOMNavigatorWebkitTemporaryStoragePropertyInfo = "DOMNavigator::webkit-temporary-storage" - attrGet _ = getDOMNavigatorWebkitTemporaryStorage - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMNavigator = '[ '("app-code-name", DOMNavigatorAppCodeNamePropertyInfo), '("app-name", DOMNavigatorAppNamePropertyInfo), '("app-version", DOMNavigatorAppVersionPropertyInfo), '("cookie-enabled", DOMNavigatorCookieEnabledPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("geolocation", DOMNavigatorGeolocationPropertyInfo), '("language", DOMNavigatorLanguagePropertyInfo), '("mime-types", DOMNavigatorMimeTypesPropertyInfo), '("on-line", DOMNavigatorOnLinePropertyInfo), '("platform", DOMNavigatorPlatformPropertyInfo), '("plugins", DOMNavigatorPluginsPropertyInfo), '("product", DOMNavigatorProductPropertyInfo), '("product-sub", DOMNavigatorProductSubPropertyInfo), '("user-agent", DOMNavigatorUserAgentPropertyInfo), '("vendor", DOMNavigatorVendorPropertyInfo), '("vendor-sub", DOMNavigatorVendorSubPropertyInfo), '("webkit-battery", DOMNavigatorWebkitBatteryPropertyInfo), '("webkit-persistent-storage", DOMNavigatorWebkitPersistentStoragePropertyInfo), '("webkit-temporary-storage", DOMNavigatorWebkitTemporaryStoragePropertyInfo)] - --- VVV Prop "base-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri" - -data DOMNodeBaseUriPropertyInfo -instance AttrInfo DOMNodeBaseUriPropertyInfo where - type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeBaseUriPropertyInfo = T.Text - type AttrLabel DOMNodeBaseUriPropertyInfo = "DOMNode::base-uri" - attrGet _ = getDOMNodeBaseUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "child-nodes" - -- Type: TInterface "WebKit" "DOMNodeList" - -- Flags: [PropertyReadable] - -getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m DOMNodeList -getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList - -data DOMNodeChildNodesPropertyInfo -instance AttrInfo DOMNodeChildNodesPropertyInfo where - type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK - type AttrGetType DOMNodeChildNodesPropertyInfo = DOMNodeList - type AttrLabel DOMNodeChildNodesPropertyInfo = "DOMNode::child-nodes" - attrGet _ = getDOMNodeChildNodes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "first-child" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeFirstChild obj = liftIO $ getObjectPropertyObject obj "first-child" DOMNode - -data DOMNodeFirstChildPropertyInfo -instance AttrInfo DOMNodeFirstChildPropertyInfo where - type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK - type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode - type AttrLabel DOMNodeFirstChildPropertyInfo = "DOMNode::first-child" - attrGet _ = getDOMNodeFirstChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "last-child" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeLastChild obj = liftIO $ getObjectPropertyObject obj "last-child" DOMNode - -data DOMNodeLastChildPropertyInfo -instance AttrInfo DOMNodeLastChildPropertyInfo where - type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK - type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode - type AttrLabel DOMNodeLastChildPropertyInfo = "DOMNode::last-child" - attrGet _ = getDOMNodeLastChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "local-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name" - -data DOMNodeLocalNamePropertyInfo -instance AttrInfo DOMNodeLocalNamePropertyInfo where - type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeLocalNamePropertyInfo = T.Text - type AttrLabel DOMNodeLocalNamePropertyInfo = "DOMNode::local-name" - attrGet _ = getDOMNodeLocalName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "namespace-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri" - -data DOMNodeNamespaceUriPropertyInfo -instance AttrInfo DOMNodeNamespaceUriPropertyInfo where - type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeNamespaceUriPropertyInfo = T.Text - type AttrLabel DOMNodeNamespaceUriPropertyInfo = "DOMNode::namespace-uri" - attrGet _ = getDOMNodeNamespaceUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "next-sibling" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeNextSibling obj = liftIO $ getObjectPropertyObject obj "next-sibling" DOMNode - -data DOMNodeNextSiblingPropertyInfo -instance AttrInfo DOMNodeNextSiblingPropertyInfo where - type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK - type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode - type AttrLabel DOMNodeNextSiblingPropertyInfo = "DOMNode::next-sibling" - attrGet _ = getDOMNodeNextSibling - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "node-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name" - -data DOMNodeNodeNamePropertyInfo -instance AttrInfo DOMNodeNodeNamePropertyInfo where - type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeNamePropertyInfo = T.Text - type AttrLabel DOMNodeNodeNamePropertyInfo = "DOMNode::node-name" - attrGet _ = getDOMNodeNodeName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "node-type" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32 -getDOMNodeNodeType obj = liftIO $ getObjectPropertyCUInt obj "node-type" - -data DOMNodeNodeTypePropertyInfo -instance AttrInfo DOMNodeNodeTypePropertyInfo where - type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeTypePropertyInfo = Word32 - type AttrLabel DOMNodeNodeTypePropertyInfo = "DOMNode::node-type" - attrGet _ = getDOMNodeNodeType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "node-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value" - -setDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" val - -constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue) -constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" val - -data DOMNodeNodeValuePropertyInfo -instance AttrInfo DOMNodeNodeValuePropertyInfo where - type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeValuePropertyInfo = T.Text - type AttrLabel DOMNodeNodeValuePropertyInfo = "DOMNode::node-value" - attrGet _ = getDOMNodeNodeValue - attrSet _ = setDOMNodeNodeValue - attrConstruct _ = constructDOMNodeNodeValue - --- VVV Prop "owner-document" - -- Type: TInterface "WebKit" "DOMDocument" - -- Flags: [PropertyReadable] - -getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument -getDOMNodeOwnerDocument obj = liftIO $ getObjectPropertyObject obj "owner-document" DOMDocument - -data DOMNodeOwnerDocumentPropertyInfo -instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where - type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK - type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument - type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "DOMNode::owner-document" - attrGet _ = getDOMNodeOwnerDocument - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement -getDOMNodeParentElement obj = liftIO $ getObjectPropertyObject obj "parent-element" DOMElement - -data DOMNodeParentElementPropertyInfo -instance AttrInfo DOMNodeParentElementPropertyInfo where - type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK - type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement - type AttrLabel DOMNodeParentElementPropertyInfo = "DOMNode::parent-element" - attrGet _ = getDOMNodeParentElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeParentNode obj = liftIO $ getObjectPropertyObject obj "parent-node" DOMNode - -data DOMNodeParentNodePropertyInfo -instance AttrInfo DOMNodeParentNodePropertyInfo where - type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK - type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode - type AttrLabel DOMNodeParentNodePropertyInfo = "DOMNode::parent-node" - attrGet _ = getDOMNodeParentNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "prefix" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix" - -setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" val - -constructDOMNodePrefix :: T.Text -> IO ([Char], GValue) -constructDOMNodePrefix val = constructObjectPropertyString "prefix" val - -data DOMNodePrefixPropertyInfo -instance AttrInfo DOMNodePrefixPropertyInfo where - type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK - type AttrGetType DOMNodePrefixPropertyInfo = T.Text - type AttrLabel DOMNodePrefixPropertyInfo = "DOMNode::prefix" - attrGet _ = getDOMNodePrefix - attrSet _ = setDOMNodePrefix - attrConstruct _ = constructDOMNodePrefix - --- VVV Prop "previous-sibling" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodePreviousSibling obj = liftIO $ getObjectPropertyObject obj "previous-sibling" DOMNode - -data DOMNodePreviousSiblingPropertyInfo -instance AttrInfo DOMNodePreviousSiblingPropertyInfo where - type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK - type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode - type AttrLabel DOMNodePreviousSiblingPropertyInfo = "DOMNode::previous-sibling" - attrGet _ = getDOMNodePreviousSibling - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "text-content" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m T.Text -getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content" - -setDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" val - -constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue) -constructDOMNodeTextContent val = constructObjectPropertyString "text-content" val - -data DOMNodeTextContentPropertyInfo -instance AttrInfo DOMNodeTextContentPropertyInfo where - type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK - type AttrGetType DOMNodeTextContentPropertyInfo = T.Text - type AttrLabel DOMNodeTextContentPropertyInfo = "DOMNode::text-content" - attrGet _ = getDOMNodeTextContent - attrSet _ = setDOMNodeTextContent - attrConstruct _ = constructDOMNodeTextContent - -type instance AttributeList DOMNode = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - -type instance AttributeList DOMNodeFilter = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "expand-entity-references" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool -getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" - -data DOMNodeIteratorExpandEntityReferencesPropertyInfo -instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where - type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool - type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "DOMNodeIterator::expand-entity-references" - attrGet _ = getDOMNodeIteratorExpandEntityReferences - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "filter" - -- Type: TInterface "WebKit" "DOMNodeFilter" - -- Flags: [PropertyReadable] - -getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter -getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter - -data DOMNodeIteratorFilterPropertyInfo -instance AttrInfo DOMNodeIteratorFilterPropertyInfo where - type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter - type AttrLabel DOMNodeIteratorFilterPropertyInfo = "DOMNodeIterator::filter" - attrGet _ = getDOMNodeIteratorFilter - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pointer-before-reference-node" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool -getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node" - -data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo -instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where - type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool - type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "DOMNodeIterator::pointer-before-reference-node" - attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "reference-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode - -data DOMNodeIteratorReferenceNodePropertyInfo -instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where - type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode - type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "DOMNodeIterator::reference-node" - attrGet _ = getDOMNodeIteratorReferenceNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "root" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode - -data DOMNodeIteratorRootPropertyInfo -instance AttrInfo DOMNodeIteratorRootPropertyInfo where - type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode - type AttrLabel DOMNodeIteratorRootPropertyInfo = "DOMNodeIterator::root" - attrGet _ = getDOMNodeIteratorRoot - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "what-to-show" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64 -getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" - -data DOMNodeIteratorWhatToShowPropertyInfo -instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where - type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64 - type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "DOMNodeIterator::what-to-show" - attrGet _ = getDOMNodeIteratorWhatToShow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMNodeIterator = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("expand-entity-references", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointer-before-reference-node", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("reference-node", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("what-to-show", DOMNodeIteratorWhatToShowPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m Word64 -getDOMNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMNodeListLengthPropertyInfo -instance AttrInfo DOMNodeListLengthPropertyInfo where - type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK - type AttrGetType DOMNodeListLengthPropertyInfo = Word64 - type AttrLabel DOMNodeListLengthPropertyInfo = "DOMNodeList::length" - attrGet _ = getDOMNodeListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMNodeList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] - --- VVV Prop "core-object" - -- Type: TBasicType TVoid - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructDOMObjectCoreObject :: (Ptr ()) -> IO ([Char], GValue) -constructDOMObjectCoreObject val = constructObjectPropertyPtr "core-object" val - -data DOMObjectCoreObjectPropertyInfo -instance AttrInfo DOMObjectCoreObjectPropertyInfo where - type AttrAllowedOps DOMObjectCoreObjectPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DOMObjectCoreObjectPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint DOMObjectCoreObjectPropertyInfo = DOMObjectK - type AttrGetType DOMObjectCoreObjectPropertyInfo = () - type AttrLabel DOMObjectCoreObjectPropertyInfo = "DOMObject::core-object" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDOMObjectCoreObject - -type instance AttributeList DOMObject = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "navigation" - -- Type: TInterface "WebKit" "DOMPerformanceNavigation" - -- Flags: [PropertyReadable] - -getDOMPerformanceNavigation :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceNavigation -getDOMPerformanceNavigation obj = liftIO $ getObjectPropertyObject obj "navigation" DOMPerformanceNavigation - -data DOMPerformanceNavigationPropertyInfo -instance AttrInfo DOMPerformanceNavigationPropertyInfo where - type AttrAllowedOps DOMPerformanceNavigationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceNavigationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceNavigationPropertyInfo = DOMPerformanceK - type AttrGetType DOMPerformanceNavigationPropertyInfo = DOMPerformanceNavigation - type AttrLabel DOMPerformanceNavigationPropertyInfo = "DOMPerformance::navigation" - attrGet _ = getDOMPerformanceNavigation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "timing" - -- Type: TInterface "WebKit" "DOMPerformanceTiming" - -- Flags: [PropertyReadable] - -getDOMPerformanceTiming :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceTiming -getDOMPerformanceTiming obj = liftIO $ getObjectPropertyObject obj "timing" DOMPerformanceTiming - -data DOMPerformanceTimingPropertyInfo -instance AttrInfo DOMPerformanceTimingPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingPropertyInfo = DOMPerformanceK - type AttrGetType DOMPerformanceTimingPropertyInfo = DOMPerformanceTiming - type AttrLabel DOMPerformanceTimingPropertyInfo = "DOMPerformance::timing" - attrGet _ = getDOMPerformanceTiming - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPerformance = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("navigation", DOMPerformanceNavigationPropertyInfo), '("timing", DOMPerformanceTimingPropertyInfo)] - --- VVV Prop "duration" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMPerformanceEntryDuration :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double -getDOMPerformanceEntryDuration obj = liftIO $ getObjectPropertyDouble obj "duration" - -data DOMPerformanceEntryDurationPropertyInfo -instance AttrInfo DOMPerformanceEntryDurationPropertyInfo where - type AttrAllowedOps DOMPerformanceEntryDurationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceEntryDurationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceEntryDurationPropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryDurationPropertyInfo = Double - type AttrLabel DOMPerformanceEntryDurationPropertyInfo = "DOMPerformanceEntry::duration" - attrGet _ = getDOMPerformanceEntryDuration - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "entry-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMPerformanceEntryEntryType :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text -getDOMPerformanceEntryEntryType obj = liftIO $ getObjectPropertyString obj "entry-type" - -data DOMPerformanceEntryEntryTypePropertyInfo -instance AttrInfo DOMPerformanceEntryEntryTypePropertyInfo where - type AttrAllowedOps DOMPerformanceEntryEntryTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryEntryTypePropertyInfo = T.Text - type AttrLabel DOMPerformanceEntryEntryTypePropertyInfo = "DOMPerformanceEntry::entry-type" - attrGet _ = getDOMPerformanceEntryEntryType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMPerformanceEntryName :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text -getDOMPerformanceEntryName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMPerformanceEntryNamePropertyInfo -instance AttrInfo DOMPerformanceEntryNamePropertyInfo where - type AttrAllowedOps DOMPerformanceEntryNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceEntryNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceEntryNamePropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryNamePropertyInfo = T.Text - type AttrLabel DOMPerformanceEntryNamePropertyInfo = "DOMPerformanceEntry::name" - attrGet _ = getDOMPerformanceEntryName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "start-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMPerformanceEntryStartTime :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double -getDOMPerformanceEntryStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" - -data DOMPerformanceEntryStartTimePropertyInfo -instance AttrInfo DOMPerformanceEntryStartTimePropertyInfo where - type AttrAllowedOps DOMPerformanceEntryStartTimePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryStartTimePropertyInfo = Double - type AttrLabel DOMPerformanceEntryStartTimePropertyInfo = "DOMPerformanceEntry::start-time" - attrGet _ = getDOMPerformanceEntryStartTime - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPerformanceEntry = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("duration", DOMPerformanceEntryDurationPropertyInfo), '("entry-type", DOMPerformanceEntryEntryTypePropertyInfo), '("name", DOMPerformanceEntryNamePropertyInfo), '("start-time", DOMPerformanceEntryStartTimePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m Word64 -getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMPerformanceEntryListLengthPropertyInfo -instance AttrInfo DOMPerformanceEntryListLengthPropertyInfo where - type AttrAllowedOps DOMPerformanceEntryListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = DOMPerformanceEntryListK - type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = Word64 - type AttrLabel DOMPerformanceEntryListLengthPropertyInfo = "DOMPerformanceEntryList::length" - attrGet _ = getDOMPerformanceEntryListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPerformanceEntryList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPerformanceEntryListLengthPropertyInfo)] - --- VVV Prop "redirect-count" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMPerformanceNavigationRedirectCount :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 -getDOMPerformanceNavigationRedirectCount obj = liftIO $ getObjectPropertyCUInt obj "redirect-count" - -data DOMPerformanceNavigationRedirectCountPropertyInfo -instance AttrInfo DOMPerformanceNavigationRedirectCountPropertyInfo where - type AttrAllowedOps DOMPerformanceNavigationRedirectCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = DOMPerformanceNavigationK - type AttrGetType DOMPerformanceNavigationRedirectCountPropertyInfo = Word32 - type AttrLabel DOMPerformanceNavigationRedirectCountPropertyInfo = "DOMPerformanceNavigation::redirect-count" - attrGet _ = getDOMPerformanceNavigationRedirectCount - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMPerformanceNavigationType :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 -getDOMPerformanceNavigationType obj = liftIO $ getObjectPropertyCUInt obj "type" - -data DOMPerformanceNavigationTypePropertyInfo -instance AttrInfo DOMPerformanceNavigationTypePropertyInfo where - type AttrAllowedOps DOMPerformanceNavigationTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceNavigationTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceNavigationTypePropertyInfo = DOMPerformanceNavigationK - type AttrGetType DOMPerformanceNavigationTypePropertyInfo = Word32 - type AttrLabel DOMPerformanceNavigationTypePropertyInfo = "DOMPerformanceNavigation::type" - attrGet _ = getDOMPerformanceNavigationType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPerformanceNavigation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("redirect-count", DOMPerformanceNavigationRedirectCountPropertyInfo), '("type", DOMPerformanceNavigationTypePropertyInfo)] - --- VVV Prop "connect-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingConnectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingConnectEnd obj = liftIO $ getObjectPropertyUInt64 obj "connect-end" - -data DOMPerformanceTimingConnectEndPropertyInfo -instance AttrInfo DOMPerformanceTimingConnectEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingConnectEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingConnectEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingConnectEndPropertyInfo = "DOMPerformanceTiming::connect-end" - attrGet _ = getDOMPerformanceTimingConnectEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "connect-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingConnectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingConnectStart obj = liftIO $ getObjectPropertyUInt64 obj "connect-start" - -data DOMPerformanceTimingConnectStartPropertyInfo -instance AttrInfo DOMPerformanceTimingConnectStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingConnectStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingConnectStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingConnectStartPropertyInfo = "DOMPerformanceTiming::connect-start" - attrGet _ = getDOMPerformanceTimingConnectStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dom-complete" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomComplete :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomComplete obj = liftIO $ getObjectPropertyUInt64 obj "dom-complete" - -data DOMPerformanceTimingDomCompletePropertyInfo -instance AttrInfo DOMPerformanceTimingDomCompletePropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomCompletePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomCompletePropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomCompletePropertyInfo = "DOMPerformanceTiming::dom-complete" - attrGet _ = getDOMPerformanceTimingDomComplete - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dom-content-loaded-event-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomContentLoadedEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomContentLoadedEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-end" - -data DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo -instance AttrInfo DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-end" - attrGet _ = getDOMPerformanceTimingDomContentLoadedEventEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dom-content-loaded-event-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomContentLoadedEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomContentLoadedEventStart obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-start" - -data DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo -instance AttrInfo DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-start" - attrGet _ = getDOMPerformanceTimingDomContentLoadedEventStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dom-interactive" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomInteractive :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomInteractive obj = liftIO $ getObjectPropertyUInt64 obj "dom-interactive" - -data DOMPerformanceTimingDomInteractivePropertyInfo -instance AttrInfo DOMPerformanceTimingDomInteractivePropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomInteractivePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomInteractivePropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomInteractivePropertyInfo = "DOMPerformanceTiming::dom-interactive" - attrGet _ = getDOMPerformanceTimingDomInteractive - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dom-loading" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomLoading :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomLoading obj = liftIO $ getObjectPropertyUInt64 obj "dom-loading" - -data DOMPerformanceTimingDomLoadingPropertyInfo -instance AttrInfo DOMPerformanceTimingDomLoadingPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomLoadingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomLoadingPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomLoadingPropertyInfo = "DOMPerformanceTiming::dom-loading" - attrGet _ = getDOMPerformanceTimingDomLoading - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "domain-lookup-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomainLookupEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomainLookupEnd obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-end" - -data DOMPerformanceTimingDomainLookupEndPropertyInfo -instance AttrInfo DOMPerformanceTimingDomainLookupEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomainLookupEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomainLookupEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomainLookupEndPropertyInfo = "DOMPerformanceTiming::domain-lookup-end" - attrGet _ = getDOMPerformanceTimingDomainLookupEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "domain-lookup-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingDomainLookupStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingDomainLookupStart obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-start" - -data DOMPerformanceTimingDomainLookupStartPropertyInfo -instance AttrInfo DOMPerformanceTimingDomainLookupStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingDomainLookupStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingDomainLookupStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingDomainLookupStartPropertyInfo = "DOMPerformanceTiming::domain-lookup-start" - attrGet _ = getDOMPerformanceTimingDomainLookupStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "fetch-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingFetchStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingFetchStart obj = liftIO $ getObjectPropertyUInt64 obj "fetch-start" - -data DOMPerformanceTimingFetchStartPropertyInfo -instance AttrInfo DOMPerformanceTimingFetchStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingFetchStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingFetchStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingFetchStartPropertyInfo = "DOMPerformanceTiming::fetch-start" - attrGet _ = getDOMPerformanceTimingFetchStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "load-event-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingLoadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingLoadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "load-event-end" - -data DOMPerformanceTimingLoadEventEndPropertyInfo -instance AttrInfo DOMPerformanceTimingLoadEventEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingLoadEventEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingLoadEventEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingLoadEventEndPropertyInfo = "DOMPerformanceTiming::load-event-end" - attrGet _ = getDOMPerformanceTimingLoadEventEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "load-event-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingLoadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingLoadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "load-event-start" - -data DOMPerformanceTimingLoadEventStartPropertyInfo -instance AttrInfo DOMPerformanceTimingLoadEventStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingLoadEventStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingLoadEventStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingLoadEventStartPropertyInfo = "DOMPerformanceTiming::load-event-start" - attrGet _ = getDOMPerformanceTimingLoadEventStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "navigation-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingNavigationStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingNavigationStart obj = liftIO $ getObjectPropertyUInt64 obj "navigation-start" - -data DOMPerformanceTimingNavigationStartPropertyInfo -instance AttrInfo DOMPerformanceTimingNavigationStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingNavigationStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingNavigationStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingNavigationStartPropertyInfo = "DOMPerformanceTiming::navigation-start" - attrGet _ = getDOMPerformanceTimingNavigationStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "redirect-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingRedirectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingRedirectEnd obj = liftIO $ getObjectPropertyUInt64 obj "redirect-end" - -data DOMPerformanceTimingRedirectEndPropertyInfo -instance AttrInfo DOMPerformanceTimingRedirectEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingRedirectEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingRedirectEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingRedirectEndPropertyInfo = "DOMPerformanceTiming::redirect-end" - attrGet _ = getDOMPerformanceTimingRedirectEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "redirect-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingRedirectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingRedirectStart obj = liftIO $ getObjectPropertyUInt64 obj "redirect-start" - -data DOMPerformanceTimingRedirectStartPropertyInfo -instance AttrInfo DOMPerformanceTimingRedirectStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingRedirectStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingRedirectStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingRedirectStartPropertyInfo = "DOMPerformanceTiming::redirect-start" - attrGet _ = getDOMPerformanceTimingRedirectStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "request-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingRequestStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingRequestStart obj = liftIO $ getObjectPropertyUInt64 obj "request-start" - -data DOMPerformanceTimingRequestStartPropertyInfo -instance AttrInfo DOMPerformanceTimingRequestStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingRequestStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingRequestStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingRequestStartPropertyInfo = "DOMPerformanceTiming::request-start" - attrGet _ = getDOMPerformanceTimingRequestStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "response-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingResponseEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingResponseEnd obj = liftIO $ getObjectPropertyUInt64 obj "response-end" - -data DOMPerformanceTimingResponseEndPropertyInfo -instance AttrInfo DOMPerformanceTimingResponseEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingResponseEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingResponseEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingResponseEndPropertyInfo = "DOMPerformanceTiming::response-end" - attrGet _ = getDOMPerformanceTimingResponseEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "response-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingResponseStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingResponseStart obj = liftIO $ getObjectPropertyUInt64 obj "response-start" - -data DOMPerformanceTimingResponseStartPropertyInfo -instance AttrInfo DOMPerformanceTimingResponseStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingResponseStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingResponseStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingResponseStartPropertyInfo = "DOMPerformanceTiming::response-start" - attrGet _ = getDOMPerformanceTimingResponseStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "secure-connection-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingSecureConnectionStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingSecureConnectionStart obj = liftIO $ getObjectPropertyUInt64 obj "secure-connection-start" - -data DOMPerformanceTimingSecureConnectionStartPropertyInfo -instance AttrInfo DOMPerformanceTimingSecureConnectionStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingSecureConnectionStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingSecureConnectionStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingSecureConnectionStartPropertyInfo = "DOMPerformanceTiming::secure-connection-start" - attrGet _ = getDOMPerformanceTimingSecureConnectionStart - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "unload-event-end" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingUnloadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingUnloadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-end" - -data DOMPerformanceTimingUnloadEventEndPropertyInfo -instance AttrInfo DOMPerformanceTimingUnloadEventEndPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingUnloadEventEndPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingUnloadEventEndPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingUnloadEventEndPropertyInfo = "DOMPerformanceTiming::unload-event-end" - attrGet _ = getDOMPerformanceTimingUnloadEventEnd - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "unload-event-start" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPerformanceTimingUnloadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 -getDOMPerformanceTimingUnloadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-start" - -data DOMPerformanceTimingUnloadEventStartPropertyInfo -instance AttrInfo DOMPerformanceTimingUnloadEventStartPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingUnloadEventStartPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = DOMPerformanceTimingK - type AttrGetType DOMPerformanceTimingUnloadEventStartPropertyInfo = Word64 - type AttrLabel DOMPerformanceTimingUnloadEventStartPropertyInfo = "DOMPerformanceTiming::unload-event-start" - attrGet _ = getDOMPerformanceTimingUnloadEventStart - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPerformanceTiming = '[ '("connect-end", DOMPerformanceTimingConnectEndPropertyInfo), '("connect-start", DOMPerformanceTimingConnectStartPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dom-complete", DOMPerformanceTimingDomCompletePropertyInfo), '("dom-content-loaded-event-end", DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo), '("dom-content-loaded-event-start", DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo), '("dom-interactive", DOMPerformanceTimingDomInteractivePropertyInfo), '("dom-loading", DOMPerformanceTimingDomLoadingPropertyInfo), '("domain-lookup-end", DOMPerformanceTimingDomainLookupEndPropertyInfo), '("domain-lookup-start", DOMPerformanceTimingDomainLookupStartPropertyInfo), '("fetch-start", DOMPerformanceTimingFetchStartPropertyInfo), '("load-event-end", DOMPerformanceTimingLoadEventEndPropertyInfo), '("load-event-start", DOMPerformanceTimingLoadEventStartPropertyInfo), '("navigation-start", DOMPerformanceTimingNavigationStartPropertyInfo), '("redirect-end", DOMPerformanceTimingRedirectEndPropertyInfo), '("redirect-start", DOMPerformanceTimingRedirectStartPropertyInfo), '("request-start", DOMPerformanceTimingRequestStartPropertyInfo), '("response-end", DOMPerformanceTimingResponseEndPropertyInfo), '("response-start", DOMPerformanceTimingResponseStartPropertyInfo), '("secure-connection-start", DOMPerformanceTimingSecureConnectionStartPropertyInfo), '("unload-event-end", DOMPerformanceTimingUnloadEventEndPropertyInfo), '("unload-event-start", DOMPerformanceTimingUnloadEventStartPropertyInfo)] - --- VVV Prop "sheet" - -- Type: TInterface "WebKit" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m DOMStyleSheet -getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMProcessingInstructionSheetPropertyInfo -instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionSheetPropertyInfo = DOMStyleSheet - type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "DOMProcessingInstruction::sheet" - attrGet _ = getDOMProcessingInstructionSheet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m T.Text -getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target" - -data DOMProcessingInstructionTargetPropertyInfo -instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionTargetPropertyInfo = T.Text - type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "DOMProcessingInstruction::target" - attrGet _ = getDOMProcessingInstructionTarget - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMProcessingInstruction = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m Word64 -getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMPropertyNodeListLengthPropertyInfo -instance AttrInfo DOMPropertyNodeListLengthPropertyInfo where - type AttrAllowedOps DOMPropertyNodeListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMPropertyNodeListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMPropertyNodeListLengthPropertyInfo = DOMPropertyNodeListK - type AttrGetType DOMPropertyNodeListLengthPropertyInfo = Word64 - type AttrLabel DOMPropertyNodeListLengthPropertyInfo = "DOMPropertyNodeList::length" - attrGet _ = getDOMPropertyNodeListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMPropertyNodeList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPropertyNodeListLengthPropertyInfo)] - --- VVV Prop "collapsed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMRangeCollapsed :: (MonadIO m, DOMRangeK o) => o -> m Bool -getDOMRangeCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" - -data DOMRangeCollapsedPropertyInfo -instance AttrInfo DOMRangeCollapsedPropertyInfo where - type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = DOMRangeK - type AttrGetType DOMRangeCollapsedPropertyInfo = Bool - type AttrLabel DOMRangeCollapsedPropertyInfo = "DOMRange::collapsed" - attrGet _ = getDOMRangeCollapsed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "common-ancestor-container" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode -getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode - -data DOMRangeCommonAncestorContainerPropertyInfo -instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where - type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = DOMNode - type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "DOMRange::common-ancestor-container" - attrGet _ = getDOMRangeCommonAncestorContainer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "end-container" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode -getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode - -data DOMRangeEndContainerPropertyInfo -instance AttrInfo DOMRangeEndContainerPropertyInfo where - type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndContainerPropertyInfo = DOMNode - type AttrLabel DOMRangeEndContainerPropertyInfo = "DOMRange::end-container" - attrGet _ = getDOMRangeEndContainer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "end-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 -getDOMRangeEndOffset obj = liftIO $ getObjectPropertyInt64 obj "end-offset" - -data DOMRangeEndOffsetPropertyInfo -instance AttrInfo DOMRangeEndOffsetPropertyInfo where - type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndOffsetPropertyInfo = Int64 - type AttrLabel DOMRangeEndOffsetPropertyInfo = "DOMRange::end-offset" - attrGet _ = getDOMRangeEndOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "start-container" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode -getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode - -data DOMRangeStartContainerPropertyInfo -instance AttrInfo DOMRangeStartContainerPropertyInfo where - type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartContainerPropertyInfo = DOMNode - type AttrLabel DOMRangeStartContainerPropertyInfo = "DOMRange::start-container" - attrGet _ = getDOMRangeStartContainer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "start-offset" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 -getDOMRangeStartOffset obj = liftIO $ getObjectPropertyInt64 obj "start-offset" - -data DOMRangeStartOffsetPropertyInfo -instance AttrInfo DOMRangeStartOffsetPropertyInfo where - type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartOffsetPropertyInfo = Int64 - type AttrLabel DOMRangeStartOffsetPropertyInfo = "DOMRange::start-offset" - attrGet _ = getDOMRangeStartOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m T.Text -getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text" - -data DOMRangeTextPropertyInfo -instance AttrInfo DOMRangeTextPropertyInfo where - type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK - type AttrGetType DOMRangeTextPropertyInfo = T.Text - type AttrLabel DOMRangeTextPropertyInfo = "DOMRange::text" - attrGet _ = getDOMRangeText - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMRange = '[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("common-ancestor-container", DOMRangeCommonAncestorContainerPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-container", DOMRangeEndContainerPropertyInfo), '("end-offset", DOMRangeEndOffsetPropertyInfo), '("start-container", DOMRangeStartContainerPropertyInfo), '("start-offset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] - --- VVV Prop "avail-height" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenAvailHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenAvailHeight obj = liftIO $ getObjectPropertyUInt64 obj "avail-height" - -data DOMScreenAvailHeightPropertyInfo -instance AttrInfo DOMScreenAvailHeightPropertyInfo where - type AttrAllowedOps DOMScreenAvailHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenAvailHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenAvailHeightPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailHeightPropertyInfo = Word64 - type AttrLabel DOMScreenAvailHeightPropertyInfo = "DOMScreen::avail-height" - attrGet _ = getDOMScreenAvailHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "avail-left" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMScreenAvailLeft :: (MonadIO m, DOMScreenK o) => o -> m Int64 -getDOMScreenAvailLeft obj = liftIO $ getObjectPropertyInt64 obj "avail-left" - -data DOMScreenAvailLeftPropertyInfo -instance AttrInfo DOMScreenAvailLeftPropertyInfo where - type AttrAllowedOps DOMScreenAvailLeftPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenAvailLeftPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenAvailLeftPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailLeftPropertyInfo = Int64 - type AttrLabel DOMScreenAvailLeftPropertyInfo = "DOMScreen::avail-left" - attrGet _ = getDOMScreenAvailLeft - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "avail-top" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMScreenAvailTop :: (MonadIO m, DOMScreenK o) => o -> m Int64 -getDOMScreenAvailTop obj = liftIO $ getObjectPropertyInt64 obj "avail-top" - -data DOMScreenAvailTopPropertyInfo -instance AttrInfo DOMScreenAvailTopPropertyInfo where - type AttrAllowedOps DOMScreenAvailTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenAvailTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenAvailTopPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailTopPropertyInfo = Int64 - type AttrLabel DOMScreenAvailTopPropertyInfo = "DOMScreen::avail-top" - attrGet _ = getDOMScreenAvailTop - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "avail-width" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenAvailWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenAvailWidth obj = liftIO $ getObjectPropertyUInt64 obj "avail-width" - -data DOMScreenAvailWidthPropertyInfo -instance AttrInfo DOMScreenAvailWidthPropertyInfo where - type AttrAllowedOps DOMScreenAvailWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenAvailWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenAvailWidthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailWidthPropertyInfo = Word64 - type AttrLabel DOMScreenAvailWidthPropertyInfo = "DOMScreen::avail-width" - attrGet _ = getDOMScreenAvailWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "color-depth" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenColorDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenColorDepth obj = liftIO $ getObjectPropertyUInt64 obj "color-depth" - -data DOMScreenColorDepthPropertyInfo -instance AttrInfo DOMScreenColorDepthPropertyInfo where - type AttrAllowedOps DOMScreenColorDepthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenColorDepthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenColorDepthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenColorDepthPropertyInfo = Word64 - type AttrLabel DOMScreenColorDepthPropertyInfo = "DOMScreen::color-depth" - attrGet _ = getDOMScreenColorDepth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" - -data DOMScreenHeightPropertyInfo -instance AttrInfo DOMScreenHeightPropertyInfo where - type AttrAllowedOps DOMScreenHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenHeightPropertyInfo = DOMScreenK - type AttrGetType DOMScreenHeightPropertyInfo = Word64 - type AttrLabel DOMScreenHeightPropertyInfo = "DOMScreen::height" - attrGet _ = getDOMScreenHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pixel-depth" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenPixelDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenPixelDepth obj = liftIO $ getObjectPropertyUInt64 obj "pixel-depth" - -data DOMScreenPixelDepthPropertyInfo -instance AttrInfo DOMScreenPixelDepthPropertyInfo where - type AttrAllowedOps DOMScreenPixelDepthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenPixelDepthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenPixelDepthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenPixelDepthPropertyInfo = Word64 - type AttrLabel DOMScreenPixelDepthPropertyInfo = "DOMScreen::pixel-depth" - attrGet _ = getDOMScreenPixelDepth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMScreenWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" - -data DOMScreenWidthPropertyInfo -instance AttrInfo DOMScreenWidthPropertyInfo where - type AttrAllowedOps DOMScreenWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMScreenWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMScreenWidthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenWidthPropertyInfo = Word64 - type AttrLabel DOMScreenWidthPropertyInfo = "DOMScreen::width" - attrGet _ = getDOMScreenWidth - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMScreen = '[ '("avail-height", DOMScreenAvailHeightPropertyInfo), '("avail-left", DOMScreenAvailLeftPropertyInfo), '("avail-top", DOMScreenAvailTopPropertyInfo), '("avail-width", DOMScreenAvailWidthPropertyInfo), '("color-depth", DOMScreenColorDepthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("height", DOMScreenHeightPropertyInfo), '("pixel-depth", DOMScreenPixelDepthPropertyInfo), '("width", DOMScreenWidthPropertyInfo)] - --- VVV Prop "active-element" - -- Type: TInterface "WebKit" "DOMElement" - -- Flags: [PropertyReadable] - -getDOMShadowRootActiveElement :: (MonadIO m, DOMShadowRootK o) => o -> m DOMElement -getDOMShadowRootActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement - -data DOMShadowRootActiveElementPropertyInfo -instance AttrInfo DOMShadowRootActiveElementPropertyInfo where - type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMShadowRootActiveElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMShadowRootActiveElementPropertyInfo = DOMShadowRootK - type AttrGetType DOMShadowRootActiveElementPropertyInfo = DOMElement - type AttrLabel DOMShadowRootActiveElementPropertyInfo = "DOMShadowRoot::active-element" - attrGet _ = getDOMShadowRootActiveElement - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "apply-author-styles" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> m Bool -getDOMShadowRootApplyAuthorStyles obj = liftIO $ getObjectPropertyBool obj "apply-author-styles" - -setDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () -setDOMShadowRootApplyAuthorStyles obj val = liftIO $ setObjectPropertyBool obj "apply-author-styles" val - -constructDOMShadowRootApplyAuthorStyles :: Bool -> IO ([Char], GValue) -constructDOMShadowRootApplyAuthorStyles val = constructObjectPropertyBool "apply-author-styles" val - -data DOMShadowRootApplyAuthorStylesPropertyInfo -instance AttrInfo DOMShadowRootApplyAuthorStylesPropertyInfo where - type AttrAllowedOps DOMShadowRootApplyAuthorStylesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = DOMShadowRootK - type AttrGetType DOMShadowRootApplyAuthorStylesPropertyInfo = Bool - type AttrLabel DOMShadowRootApplyAuthorStylesPropertyInfo = "DOMShadowRoot::apply-author-styles" - attrGet _ = getDOMShadowRootApplyAuthorStyles - attrSet _ = setDOMShadowRootApplyAuthorStyles - attrConstruct _ = constructDOMShadowRootApplyAuthorStyles - --- VVV Prop "inner-html" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m T.Text -getDOMShadowRootInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" - -setDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> T.Text -> m () -setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val - -constructDOMShadowRootInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" val - -data DOMShadowRootInnerHtmlPropertyInfo -instance AttrInfo DOMShadowRootInnerHtmlPropertyInfo where - type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = DOMShadowRootK - type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = T.Text - type AttrLabel DOMShadowRootInnerHtmlPropertyInfo = "DOMShadowRoot::inner-html" - attrGet _ = getDOMShadowRootInnerHtml - attrSet _ = setDOMShadowRootInnerHtml - attrConstruct _ = constructDOMShadowRootInnerHtml - --- VVV Prop "reset-style-inheritance" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> m Bool -getDOMShadowRootResetStyleInheritance obj = liftIO $ getObjectPropertyBool obj "reset-style-inheritance" - -setDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () -setDOMShadowRootResetStyleInheritance obj val = liftIO $ setObjectPropertyBool obj "reset-style-inheritance" val - -constructDOMShadowRootResetStyleInheritance :: Bool -> IO ([Char], GValue) -constructDOMShadowRootResetStyleInheritance val = constructObjectPropertyBool "reset-style-inheritance" val - -data DOMShadowRootResetStyleInheritancePropertyInfo -instance AttrInfo DOMShadowRootResetStyleInheritancePropertyInfo where - type AttrAllowedOps DOMShadowRootResetStyleInheritancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = DOMShadowRootK - type AttrGetType DOMShadowRootResetStyleInheritancePropertyInfo = Bool - type AttrLabel DOMShadowRootResetStyleInheritancePropertyInfo = "DOMShadowRoot::reset-style-inheritance" - attrGet _ = getDOMShadowRootResetStyleInheritance - attrSet _ = setDOMShadowRootResetStyleInheritance - attrConstruct _ = constructDOMShadowRootResetStyleInheritance - -type instance AttributeList DOMShadowRoot = '[ '("active-element", DOMShadowRootActiveElementPropertyInfo), '("apply-author-styles", DOMShadowRootApplyAuthorStylesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("inner-html", DOMShadowRootInnerHtmlPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reset-style-inheritance", DOMShadowRootResetStyleInheritancePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMStorageLength :: (MonadIO m, DOMStorageK o) => o -> m Word64 -getDOMStorageLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMStorageLengthPropertyInfo -instance AttrInfo DOMStorageLengthPropertyInfo where - type AttrAllowedOps DOMStorageLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStorageLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStorageLengthPropertyInfo = DOMStorageK - type AttrGetType DOMStorageLengthPropertyInfo = Word64 - type AttrLabel DOMStorageLengthPropertyInfo = "DOMStorage::length" - attrGet _ = getDOMStorageLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMStorage = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStorageLengthPropertyInfo)] - -type instance AttributeList DOMStorageInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - -type instance AttributeList DOMStorageQuota = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMStyleMediaType :: (MonadIO m, DOMStyleMediaK o) => o -> m T.Text -getDOMStyleMediaType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMStyleMediaTypePropertyInfo -instance AttrInfo DOMStyleMediaTypePropertyInfo where - type AttrAllowedOps DOMStyleMediaTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleMediaTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleMediaTypePropertyInfo = DOMStyleMediaK - type AttrGetType DOMStyleMediaTypePropertyInfo = T.Text - type AttrLabel DOMStyleMediaTypePropertyInfo = "DOMStyleMedia::type" - attrGet _ = getDOMStyleMediaType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMStyleMedia = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("type", DOMStyleMediaTypePropertyInfo)] - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> m Bool -getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" - -setDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> Bool -> m () -setDOMStyleSheetDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val - -constructDOMStyleSheetDisabled :: Bool -> IO ([Char], GValue) -constructDOMStyleSheetDisabled val = constructObjectPropertyBool "disabled" val - -data DOMStyleSheetDisabledPropertyInfo -instance AttrInfo DOMStyleSheetDisabledPropertyInfo where - type AttrAllowedOps DOMStyleSheetDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetDisabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMStyleSheetDisabledPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetDisabledPropertyInfo = Bool - type AttrLabel DOMStyleSheetDisabledPropertyInfo = "DOMStyleSheet::disabled" - attrGet _ = getDOMStyleSheetDisabled - attrSet _ = setDOMStyleSheetDisabled - attrConstruct _ = constructDOMStyleSheetDisabled - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text -getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href" - -data DOMStyleSheetHrefPropertyInfo -instance AttrInfo DOMStyleSheetHrefPropertyInfo where - type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetHrefPropertyInfo = T.Text - type AttrLabel DOMStyleSheetHrefPropertyInfo = "DOMStyleSheet::href" - attrGet _ = getDOMStyleSheetHref - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "media" - -- Type: TInterface "WebKit" "DOMMediaList" - -- Flags: [PropertyReadable] - -getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMMediaList -getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList - -data DOMStyleSheetMediaPropertyInfo -instance AttrInfo DOMStyleSheetMediaPropertyInfo where - type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetMediaPropertyInfo = DOMMediaList - type AttrLabel DOMStyleSheetMediaPropertyInfo = "DOMStyleSheet::media" - attrGet _ = getDOMStyleSheetMedia - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "owner-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode -getDOMStyleSheetOwnerNode obj = liftIO $ getObjectPropertyObject obj "owner-node" DOMNode - -data DOMStyleSheetOwnerNodePropertyInfo -instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where - type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode - type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "DOMStyleSheet::owner-node" - attrGet _ = getDOMStyleSheetOwnerNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent-style-sheet" - -- Type: TInterface "WebKit" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMStyleSheet -getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet - -data DOMStyleSheetParentStyleSheetPropertyInfo -instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet - type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "DOMStyleSheet::parent-style-sheet" - attrGet _ = getDOMStyleSheetParentStyleSheet - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text -getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title" - -data DOMStyleSheetTitlePropertyInfo -instance AttrInfo DOMStyleSheetTitlePropertyInfo where - type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTitlePropertyInfo = T.Text - type AttrLabel DOMStyleSheetTitlePropertyInfo = "DOMStyleSheet::title" - attrGet _ = getDOMStyleSheetTitle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text -getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMStyleSheetTypePropertyInfo -instance AttrInfo DOMStyleSheetTypePropertyInfo where - type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTypePropertyInfo = T.Text - type AttrLabel DOMStyleSheetTypePropertyInfo = "DOMStyleSheet::type" - attrGet _ = getDOMStyleSheetType - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMStyleSheet = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64 -getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMStyleSheetListLengthPropertyInfo -instance AttrInfo DOMStyleSheetListLengthPropertyInfo where - type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK - type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64 - type AttrLabel DOMStyleSheetListLengthPropertyInfo = "DOMStyleSheetList::length" - attrGet _ = getDOMStyleSheetListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMStyleSheetList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] - --- VVV Prop "whole-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text -getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" - -data DOMTextWholeTextPropertyInfo -instance AttrInfo DOMTextWholeTextPropertyInfo where - type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK - type AttrGetType DOMTextWholeTextPropertyInfo = T.Text - type AttrLabel DOMTextWholeTextPropertyInfo = "DOMText::whole-text" - attrGet _ = getDOMTextWholeText - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMText = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] - --- VVV Prop "active-cues" - -- Type: TInterface "WebKit" "DOMTextTrackCueList" - -- Flags: [PropertyReadable] - -getDOMTextTrackActiveCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList -getDOMTextTrackActiveCues obj = liftIO $ getObjectPropertyObject obj "active-cues" DOMTextTrackCueList - -data DOMTextTrackActiveCuesPropertyInfo -instance AttrInfo DOMTextTrackActiveCuesPropertyInfo where - type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackActiveCuesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackCueList - type AttrLabel DOMTextTrackActiveCuesPropertyInfo = "DOMTextTrack::active-cues" - attrGet _ = getDOMTextTrackActiveCues - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cues" - -- Type: TInterface "WebKit" "DOMTextTrackCueList" - -- Flags: [PropertyReadable] - -getDOMTextTrackCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList -getDOMTextTrackCues obj = liftIO $ getObjectPropertyObject obj "cues" DOMTextTrackCueList - -data DOMTextTrackCuesPropertyInfo -instance AttrInfo DOMTextTrackCuesPropertyInfo where - type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCuesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackCuesPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackCuesPropertyInfo = DOMTextTrackCueList - type AttrLabel DOMTextTrackCuesPropertyInfo = "DOMTextTrack::cues" - attrGet _ = getDOMTextTrackCues - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMTextTrackId :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text -getDOMTextTrackId obj = liftIO $ getObjectPropertyString obj "id" - -data DOMTextTrackIdPropertyInfo -instance AttrInfo DOMTextTrackIdPropertyInfo where - type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackIdPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackIdPropertyInfo = T.Text - type AttrLabel DOMTextTrackIdPropertyInfo = "DOMTextTrack::id" - attrGet _ = getDOMTextTrackId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "kind" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMTextTrackKind :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text -getDOMTextTrackKind obj = liftIO $ getObjectPropertyString obj "kind" - -data DOMTextTrackKindPropertyInfo -instance AttrInfo DOMTextTrackKindPropertyInfo where - type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackKindPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackKindPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackKindPropertyInfo = T.Text - type AttrLabel DOMTextTrackKindPropertyInfo = "DOMTextTrack::kind" - attrGet _ = getDOMTextTrackKind - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMTextTrackLabel :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text -getDOMTextTrackLabel obj = liftIO $ getObjectPropertyString obj "label" - -data DOMTextTrackLabelPropertyInfo -instance AttrInfo DOMTextTrackLabelPropertyInfo where - type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackLabelPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackLabelPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackLabelPropertyInfo = T.Text - type AttrLabel DOMTextTrackLabelPropertyInfo = "DOMTextTrack::label" - attrGet _ = getDOMTextTrackLabel - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMTextTrackLanguage :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text -getDOMTextTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" - -data DOMTextTrackLanguagePropertyInfo -instance AttrInfo DOMTextTrackLanguagePropertyInfo where - type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackLanguagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackLanguagePropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackLanguagePropertyInfo = T.Text - type AttrLabel DOMTextTrackLanguagePropertyInfo = "DOMTextTrack::language" - attrGet _ = getDOMTextTrackLanguage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text -getDOMTextTrackMode obj = liftIO $ getObjectPropertyString obj "mode" - -setDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> T.Text -> m () -setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" val - -constructDOMTextTrackMode :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackMode val = constructObjectPropertyString "mode" val - -data DOMTextTrackModePropertyInfo -instance AttrInfo DOMTextTrackModePropertyInfo where - type AttrAllowedOps DOMTextTrackModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackModePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMTextTrackModePropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackModePropertyInfo = T.Text - type AttrLabel DOMTextTrackModePropertyInfo = "DOMTextTrack::mode" - attrGet _ = getDOMTextTrackMode - attrSet _ = setDOMTextTrackMode - attrConstruct _ = constructDOMTextTrackMode - -type instance AttributeList DOMTextTrack = '[ '("active-cues", DOMTextTrackActiveCuesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cues", DOMTextTrackCuesPropertyInfo), '("id", DOMTextTrackIdPropertyInfo), '("kind", DOMTextTrackKindPropertyInfo), '("label", DOMTextTrackLabelPropertyInfo), '("language", DOMTextTrackLanguagePropertyInfo), '("mode", DOMTextTrackModePropertyInfo)] - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text -getDOMTextTrackCueAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" val - -constructDOMTextTrackCueAlign :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" val - -data DOMTextTrackCueAlignPropertyInfo -instance AttrInfo DOMTextTrackCueAlignPropertyInfo where - type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueAlignPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMTextTrackCueAlignPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueAlignPropertyInfo = T.Text - type AttrLabel DOMTextTrackCueAlignPropertyInfo = "DOMTextTrackCue::align" - attrGet _ = getDOMTextTrackCueAlign - attrSet _ = setDOMTextTrackCueAlign - attrConstruct _ = constructDOMTextTrackCueAlign - --- VVV Prop "end-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double -getDOMTextTrackCueEndTime obj = liftIO $ getObjectPropertyDouble obj "end-time" - -setDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () -setDOMTextTrackCueEndTime obj val = liftIO $ setObjectPropertyDouble obj "end-time" val - -constructDOMTextTrackCueEndTime :: Double -> IO ([Char], GValue) -constructDOMTextTrackCueEndTime val = constructObjectPropertyDouble "end-time" val - -data DOMTextTrackCueEndTimePropertyInfo -instance AttrInfo DOMTextTrackCueEndTimePropertyInfo where - type AttrAllowedOps DOMTextTrackCueEndTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueEndTimePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMTextTrackCueEndTimePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueEndTimePropertyInfo = Double - type AttrLabel DOMTextTrackCueEndTimePropertyInfo = "DOMTextTrackCue::end-time" - attrGet _ = getDOMTextTrackCueEndTime - attrSet _ = setDOMTextTrackCueEndTime - attrConstruct _ = constructDOMTextTrackCueEndTime - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text -getDOMTextTrackCueId obj = liftIO $ getObjectPropertyString obj "id" - -setDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" val - -constructDOMTextTrackCueId :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueId val = constructObjectPropertyString "id" val - -data DOMTextTrackCueIdPropertyInfo -instance AttrInfo DOMTextTrackCueIdPropertyInfo where - type AttrAllowedOps DOMTextTrackCueIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMTextTrackCueIdPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueIdPropertyInfo = T.Text - type AttrLabel DOMTextTrackCueIdPropertyInfo = "DOMTextTrackCue::id" - attrGet _ = getDOMTextTrackCueId - attrSet _ = setDOMTextTrackCueId - attrConstruct _ = constructDOMTextTrackCueId - --- VVV Prop "line" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyInt64 obj "line" - -setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyInt64 obj "line" val - -constructDOMTextTrackCueLine :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCueLine val = constructObjectPropertyInt64 "line" val - -data DOMTextTrackCueLinePropertyInfo -instance AttrInfo DOMTextTrackCueLinePropertyInfo where - type AttrAllowedOps DOMTextTrackCueLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMTextTrackCueLinePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueLinePropertyInfo = Int64 - type AttrLabel DOMTextTrackCueLinePropertyInfo = "DOMTextTrackCue::line" - attrGet _ = getDOMTextTrackCueLine - attrSet _ = setDOMTextTrackCueLine - attrConstruct _ = constructDOMTextTrackCueLine - --- VVV Prop "pause-on-exit" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool -getDOMTextTrackCuePauseOnExit obj = liftIO $ getObjectPropertyBool obj "pause-on-exit" - -setDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () -setDOMTextTrackCuePauseOnExit obj val = liftIO $ setObjectPropertyBool obj "pause-on-exit" val - -constructDOMTextTrackCuePauseOnExit :: Bool -> IO ([Char], GValue) -constructDOMTextTrackCuePauseOnExit val = constructObjectPropertyBool "pause-on-exit" val - -data DOMTextTrackCuePauseOnExitPropertyInfo -instance AttrInfo DOMTextTrackCuePauseOnExitPropertyInfo where - type AttrAllowedOps DOMTextTrackCuePauseOnExitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCuePauseOnExitPropertyInfo = Bool - type AttrLabel DOMTextTrackCuePauseOnExitPropertyInfo = "DOMTextTrackCue::pause-on-exit" - attrGet _ = getDOMTextTrackCuePauseOnExit - attrSet _ = setDOMTextTrackCuePauseOnExit - attrConstruct _ = constructDOMTextTrackCuePauseOnExit - --- VVV Prop "position" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyInt64 obj "position" - -setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyInt64 obj "position" val - -constructDOMTextTrackCuePosition :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCuePosition val = constructObjectPropertyInt64 "position" val - -data DOMTextTrackCuePositionPropertyInfo -instance AttrInfo DOMTextTrackCuePositionPropertyInfo where - type AttrAllowedOps DOMTextTrackCuePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMTextTrackCuePositionPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCuePositionPropertyInfo = Int64 - type AttrLabel DOMTextTrackCuePositionPropertyInfo = "DOMTextTrackCue::position" - attrGet _ = getDOMTextTrackCuePosition - attrSet _ = setDOMTextTrackCuePosition - attrConstruct _ = constructDOMTextTrackCuePosition - --- VVV Prop "size" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyInt64 obj "size" - -setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val - -constructDOMTextTrackCueSize :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCueSize val = constructObjectPropertyInt64 "size" val - -data DOMTextTrackCueSizePropertyInfo -instance AttrInfo DOMTextTrackCueSizePropertyInfo where - type AttrAllowedOps DOMTextTrackCueSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMTextTrackCueSizePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueSizePropertyInfo = Int64 - type AttrLabel DOMTextTrackCueSizePropertyInfo = "DOMTextTrackCue::size" - attrGet _ = getDOMTextTrackCueSize - attrSet _ = setDOMTextTrackCueSize - attrConstruct _ = constructDOMTextTrackCueSize - --- VVV Prop "snap-to-lines" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool -getDOMTextTrackCueSnapToLines obj = liftIO $ getObjectPropertyBool obj "snap-to-lines" - -setDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () -setDOMTextTrackCueSnapToLines obj val = liftIO $ setObjectPropertyBool obj "snap-to-lines" val - -constructDOMTextTrackCueSnapToLines :: Bool -> IO ([Char], GValue) -constructDOMTextTrackCueSnapToLines val = constructObjectPropertyBool "snap-to-lines" val - -data DOMTextTrackCueSnapToLinesPropertyInfo -instance AttrInfo DOMTextTrackCueSnapToLinesPropertyInfo where - type AttrAllowedOps DOMTextTrackCueSnapToLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueSnapToLinesPropertyInfo = Bool - type AttrLabel DOMTextTrackCueSnapToLinesPropertyInfo = "DOMTextTrackCue::snap-to-lines" - attrGet _ = getDOMTextTrackCueSnapToLines - attrSet _ = setDOMTextTrackCueSnapToLines - attrConstruct _ = constructDOMTextTrackCueSnapToLines - --- VVV Prop "start-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double -getDOMTextTrackCueStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" - -setDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () -setDOMTextTrackCueStartTime obj val = liftIO $ setObjectPropertyDouble obj "start-time" val - -constructDOMTextTrackCueStartTime :: Double -> IO ([Char], GValue) -constructDOMTextTrackCueStartTime val = constructObjectPropertyDouble "start-time" val - -data DOMTextTrackCueStartTimePropertyInfo -instance AttrInfo DOMTextTrackCueStartTimePropertyInfo where - type AttrAllowedOps DOMTextTrackCueStartTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueStartTimePropertyInfo = (~) Double - type AttrBaseTypeConstraint DOMTextTrackCueStartTimePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueStartTimePropertyInfo = Double - type AttrLabel DOMTextTrackCueStartTimePropertyInfo = "DOMTextTrackCue::start-time" - attrGet _ = getDOMTextTrackCueStartTime - attrSet _ = setDOMTextTrackCueStartTime - attrConstruct _ = constructDOMTextTrackCueStartTime - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text -getDOMTextTrackCueText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructDOMTextTrackCueText :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueText val = constructObjectPropertyString "text" val - -data DOMTextTrackCueTextPropertyInfo -instance AttrInfo DOMTextTrackCueTextPropertyInfo where - type AttrAllowedOps DOMTextTrackCueTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMTextTrackCueTextPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueTextPropertyInfo = T.Text - type AttrLabel DOMTextTrackCueTextPropertyInfo = "DOMTextTrackCue::text" - attrGet _ = getDOMTextTrackCueText - attrSet _ = setDOMTextTrackCueText - attrConstruct _ = constructDOMTextTrackCueText - --- VVV Prop "track" - -- Type: TInterface "WebKit" "DOMTextTrack" - -- Flags: [PropertyReadable] - -getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m DOMTextTrack -getDOMTextTrackCueTrack obj = liftIO $ getObjectPropertyObject obj "track" DOMTextTrack - -data DOMTextTrackCueTrackPropertyInfo -instance AttrInfo DOMTextTrackCueTrackPropertyInfo where - type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueTrackPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackCueTrackPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueTrackPropertyInfo = DOMTextTrack - type AttrLabel DOMTextTrackCueTrackPropertyInfo = "DOMTextTrackCue::track" - attrGet _ = getDOMTextTrackCueTrack - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vertical" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text -getDOMTextTrackCueVertical obj = liftIO $ getObjectPropertyString obj "vertical" - -setDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" val - -constructDOMTextTrackCueVertical :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" val - -data DOMTextTrackCueVerticalPropertyInfo -instance AttrInfo DOMTextTrackCueVerticalPropertyInfo where - type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueVerticalPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMTextTrackCueVerticalPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueVerticalPropertyInfo = T.Text - type AttrLabel DOMTextTrackCueVerticalPropertyInfo = "DOMTextTrackCue::vertical" - attrGet _ = getDOMTextTrackCueVertical - attrSet _ = setDOMTextTrackCueVertical - attrConstruct _ = constructDOMTextTrackCueVertical - -type instance AttributeList DOMTextTrackCue = '[ '("align", DOMTextTrackCueAlignPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-time", DOMTextTrackCueEndTimePropertyInfo), '("id", DOMTextTrackCueIdPropertyInfo), '("line", DOMTextTrackCueLinePropertyInfo), '("pause-on-exit", DOMTextTrackCuePauseOnExitPropertyInfo), '("position", DOMTextTrackCuePositionPropertyInfo), '("size", DOMTextTrackCueSizePropertyInfo), '("snap-to-lines", DOMTextTrackCueSnapToLinesPropertyInfo), '("start-time", DOMTextTrackCueStartTimePropertyInfo), '("text", DOMTextTrackCueTextPropertyInfo), '("track", DOMTextTrackCueTrackPropertyInfo), '("vertical", DOMTextTrackCueVerticalPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMTextTrackCueListLength :: (MonadIO m, DOMTextTrackCueListK o) => o -> m Word64 -getDOMTextTrackCueListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMTextTrackCueListLengthPropertyInfo -instance AttrInfo DOMTextTrackCueListLengthPropertyInfo where - type AttrAllowedOps DOMTextTrackCueListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackCueListLengthPropertyInfo = DOMTextTrackCueListK - type AttrGetType DOMTextTrackCueListLengthPropertyInfo = Word64 - type AttrLabel DOMTextTrackCueListLengthPropertyInfo = "DOMTextTrackCueList::length" - attrGet _ = getDOMTextTrackCueListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMTextTrackCueList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackCueListLengthPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m Word64 -getDOMTextTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMTextTrackListLengthPropertyInfo -instance AttrInfo DOMTextTrackListLengthPropertyInfo where - type AttrAllowedOps DOMTextTrackListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextTrackListLengthPropertyInfo = DOMTextTrackListK - type AttrGetType DOMTextTrackListLengthPropertyInfo = Word64 - type AttrLabel DOMTextTrackListLengthPropertyInfo = "DOMTextTrackList::length" - attrGet _ = getDOMTextTrackListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMTextTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackListLengthPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m Word64 -getDOMTimeRangesLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMTimeRangesLengthPropertyInfo -instance AttrInfo DOMTimeRangesLengthPropertyInfo where - type AttrAllowedOps DOMTimeRangesLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTimeRangesLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTimeRangesLengthPropertyInfo = DOMTimeRangesK - type AttrGetType DOMTimeRangesLengthPropertyInfo = Word64 - type AttrLabel DOMTimeRangesLengthPropertyInfo = "DOMTimeRanges::length" - attrGet _ = getDOMTimeRangesLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMTimeRanges = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTimeRangesLengthPropertyInfo)] - --- VVV Prop "client-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchClientX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" - -data DOMTouchClientXPropertyInfo -instance AttrInfo DOMTouchClientXPropertyInfo where - type AttrAllowedOps DOMTouchClientXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchClientXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchClientXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchClientXPropertyInfo = Int64 - type AttrLabel DOMTouchClientXPropertyInfo = "DOMTouch::client-x" - attrGet _ = getDOMTouchClientX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "client-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchClientY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" - -data DOMTouchClientYPropertyInfo -instance AttrInfo DOMTouchClientYPropertyInfo where - type AttrAllowedOps DOMTouchClientYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchClientYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchClientYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchClientYPropertyInfo = Int64 - type AttrLabel DOMTouchClientYPropertyInfo = "DOMTouch::client-y" - attrGet _ = getDOMTouchClientY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "identifier" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMTouchIdentifier :: (MonadIO m, DOMTouchK o) => o -> m Word64 -getDOMTouchIdentifier obj = liftIO $ getObjectPropertyUInt64 obj "identifier" - -data DOMTouchIdentifierPropertyInfo -instance AttrInfo DOMTouchIdentifierPropertyInfo where - type AttrAllowedOps DOMTouchIdentifierPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchIdentifierPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchIdentifierPropertyInfo = DOMTouchK - type AttrGetType DOMTouchIdentifierPropertyInfo = Word64 - type AttrLabel DOMTouchIdentifierPropertyInfo = "DOMTouch::identifier" - attrGet _ = getDOMTouchIdentifier - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchPageX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" - -data DOMTouchPageXPropertyInfo -instance AttrInfo DOMTouchPageXPropertyInfo where - type AttrAllowedOps DOMTouchPageXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchPageXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchPageXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchPageXPropertyInfo = Int64 - type AttrLabel DOMTouchPageXPropertyInfo = "DOMTouch::page-x" - attrGet _ = getDOMTouchPageX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchPageY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" - -data DOMTouchPageYPropertyInfo -instance AttrInfo DOMTouchPageYPropertyInfo where - type AttrAllowedOps DOMTouchPageYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchPageYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchPageYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchPageYPropertyInfo = Int64 - type AttrLabel DOMTouchPageYPropertyInfo = "DOMTouch::page-y" - attrGet _ = getDOMTouchPageY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchScreenX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" - -data DOMTouchScreenXPropertyInfo -instance AttrInfo DOMTouchScreenXPropertyInfo where - type AttrAllowedOps DOMTouchScreenXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchScreenXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchScreenXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchScreenXPropertyInfo = Int64 - type AttrLabel DOMTouchScreenXPropertyInfo = "DOMTouch::screen-x" - attrGet _ = getDOMTouchScreenX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "screen-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchScreenY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" - -data DOMTouchScreenYPropertyInfo -instance AttrInfo DOMTouchScreenYPropertyInfo where - type AttrAllowedOps DOMTouchScreenYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchScreenYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchScreenYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchScreenYPropertyInfo = Int64 - type AttrLabel DOMTouchScreenYPropertyInfo = "DOMTouch::screen-y" - attrGet _ = getDOMTouchScreenY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "target" - -- Type: TInterface "WebKit" "DOMEventTarget" - -- Flags: [PropertyReadable] - -getDOMTouchTarget :: (MonadIO m, DOMTouchK o) => o -> m DOMEventTarget -getDOMTouchTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget - -data DOMTouchTargetPropertyInfo -instance AttrInfo DOMTouchTargetPropertyInfo where - type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchTargetPropertyInfo = DOMTouchK - type AttrGetType DOMTouchTargetPropertyInfo = DOMEventTarget - type AttrLabel DOMTouchTargetPropertyInfo = "DOMTouch::target" - attrGet _ = getDOMTouchTarget - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-force" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getDOMTouchWebkitForce :: (MonadIO m, DOMTouchK o) => o -> m Float -getDOMTouchWebkitForce obj = liftIO $ getObjectPropertyFloat obj "webkit-force" - -data DOMTouchWebkitForcePropertyInfo -instance AttrInfo DOMTouchWebkitForcePropertyInfo where - type AttrAllowedOps DOMTouchWebkitForcePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchWebkitForcePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchWebkitForcePropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitForcePropertyInfo = Float - type AttrLabel DOMTouchWebkitForcePropertyInfo = "DOMTouch::webkit-force" - attrGet _ = getDOMTouchWebkitForce - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-radius-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchWebkitRadiusX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-x" - -data DOMTouchWebkitRadiusXPropertyInfo -instance AttrInfo DOMTouchWebkitRadiusXPropertyInfo where - type AttrAllowedOps DOMTouchWebkitRadiusXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = Int64 - type AttrLabel DOMTouchWebkitRadiusXPropertyInfo = "DOMTouch::webkit-radius-x" - attrGet _ = getDOMTouchWebkitRadiusX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-radius-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMTouchWebkitRadiusY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-y" - -data DOMTouchWebkitRadiusYPropertyInfo -instance AttrInfo DOMTouchWebkitRadiusYPropertyInfo where - type AttrAllowedOps DOMTouchWebkitRadiusYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = Int64 - type AttrLabel DOMTouchWebkitRadiusYPropertyInfo = "DOMTouch::webkit-radius-y" - attrGet _ = getDOMTouchWebkitRadiusY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-rotation-angle" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getDOMTouchWebkitRotationAngle :: (MonadIO m, DOMTouchK o) => o -> m Float -getDOMTouchWebkitRotationAngle obj = liftIO $ getObjectPropertyFloat obj "webkit-rotation-angle" - -data DOMTouchWebkitRotationAnglePropertyInfo -instance AttrInfo DOMTouchWebkitRotationAnglePropertyInfo where - type AttrAllowedOps DOMTouchWebkitRotationAnglePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitRotationAnglePropertyInfo = Float - type AttrLabel DOMTouchWebkitRotationAnglePropertyInfo = "DOMTouch::webkit-rotation-angle" - attrGet _ = getDOMTouchWebkitRotationAngle - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMTouch = '[ '("client-x", DOMTouchClientXPropertyInfo), '("client-y", DOMTouchClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("identifier", DOMTouchIdentifierPropertyInfo), '("page-x", DOMTouchPageXPropertyInfo), '("page-y", DOMTouchPageYPropertyInfo), '("screen-x", DOMTouchScreenXPropertyInfo), '("screen-y", DOMTouchScreenYPropertyInfo), '("target", DOMTouchTargetPropertyInfo), '("webkit-force", DOMTouchWebkitForcePropertyInfo), '("webkit-radius-x", DOMTouchWebkitRadiusXPropertyInfo), '("webkit-radius-y", DOMTouchWebkitRadiusYPropertyInfo), '("webkit-rotation-angle", DOMTouchWebkitRotationAnglePropertyInfo)] - -type instance AttributeList DOMTrackEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] - --- VVV Prop "current-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerCurrentNode obj = liftIO $ getObjectPropertyObject obj "current-node" DOMNode - -data DOMTreeWalkerCurrentNodePropertyInfo -instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where - type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode - type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "DOMTreeWalker::current-node" - attrGet _ = getDOMTreeWalkerCurrentNode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "expand-entity-references" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool -getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" - -data DOMTreeWalkerExpandEntityReferencesPropertyInfo -instance AttrInfo DOMTreeWalkerExpandEntityReferencesPropertyInfo where - type AttrAllowedOps DOMTreeWalkerExpandEntityReferencesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerExpandEntityReferencesPropertyInfo = Bool - type AttrLabel DOMTreeWalkerExpandEntityReferencesPropertyInfo = "DOMTreeWalker::expand-entity-references" - attrGet _ = getDOMTreeWalkerExpandEntityReferences - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "filter" - -- Type: TInterface "WebKit" "DOMNodeFilter" - -- Flags: [PropertyReadable] - -getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNodeFilter -getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter - -data DOMTreeWalkerFilterPropertyInfo -instance AttrInfo DOMTreeWalkerFilterPropertyInfo where - type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerFilterPropertyInfo = DOMNodeFilter - type AttrLabel DOMTreeWalkerFilterPropertyInfo = "DOMTreeWalker::filter" - attrGet _ = getDOMTreeWalkerFilter - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "root" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode - -data DOMTreeWalkerRootPropertyInfo -instance AttrInfo DOMTreeWalkerRootPropertyInfo where - type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode - type AttrLabel DOMTreeWalkerRootPropertyInfo = "DOMTreeWalker::root" - attrGet _ = getDOMTreeWalkerRoot - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "what-to-show" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m Word64 -getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" - -data DOMTreeWalkerWhatToShowPropertyInfo -instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where - type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = Word64 - type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "DOMTreeWalker::what-to-show" - attrGet _ = getDOMTreeWalkerWhatToShow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMTreeWalker = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-node", DOMTreeWalkerCurrentNodePropertyInfo), '("expand-entity-references", DOMTreeWalkerExpandEntityReferencesPropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("what-to-show", DOMTreeWalkerWhatToShowPropertyInfo)] - --- VVV Prop "char-code" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code" - -data DOMUIEventCharCodePropertyInfo -instance AttrInfo DOMUIEventCharCodePropertyInfo where - type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventCharCodePropertyInfo = Int64 - type AttrLabel DOMUIEventCharCodePropertyInfo = "DOMUIEvent::char-code" - attrGet _ = getDOMUIEventCharCode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "detail" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail" - -data DOMUIEventDetailPropertyInfo -instance AttrInfo DOMUIEventDetailPropertyInfo where - type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventDetailPropertyInfo = Int64 - type AttrLabel DOMUIEventDetailPropertyInfo = "DOMUIEvent::detail" - attrGet _ = getDOMUIEventDetail - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "key-code" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code" - -data DOMUIEventKeyCodePropertyInfo -instance AttrInfo DOMUIEventKeyCodePropertyInfo where - type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64 - type AttrLabel DOMUIEventKeyCodePropertyInfo = "DOMUIEvent::key-code" - attrGet _ = getDOMUIEventKeyCode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "layer-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x" - -data DOMUIEventLayerXPropertyInfo -instance AttrInfo DOMUIEventLayerXPropertyInfo where - type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerXPropertyInfo = Int64 - type AttrLabel DOMUIEventLayerXPropertyInfo = "DOMUIEvent::layer-x" - attrGet _ = getDOMUIEventLayerX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "layer-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y" - -data DOMUIEventLayerYPropertyInfo -instance AttrInfo DOMUIEventLayerYPropertyInfo where - type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerYPropertyInfo = Int64 - type AttrLabel DOMUIEventLayerYPropertyInfo = "DOMUIEvent::layer-y" - attrGet _ = getDOMUIEventLayerY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" - -data DOMUIEventPageXPropertyInfo -instance AttrInfo DOMUIEventPageXPropertyInfo where - type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageXPropertyInfo = Int64 - type AttrLabel DOMUIEventPageXPropertyInfo = "DOMUIEvent::page-x" - attrGet _ = getDOMUIEventPageX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "page-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" - -data DOMUIEventPageYPropertyInfo -instance AttrInfo DOMUIEventPageYPropertyInfo where - type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageYPropertyInfo = Int64 - type AttrLabel DOMUIEventPageYPropertyInfo = "DOMUIEvent::page-y" - attrGet _ = getDOMUIEventPageY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "view" - -- Type: TInterface "WebKit" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow -getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow - -data DOMUIEventViewPropertyInfo -instance AttrInfo DOMUIEventViewPropertyInfo where - type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow - type AttrLabel DOMUIEventViewPropertyInfo = "DOMUIEvent::view" - attrGet _ = getDOMUIEventView - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "which" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which" - -data DOMUIEventWhichPropertyInfo -instance AttrInfo DOMUIEventWhichPropertyInfo where - type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventWhichPropertyInfo = Int64 - type AttrLabel DOMUIEventWhichPropertyInfo = "DOMUIEvent::which" - attrGet _ = getDOMUIEventWhich - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMUIEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] - --- VVV Prop "bad-input" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateBadInput :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateBadInput obj = liftIO $ getObjectPropertyBool obj "bad-input" - -data DOMValidityStateBadInputPropertyInfo -instance AttrInfo DOMValidityStateBadInputPropertyInfo where - type AttrAllowedOps DOMValidityStateBadInputPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateBadInputPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateBadInputPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateBadInputPropertyInfo = Bool - type AttrLabel DOMValidityStateBadInputPropertyInfo = "DOMValidityState::bad-input" - attrGet _ = getDOMValidityStateBadInput - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "custom-error" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateCustomError :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateCustomError obj = liftIO $ getObjectPropertyBool obj "custom-error" - -data DOMValidityStateCustomErrorPropertyInfo -instance AttrInfo DOMValidityStateCustomErrorPropertyInfo where - type AttrAllowedOps DOMValidityStateCustomErrorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateCustomErrorPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateCustomErrorPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateCustomErrorPropertyInfo = Bool - type AttrLabel DOMValidityStateCustomErrorPropertyInfo = "DOMValidityState::custom-error" - attrGet _ = getDOMValidityStateCustomError - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pattern-mismatch" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStatePatternMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStatePatternMismatch obj = liftIO $ getObjectPropertyBool obj "pattern-mismatch" - -data DOMValidityStatePatternMismatchPropertyInfo -instance AttrInfo DOMValidityStatePatternMismatchPropertyInfo where - type AttrAllowedOps DOMValidityStatePatternMismatchPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStatePatternMismatchPropertyInfo = Bool - type AttrLabel DOMValidityStatePatternMismatchPropertyInfo = "DOMValidityState::pattern-mismatch" - attrGet _ = getDOMValidityStatePatternMismatch - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "range-overflow" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateRangeOverflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateRangeOverflow obj = liftIO $ getObjectPropertyBool obj "range-overflow" - -data DOMValidityStateRangeOverflowPropertyInfo -instance AttrInfo DOMValidityStateRangeOverflowPropertyInfo where - type AttrAllowedOps DOMValidityStateRangeOverflowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateRangeOverflowPropertyInfo = Bool - type AttrLabel DOMValidityStateRangeOverflowPropertyInfo = "DOMValidityState::range-overflow" - attrGet _ = getDOMValidityStateRangeOverflow - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "range-underflow" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateRangeUnderflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateRangeUnderflow obj = liftIO $ getObjectPropertyBool obj "range-underflow" - -data DOMValidityStateRangeUnderflowPropertyInfo -instance AttrInfo DOMValidityStateRangeUnderflowPropertyInfo where - type AttrAllowedOps DOMValidityStateRangeUnderflowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateRangeUnderflowPropertyInfo = Bool - type AttrLabel DOMValidityStateRangeUnderflowPropertyInfo = "DOMValidityState::range-underflow" - attrGet _ = getDOMValidityStateRangeUnderflow - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "step-mismatch" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateStepMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateStepMismatch obj = liftIO $ getObjectPropertyBool obj "step-mismatch" - -data DOMValidityStateStepMismatchPropertyInfo -instance AttrInfo DOMValidityStateStepMismatchPropertyInfo where - type AttrAllowedOps DOMValidityStateStepMismatchPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateStepMismatchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateStepMismatchPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateStepMismatchPropertyInfo = Bool - type AttrLabel DOMValidityStateStepMismatchPropertyInfo = "DOMValidityState::step-mismatch" - attrGet _ = getDOMValidityStateStepMismatch - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "too-long" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateTooLong :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateTooLong obj = liftIO $ getObjectPropertyBool obj "too-long" - -data DOMValidityStateTooLongPropertyInfo -instance AttrInfo DOMValidityStateTooLongPropertyInfo where - type AttrAllowedOps DOMValidityStateTooLongPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateTooLongPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateTooLongPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateTooLongPropertyInfo = Bool - type AttrLabel DOMValidityStateTooLongPropertyInfo = "DOMValidityState::too-long" - attrGet _ = getDOMValidityStateTooLong - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "type-mismatch" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateTypeMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateTypeMismatch obj = liftIO $ getObjectPropertyBool obj "type-mismatch" - -data DOMValidityStateTypeMismatchPropertyInfo -instance AttrInfo DOMValidityStateTypeMismatchPropertyInfo where - type AttrAllowedOps DOMValidityStateTypeMismatchPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateTypeMismatchPropertyInfo = Bool - type AttrLabel DOMValidityStateTypeMismatchPropertyInfo = "DOMValidityState::type-mismatch" - attrGet _ = getDOMValidityStateTypeMismatch - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "valid" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateValid :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateValid obj = liftIO $ getObjectPropertyBool obj "valid" - -data DOMValidityStateValidPropertyInfo -instance AttrInfo DOMValidityStateValidPropertyInfo where - type AttrAllowedOps DOMValidityStateValidPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateValidPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateValidPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateValidPropertyInfo = Bool - type AttrLabel DOMValidityStateValidPropertyInfo = "DOMValidityState::valid" - attrGet _ = getDOMValidityStateValid - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "value-missing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMValidityStateValueMissing :: (MonadIO m, DOMValidityStateK o) => o -> m Bool -getDOMValidityStateValueMissing obj = liftIO $ getObjectPropertyBool obj "value-missing" - -data DOMValidityStateValueMissingPropertyInfo -instance AttrInfo DOMValidityStateValueMissingPropertyInfo where - type AttrAllowedOps DOMValidityStateValueMissingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMValidityStateValueMissingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMValidityStateValueMissingPropertyInfo = DOMValidityStateK - type AttrGetType DOMValidityStateValueMissingPropertyInfo = Bool - type AttrLabel DOMValidityStateValueMissingPropertyInfo = "DOMValidityState::value-missing" - attrGet _ = getDOMValidityStateValueMissing - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMValidityState = '[ '("bad-input", DOMValidityStateBadInputPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("custom-error", DOMValidityStateCustomErrorPropertyInfo), '("pattern-mismatch", DOMValidityStatePatternMismatchPropertyInfo), '("range-overflow", DOMValidityStateRangeOverflowPropertyInfo), '("range-underflow", DOMValidityStateRangeUnderflowPropertyInfo), '("step-mismatch", DOMValidityStateStepMismatchPropertyInfo), '("too-long", DOMValidityStateTooLongPropertyInfo), '("type-mismatch", DOMValidityStateTypeMismatchPropertyInfo), '("valid", DOMValidityStateValidPropertyInfo), '("value-missing", DOMValidityStateValueMissingPropertyInfo)] - --- VVV Prop "corrupted-video-frames" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMVideoPlaybackQualityCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityCorruptedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "corrupted-video-frames" - -data DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo -instance AttrInfo DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo where - type AttrAllowedOps DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = Word64 - type AttrLabel DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::corrupted-video-frames" - attrGet _ = getDOMVideoPlaybackQualityCorruptedVideoFrames - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "creation-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMVideoPlaybackQualityCreationTime :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double -getDOMVideoPlaybackQualityCreationTime obj = liftIO $ getObjectPropertyDouble obj "creation-time" - -data DOMVideoPlaybackQualityCreationTimePropertyInfo -instance AttrInfo DOMVideoPlaybackQualityCreationTimePropertyInfo where - type AttrAllowedOps DOMVideoPlaybackQualityCreationTimePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityCreationTimePropertyInfo = Double - type AttrLabel DOMVideoPlaybackQualityCreationTimePropertyInfo = "DOMVideoPlaybackQuality::creation-time" - attrGet _ = getDOMVideoPlaybackQualityCreationTime - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "dropped-video-frames" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMVideoPlaybackQualityDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityDroppedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "dropped-video-frames" - -data DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo -instance AttrInfo DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo where - type AttrAllowedOps DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = Word64 - type AttrLabel DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::dropped-video-frames" - attrGet _ = getDOMVideoPlaybackQualityDroppedVideoFrames - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "total-frame-delay" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMVideoPlaybackQualityTotalFrameDelay :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double -getDOMVideoPlaybackQualityTotalFrameDelay obj = liftIO $ getObjectPropertyDouble obj "total-frame-delay" - -data DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo -instance AttrInfo DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo where - type AttrAllowedOps DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = Double - type AttrLabel DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = "DOMVideoPlaybackQuality::total-frame-delay" - attrGet _ = getDOMVideoPlaybackQualityTotalFrameDelay - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "total-video-frames" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMVideoPlaybackQualityTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityTotalVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "total-video-frames" - -data DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo -instance AttrInfo DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo where - type AttrAllowedOps DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = Word64 - type AttrLabel DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::total-video-frames" - attrGet _ = getDOMVideoPlaybackQualityTotalVideoFrames - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMVideoPlaybackQuality = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("corrupted-video-frames", DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo), '("creation-time", DOMVideoPlaybackQualityCreationTimePropertyInfo), '("dropped-video-frames", DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo), '("total-frame-delay", DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo), '("total-video-frames", DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo)] - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text -getDOMVideoTrackId obj = liftIO $ getObjectPropertyString obj "id" - -data DOMVideoTrackIdPropertyInfo -instance AttrInfo DOMVideoTrackIdPropertyInfo where - type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoTrackIdPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackIdPropertyInfo = T.Text - type AttrLabel DOMVideoTrackIdPropertyInfo = "DOMVideoTrack::id" - attrGet _ = getDOMVideoTrackId - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "kind" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text -getDOMVideoTrackKind obj = liftIO $ getObjectPropertyString obj "kind" - -data DOMVideoTrackKindPropertyInfo -instance AttrInfo DOMVideoTrackKindPropertyInfo where - type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackKindPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoTrackKindPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackKindPropertyInfo = T.Text - type AttrLabel DOMVideoTrackKindPropertyInfo = "DOMVideoTrack::kind" - attrGet _ = getDOMVideoTrackKind - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text -getDOMVideoTrackLabel obj = liftIO $ getObjectPropertyString obj "label" - -data DOMVideoTrackLabelPropertyInfo -instance AttrInfo DOMVideoTrackLabelPropertyInfo where - type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackLabelPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoTrackLabelPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackLabelPropertyInfo = T.Text - type AttrLabel DOMVideoTrackLabelPropertyInfo = "DOMVideoTrack::label" - attrGet _ = getDOMVideoTrackLabel - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text -getDOMVideoTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" - -data DOMVideoTrackLanguagePropertyInfo -instance AttrInfo DOMVideoTrackLanguagePropertyInfo where - type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackLanguagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoTrackLanguagePropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackLanguagePropertyInfo = T.Text - type AttrLabel DOMVideoTrackLanguagePropertyInfo = "DOMVideoTrack::language" - attrGet _ = getDOMVideoTrackLanguage - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "selected" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> m Bool -getDOMVideoTrackSelected obj = liftIO $ getObjectPropertyBool obj "selected" - -setDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> Bool -> m () -setDOMVideoTrackSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val - -constructDOMVideoTrackSelected :: Bool -> IO ([Char], GValue) -constructDOMVideoTrackSelected val = constructObjectPropertyBool "selected" val - -data DOMVideoTrackSelectedPropertyInfo -instance AttrInfo DOMVideoTrackSelectedPropertyInfo where - type AttrAllowedOps DOMVideoTrackSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackSelectedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DOMVideoTrackSelectedPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackSelectedPropertyInfo = Bool - type AttrLabel DOMVideoTrackSelectedPropertyInfo = "DOMVideoTrack::selected" - attrGet _ = getDOMVideoTrackSelected - attrSet _ = setDOMVideoTrackSelected - attrConstruct _ = constructDOMVideoTrackSelected - -type instance AttributeList DOMVideoTrack = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMVideoTrackIdPropertyInfo), '("kind", DOMVideoTrackKindPropertyInfo), '("label", DOMVideoTrackLabelPropertyInfo), '("language", DOMVideoTrackLanguagePropertyInfo), '("selected", DOMVideoTrackSelectedPropertyInfo)] - --- VVV Prop "length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m Word64 -getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" - -data DOMVideoTrackListLengthPropertyInfo -instance AttrInfo DOMVideoTrackListLengthPropertyInfo where - type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK - type AttrGetType DOMVideoTrackListLengthPropertyInfo = Word64 - type AttrLabel DOMVideoTrackListLengthPropertyInfo = "DOMVideoTrackList::length" - attrGet _ = getDOMVideoTrackListLength - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMVideoTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] - --- VVV Prop "first-empty-region-index" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Int64 -getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyInt64 obj "first-empty-region-index" - -data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo -instance AttrInfo DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo where - type AttrAllowedOps DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = DOMWebKitNamedFlowK - type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = Int64 - type AttrLabel DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = "DOMWebKitNamedFlow::first-empty-region-index" - attrGet _ = getDOMWebKitNamedFlowFirstEmptyRegionIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m T.Text -getDOMWebKitNamedFlowName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMWebKitNamedFlowNamePropertyInfo -instance AttrInfo DOMWebKitNamedFlowNamePropertyInfo where - type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = DOMWebKitNamedFlowK - type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = T.Text - type AttrLabel DOMWebKitNamedFlowNamePropertyInfo = "DOMWebKitNamedFlow::name" - attrGet _ = getDOMWebKitNamedFlowName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "overset" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMWebKitNamedFlowOverset :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Bool -getDOMWebKitNamedFlowOverset obj = liftIO $ getObjectPropertyBool obj "overset" - -data DOMWebKitNamedFlowOversetPropertyInfo -instance AttrInfo DOMWebKitNamedFlowOversetPropertyInfo where - type AttrAllowedOps DOMWebKitNamedFlowOversetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = DOMWebKitNamedFlowK - type AttrGetType DOMWebKitNamedFlowOversetPropertyInfo = Bool - type AttrLabel DOMWebKitNamedFlowOversetPropertyInfo = "DOMWebKitNamedFlow::overset" - attrGet _ = getDOMWebKitNamedFlowOverset - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMWebKitNamedFlow = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-empty-region-index", DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo), '("name", DOMWebKitNamedFlowNamePropertyInfo), '("overset", DOMWebKitNamedFlowOversetPropertyInfo)] - --- VVV Prop "x" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> m Float -getDOMWebKitPointX obj = liftIO $ getObjectPropertyFloat obj "x" - -setDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () -setDOMWebKitPointX obj val = liftIO $ setObjectPropertyFloat obj "x" val - -constructDOMWebKitPointX :: Float -> IO ([Char], GValue) -constructDOMWebKitPointX val = constructObjectPropertyFloat "x" val - -data DOMWebKitPointXPropertyInfo -instance AttrInfo DOMWebKitPointXPropertyInfo where - type AttrAllowedOps DOMWebKitPointXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMWebKitPointXPropertyInfo = (~) Float - type AttrBaseTypeConstraint DOMWebKitPointXPropertyInfo = DOMWebKitPointK - type AttrGetType DOMWebKitPointXPropertyInfo = Float - type AttrLabel DOMWebKitPointXPropertyInfo = "DOMWebKitPoint::x" - attrGet _ = getDOMWebKitPointX - attrSet _ = setDOMWebKitPointX - attrConstruct _ = constructDOMWebKitPointX - --- VVV Prop "y" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> m Float -getDOMWebKitPointY obj = liftIO $ getObjectPropertyFloat obj "y" - -setDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () -setDOMWebKitPointY obj val = liftIO $ setObjectPropertyFloat obj "y" val - -constructDOMWebKitPointY :: Float -> IO ([Char], GValue) -constructDOMWebKitPointY val = constructObjectPropertyFloat "y" val - -data DOMWebKitPointYPropertyInfo -instance AttrInfo DOMWebKitPointYPropertyInfo where - type AttrAllowedOps DOMWebKitPointYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMWebKitPointYPropertyInfo = (~) Float - type AttrBaseTypeConstraint DOMWebKitPointYPropertyInfo = DOMWebKitPointK - type AttrGetType DOMWebKitPointYPropertyInfo = Float - type AttrLabel DOMWebKitPointYPropertyInfo = "DOMWebKitPoint::y" - attrGet _ = getDOMWebKitPointY - attrSet _ = setDOMWebKitPointY - attrConstruct _ = constructDOMWebKitPointY - -type instance AttributeList DOMWebKitPoint = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("x", DOMWebKitPointXPropertyInfo), '("y", DOMWebKitPointYPropertyInfo)] - --- VVV Prop "delta-mode" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m Word64 -getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyUInt64 obj "delta-mode" - -data DOMWheelEventDeltaModePropertyInfo -instance AttrInfo DOMWheelEventDeltaModePropertyInfo where - type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaModePropertyInfo = Word64 - type AttrLabel DOMWheelEventDeltaModePropertyInfo = "DOMWheelEvent::delta-mode" - attrGet _ = getDOMWheelEventDeltaMode - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "delta-x" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double -getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x" - -data DOMWheelEventDeltaXPropertyInfo -instance AttrInfo DOMWheelEventDeltaXPropertyInfo where - type AttrAllowedOps DOMWheelEventDeltaXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventDeltaXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventDeltaXPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaXPropertyInfo = Double - type AttrLabel DOMWheelEventDeltaXPropertyInfo = "DOMWheelEvent::delta-x" - attrGet _ = getDOMWheelEventDeltaX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "delta-y" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double -getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y" - -data DOMWheelEventDeltaYPropertyInfo -instance AttrInfo DOMWheelEventDeltaYPropertyInfo where - type AttrAllowedOps DOMWheelEventDeltaYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventDeltaYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventDeltaYPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaYPropertyInfo = Double - type AttrLabel DOMWheelEventDeltaYPropertyInfo = "DOMWheelEvent::delta-y" - attrGet _ = getDOMWheelEventDeltaY - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "delta-z" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double -getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z" - -data DOMWheelEventDeltaZPropertyInfo -instance AttrInfo DOMWheelEventDeltaZPropertyInfo where - type AttrAllowedOps DOMWheelEventDeltaZPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventDeltaZPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventDeltaZPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaZPropertyInfo = Double - type AttrLabel DOMWheelEventDeltaZPropertyInfo = "DOMWheelEvent::delta-z" - attrGet _ = getDOMWheelEventDeltaZ - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "webkit-direction-inverted-from-device" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool -getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device" - -data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo -instance AttrInfo DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo where - type AttrAllowedOps DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = Bool - type AttrLabel DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = "DOMWheelEvent::webkit-direction-inverted-from-device" - attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "wheel-delta" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta" - -data DOMWheelEventWheelDeltaPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = Int64 - type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "DOMWheelEvent::wheel-delta" - attrGet _ = getDOMWheelEventWheelDelta - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "wheel-delta-x" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-x" - -data DOMWheelEventWheelDeltaXPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = Int64 - type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "DOMWheelEvent::wheel-delta-x" - attrGet _ = getDOMWheelEventWheelDeltaX - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "wheel-delta-y" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable] - -getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-y" - -data DOMWheelEventWheelDeltaYPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = Int64 - type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "DOMWheelEvent::wheel-delta-y" - attrGet _ = getDOMWheelEventWheelDeltaY - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMWheelEvent = '[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("delta-mode", DOMWheelEventDeltaModePropertyInfo), '("delta-x", DOMWheelEventDeltaXPropertyInfo), '("delta-y", DOMWheelEventDeltaYPropertyInfo), '("delta-z", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-direction-inverted-from-device", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("wheel-delta", DOMWheelEventWheelDeltaPropertyInfo), '("wheel-delta-x", DOMWheelEventWheelDeltaXPropertyInfo), '("wheel-delta-y", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] - -type instance AttributeList DOMXPathExpression = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - -type instance AttributeList DOMXPathNSResolver = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] - --- VVV Prop "boolean-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMXPathResultBooleanValue :: (MonadIO m, DOMXPathResultK o) => o -> m Bool -getDOMXPathResultBooleanValue obj = liftIO $ getObjectPropertyBool obj "boolean-value" - -data DOMXPathResultBooleanValuePropertyInfo -instance AttrInfo DOMXPathResultBooleanValuePropertyInfo where - type AttrAllowedOps DOMXPathResultBooleanValuePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultBooleanValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultBooleanValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultBooleanValuePropertyInfo = Bool - type AttrLabel DOMXPathResultBooleanValuePropertyInfo = "DOMXPathResult::boolean-value" - attrGet _ = getDOMXPathResultBooleanValue - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "invalid-iterator-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMXPathResultInvalidIteratorState :: (MonadIO m, DOMXPathResultK o) => o -> m Bool -getDOMXPathResultInvalidIteratorState obj = liftIO $ getObjectPropertyBool obj "invalid-iterator-state" - -data DOMXPathResultInvalidIteratorStatePropertyInfo -instance AttrInfo DOMXPathResultInvalidIteratorStatePropertyInfo where - type AttrAllowedOps DOMXPathResultInvalidIteratorStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultInvalidIteratorStatePropertyInfo = Bool - type AttrLabel DOMXPathResultInvalidIteratorStatePropertyInfo = "DOMXPathResult::invalid-iterator-state" - attrGet _ = getDOMXPathResultInvalidIteratorState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "number-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDOMXPathResultNumberValue :: (MonadIO m, DOMXPathResultK o) => o -> m Double -getDOMXPathResultNumberValue obj = liftIO $ getObjectPropertyDouble obj "number-value" - -data DOMXPathResultNumberValuePropertyInfo -instance AttrInfo DOMXPathResultNumberValuePropertyInfo where - type AttrAllowedOps DOMXPathResultNumberValuePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultNumberValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultNumberValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultNumberValuePropertyInfo = Double - type AttrLabel DOMXPathResultNumberValuePropertyInfo = "DOMXPathResult::number-value" - attrGet _ = getDOMXPathResultNumberValue - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "result-type" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32 -getDOMXPathResultResultType obj = liftIO $ getObjectPropertyCUInt obj "result-type" - -data DOMXPathResultResultTypePropertyInfo -instance AttrInfo DOMXPathResultResultTypePropertyInfo where - type AttrAllowedOps DOMXPathResultResultTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultResultTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultResultTypePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultResultTypePropertyInfo = Word32 - type AttrLabel DOMXPathResultResultTypePropertyInfo = "DOMXPathResult::result-type" - attrGet _ = getDOMXPathResultResultType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "single-node-value" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable] - -getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m DOMNode -getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode - -data DOMXPathResultSingleNodeValuePropertyInfo -instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where - type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = DOMNode - type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "DOMXPathResult::single-node-value" - attrGet _ = getDOMXPathResultSingleNodeValue - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "snapshot-length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m Word64 -getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyUInt64 obj "snapshot-length" - -data DOMXPathResultSnapshotLengthPropertyInfo -instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where - type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = Word64 - type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "DOMXPathResult::snapshot-length" - attrGet _ = getDOMXPathResultSnapshotLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "string-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m T.Text -getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value" - -data DOMXPathResultStringValuePropertyInfo -instance AttrInfo DOMXPathResultStringValuePropertyInfo where - type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultStringValuePropertyInfo = T.Text - type AttrLabel DOMXPathResultStringValuePropertyInfo = "DOMXPathResult::string-value" - attrGet _ = getDOMXPathResultStringValue - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DOMXPathResult = '[ '("boolean-value", DOMXPathResultBooleanValuePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("invalid-iterator-state", DOMXPathResultInvalidIteratorStatePropertyInfo), '("number-value", DOMXPathResultNumberValuePropertyInfo), '("result-type", DOMXPathResultResultTypePropertyInfo), '("single-node-value", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshot-length", DOMXPathResultSnapshotLengthPropertyInfo), '("string-value", DOMXPathResultStringValuePropertyInfo)] - --- VVV Prop "current-size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDownloadCurrentSize :: (MonadIO m, DownloadK o) => o -> m Word64 -getDownloadCurrentSize obj = liftIO $ getObjectPropertyUInt64 obj "current-size" - -data DownloadCurrentSizePropertyInfo -instance AttrInfo DownloadCurrentSizePropertyInfo where - type AttrAllowedOps DownloadCurrentSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DownloadCurrentSizePropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadCurrentSizePropertyInfo = DownloadK - type AttrGetType DownloadCurrentSizePropertyInfo = Word64 - type AttrLabel DownloadCurrentSizePropertyInfo = "Download::current-size" - attrGet _ = getDownloadCurrentSize - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "destination-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> m T.Text -getDownloadDestinationUri obj = liftIO $ getObjectPropertyString obj "destination-uri" - -setDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> T.Text -> m () -setDownloadDestinationUri obj val = liftIO $ setObjectPropertyString obj "destination-uri" val - -constructDownloadDestinationUri :: T.Text -> IO ([Char], GValue) -constructDownloadDestinationUri val = constructObjectPropertyString "destination-uri" val - -data DownloadDestinationUriPropertyInfo -instance AttrInfo DownloadDestinationUriPropertyInfo where - type AttrAllowedOps DownloadDestinationUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DownloadDestinationUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DownloadDestinationUriPropertyInfo = DownloadK - type AttrGetType DownloadDestinationUriPropertyInfo = T.Text - type AttrLabel DownloadDestinationUriPropertyInfo = "Download::destination-uri" - attrGet _ = getDownloadDestinationUri - attrSet _ = setDownloadDestinationUri - attrConstruct _ = constructDownloadDestinationUri - --- VVV Prop "network-request" - -- Type: TInterface "WebKit" "NetworkRequest" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDownloadNetworkRequest :: (MonadIO m, DownloadK o) => o -> m NetworkRequest -getDownloadNetworkRequest obj = liftIO $ getObjectPropertyObject obj "network-request" NetworkRequest - -constructDownloadNetworkRequest :: (NetworkRequestK a) => a -> IO ([Char], GValue) -constructDownloadNetworkRequest val = constructObjectPropertyObject "network-request" val - -data DownloadNetworkRequestPropertyInfo -instance AttrInfo DownloadNetworkRequestPropertyInfo where - type AttrAllowedOps DownloadNetworkRequestPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DownloadNetworkRequestPropertyInfo = NetworkRequestK - type AttrBaseTypeConstraint DownloadNetworkRequestPropertyInfo = DownloadK - type AttrGetType DownloadNetworkRequestPropertyInfo = NetworkRequest - type AttrLabel DownloadNetworkRequestPropertyInfo = "Download::network-request" - attrGet _ = getDownloadNetworkRequest - attrSet _ = undefined - attrConstruct _ = constructDownloadNetworkRequest - --- VVV Prop "network-response" - -- Type: TInterface "WebKit" "NetworkResponse" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDownloadNetworkResponse :: (MonadIO m, DownloadK o) => o -> m NetworkResponse -getDownloadNetworkResponse obj = liftIO $ getObjectPropertyObject obj "network-response" NetworkResponse - -constructDownloadNetworkResponse :: (NetworkResponseK a) => a -> IO ([Char], GValue) -constructDownloadNetworkResponse val = constructObjectPropertyObject "network-response" val - -data DownloadNetworkResponsePropertyInfo -instance AttrInfo DownloadNetworkResponsePropertyInfo where - type AttrAllowedOps DownloadNetworkResponsePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DownloadNetworkResponsePropertyInfo = NetworkResponseK - type AttrBaseTypeConstraint DownloadNetworkResponsePropertyInfo = DownloadK - type AttrGetType DownloadNetworkResponsePropertyInfo = NetworkResponse - type AttrLabel DownloadNetworkResponsePropertyInfo = "Download::network-response" - attrGet _ = getDownloadNetworkResponse - attrSet _ = undefined - attrConstruct _ = constructDownloadNetworkResponse - --- VVV Prop "progress" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getDownloadProgress :: (MonadIO m, DownloadK o) => o -> m Double -getDownloadProgress obj = liftIO $ getObjectPropertyDouble obj "progress" - -data DownloadProgressPropertyInfo -instance AttrInfo DownloadProgressPropertyInfo where - type AttrAllowedOps DownloadProgressPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DownloadProgressPropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadProgressPropertyInfo = DownloadK - type AttrGetType DownloadProgressPropertyInfo = Double - type AttrLabel DownloadProgressPropertyInfo = "Download::progress" - attrGet _ = getDownloadProgress - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "status" - -- Type: TInterface "WebKit" "DownloadStatus" - -- Flags: [PropertyReadable] - -getDownloadStatus :: (MonadIO m, DownloadK o) => o -> m DownloadStatus -getDownloadStatus obj = liftIO $ getObjectPropertyEnum obj "status" - -data DownloadStatusPropertyInfo -instance AttrInfo DownloadStatusPropertyInfo where - type AttrAllowedOps DownloadStatusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DownloadStatusPropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadStatusPropertyInfo = DownloadK - type AttrGetType DownloadStatusPropertyInfo = DownloadStatus - type AttrLabel DownloadStatusPropertyInfo = "Download::status" - attrGet _ = getDownloadStatus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "suggested-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDownloadSuggestedFilename :: (MonadIO m, DownloadK o) => o -> m T.Text -getDownloadSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" - -data DownloadSuggestedFilenamePropertyInfo -instance AttrInfo DownloadSuggestedFilenamePropertyInfo where - type AttrAllowedOps DownloadSuggestedFilenamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DownloadSuggestedFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadSuggestedFilenamePropertyInfo = DownloadK - type AttrGetType DownloadSuggestedFilenamePropertyInfo = T.Text - type AttrLabel DownloadSuggestedFilenamePropertyInfo = "Download::suggested-filename" - attrGet _ = getDownloadSuggestedFilename - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "total-size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getDownloadTotalSize :: (MonadIO m, DownloadK o) => o -> m Word64 -getDownloadTotalSize obj = liftIO $ getObjectPropertyUInt64 obj "total-size" - -data DownloadTotalSizePropertyInfo -instance AttrInfo DownloadTotalSizePropertyInfo where - type AttrAllowedOps DownloadTotalSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DownloadTotalSizePropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadTotalSizePropertyInfo = DownloadK - type AttrGetType DownloadTotalSizePropertyInfo = Word64 - type AttrLabel DownloadTotalSizePropertyInfo = "Download::total-size" - attrGet _ = getDownloadTotalSize - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Download = '[ '("current-size", DownloadCurrentSizePropertyInfo), '("destination-uri", DownloadDestinationUriPropertyInfo), '("network-request", DownloadNetworkRequestPropertyInfo), '("network-response", DownloadNetworkResponsePropertyInfo), '("progress", DownloadProgressPropertyInfo), '("status", DownloadStatusPropertyInfo), '("suggested-filename", DownloadSuggestedFilenamePropertyInfo), '("total-size", DownloadTotalSizePropertyInfo)] - --- VVV Prop "path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> m T.Text -getFaviconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" - -setFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> T.Text -> m () -setFaviconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val - -constructFaviconDatabasePath :: T.Text -> IO ([Char], GValue) -constructFaviconDatabasePath val = constructObjectPropertyString "path" val - -data FaviconDatabasePathPropertyInfo -instance AttrInfo FaviconDatabasePathPropertyInfo where - type AttrAllowedOps FaviconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FaviconDatabasePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FaviconDatabasePathPropertyInfo = FaviconDatabaseK - type AttrGetType FaviconDatabasePathPropertyInfo = T.Text - type AttrLabel FaviconDatabasePathPropertyInfo = "FaviconDatabase::path" - attrGet _ = getFaviconDatabasePath - attrSet _ = setFaviconDatabasePath - attrConstruct _ = constructFaviconDatabasePath - -type instance AttributeList FaviconDatabase = '[ '("path", FaviconDatabasePathPropertyInfo)] - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "FileFilter" - -- Flags: [PropertyReadable] - -getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter -getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter - -data FileChooserRequestFilterPropertyInfo -instance AttrInfo FileChooserRequestFilterPropertyInfo where - type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter - type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter" - attrGet _ = getFileChooserRequestFilter - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mime-types" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable] - -getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types" - -data FileChooserRequestMimeTypesPropertyInfo -instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where - type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text] - type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types" - attrGet _ = getFileChooserRequestMimeTypes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool -getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" - -data FileChooserRequestSelectMultiplePropertyInfo -instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where - type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool - type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple" - attrGet _ = getFileChooserRequestSelectMultiple - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "selected-files" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable] - -getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files" - -data FileChooserRequestSelectedFilesPropertyInfo -instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where - type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text] - type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::selected-files" - attrGet _ = getFileChooserRequestSelectedFiles - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList FileChooserRequest = '[ '("filter", FileChooserRequestFilterPropertyInfo), '("mime-types", FileChooserRequestMimeTypesPropertyInfo), '("select-multiple", FileChooserRequestSelectMultiplePropertyInfo), '("selected-files", FileChooserRequestSelectedFilesPropertyInfo)] - -type instance AttributeList GeolocationPolicyDecision = '[ ] - --- VVV Prop "context" - -- Type: TInterface "WebKit" "HitTestResultContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m [HitTestResultContext] -getHitTestResultContext obj = liftIO $ getObjectPropertyFlags obj "context" - -constructHitTestResultContext :: [HitTestResultContext] -> IO ([Char], GValue) -constructHitTestResultContext val = constructObjectPropertyFlags "context" val - -data HitTestResultContextPropertyInfo -instance AttrInfo HitTestResultContextPropertyInfo where - type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) [HitTestResultContext] - type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK - type AttrGetType HitTestResultContextPropertyInfo = [HitTestResultContext] - type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context" - attrGet _ = getHitTestResultContext - attrSet _ = undefined - attrConstruct _ = constructHitTestResultContext - --- VVV Prop "image-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri" - -constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val - -data HitTestResultImageUriPropertyInfo -instance AttrInfo HitTestResultImageUriPropertyInfo where - type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultImageUriPropertyInfo = T.Text - type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri" - attrGet _ = getHitTestResultImageUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultImageUri - --- VVV Prop "inner-node" - -- Type: TInterface "WebKit" "DOMNode" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultInnerNode :: (MonadIO m, HitTestResultK o) => o -> m DOMNode -getHitTestResultInnerNode obj = liftIO $ getObjectPropertyObject obj "inner-node" DOMNode - -constructHitTestResultInnerNode :: (DOMNodeK a) => a -> IO ([Char], GValue) -constructHitTestResultInnerNode val = constructObjectPropertyObject "inner-node" val - -data HitTestResultInnerNodePropertyInfo -instance AttrInfo HitTestResultInnerNodePropertyInfo where - type AttrAllowedOps HitTestResultInnerNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultInnerNodePropertyInfo = DOMNodeK - type AttrBaseTypeConstraint HitTestResultInnerNodePropertyInfo = HitTestResultK - type AttrGetType HitTestResultInnerNodePropertyInfo = DOMNode - type AttrLabel HitTestResultInnerNodePropertyInfo = "HitTestResult::inner-node" - attrGet _ = getHitTestResultInnerNode - attrSet _ = undefined - attrConstruct _ = constructHitTestResultInnerNode - --- VVV Prop "link-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri" - -constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val - -data HitTestResultLinkUriPropertyInfo -instance AttrInfo HitTestResultLinkUriPropertyInfo where - type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text - type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri" - attrGet _ = getHitTestResultLinkUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkUri - --- VVV Prop "media-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri" - -constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val - -data HitTestResultMediaUriPropertyInfo -instance AttrInfo HitTestResultMediaUriPropertyInfo where - type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text - type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri" - attrGet _ = getHitTestResultMediaUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultMediaUri - --- VVV Prop "x" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultX :: (MonadIO m, HitTestResultK o) => o -> m Int32 -getHitTestResultX obj = liftIO $ getObjectPropertyCInt obj "x" - -constructHitTestResultX :: Int32 -> IO ([Char], GValue) -constructHitTestResultX val = constructObjectPropertyCInt "x" val - -data HitTestResultXPropertyInfo -instance AttrInfo HitTestResultXPropertyInfo where - type AttrAllowedOps HitTestResultXPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultXPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint HitTestResultXPropertyInfo = HitTestResultK - type AttrGetType HitTestResultXPropertyInfo = Int32 - type AttrLabel HitTestResultXPropertyInfo = "HitTestResult::x" - attrGet _ = getHitTestResultX - attrSet _ = undefined - attrConstruct _ = constructHitTestResultX - --- VVV Prop "y" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getHitTestResultY :: (MonadIO m, HitTestResultK o) => o -> m Int32 -getHitTestResultY obj = liftIO $ getObjectPropertyCInt obj "y" - -constructHitTestResultY :: Int32 -> IO ([Char], GValue) -constructHitTestResultY val = constructObjectPropertyCInt "y" val - -data HitTestResultYPropertyInfo -instance AttrInfo HitTestResultYPropertyInfo where - type AttrAllowedOps HitTestResultYPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HitTestResultYPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint HitTestResultYPropertyInfo = HitTestResultK - type AttrGetType HitTestResultYPropertyInfo = Int32 - type AttrLabel HitTestResultYPropertyInfo = "HitTestResult::y" - attrGet _ = getHitTestResultY - attrSet _ = undefined - attrConstruct _ = constructHitTestResultY - -type instance AttributeList HitTestResult = '[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("inner-node", HitTestResultInnerNodePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo), '("x", HitTestResultXPropertyInfo), '("y", HitTestResultYPropertyInfo)] - --- VVV Prop "path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> m T.Text -getIconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" - -setIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> T.Text -> m () -setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val - -constructIconDatabasePath :: T.Text -> IO ([Char], GValue) -constructIconDatabasePath val = constructObjectPropertyString "path" val - -data IconDatabasePathPropertyInfo -instance AttrInfo IconDatabasePathPropertyInfo where - type AttrAllowedOps IconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconDatabasePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint IconDatabasePathPropertyInfo = IconDatabaseK - type AttrGetType IconDatabasePathPropertyInfo = T.Text - type AttrLabel IconDatabasePathPropertyInfo = "IconDatabase::path" - attrGet _ = getIconDatabasePath - attrSet _ = setIconDatabasePath - attrConstruct _ = constructIconDatabasePath - -type instance AttributeList IconDatabase = '[ '("path", IconDatabasePathPropertyInfo)] - --- VVV Prop "message" - -- Type: TInterface "Soup" "Message" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getNetworkRequestMessage :: (MonadIO m, NetworkRequestK o) => o -> m Soup.Message -getNetworkRequestMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message - -constructNetworkRequestMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) -constructNetworkRequestMessage val = constructObjectPropertyObject "message" val - -data NetworkRequestMessagePropertyInfo -instance AttrInfo NetworkRequestMessagePropertyInfo where - type AttrAllowedOps NetworkRequestMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkRequestMessagePropertyInfo = Soup.MessageK - type AttrBaseTypeConstraint NetworkRequestMessagePropertyInfo = NetworkRequestK - type AttrGetType NetworkRequestMessagePropertyInfo = Soup.Message - type AttrLabel NetworkRequestMessagePropertyInfo = "NetworkRequest::message" - attrGet _ = getNetworkRequestMessage - attrSet _ = undefined - attrConstruct _ = constructNetworkRequestMessage - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> m T.Text -getNetworkRequestUri obj = liftIO $ getObjectPropertyString obj "uri" - -setNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> T.Text -> m () -setNetworkRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val - -constructNetworkRequestUri :: T.Text -> IO ([Char], GValue) -constructNetworkRequestUri val = constructObjectPropertyString "uri" val - -data NetworkRequestUriPropertyInfo -instance AttrInfo NetworkRequestUriPropertyInfo where - type AttrAllowedOps NetworkRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkRequestUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkRequestUriPropertyInfo = NetworkRequestK - type AttrGetType NetworkRequestUriPropertyInfo = T.Text - type AttrLabel NetworkRequestUriPropertyInfo = "NetworkRequest::uri" - attrGet _ = getNetworkRequestUri - attrSet _ = setNetworkRequestUri - attrConstruct _ = constructNetworkRequestUri - -type instance AttributeList NetworkRequest = '[ '("message", NetworkRequestMessagePropertyInfo), '("uri", NetworkRequestUriPropertyInfo)] - --- VVV Prop "message" - -- Type: TInterface "Soup" "Message" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getNetworkResponseMessage :: (MonadIO m, NetworkResponseK o) => o -> m Soup.Message -getNetworkResponseMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message - -constructNetworkResponseMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) -constructNetworkResponseMessage val = constructObjectPropertyObject "message" val - -data NetworkResponseMessagePropertyInfo -instance AttrInfo NetworkResponseMessagePropertyInfo where - type AttrAllowedOps NetworkResponseMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkResponseMessagePropertyInfo = Soup.MessageK - type AttrBaseTypeConstraint NetworkResponseMessagePropertyInfo = NetworkResponseK - type AttrGetType NetworkResponseMessagePropertyInfo = Soup.Message - type AttrLabel NetworkResponseMessagePropertyInfo = "NetworkResponse::message" - attrGet _ = getNetworkResponseMessage - attrSet _ = undefined - attrConstruct _ = constructNetworkResponseMessage - --- VVV Prop "suggested-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getNetworkResponseSuggestedFilename :: (MonadIO m, NetworkResponseK o) => o -> m T.Text -getNetworkResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" - -data NetworkResponseSuggestedFilenamePropertyInfo -instance AttrInfo NetworkResponseSuggestedFilenamePropertyInfo where - type AttrAllowedOps NetworkResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = NetworkResponseK - type AttrGetType NetworkResponseSuggestedFilenamePropertyInfo = T.Text - type AttrLabel NetworkResponseSuggestedFilenamePropertyInfo = "NetworkResponse::suggested-filename" - attrGet _ = getNetworkResponseSuggestedFilename - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> m T.Text -getNetworkResponseUri obj = liftIO $ getObjectPropertyString obj "uri" - -setNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> T.Text -> m () -setNetworkResponseUri obj val = liftIO $ setObjectPropertyString obj "uri" val - -constructNetworkResponseUri :: T.Text -> IO ([Char], GValue) -constructNetworkResponseUri val = constructObjectPropertyString "uri" val - -data NetworkResponseUriPropertyInfo -instance AttrInfo NetworkResponseUriPropertyInfo where - type AttrAllowedOps NetworkResponseUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkResponseUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkResponseUriPropertyInfo = NetworkResponseK - type AttrGetType NetworkResponseUriPropertyInfo = T.Text - type AttrLabel NetworkResponseUriPropertyInfo = "NetworkResponse::uri" - attrGet _ = getNetworkResponseUri - attrSet _ = setNetworkResponseUri - attrConstruct _ = constructNetworkResponseUri - -type instance AttributeList NetworkResponse = '[ '("message", NetworkResponseMessagePropertyInfo), '("suggested-filename", NetworkResponseSuggestedFilenamePropertyInfo), '("uri", NetworkResponseUriPropertyInfo)] - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getSecurityOriginHost :: (MonadIO m, SecurityOriginK o) => o -> m T.Text -getSecurityOriginHost obj = liftIO $ getObjectPropertyString obj "host" - -data SecurityOriginHostPropertyInfo -instance AttrInfo SecurityOriginHostPropertyInfo where - type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SecurityOriginHostPropertyInfo = (~) () - type AttrBaseTypeConstraint SecurityOriginHostPropertyInfo = SecurityOriginK - type AttrGetType SecurityOriginHostPropertyInfo = T.Text - type AttrLabel SecurityOriginHostPropertyInfo = "SecurityOrigin::host" - attrGet _ = getSecurityOriginHost - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getSecurityOriginPort :: (MonadIO m, SecurityOriginK o) => o -> m Word32 -getSecurityOriginPort obj = liftIO $ getObjectPropertyCUInt obj "port" - -data SecurityOriginPortPropertyInfo -instance AttrInfo SecurityOriginPortPropertyInfo where - type AttrAllowedOps SecurityOriginPortPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SecurityOriginPortPropertyInfo = (~) () - type AttrBaseTypeConstraint SecurityOriginPortPropertyInfo = SecurityOriginK - type AttrGetType SecurityOriginPortPropertyInfo = Word32 - type AttrLabel SecurityOriginPortPropertyInfo = "SecurityOrigin::port" - attrGet _ = getSecurityOriginPort - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getSecurityOriginProtocol :: (MonadIO m, SecurityOriginK o) => o -> m T.Text -getSecurityOriginProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -data SecurityOriginProtocolPropertyInfo -instance AttrInfo SecurityOriginProtocolPropertyInfo where - type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SecurityOriginProtocolPropertyInfo = (~) () - type AttrBaseTypeConstraint SecurityOriginProtocolPropertyInfo = SecurityOriginK - type AttrGetType SecurityOriginProtocolPropertyInfo = T.Text - type AttrLabel SecurityOriginProtocolPropertyInfo = "SecurityOrigin::protocol" - attrGet _ = getSecurityOriginProtocol - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "web-database-quota" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> m Word64 -getSecurityOriginWebDatabaseQuota obj = liftIO $ getObjectPropertyUInt64 obj "web-database-quota" - -setSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> Word64 -> m () -setSecurityOriginWebDatabaseQuota obj val = liftIO $ setObjectPropertyUInt64 obj "web-database-quota" val - -constructSecurityOriginWebDatabaseQuota :: Word64 -> IO ([Char], GValue) -constructSecurityOriginWebDatabaseQuota val = constructObjectPropertyUInt64 "web-database-quota" val - -data SecurityOriginWebDatabaseQuotaPropertyInfo -instance AttrInfo SecurityOriginWebDatabaseQuotaPropertyInfo where - type AttrAllowedOps SecurityOriginWebDatabaseQuotaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = (~) Word64 - type AttrBaseTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = SecurityOriginK - type AttrGetType SecurityOriginWebDatabaseQuotaPropertyInfo = Word64 - type AttrLabel SecurityOriginWebDatabaseQuotaPropertyInfo = "SecurityOrigin::web-database-quota" - attrGet _ = getSecurityOriginWebDatabaseQuota - attrSet _ = setSecurityOriginWebDatabaseQuota - attrConstruct _ = constructSecurityOriginWebDatabaseQuota - --- VVV Prop "web-database-usage" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getSecurityOriginWebDatabaseUsage :: (MonadIO m, SecurityOriginK o) => o -> m Word64 -getSecurityOriginWebDatabaseUsage obj = liftIO $ getObjectPropertyUInt64 obj "web-database-usage" - -data SecurityOriginWebDatabaseUsagePropertyInfo -instance AttrInfo SecurityOriginWebDatabaseUsagePropertyInfo where - type AttrAllowedOps SecurityOriginWebDatabaseUsagePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = (~) () - type AttrBaseTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = SecurityOriginK - type AttrGetType SecurityOriginWebDatabaseUsagePropertyInfo = Word64 - type AttrLabel SecurityOriginWebDatabaseUsagePropertyInfo = "SecurityOrigin::web-database-usage" - attrGet _ = getSecurityOriginWebDatabaseUsage - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList SecurityOrigin = '[ '("host", SecurityOriginHostPropertyInfo), '("port", SecurityOriginPortPropertyInfo), '("protocol", SecurityOriginProtocolPropertyInfo), '("web-database-quota", SecurityOriginWebDatabaseQuotaPropertyInfo), '("web-database-usage", SecurityOriginWebDatabaseUsagePropertyInfo)] - -type instance AttributeList SoupAuthDialog = '[ ] - -type instance AttributeList SpellChecker = '[ ] - --- VVV Prop "available-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyCInt obj "available-height" - -setViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyCInt obj "available-height" val - -constructViewportAttributesAvailableHeight :: Int32 -> IO ([Char], GValue) -constructViewportAttributesAvailableHeight val = constructObjectPropertyCInt "available-height" val - -data ViewportAttributesAvailableHeightPropertyInfo -instance AttrInfo ViewportAttributesAvailableHeightPropertyInfo where - type AttrAllowedOps ViewportAttributesAvailableHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesAvailableHeightPropertyInfo = Int32 - type AttrLabel ViewportAttributesAvailableHeightPropertyInfo = "ViewportAttributes::available-height" - attrGet _ = getViewportAttributesAvailableHeight - attrSet _ = setViewportAttributesAvailableHeight - attrConstruct _ = constructViewportAttributesAvailableHeight - --- VVV Prop "available-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyCInt obj "available-width" - -setViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyCInt obj "available-width" val - -constructViewportAttributesAvailableWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesAvailableWidth val = constructObjectPropertyCInt "available-width" val - -data ViewportAttributesAvailableWidthPropertyInfo -instance AttrInfo ViewportAttributesAvailableWidthPropertyInfo where - type AttrAllowedOps ViewportAttributesAvailableWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesAvailableWidthPropertyInfo = Int32 - type AttrLabel ViewportAttributesAvailableWidthPropertyInfo = "ViewportAttributes::available-width" - attrGet _ = getViewportAttributesAvailableWidth - attrSet _ = setViewportAttributesAvailableWidth - attrConstruct _ = constructViewportAttributesAvailableWidth - --- VVV Prop "desktop-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyCInt obj "desktop-width" - -setViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyCInt obj "desktop-width" val - -constructViewportAttributesDesktopWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDesktopWidth val = constructObjectPropertyCInt "desktop-width" val - -data ViewportAttributesDesktopWidthPropertyInfo -instance AttrInfo ViewportAttributesDesktopWidthPropertyInfo where - type AttrAllowedOps ViewportAttributesDesktopWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesDesktopWidthPropertyInfo = Int32 - type AttrLabel ViewportAttributesDesktopWidthPropertyInfo = "ViewportAttributes::desktop-width" - attrGet _ = getViewportAttributesDesktopWidth - attrSet _ = setViewportAttributesDesktopWidth - attrConstruct _ = constructViewportAttributesDesktopWidth - --- VVV Prop "device-dpi" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyCInt obj "device-dpi" - -setViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyCInt obj "device-dpi" val - -constructViewportAttributesDeviceDpi :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceDpi val = constructObjectPropertyCInt "device-dpi" val - -data ViewportAttributesDeviceDpiPropertyInfo -instance AttrInfo ViewportAttributesDeviceDpiPropertyInfo where - type AttrAllowedOps ViewportAttributesDeviceDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesDeviceDpiPropertyInfo = Int32 - type AttrLabel ViewportAttributesDeviceDpiPropertyInfo = "ViewportAttributes::device-dpi" - attrGet _ = getViewportAttributesDeviceDpi - attrSet _ = setViewportAttributesDeviceDpi - attrConstruct _ = constructViewportAttributesDeviceDpi - --- VVV Prop "device-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyCInt obj "device-height" - -setViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyCInt obj "device-height" val - -constructViewportAttributesDeviceHeight :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceHeight val = constructObjectPropertyCInt "device-height" val - -data ViewportAttributesDeviceHeightPropertyInfo -instance AttrInfo ViewportAttributesDeviceHeightPropertyInfo where - type AttrAllowedOps ViewportAttributesDeviceHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesDeviceHeightPropertyInfo = Int32 - type AttrLabel ViewportAttributesDeviceHeightPropertyInfo = "ViewportAttributes::device-height" - attrGet _ = getViewportAttributesDeviceHeight - attrSet _ = setViewportAttributesDeviceHeight - attrConstruct _ = constructViewportAttributesDeviceHeight - --- VVV Prop "device-pixel-ratio" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getViewportAttributesDevicePixelRatio :: (MonadIO m, ViewportAttributesK o) => o -> m Float -getViewportAttributesDevicePixelRatio obj = liftIO $ getObjectPropertyFloat obj "device-pixel-ratio" - -data ViewportAttributesDevicePixelRatioPropertyInfo -instance AttrInfo ViewportAttributesDevicePixelRatioPropertyInfo where - type AttrAllowedOps ViewportAttributesDevicePixelRatioPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesDevicePixelRatioPropertyInfo = Float - type AttrLabel ViewportAttributesDevicePixelRatioPropertyInfo = "ViewportAttributes::device-pixel-ratio" - attrGet _ = getViewportAttributesDevicePixelRatio - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "device-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyCInt obj "device-width" - -setViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyCInt obj "device-width" val - -constructViewportAttributesDeviceWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceWidth val = constructObjectPropertyCInt "device-width" val - -data ViewportAttributesDeviceWidthPropertyInfo -instance AttrInfo ViewportAttributesDeviceWidthPropertyInfo where - type AttrAllowedOps ViewportAttributesDeviceWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesDeviceWidthPropertyInfo = Int32 - type AttrLabel ViewportAttributesDeviceWidthPropertyInfo = "ViewportAttributes::device-width" - attrGet _ = getViewportAttributesDeviceWidth - attrSet _ = setViewportAttributesDeviceWidth - attrConstruct _ = constructViewportAttributesDeviceWidth - --- VVV Prop "height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getViewportAttributesHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesHeight obj = liftIO $ getObjectPropertyCInt obj "height" - -data ViewportAttributesHeightPropertyInfo -instance AttrInfo ViewportAttributesHeightPropertyInfo where - type AttrAllowedOps ViewportAttributesHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesHeightPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesHeightPropertyInfo = Int32 - type AttrLabel ViewportAttributesHeightPropertyInfo = "ViewportAttributes::height" - attrGet _ = getViewportAttributesHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "initial-scale-factor" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getViewportAttributesInitialScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float -getViewportAttributesInitialScaleFactor obj = liftIO $ getObjectPropertyFloat obj "initial-scale-factor" - -data ViewportAttributesInitialScaleFactorPropertyInfo -instance AttrInfo ViewportAttributesInitialScaleFactorPropertyInfo where - type AttrAllowedOps ViewportAttributesInitialScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesInitialScaleFactorPropertyInfo = Float - type AttrLabel ViewportAttributesInitialScaleFactorPropertyInfo = "ViewportAttributes::initial-scale-factor" - attrGet _ = getViewportAttributesInitialScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "maximum-scale-factor" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getViewportAttributesMaximumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float -getViewportAttributesMaximumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "maximum-scale-factor" - -data ViewportAttributesMaximumScaleFactorPropertyInfo -instance AttrInfo ViewportAttributesMaximumScaleFactorPropertyInfo where - type AttrAllowedOps ViewportAttributesMaximumScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesMaximumScaleFactorPropertyInfo = Float - type AttrLabel ViewportAttributesMaximumScaleFactorPropertyInfo = "ViewportAttributes::maximum-scale-factor" - attrGet _ = getViewportAttributesMaximumScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "minimum-scale-factor" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable] - -getViewportAttributesMinimumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float -getViewportAttributesMinimumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "minimum-scale-factor" - -data ViewportAttributesMinimumScaleFactorPropertyInfo -instance AttrInfo ViewportAttributesMinimumScaleFactorPropertyInfo where - type AttrAllowedOps ViewportAttributesMinimumScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesMinimumScaleFactorPropertyInfo = Float - type AttrLabel ViewportAttributesMinimumScaleFactorPropertyInfo = "ViewportAttributes::minimum-scale-factor" - attrGet _ = getViewportAttributesMinimumScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "user-scalable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getViewportAttributesUserScalable :: (MonadIO m, ViewportAttributesK o) => o -> m Bool -getViewportAttributesUserScalable obj = liftIO $ getObjectPropertyBool obj "user-scalable" - -data ViewportAttributesUserScalablePropertyInfo -instance AttrInfo ViewportAttributesUserScalablePropertyInfo where - type AttrAllowedOps ViewportAttributesUserScalablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesUserScalablePropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesUserScalablePropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesUserScalablePropertyInfo = Bool - type AttrLabel ViewportAttributesUserScalablePropertyInfo = "ViewportAttributes::user-scalable" - attrGet _ = getViewportAttributesUserScalable - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "valid" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getViewportAttributesValid :: (MonadIO m, ViewportAttributesK o) => o -> m Bool -getViewportAttributesValid obj = liftIO $ getObjectPropertyBool obj "valid" - -data ViewportAttributesValidPropertyInfo -instance AttrInfo ViewportAttributesValidPropertyInfo where - type AttrAllowedOps ViewportAttributesValidPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesValidPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesValidPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesValidPropertyInfo = Bool - type AttrLabel ViewportAttributesValidPropertyInfo = "ViewportAttributes::valid" - attrGet _ = getViewportAttributesValid - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getViewportAttributesWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesWidth obj = liftIO $ getObjectPropertyCInt obj "width" - -data ViewportAttributesWidthPropertyInfo -instance AttrInfo ViewportAttributesWidthPropertyInfo where - type AttrAllowedOps ViewportAttributesWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ViewportAttributesWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint ViewportAttributesWidthPropertyInfo = ViewportAttributesK - type AttrGetType ViewportAttributesWidthPropertyInfo = Int32 - type AttrLabel ViewportAttributesWidthPropertyInfo = "ViewportAttributes::width" - attrGet _ = getViewportAttributesWidth - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList ViewportAttributes = '[ '("available-height", ViewportAttributesAvailableHeightPropertyInfo), '("available-width", ViewportAttributesAvailableWidthPropertyInfo), '("desktop-width", ViewportAttributesDesktopWidthPropertyInfo), '("device-dpi", ViewportAttributesDeviceDpiPropertyInfo), '("device-height", ViewportAttributesDeviceHeightPropertyInfo), '("device-pixel-ratio", ViewportAttributesDevicePixelRatioPropertyInfo), '("device-width", ViewportAttributesDeviceWidthPropertyInfo), '("height", ViewportAttributesHeightPropertyInfo), '("initial-scale-factor", ViewportAttributesInitialScaleFactorPropertyInfo), '("maximum-scale-factor", ViewportAttributesMaximumScaleFactorPropertyInfo), '("minimum-scale-factor", ViewportAttributesMinimumScaleFactorPropertyInfo), '("user-scalable", ViewportAttributesUserScalablePropertyInfo), '("valid", ViewportAttributesValidPropertyInfo), '("width", ViewportAttributesWidthPropertyInfo)] - -type instance AttributeList WebBackForwardList = '[ ] - -type instance AttributeList WebDataSource = '[ ] - --- VVV Prop "display-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebDatabaseDisplayName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseDisplayName obj = liftIO $ getObjectPropertyString obj "display-name" - -data WebDatabaseDisplayNamePropertyInfo -instance AttrInfo WebDatabaseDisplayNamePropertyInfo where - type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebDatabaseDisplayNamePropertyInfo = (~) () - type AttrBaseTypeConstraint WebDatabaseDisplayNamePropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseDisplayNamePropertyInfo = T.Text - type AttrLabel WebDatabaseDisplayNamePropertyInfo = "WebDatabase::display-name" - attrGet _ = getWebDatabaseDisplayName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "expected-size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getWebDatabaseExpectedSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 -getWebDatabaseExpectedSize obj = liftIO $ getObjectPropertyUInt64 obj "expected-size" - -data WebDatabaseExpectedSizePropertyInfo -instance AttrInfo WebDatabaseExpectedSizePropertyInfo where - type AttrAllowedOps WebDatabaseExpectedSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebDatabaseExpectedSizePropertyInfo = (~) () - type AttrBaseTypeConstraint WebDatabaseExpectedSizePropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseExpectedSizePropertyInfo = Word64 - type AttrLabel WebDatabaseExpectedSizePropertyInfo = "WebDatabase::expected-size" - attrGet _ = getWebDatabaseExpectedSize - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebDatabaseFilename :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseFilename obj = liftIO $ getObjectPropertyString obj "filename" - -data WebDatabaseFilenamePropertyInfo -instance AttrInfo WebDatabaseFilenamePropertyInfo where - type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebDatabaseFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint WebDatabaseFilenamePropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseFilenamePropertyInfo = T.Text - type AttrLabel WebDatabaseFilenamePropertyInfo = "WebDatabase::filename" - attrGet _ = getWebDatabaseFilename - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebDatabaseName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseName obj = liftIO $ getObjectPropertyString obj "name" - -constructWebDatabaseName :: T.Text -> IO ([Char], GValue) -constructWebDatabaseName val = constructObjectPropertyString "name" val - -data WebDatabaseNamePropertyInfo -instance AttrInfo WebDatabaseNamePropertyInfo where - type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebDatabaseNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebDatabaseNamePropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseNamePropertyInfo = T.Text - type AttrLabel WebDatabaseNamePropertyInfo = "WebDatabase::name" - attrGet _ = getWebDatabaseName - attrSet _ = undefined - attrConstruct _ = constructWebDatabaseName - --- VVV Prop "security-origin" - -- Type: TInterface "WebKit" "SecurityOrigin" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebDatabaseSecurityOrigin :: (MonadIO m, WebDatabaseK o) => o -> m SecurityOrigin -getWebDatabaseSecurityOrigin obj = liftIO $ getObjectPropertyObject obj "security-origin" SecurityOrigin - -constructWebDatabaseSecurityOrigin :: (SecurityOriginK a) => a -> IO ([Char], GValue) -constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" val - -data WebDatabaseSecurityOriginPropertyInfo -instance AttrInfo WebDatabaseSecurityOriginPropertyInfo where - type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebDatabaseSecurityOriginPropertyInfo = SecurityOriginK - type AttrBaseTypeConstraint WebDatabaseSecurityOriginPropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseSecurityOriginPropertyInfo = SecurityOrigin - type AttrLabel WebDatabaseSecurityOriginPropertyInfo = "WebDatabase::security-origin" - attrGet _ = getWebDatabaseSecurityOrigin - attrSet _ = undefined - attrConstruct _ = constructWebDatabaseSecurityOrigin - --- VVV Prop "size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -getWebDatabaseSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 -getWebDatabaseSize obj = liftIO $ getObjectPropertyUInt64 obj "size" - -data WebDatabaseSizePropertyInfo -instance AttrInfo WebDatabaseSizePropertyInfo where - type AttrAllowedOps WebDatabaseSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebDatabaseSizePropertyInfo = (~) () - type AttrBaseTypeConstraint WebDatabaseSizePropertyInfo = WebDatabaseK - type AttrGetType WebDatabaseSizePropertyInfo = Word64 - type AttrLabel WebDatabaseSizePropertyInfo = "WebDatabase::size" - attrGet _ = getWebDatabaseSize - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList WebDatabase = '[ '("display-name", WebDatabaseDisplayNamePropertyInfo), '("expected-size", WebDatabaseExpectedSizePropertyInfo), '("filename", WebDatabaseFilenamePropertyInfo), '("name", WebDatabaseNamePropertyInfo), '("security-origin", WebDatabaseSecurityOriginPropertyInfo), '("size", WebDatabaseSizePropertyInfo)] - --- VVV Prop "horizontal-scrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable] - -getWebFrameHorizontalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType -getWebFrameHorizontalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "horizontal-scrollbar-policy" - -data WebFrameHorizontalScrollbarPolicyPropertyInfo -instance AttrInfo WebFrameHorizontalScrollbarPolicyPropertyInfo where - type AttrAllowedOps WebFrameHorizontalScrollbarPolicyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = WebFrameK - type AttrGetType WebFrameHorizontalScrollbarPolicyPropertyInfo = Gtk.PolicyType - type AttrLabel WebFrameHorizontalScrollbarPolicyPropertyInfo = "WebFrame::horizontal-scrollbar-policy" - attrGet _ = getWebFrameHorizontalScrollbarPolicy - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "load-status" - -- Type: TInterface "WebKit" "LoadStatus" - -- Flags: [PropertyReadable] - -getWebFrameLoadStatus :: (MonadIO m, WebFrameK o) => o -> m LoadStatus -getWebFrameLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" - -data WebFrameLoadStatusPropertyInfo -instance AttrInfo WebFrameLoadStatusPropertyInfo where - type AttrAllowedOps WebFrameLoadStatusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameLoadStatusPropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameLoadStatusPropertyInfo = WebFrameK - type AttrGetType WebFrameLoadStatusPropertyInfo = LoadStatus - type AttrLabel WebFrameLoadStatusPropertyInfo = "WebFrame::load-status" - attrGet _ = getWebFrameLoadStatus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebFrameName :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameName obj = liftIO $ getObjectPropertyString obj "name" - -data WebFrameNamePropertyInfo -instance AttrInfo WebFrameNamePropertyInfo where - type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameNamePropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameNamePropertyInfo = WebFrameK - type AttrGetType WebFrameNamePropertyInfo = T.Text - type AttrLabel WebFrameNamePropertyInfo = "WebFrame::name" - attrGet _ = getWebFrameName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebFrameTitle :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameTitle obj = liftIO $ getObjectPropertyString obj "title" - -data WebFrameTitlePropertyInfo -instance AttrInfo WebFrameTitlePropertyInfo where - type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameTitlePropertyInfo = WebFrameK - type AttrGetType WebFrameTitlePropertyInfo = T.Text - type AttrLabel WebFrameTitlePropertyInfo = "WebFrame::title" - attrGet _ = getWebFrameTitle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebFrameUri :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameUri obj = liftIO $ getObjectPropertyString obj "uri" - -data WebFrameUriPropertyInfo -instance AttrInfo WebFrameUriPropertyInfo where - type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameUriPropertyInfo = WebFrameK - type AttrGetType WebFrameUriPropertyInfo = T.Text - type AttrLabel WebFrameUriPropertyInfo = "WebFrame::uri" - attrGet _ = getWebFrameUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "vertical-scrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable] - -getWebFrameVerticalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType -getWebFrameVerticalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vertical-scrollbar-policy" - -data WebFrameVerticalScrollbarPolicyPropertyInfo -instance AttrInfo WebFrameVerticalScrollbarPolicyPropertyInfo where - type AttrAllowedOps WebFrameVerticalScrollbarPolicyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = (~) () - type AttrBaseTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = WebFrameK - type AttrGetType WebFrameVerticalScrollbarPolicyPropertyInfo = Gtk.PolicyType - type AttrLabel WebFrameVerticalScrollbarPolicyPropertyInfo = "WebFrame::vertical-scrollbar-policy" - attrGet _ = getWebFrameVerticalScrollbarPolicy - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList WebFrame = '[ '("horizontal-scrollbar-policy", WebFrameHorizontalScrollbarPolicyPropertyInfo), '("load-status", WebFrameLoadStatusPropertyInfo), '("name", WebFrameNamePropertyInfo), '("title", WebFrameTitlePropertyInfo), '("uri", WebFrameUriPropertyInfo), '("vertical-scrollbar-policy", WebFrameVerticalScrollbarPolicyPropertyInfo)] - --- VVV Prop "alternate-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemAlternateTitle obj = liftIO $ getObjectPropertyString obj "alternate-title" - -setWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> T.Text -> m () -setWebHistoryItemAlternateTitle obj val = liftIO $ setObjectPropertyString obj "alternate-title" val - -constructWebHistoryItemAlternateTitle :: T.Text -> IO ([Char], GValue) -constructWebHistoryItemAlternateTitle val = constructObjectPropertyString "alternate-title" val - -data WebHistoryItemAlternateTitlePropertyInfo -instance AttrInfo WebHistoryItemAlternateTitlePropertyInfo where - type AttrAllowedOps WebHistoryItemAlternateTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = WebHistoryItemK - type AttrGetType WebHistoryItemAlternateTitlePropertyInfo = T.Text - type AttrLabel WebHistoryItemAlternateTitlePropertyInfo = "WebHistoryItem::alternate-title" - attrGet _ = getWebHistoryItemAlternateTitle - attrSet _ = setWebHistoryItemAlternateTitle - attrConstruct _ = constructWebHistoryItemAlternateTitle - --- VVV Prop "last-visited-time" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getWebHistoryItemLastVisitedTime :: (MonadIO m, WebHistoryItemK o) => o -> m Double -getWebHistoryItemLastVisitedTime obj = liftIO $ getObjectPropertyDouble obj "last-visited-time" - -data WebHistoryItemLastVisitedTimePropertyInfo -instance AttrInfo WebHistoryItemLastVisitedTimePropertyInfo where - type AttrAllowedOps WebHistoryItemLastVisitedTimePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = (~) () - type AttrBaseTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = WebHistoryItemK - type AttrGetType WebHistoryItemLastVisitedTimePropertyInfo = Double - type AttrLabel WebHistoryItemLastVisitedTimePropertyInfo = "WebHistoryItem::last-visited-time" - attrGet _ = getWebHistoryItemLastVisitedTime - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "original-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebHistoryItemOriginalUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" - -data WebHistoryItemOriginalUriPropertyInfo -instance AttrInfo WebHistoryItemOriginalUriPropertyInfo where - type AttrAllowedOps WebHistoryItemOriginalUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebHistoryItemOriginalUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebHistoryItemOriginalUriPropertyInfo = WebHistoryItemK - type AttrGetType WebHistoryItemOriginalUriPropertyInfo = T.Text - type AttrLabel WebHistoryItemOriginalUriPropertyInfo = "WebHistoryItem::original-uri" - attrGet _ = getWebHistoryItemOriginalUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebHistoryItemTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemTitle obj = liftIO $ getObjectPropertyString obj "title" - -data WebHistoryItemTitlePropertyInfo -instance AttrInfo WebHistoryItemTitlePropertyInfo where - type AttrAllowedOps WebHistoryItemTitlePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebHistoryItemTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint WebHistoryItemTitlePropertyInfo = WebHistoryItemK - type AttrGetType WebHistoryItemTitlePropertyInfo = T.Text - type AttrLabel WebHistoryItemTitlePropertyInfo = "WebHistoryItem::title" - attrGet _ = getWebHistoryItemTitle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebHistoryItemUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemUri obj = liftIO $ getObjectPropertyString obj "uri" - -data WebHistoryItemUriPropertyInfo -instance AttrInfo WebHistoryItemUriPropertyInfo where - type AttrAllowedOps WebHistoryItemUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebHistoryItemUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebHistoryItemUriPropertyInfo = WebHistoryItemK - type AttrGetType WebHistoryItemUriPropertyInfo = T.Text - type AttrLabel WebHistoryItemUriPropertyInfo = "WebHistoryItem::uri" - attrGet _ = getWebHistoryItemUri - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList WebHistoryItem = '[ '("alternate-title", WebHistoryItemAlternateTitlePropertyInfo), '("last-visited-time", WebHistoryItemLastVisitedTimePropertyInfo), '("original-uri", WebHistoryItemOriginalUriPropertyInfo), '("title", WebHistoryItemTitlePropertyInfo), '("uri", WebHistoryItemUriPropertyInfo)] - --- VVV Prop "inspected-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text -getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri" - -data WebInspectorInspectedUriPropertyInfo -instance AttrInfo WebInspectorInspectedUriPropertyInfo where - type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK - type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text - type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::inspected-uri" - attrGet _ = getWebInspectorInspectedUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "javascript-profiling-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool -getWebInspectorJavascriptProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "javascript-profiling-enabled" - -setWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () -setWebInspectorJavascriptProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "javascript-profiling-enabled" val - -constructWebInspectorJavascriptProfilingEnabled :: Bool -> IO ([Char], GValue) -constructWebInspectorJavascriptProfilingEnabled val = constructObjectPropertyBool "javascript-profiling-enabled" val - -data WebInspectorJavascriptProfilingEnabledPropertyInfo -instance AttrInfo WebInspectorJavascriptProfilingEnabledPropertyInfo where - type AttrAllowedOps WebInspectorJavascriptProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = WebInspectorK - type AttrGetType WebInspectorJavascriptProfilingEnabledPropertyInfo = Bool - type AttrLabel WebInspectorJavascriptProfilingEnabledPropertyInfo = "WebInspector::javascript-profiling-enabled" - attrGet _ = getWebInspectorJavascriptProfilingEnabled - attrSet _ = setWebInspectorJavascriptProfilingEnabled - attrConstruct _ = constructWebInspectorJavascriptProfilingEnabled - --- VVV Prop "timeline-profiling-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool -getWebInspectorTimelineProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "timeline-profiling-enabled" - -setWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () -setWebInspectorTimelineProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "timeline-profiling-enabled" val - -constructWebInspectorTimelineProfilingEnabled :: Bool -> IO ([Char], GValue) -constructWebInspectorTimelineProfilingEnabled val = constructObjectPropertyBool "timeline-profiling-enabled" val - -data WebInspectorTimelineProfilingEnabledPropertyInfo -instance AttrInfo WebInspectorTimelineProfilingEnabledPropertyInfo where - type AttrAllowedOps WebInspectorTimelineProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = WebInspectorK - type AttrGetType WebInspectorTimelineProfilingEnabledPropertyInfo = Bool - type AttrLabel WebInspectorTimelineProfilingEnabledPropertyInfo = "WebInspector::timeline-profiling-enabled" - attrGet _ = getWebInspectorTimelineProfilingEnabled - attrSet _ = setWebInspectorTimelineProfilingEnabled - attrConstruct _ = constructWebInspectorTimelineProfilingEnabled - --- VVV Prop "web-view" - -- Type: TInterface "WebKit" "WebView" - -- Flags: [PropertyReadable] - -getWebInspectorWebView :: (MonadIO m, WebInspectorK o) => o -> m WebView -getWebInspectorWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView - -data WebInspectorWebViewPropertyInfo -instance AttrInfo WebInspectorWebViewPropertyInfo where - type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebInspectorWebViewPropertyInfo = (~) () - type AttrBaseTypeConstraint WebInspectorWebViewPropertyInfo = WebInspectorK - type AttrGetType WebInspectorWebViewPropertyInfo = WebView - type AttrLabel WebInspectorWebViewPropertyInfo = "WebInspector::web-view" - attrGet _ = getWebInspectorWebView - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList WebInspector = '[ '("inspected-uri", WebInspectorInspectedUriPropertyInfo), '("javascript-profiling-enabled", WebInspectorJavascriptProfilingEnabledPropertyInfo), '("timeline-profiling-enabled", WebInspectorTimelineProfilingEnabledPropertyInfo), '("web-view", WebInspectorWebViewPropertyInfo)] - --- VVV Prop "button" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebNavigationActionButton :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 -getWebNavigationActionButton obj = liftIO $ getObjectPropertyCInt obj "button" - -constructWebNavigationActionButton :: Int32 -> IO ([Char], GValue) -constructWebNavigationActionButton val = constructObjectPropertyCInt "button" val - -data WebNavigationActionButtonPropertyInfo -instance AttrInfo WebNavigationActionButtonPropertyInfo where - type AttrAllowedOps WebNavigationActionButtonPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebNavigationActionButtonPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebNavigationActionButtonPropertyInfo = WebNavigationActionK - type AttrGetType WebNavigationActionButtonPropertyInfo = Int32 - type AttrLabel WebNavigationActionButtonPropertyInfo = "WebNavigationAction::button" - attrGet _ = getWebNavigationActionButton - attrSet _ = undefined - attrConstruct _ = constructWebNavigationActionButton - --- VVV Prop "modifier-state" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebNavigationActionModifierState :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 -getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyCInt obj "modifier-state" - -constructWebNavigationActionModifierState :: Int32 -> IO ([Char], GValue) -constructWebNavigationActionModifierState val = constructObjectPropertyCInt "modifier-state" val - -data WebNavigationActionModifierStatePropertyInfo -instance AttrInfo WebNavigationActionModifierStatePropertyInfo where - type AttrAllowedOps WebNavigationActionModifierStatePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebNavigationActionModifierStatePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebNavigationActionModifierStatePropertyInfo = WebNavigationActionK - type AttrGetType WebNavigationActionModifierStatePropertyInfo = Int32 - type AttrLabel WebNavigationActionModifierStatePropertyInfo = "WebNavigationAction::modifier-state" - attrGet _ = getWebNavigationActionModifierState - attrSet _ = undefined - attrConstruct _ = constructWebNavigationActionModifierState - --- VVV Prop "original-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text -getWebNavigationActionOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" - -setWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> T.Text -> m () -setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" val - -constructWebNavigationActionOriginalUri :: T.Text -> IO ([Char], GValue) -constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" val - -data WebNavigationActionOriginalUriPropertyInfo -instance AttrInfo WebNavigationActionOriginalUriPropertyInfo where - type AttrAllowedOps WebNavigationActionOriginalUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebNavigationActionOriginalUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebNavigationActionOriginalUriPropertyInfo = WebNavigationActionK - type AttrGetType WebNavigationActionOriginalUriPropertyInfo = T.Text - type AttrLabel WebNavigationActionOriginalUriPropertyInfo = "WebNavigationAction::original-uri" - attrGet _ = getWebNavigationActionOriginalUri - attrSet _ = setWebNavigationActionOriginalUri - attrConstruct _ = constructWebNavigationActionOriginalUri - --- VVV Prop "reason" - -- Type: TInterface "WebKit" "WebNavigationReason" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> m WebNavigationReason -getWebNavigationActionReason obj = liftIO $ getObjectPropertyEnum obj "reason" - -setWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> WebNavigationReason -> m () -setWebNavigationActionReason obj val = liftIO $ setObjectPropertyEnum obj "reason" val - -constructWebNavigationActionReason :: WebNavigationReason -> IO ([Char], GValue) -constructWebNavigationActionReason val = constructObjectPropertyEnum "reason" val - -data WebNavigationActionReasonPropertyInfo -instance AttrInfo WebNavigationActionReasonPropertyInfo where - type AttrAllowedOps WebNavigationActionReasonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebNavigationActionReasonPropertyInfo = (~) WebNavigationReason - type AttrBaseTypeConstraint WebNavigationActionReasonPropertyInfo = WebNavigationActionK - type AttrGetType WebNavigationActionReasonPropertyInfo = WebNavigationReason - type AttrLabel WebNavigationActionReasonPropertyInfo = "WebNavigationAction::reason" - attrGet _ = getWebNavigationActionReason - attrSet _ = setWebNavigationActionReason - attrConstruct _ = constructWebNavigationActionReason - --- VVV Prop "target-frame" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebNavigationActionTargetFrame :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text -getWebNavigationActionTargetFrame obj = liftIO $ getObjectPropertyString obj "target-frame" - -constructWebNavigationActionTargetFrame :: T.Text -> IO ([Char], GValue) -constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" val - -data WebNavigationActionTargetFramePropertyInfo -instance AttrInfo WebNavigationActionTargetFramePropertyInfo where - type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebNavigationActionTargetFramePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebNavigationActionTargetFramePropertyInfo = WebNavigationActionK - type AttrGetType WebNavigationActionTargetFramePropertyInfo = T.Text - type AttrLabel WebNavigationActionTargetFramePropertyInfo = "WebNavigationAction::target-frame" - attrGet _ = getWebNavigationActionTargetFrame - attrSet _ = undefined - attrConstruct _ = constructWebNavigationActionTargetFrame - -type instance AttributeList WebNavigationAction = '[ '("button", WebNavigationActionButtonPropertyInfo), '("modifier-state", WebNavigationActionModifierStatePropertyInfo), '("original-uri", WebNavigationActionOriginalUriPropertyInfo), '("reason", WebNavigationActionReasonPropertyInfo), '("target-frame", WebNavigationActionTargetFramePropertyInfo)] - --- VVV Prop "enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> m Bool -getWebPluginEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" - -setWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> Bool -> m () -setWebPluginEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val - -constructWebPluginEnabled :: Bool -> IO ([Char], GValue) -constructWebPluginEnabled val = constructObjectPropertyBool "enabled" val - -data WebPluginEnabledPropertyInfo -instance AttrInfo WebPluginEnabledPropertyInfo where - type AttrAllowedOps WebPluginEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebPluginEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebPluginEnabledPropertyInfo = WebPluginK - type AttrGetType WebPluginEnabledPropertyInfo = Bool - type AttrLabel WebPluginEnabledPropertyInfo = "WebPlugin::enabled" - attrGet _ = getWebPluginEnabled - attrSet _ = setWebPluginEnabled - attrConstruct _ = constructWebPluginEnabled - -type instance AttributeList WebPlugin = '[ '("enabled", WebPluginEnabledPropertyInfo)] - -type instance AttributeList WebPluginDatabase = '[ ] - -type instance AttributeList WebPolicyDecision = '[ ] - --- VVV Prop "encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebResourceEncoding :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceEncoding obj = liftIO $ getObjectPropertyString obj "encoding" - -data WebResourceEncodingPropertyInfo -instance AttrInfo WebResourceEncodingPropertyInfo where - type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebResourceEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint WebResourceEncodingPropertyInfo = WebResourceK - type AttrGetType WebResourceEncodingPropertyInfo = T.Text - type AttrLabel WebResourceEncodingPropertyInfo = "WebResource::encoding" - attrGet _ = getWebResourceEncoding - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "frame-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebResourceFrameName :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceFrameName obj = liftIO $ getObjectPropertyString obj "frame-name" - -data WebResourceFrameNamePropertyInfo -instance AttrInfo WebResourceFrameNamePropertyInfo where - type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebResourceFrameNamePropertyInfo = (~) () - type AttrBaseTypeConstraint WebResourceFrameNamePropertyInfo = WebResourceK - type AttrGetType WebResourceFrameNamePropertyInfo = T.Text - type AttrLabel WebResourceFrameNamePropertyInfo = "WebResource::frame-name" - attrGet _ = getWebResourceFrameName - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mime-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebResourceMimeType :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceMimeType obj = liftIO $ getObjectPropertyString obj "mime-type" - -data WebResourceMimeTypePropertyInfo -instance AttrInfo WebResourceMimeTypePropertyInfo where - type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebResourceMimeTypePropertyInfo = (~) () - type AttrBaseTypeConstraint WebResourceMimeTypePropertyInfo = WebResourceK - type AttrGetType WebResourceMimeTypePropertyInfo = T.Text - type AttrLabel WebResourceMimeTypePropertyInfo = "WebResource::mime-type" - attrGet _ = getWebResourceMimeType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri" - -constructWebResourceUri :: T.Text -> IO ([Char], GValue) -constructWebResourceUri val = constructObjectPropertyString "uri" val - -data WebResourceUriPropertyInfo -instance AttrInfo WebResourceUriPropertyInfo where - type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK - type AttrGetType WebResourceUriPropertyInfo = T.Text - type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri" - attrGet _ = getWebResourceUri - attrSet _ = undefined - attrConstruct _ = constructWebResourceUri - -type instance AttributeList WebResource = '[ '("encoding", WebResourceEncodingPropertyInfo), '("frame-name", WebResourceFrameNamePropertyInfo), '("mime-type", WebResourceMimeTypePropertyInfo), '("uri", WebResourceUriPropertyInfo)] - --- VVV Prop "auto-load-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" - -setWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val - -constructWebSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) -constructWebSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val - -data WebSettingsAutoLoadImagesPropertyInfo -instance AttrInfo WebSettingsAutoLoadImagesPropertyInfo where - type AttrAllowedOps WebSettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = WebSettingsK - type AttrGetType WebSettingsAutoLoadImagesPropertyInfo = Bool - type AttrLabel WebSettingsAutoLoadImagesPropertyInfo = "WebSettings::auto-load-images" - attrGet _ = getWebSettingsAutoLoadImages - attrSet _ = setWebSettingsAutoLoadImages - attrConstruct _ = constructWebSettingsAutoLoadImages - --- VVV Prop "auto-resize-window" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsAutoResizeWindow obj = liftIO $ getObjectPropertyBool obj "auto-resize-window" - -setWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsAutoResizeWindow obj val = liftIO $ setObjectPropertyBool obj "auto-resize-window" val - -constructWebSettingsAutoResizeWindow :: Bool -> IO ([Char], GValue) -constructWebSettingsAutoResizeWindow val = constructObjectPropertyBool "auto-resize-window" val - -data WebSettingsAutoResizeWindowPropertyInfo -instance AttrInfo WebSettingsAutoResizeWindowPropertyInfo where - type AttrAllowedOps WebSettingsAutoResizeWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = WebSettingsK - type AttrGetType WebSettingsAutoResizeWindowPropertyInfo = Bool - type AttrLabel WebSettingsAutoResizeWindowPropertyInfo = "WebSettings::auto-resize-window" - attrGet _ = getWebSettingsAutoResizeWindow - attrSet _ = setWebSettingsAutoResizeWindow - attrConstruct _ = constructWebSettingsAutoResizeWindow - --- VVV Prop "auto-shrink-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsAutoShrinkImages obj = liftIO $ getObjectPropertyBool obj "auto-shrink-images" - -setWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsAutoShrinkImages obj val = liftIO $ setObjectPropertyBool obj "auto-shrink-images" val - -constructWebSettingsAutoShrinkImages :: Bool -> IO ([Char], GValue) -constructWebSettingsAutoShrinkImages val = constructObjectPropertyBool "auto-shrink-images" val - -data WebSettingsAutoShrinkImagesPropertyInfo -instance AttrInfo WebSettingsAutoShrinkImagesPropertyInfo where - type AttrAllowedOps WebSettingsAutoShrinkImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = WebSettingsK - type AttrGetType WebSettingsAutoShrinkImagesPropertyInfo = Bool - type AttrLabel WebSettingsAutoShrinkImagesPropertyInfo = "WebSettings::auto-shrink-images" - attrGet _ = getWebSettingsAutoShrinkImages - attrSet _ = setWebSettingsAutoShrinkImages - attrConstruct _ = constructWebSettingsAutoShrinkImages - --- VVV Prop "cursive-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" - -setWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val - -constructWebSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val - -data WebSettingsCursiveFontFamilyPropertyInfo -instance AttrInfo WebSettingsCursiveFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsCursiveFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsCursiveFontFamilyPropertyInfo = "WebSettings::cursive-font-family" - attrGet _ = getWebSettingsCursiveFontFamily - attrSet _ = setWebSettingsCursiveFontFamily - attrConstruct _ = constructWebSettingsCursiveFontFamily - --- VVV Prop "default-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsDefaultEncoding obj = liftIO $ getObjectPropertyString obj "default-encoding" - -setWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsDefaultEncoding obj val = liftIO $ setObjectPropertyString obj "default-encoding" val - -constructWebSettingsDefaultEncoding :: T.Text -> IO ([Char], GValue) -constructWebSettingsDefaultEncoding val = constructObjectPropertyString "default-encoding" val - -data WebSettingsDefaultEncodingPropertyInfo -instance AttrInfo WebSettingsDefaultEncodingPropertyInfo where - type AttrAllowedOps WebSettingsDefaultEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsDefaultEncodingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsDefaultEncodingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultEncodingPropertyInfo = T.Text - type AttrLabel WebSettingsDefaultEncodingPropertyInfo = "WebSettings::default-encoding" - attrGet _ = getWebSettingsDefaultEncoding - attrSet _ = setWebSettingsDefaultEncoding - attrConstruct _ = constructWebSettingsDefaultEncoding - --- VVV Prop "default-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" - -setWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val - -constructWebSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val - -data WebSettingsDefaultFontFamilyPropertyInfo -instance AttrInfo WebSettingsDefaultFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsDefaultFontFamilyPropertyInfo = "WebSettings::default-font-family" - attrGet _ = getWebSettingsDefaultFontFamily - attrSet _ = setWebSettingsDefaultFontFamily - attrConstruct _ = constructWebSettingsDefaultFontFamily - --- VVV Prop "default-font-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCInt obj "default-font-size" - -setWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-font-size" val - -constructWebSettingsDefaultFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsDefaultFontSize val = constructObjectPropertyCInt "default-font-size" val - -data WebSettingsDefaultFontSizePropertyInfo -instance AttrInfo WebSettingsDefaultFontSizePropertyInfo where - type AttrAllowedOps WebSettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsDefaultFontSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebSettingsDefaultFontSizePropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultFontSizePropertyInfo = Int32 - type AttrLabel WebSettingsDefaultFontSizePropertyInfo = "WebSettings::default-font-size" - attrGet _ = getWebSettingsDefaultFontSize - attrSet _ = setWebSettingsDefaultFontSize - attrConstruct _ = constructWebSettingsDefaultFontSize - --- VVV Prop "default-monospace-font-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCInt obj "default-monospace-font-size" - -setWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-monospace-font-size" val - -constructWebSettingsDefaultMonospaceFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsDefaultMonospaceFontSize val = constructObjectPropertyCInt "default-monospace-font-size" val - -data WebSettingsDefaultMonospaceFontSizePropertyInfo -instance AttrInfo WebSettingsDefaultMonospaceFontSizePropertyInfo where - type AttrAllowedOps WebSettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultMonospaceFontSizePropertyInfo = Int32 - type AttrLabel WebSettingsDefaultMonospaceFontSizePropertyInfo = "WebSettings::default-monospace-font-size" - attrGet _ = getWebSettingsDefaultMonospaceFontSize - attrSet _ = setWebSettingsDefaultMonospaceFontSize - attrConstruct _ = constructWebSettingsDefaultMonospaceFontSize - --- VVV Prop "editing-behavior" - -- Type: TInterface "WebKit" "EditingBehavior" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> m EditingBehavior -getWebSettingsEditingBehavior obj = liftIO $ getObjectPropertyEnum obj "editing-behavior" - -setWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> EditingBehavior -> m () -setWebSettingsEditingBehavior obj val = liftIO $ setObjectPropertyEnum obj "editing-behavior" val - -constructWebSettingsEditingBehavior :: EditingBehavior -> IO ([Char], GValue) -constructWebSettingsEditingBehavior val = constructObjectPropertyEnum "editing-behavior" val - -data WebSettingsEditingBehaviorPropertyInfo -instance AttrInfo WebSettingsEditingBehaviorPropertyInfo where - type AttrAllowedOps WebSettingsEditingBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEditingBehaviorPropertyInfo = (~) EditingBehavior - type AttrBaseTypeConstraint WebSettingsEditingBehaviorPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEditingBehaviorPropertyInfo = EditingBehavior - type AttrLabel WebSettingsEditingBehaviorPropertyInfo = "WebSettings::editing-behavior" - attrGet _ = getWebSettingsEditingBehavior - attrSet _ = setWebSettingsEditingBehavior - attrConstruct _ = constructWebSettingsEditingBehavior - --- VVV Prop "enable-accelerated-compositing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableAcceleratedCompositing obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-compositing" - -setWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableAcceleratedCompositing obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-compositing" val - -constructWebSettingsEnableAcceleratedCompositing :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableAcceleratedCompositing val = constructObjectPropertyBool "enable-accelerated-compositing" val - -data WebSettingsEnableAcceleratedCompositingPropertyInfo -instance AttrInfo WebSettingsEnableAcceleratedCompositingPropertyInfo where - type AttrAllowedOps WebSettingsEnableAcceleratedCompositingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableAcceleratedCompositingPropertyInfo = Bool - type AttrLabel WebSettingsEnableAcceleratedCompositingPropertyInfo = "WebSettings::enable-accelerated-compositing" - attrGet _ = getWebSettingsEnableAcceleratedCompositing - attrSet _ = setWebSettingsEnableAcceleratedCompositing - attrConstruct _ = constructWebSettingsEnableAcceleratedCompositing - --- VVV Prop "enable-caret-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" - -setWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val - -constructWebSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val - -data WebSettingsEnableCaretBrowsingPropertyInfo -instance AttrInfo WebSettingsEnableCaretBrowsingPropertyInfo where - type AttrAllowedOps WebSettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableCaretBrowsingPropertyInfo = Bool - type AttrLabel WebSettingsEnableCaretBrowsingPropertyInfo = "WebSettings::enable-caret-browsing" - attrGet _ = getWebSettingsEnableCaretBrowsing - attrSet _ = setWebSettingsEnableCaretBrowsing - attrConstruct _ = constructWebSettingsEnableCaretBrowsing - --- VVV Prop "enable-default-context-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableDefaultContextMenu obj = liftIO $ getObjectPropertyBool obj "enable-default-context-menu" - -setWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableDefaultContextMenu obj val = liftIO $ setObjectPropertyBool obj "enable-default-context-menu" val - -constructWebSettingsEnableDefaultContextMenu :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableDefaultContextMenu val = constructObjectPropertyBool "enable-default-context-menu" val - -data WebSettingsEnableDefaultContextMenuPropertyInfo -instance AttrInfo WebSettingsEnableDefaultContextMenuPropertyInfo where - type AttrAllowedOps WebSettingsEnableDefaultContextMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableDefaultContextMenuPropertyInfo = Bool - type AttrLabel WebSettingsEnableDefaultContextMenuPropertyInfo = "WebSettings::enable-default-context-menu" - attrGet _ = getWebSettingsEnableDefaultContextMenu - attrSet _ = setWebSettingsEnableDefaultContextMenu - attrConstruct _ = constructWebSettingsEnableDefaultContextMenu - --- VVV Prop "enable-developer-extras" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" - -setWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val - -constructWebSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val - -data WebSettingsEnableDeveloperExtrasPropertyInfo -instance AttrInfo WebSettingsEnableDeveloperExtrasPropertyInfo where - type AttrAllowedOps WebSettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableDeveloperExtrasPropertyInfo = Bool - type AttrLabel WebSettingsEnableDeveloperExtrasPropertyInfo = "WebSettings::enable-developer-extras" - attrGet _ = getWebSettingsEnableDeveloperExtras - attrSet _ = setWebSettingsEnableDeveloperExtras - attrConstruct _ = constructWebSettingsEnableDeveloperExtras - --- VVV Prop "enable-display-of-insecure-content" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableDisplayOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-display-of-insecure-content" - -setWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableDisplayOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-display-of-insecure-content" val - -constructWebSettingsEnableDisplayOfInsecureContent :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableDisplayOfInsecureContent val = constructObjectPropertyBool "enable-display-of-insecure-content" val - -data WebSettingsEnableDisplayOfInsecureContentPropertyInfo -instance AttrInfo WebSettingsEnableDisplayOfInsecureContentPropertyInfo where - type AttrAllowedOps WebSettingsEnableDisplayOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableDisplayOfInsecureContentPropertyInfo = Bool - type AttrLabel WebSettingsEnableDisplayOfInsecureContentPropertyInfo = "WebSettings::enable-display-of-insecure-content" - attrGet _ = getWebSettingsEnableDisplayOfInsecureContent - attrSet _ = setWebSettingsEnableDisplayOfInsecureContent - attrConstruct _ = constructWebSettingsEnableDisplayOfInsecureContent - --- VVV Prop "enable-dns-prefetching" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" - -setWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val - -constructWebSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val - -data WebSettingsEnableDnsPrefetchingPropertyInfo -instance AttrInfo WebSettingsEnableDnsPrefetchingPropertyInfo where - type AttrAllowedOps WebSettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableDnsPrefetchingPropertyInfo = Bool - type AttrLabel WebSettingsEnableDnsPrefetchingPropertyInfo = "WebSettings::enable-dns-prefetching" - attrGet _ = getWebSettingsEnableDnsPrefetching - attrSet _ = setWebSettingsEnableDnsPrefetching - attrConstruct _ = constructWebSettingsEnableDnsPrefetching - --- VVV Prop "enable-dom-paste" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableDomPaste obj = liftIO $ getObjectPropertyBool obj "enable-dom-paste" - -setWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableDomPaste obj val = liftIO $ setObjectPropertyBool obj "enable-dom-paste" val - -constructWebSettingsEnableDomPaste :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableDomPaste val = constructObjectPropertyBool "enable-dom-paste" val - -data WebSettingsEnableDomPastePropertyInfo -instance AttrInfo WebSettingsEnableDomPastePropertyInfo where - type AttrAllowedOps WebSettingsEnableDomPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableDomPastePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableDomPastePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableDomPastePropertyInfo = Bool - type AttrLabel WebSettingsEnableDomPastePropertyInfo = "WebSettings::enable-dom-paste" - attrGet _ = getWebSettingsEnableDomPaste - attrSet _ = setWebSettingsEnableDomPaste - attrConstruct _ = constructWebSettingsEnableDomPaste - --- VVV Prop "enable-file-access-from-file-uris" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableFileAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-file-access-from-file-uris" - -setWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableFileAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-file-access-from-file-uris" val - -constructWebSettingsEnableFileAccessFromFileUris :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableFileAccessFromFileUris val = constructObjectPropertyBool "enable-file-access-from-file-uris" val - -data WebSettingsEnableFileAccessFromFileUrisPropertyInfo -instance AttrInfo WebSettingsEnableFileAccessFromFileUrisPropertyInfo where - type AttrAllowedOps WebSettingsEnableFileAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableFileAccessFromFileUrisPropertyInfo = Bool - type AttrLabel WebSettingsEnableFileAccessFromFileUrisPropertyInfo = "WebSettings::enable-file-access-from-file-uris" - attrGet _ = getWebSettingsEnableFileAccessFromFileUris - attrSet _ = setWebSettingsEnableFileAccessFromFileUris - attrConstruct _ = constructWebSettingsEnableFileAccessFromFileUris - --- VVV Prop "enable-frame-flattening" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" - -setWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val - -constructWebSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val - -data WebSettingsEnableFrameFlatteningPropertyInfo -instance AttrInfo WebSettingsEnableFrameFlatteningPropertyInfo where - type AttrAllowedOps WebSettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableFrameFlatteningPropertyInfo = Bool - type AttrLabel WebSettingsEnableFrameFlatteningPropertyInfo = "WebSettings::enable-frame-flattening" - attrGet _ = getWebSettingsEnableFrameFlattening - attrSet _ = setWebSettingsEnableFrameFlattening - attrConstruct _ = constructWebSettingsEnableFrameFlattening - --- VVV Prop "enable-fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" - -setWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val - -constructWebSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val - -data WebSettingsEnableFullscreenPropertyInfo -instance AttrInfo WebSettingsEnableFullscreenPropertyInfo where - type AttrAllowedOps WebSettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableFullscreenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableFullscreenPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableFullscreenPropertyInfo = Bool - type AttrLabel WebSettingsEnableFullscreenPropertyInfo = "WebSettings::enable-fullscreen" - attrGet _ = getWebSettingsEnableFullscreen - attrSet _ = setWebSettingsEnableFullscreen - attrConstruct _ = constructWebSettingsEnableFullscreen - --- VVV Prop "enable-html5-database" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" - -setWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val - -constructWebSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val - -data WebSettingsEnableHtml5DatabasePropertyInfo -instance AttrInfo WebSettingsEnableHtml5DatabasePropertyInfo where - type AttrAllowedOps WebSettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableHtml5DatabasePropertyInfo = Bool - type AttrLabel WebSettingsEnableHtml5DatabasePropertyInfo = "WebSettings::enable-html5-database" - attrGet _ = getWebSettingsEnableHtml5Database - attrSet _ = setWebSettingsEnableHtml5Database - attrConstruct _ = constructWebSettingsEnableHtml5Database - --- VVV Prop "enable-html5-local-storage" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" - -setWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val - -constructWebSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val - -data WebSettingsEnableHtml5LocalStoragePropertyInfo -instance AttrInfo WebSettingsEnableHtml5LocalStoragePropertyInfo where - type AttrAllowedOps WebSettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableHtml5LocalStoragePropertyInfo = Bool - type AttrLabel WebSettingsEnableHtml5LocalStoragePropertyInfo = "WebSettings::enable-html5-local-storage" - attrGet _ = getWebSettingsEnableHtml5LocalStorage - attrSet _ = setWebSettingsEnableHtml5LocalStorage - attrConstruct _ = constructWebSettingsEnableHtml5LocalStorage - --- VVV Prop "enable-hyperlink-auditing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" - -setWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val - -constructWebSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val - -data WebSettingsEnableHyperlinkAuditingPropertyInfo -instance AttrInfo WebSettingsEnableHyperlinkAuditingPropertyInfo where - type AttrAllowedOps WebSettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableHyperlinkAuditingPropertyInfo = Bool - type AttrLabel WebSettingsEnableHyperlinkAuditingPropertyInfo = "WebSettings::enable-hyperlink-auditing" - attrGet _ = getWebSettingsEnableHyperlinkAuditing - attrSet _ = setWebSettingsEnableHyperlinkAuditing - attrConstruct _ = constructWebSettingsEnableHyperlinkAuditing - --- VVV Prop "enable-java-applet" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableJavaApplet obj = liftIO $ getObjectPropertyBool obj "enable-java-applet" - -setWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableJavaApplet obj val = liftIO $ setObjectPropertyBool obj "enable-java-applet" val - -constructWebSettingsEnableJavaApplet :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableJavaApplet val = constructObjectPropertyBool "enable-java-applet" val - -data WebSettingsEnableJavaAppletPropertyInfo -instance AttrInfo WebSettingsEnableJavaAppletPropertyInfo where - type AttrAllowedOps WebSettingsEnableJavaAppletPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableJavaAppletPropertyInfo = Bool - type AttrLabel WebSettingsEnableJavaAppletPropertyInfo = "WebSettings::enable-java-applet" - attrGet _ = getWebSettingsEnableJavaApplet - attrSet _ = setWebSettingsEnableJavaApplet - attrConstruct _ = constructWebSettingsEnableJavaApplet - --- VVV Prop "enable-media-stream" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" - -setWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val - -constructWebSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val - -data WebSettingsEnableMediaStreamPropertyInfo -instance AttrInfo WebSettingsEnableMediaStreamPropertyInfo where - type AttrAllowedOps WebSettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableMediaStreamPropertyInfo = Bool - type AttrLabel WebSettingsEnableMediaStreamPropertyInfo = "WebSettings::enable-media-stream" - attrGet _ = getWebSettingsEnableMediaStream - attrSet _ = setWebSettingsEnableMediaStream - attrConstruct _ = constructWebSettingsEnableMediaStream - --- VVV Prop "enable-mediasource" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" - -setWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val - -constructWebSettingsEnableMediasource :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val - -data WebSettingsEnableMediasourcePropertyInfo -instance AttrInfo WebSettingsEnableMediasourcePropertyInfo where - type AttrAllowedOps WebSettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableMediasourcePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableMediasourcePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableMediasourcePropertyInfo = Bool - type AttrLabel WebSettingsEnableMediasourcePropertyInfo = "WebSettings::enable-mediasource" - attrGet _ = getWebSettingsEnableMediasource - attrSet _ = setWebSettingsEnableMediasource - attrConstruct _ = constructWebSettingsEnableMediasource - --- VVV Prop "enable-offline-web-application-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" - -setWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val - -constructWebSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val - -data WebSettingsEnableOfflineWebApplicationCachePropertyInfo -instance AttrInfo WebSettingsEnableOfflineWebApplicationCachePropertyInfo where - type AttrAllowedOps WebSettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableOfflineWebApplicationCachePropertyInfo = Bool - type AttrLabel WebSettingsEnableOfflineWebApplicationCachePropertyInfo = "WebSettings::enable-offline-web-application-cache" - attrGet _ = getWebSettingsEnableOfflineWebApplicationCache - attrSet _ = setWebSettingsEnableOfflineWebApplicationCache - attrConstruct _ = constructWebSettingsEnableOfflineWebApplicationCache - --- VVV Prop "enable-page-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" - -setWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val - -constructWebSettingsEnablePageCache :: Bool -> IO ([Char], GValue) -constructWebSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val - -data WebSettingsEnablePageCachePropertyInfo -instance AttrInfo WebSettingsEnablePageCachePropertyInfo where - type AttrAllowedOps WebSettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnablePageCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnablePageCachePropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnablePageCachePropertyInfo = Bool - type AttrLabel WebSettingsEnablePageCachePropertyInfo = "WebSettings::enable-page-cache" - attrGet _ = getWebSettingsEnablePageCache - attrSet _ = setWebSettingsEnablePageCache - attrConstruct _ = constructWebSettingsEnablePageCache - --- VVV Prop "enable-plugins" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" - -setWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val - -constructWebSettingsEnablePlugins :: Bool -> IO ([Char], GValue) -constructWebSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val - -data WebSettingsEnablePluginsPropertyInfo -instance AttrInfo WebSettingsEnablePluginsPropertyInfo where - type AttrAllowedOps WebSettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnablePluginsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnablePluginsPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnablePluginsPropertyInfo = Bool - type AttrLabel WebSettingsEnablePluginsPropertyInfo = "WebSettings::enable-plugins" - attrGet _ = getWebSettingsEnablePlugins - attrSet _ = setWebSettingsEnablePlugins - attrConstruct _ = constructWebSettingsEnablePlugins - --- VVV Prop "enable-private-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" - -setWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val - -constructWebSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) -constructWebSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val - -data WebSettingsEnablePrivateBrowsingPropertyInfo -instance AttrInfo WebSettingsEnablePrivateBrowsingPropertyInfo where - type AttrAllowedOps WebSettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnablePrivateBrowsingPropertyInfo = Bool - type AttrLabel WebSettingsEnablePrivateBrowsingPropertyInfo = "WebSettings::enable-private-browsing" - attrGet _ = getWebSettingsEnablePrivateBrowsing - attrSet _ = setWebSettingsEnablePrivateBrowsing - attrConstruct _ = constructWebSettingsEnablePrivateBrowsing - --- VVV Prop "enable-running-of-insecure-content" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableRunningOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-running-of-insecure-content" - -setWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableRunningOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-running-of-insecure-content" val - -constructWebSettingsEnableRunningOfInsecureContent :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableRunningOfInsecureContent val = constructObjectPropertyBool "enable-running-of-insecure-content" val - -data WebSettingsEnableRunningOfInsecureContentPropertyInfo -instance AttrInfo WebSettingsEnableRunningOfInsecureContentPropertyInfo where - type AttrAllowedOps WebSettingsEnableRunningOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableRunningOfInsecureContentPropertyInfo = Bool - type AttrLabel WebSettingsEnableRunningOfInsecureContentPropertyInfo = "WebSettings::enable-running-of-insecure-content" - attrGet _ = getWebSettingsEnableRunningOfInsecureContent - attrSet _ = setWebSettingsEnableRunningOfInsecureContent - attrConstruct _ = constructWebSettingsEnableRunningOfInsecureContent - --- VVV Prop "enable-scripts" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableScripts obj = liftIO $ getObjectPropertyBool obj "enable-scripts" - -setWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableScripts obj val = liftIO $ setObjectPropertyBool obj "enable-scripts" val - -constructWebSettingsEnableScripts :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableScripts val = constructObjectPropertyBool "enable-scripts" val - -data WebSettingsEnableScriptsPropertyInfo -instance AttrInfo WebSettingsEnableScriptsPropertyInfo where - type AttrAllowedOps WebSettingsEnableScriptsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableScriptsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableScriptsPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableScriptsPropertyInfo = Bool - type AttrLabel WebSettingsEnableScriptsPropertyInfo = "WebSettings::enable-scripts" - attrGet _ = getWebSettingsEnableScripts - attrSet _ = setWebSettingsEnableScripts - attrConstruct _ = constructWebSettingsEnableScripts - --- VVV Prop "enable-site-specific-quirks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" - -setWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val - -constructWebSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val - -data WebSettingsEnableSiteSpecificQuirksPropertyInfo -instance AttrInfo WebSettingsEnableSiteSpecificQuirksPropertyInfo where - type AttrAllowedOps WebSettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableSiteSpecificQuirksPropertyInfo = Bool - type AttrLabel WebSettingsEnableSiteSpecificQuirksPropertyInfo = "WebSettings::enable-site-specific-quirks" - attrGet _ = getWebSettingsEnableSiteSpecificQuirks - attrSet _ = setWebSettingsEnableSiteSpecificQuirks - attrConstruct _ = constructWebSettingsEnableSiteSpecificQuirks - --- VVV Prop "enable-smooth-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" - -setWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val - -constructWebSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val - -data WebSettingsEnableSmoothScrollingPropertyInfo -instance AttrInfo WebSettingsEnableSmoothScrollingPropertyInfo where - type AttrAllowedOps WebSettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableSmoothScrollingPropertyInfo = Bool - type AttrLabel WebSettingsEnableSmoothScrollingPropertyInfo = "WebSettings::enable-smooth-scrolling" - attrGet _ = getWebSettingsEnableSmoothScrolling - attrSet _ = setWebSettingsEnableSmoothScrolling - attrConstruct _ = constructWebSettingsEnableSmoothScrolling - --- VVV Prop "enable-spatial-navigation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" - -setWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val - -constructWebSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val - -data WebSettingsEnableSpatialNavigationPropertyInfo -instance AttrInfo WebSettingsEnableSpatialNavigationPropertyInfo where - type AttrAllowedOps WebSettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableSpatialNavigationPropertyInfo = Bool - type AttrLabel WebSettingsEnableSpatialNavigationPropertyInfo = "WebSettings::enable-spatial-navigation" - attrGet _ = getWebSettingsEnableSpatialNavigation - attrSet _ = setWebSettingsEnableSpatialNavigation - attrConstruct _ = constructWebSettingsEnableSpatialNavigation - --- VVV Prop "enable-spell-checking" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableSpellChecking obj = liftIO $ getObjectPropertyBool obj "enable-spell-checking" - -setWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableSpellChecking obj val = liftIO $ setObjectPropertyBool obj "enable-spell-checking" val - -constructWebSettingsEnableSpellChecking :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableSpellChecking val = constructObjectPropertyBool "enable-spell-checking" val - -data WebSettingsEnableSpellCheckingPropertyInfo -instance AttrInfo WebSettingsEnableSpellCheckingPropertyInfo where - type AttrAllowedOps WebSettingsEnableSpellCheckingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableSpellCheckingPropertyInfo = Bool - type AttrLabel WebSettingsEnableSpellCheckingPropertyInfo = "WebSettings::enable-spell-checking" - attrGet _ = getWebSettingsEnableSpellChecking - attrSet _ = setWebSettingsEnableSpellChecking - attrConstruct _ = constructWebSettingsEnableSpellChecking - --- VVV Prop "enable-universal-access-from-file-uris" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableUniversalAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-universal-access-from-file-uris" - -setWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableUniversalAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-universal-access-from-file-uris" val - -constructWebSettingsEnableUniversalAccessFromFileUris :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableUniversalAccessFromFileUris val = constructObjectPropertyBool "enable-universal-access-from-file-uris" val - -data WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo -instance AttrInfo WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo where - type AttrAllowedOps WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = Bool - type AttrLabel WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = "WebSettings::enable-universal-access-from-file-uris" - attrGet _ = getWebSettingsEnableUniversalAccessFromFileUris - attrSet _ = setWebSettingsEnableUniversalAccessFromFileUris - attrConstruct _ = constructWebSettingsEnableUniversalAccessFromFileUris - --- VVV Prop "enable-webaudio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" - -setWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val - -constructWebSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val - -data WebSettingsEnableWebaudioPropertyInfo -instance AttrInfo WebSettingsEnableWebaudioPropertyInfo where - type AttrAllowedOps WebSettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableWebaudioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableWebaudioPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableWebaudioPropertyInfo = Bool - type AttrLabel WebSettingsEnableWebaudioPropertyInfo = "WebSettings::enable-webaudio" - attrGet _ = getWebSettingsEnableWebaudio - attrSet _ = setWebSettingsEnableWebaudio - attrConstruct _ = constructWebSettingsEnableWebaudio - --- VVV Prop "enable-webgl" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" - -setWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val - -constructWebSettingsEnableWebgl :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val - -data WebSettingsEnableWebglPropertyInfo -instance AttrInfo WebSettingsEnableWebglPropertyInfo where - type AttrAllowedOps WebSettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableWebglPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableWebglPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableWebglPropertyInfo = Bool - type AttrLabel WebSettingsEnableWebglPropertyInfo = "WebSettings::enable-webgl" - attrGet _ = getWebSettingsEnableWebgl - attrSet _ = setWebSettingsEnableWebgl - attrConstruct _ = constructWebSettingsEnableWebgl - --- VVV Prop "enable-xss-auditor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" - -setWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val - -constructWebSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) -constructWebSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val - -data WebSettingsEnableXssAuditorPropertyInfo -instance AttrInfo WebSettingsEnableXssAuditorPropertyInfo where - type AttrAllowedOps WebSettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnableXssAuditorPropertyInfo = Bool - type AttrLabel WebSettingsEnableXssAuditorPropertyInfo = "WebSettings::enable-xss-auditor" - attrGet _ = getWebSettingsEnableXssAuditor - attrSet _ = setWebSettingsEnableXssAuditor - attrConstruct _ = constructWebSettingsEnableXssAuditor - --- VVV Prop "enforce-96-dpi" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsEnforce96Dpi obj = liftIO $ getObjectPropertyBool obj "enforce-96-dpi" - -setWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsEnforce96Dpi obj val = liftIO $ setObjectPropertyBool obj "enforce-96-dpi" val - -constructWebSettingsEnforce96Dpi :: Bool -> IO ([Char], GValue) -constructWebSettingsEnforce96Dpi val = constructObjectPropertyBool "enforce-96-dpi" val - -data WebSettingsEnforce96DpiPropertyInfo -instance AttrInfo WebSettingsEnforce96DpiPropertyInfo where - type AttrAllowedOps WebSettingsEnforce96DpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsEnforce96DpiPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsEnforce96DpiPropertyInfo = WebSettingsK - type AttrGetType WebSettingsEnforce96DpiPropertyInfo = Bool - type AttrLabel WebSettingsEnforce96DpiPropertyInfo = "WebSettings::enforce-96-dpi" - attrGet _ = getWebSettingsEnforce96Dpi - attrSet _ = setWebSettingsEnforce96Dpi - attrConstruct _ = constructWebSettingsEnforce96Dpi - --- VVV Prop "fantasy-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" - -setWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val - -constructWebSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val - -data WebSettingsFantasyFontFamilyPropertyInfo -instance AttrInfo WebSettingsFantasyFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsFantasyFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsFantasyFontFamilyPropertyInfo = "WebSettings::fantasy-font-family" - attrGet _ = getWebSettingsFantasyFontFamily - attrSet _ = setWebSettingsFantasyFontFamily - attrConstruct _ = constructWebSettingsFantasyFontFamily - --- VVV Prop "html5-local-storage-database-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsHtml5LocalStorageDatabasePath obj = liftIO $ getObjectPropertyString obj "html5-local-storage-database-path" - -setWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsHtml5LocalStorageDatabasePath obj val = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" val - -constructWebSettingsHtml5LocalStorageDatabasePath :: T.Text -> IO ([Char], GValue) -constructWebSettingsHtml5LocalStorageDatabasePath val = constructObjectPropertyString "html5-local-storage-database-path" val - -data WebSettingsHtml5LocalStorageDatabasePathPropertyInfo -instance AttrInfo WebSettingsHtml5LocalStorageDatabasePathPropertyInfo where - type AttrAllowedOps WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = WebSettingsK - type AttrGetType WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = T.Text - type AttrLabel WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = "WebSettings::html5-local-storage-database-path" - attrGet _ = getWebSettingsHtml5LocalStorageDatabasePath - attrSet _ = setWebSettingsHtml5LocalStorageDatabasePath - attrConstruct _ = constructWebSettingsHtml5LocalStorageDatabasePath - --- VVV Prop "javascript-can-access-clipboard" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" - -setWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val - -constructWebSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) -constructWebSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val - -data WebSettingsJavascriptCanAccessClipboardPropertyInfo -instance AttrInfo WebSettingsJavascriptCanAccessClipboardPropertyInfo where - type AttrAllowedOps WebSettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = WebSettingsK - type AttrGetType WebSettingsJavascriptCanAccessClipboardPropertyInfo = Bool - type AttrLabel WebSettingsJavascriptCanAccessClipboardPropertyInfo = "WebSettings::javascript-can-access-clipboard" - attrGet _ = getWebSettingsJavascriptCanAccessClipboard - attrSet _ = setWebSettingsJavascriptCanAccessClipboard - attrConstruct _ = constructWebSettingsJavascriptCanAccessClipboard - --- VVV Prop "javascript-can-open-windows-automatically" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" - -setWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val - -constructWebSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) -constructWebSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val - -data WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo -instance AttrInfo WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where - type AttrAllowedOps WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool - type AttrLabel WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "WebSettings::javascript-can-open-windows-automatically" - attrGet _ = getWebSettingsJavascriptCanOpenWindowsAutomatically - attrSet _ = setWebSettingsJavascriptCanOpenWindowsAutomatically - attrConstruct _ = constructWebSettingsJavascriptCanOpenWindowsAutomatically - --- VVV Prop "media-playback-allows-inline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" - -setWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val - -constructWebSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) -constructWebSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val - -data WebSettingsMediaPlaybackAllowsInlinePropertyInfo -instance AttrInfo WebSettingsMediaPlaybackAllowsInlinePropertyInfo where - type AttrAllowedOps WebSettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = WebSettingsK - type AttrGetType WebSettingsMediaPlaybackAllowsInlinePropertyInfo = Bool - type AttrLabel WebSettingsMediaPlaybackAllowsInlinePropertyInfo = "WebSettings::media-playback-allows-inline" - attrGet _ = getWebSettingsMediaPlaybackAllowsInline - attrSet _ = setWebSettingsMediaPlaybackAllowsInline - attrConstruct _ = constructWebSettingsMediaPlaybackAllowsInline - --- VVV Prop "media-playback-requires-user-gesture" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" - -setWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val - -constructWebSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) -constructWebSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val - -data WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo -instance AttrInfo WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo where - type AttrAllowedOps WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = WebSettingsK - type AttrGetType WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool - type AttrLabel WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = "WebSettings::media-playback-requires-user-gesture" - attrGet _ = getWebSettingsMediaPlaybackRequiresUserGesture - attrSet _ = setWebSettingsMediaPlaybackRequiresUserGesture - attrConstruct _ = constructWebSettingsMediaPlaybackRequiresUserGesture - --- VVV Prop "minimum-font-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-font-size" - -setWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-font-size" val - -constructWebSettingsMinimumFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsMinimumFontSize val = constructObjectPropertyCInt "minimum-font-size" val - -data WebSettingsMinimumFontSizePropertyInfo -instance AttrInfo WebSettingsMinimumFontSizePropertyInfo where - type AttrAllowedOps WebSettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsMinimumFontSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebSettingsMinimumFontSizePropertyInfo = WebSettingsK - type AttrGetType WebSettingsMinimumFontSizePropertyInfo = Int32 - type AttrLabel WebSettingsMinimumFontSizePropertyInfo = "WebSettings::minimum-font-size" - attrGet _ = getWebSettingsMinimumFontSize - attrSet _ = setWebSettingsMinimumFontSize - attrConstruct _ = constructWebSettingsMinimumFontSize - --- VVV Prop "minimum-logical-font-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsMinimumLogicalFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-logical-font-size" - -setWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsMinimumLogicalFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-logical-font-size" val - -constructWebSettingsMinimumLogicalFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsMinimumLogicalFontSize val = constructObjectPropertyCInt "minimum-logical-font-size" val - -data WebSettingsMinimumLogicalFontSizePropertyInfo -instance AttrInfo WebSettingsMinimumLogicalFontSizePropertyInfo where - type AttrAllowedOps WebSettingsMinimumLogicalFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = WebSettingsK - type AttrGetType WebSettingsMinimumLogicalFontSizePropertyInfo = Int32 - type AttrLabel WebSettingsMinimumLogicalFontSizePropertyInfo = "WebSettings::minimum-logical-font-size" - attrGet _ = getWebSettingsMinimumLogicalFontSize - attrSet _ = setWebSettingsMinimumLogicalFontSize - attrConstruct _ = constructWebSettingsMinimumLogicalFontSize - --- VVV Prop "monospace-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" - -setWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val - -constructWebSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val - -data WebSettingsMonospaceFontFamilyPropertyInfo -instance AttrInfo WebSettingsMonospaceFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsMonospaceFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsMonospaceFontFamilyPropertyInfo = "WebSettings::monospace-font-family" - attrGet _ = getWebSettingsMonospaceFontFamily - attrSet _ = setWebSettingsMonospaceFontFamily - attrConstruct _ = constructWebSettingsMonospaceFontFamily - --- VVV Prop "print-backgrounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" - -setWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val - -constructWebSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) -constructWebSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val - -data WebSettingsPrintBackgroundsPropertyInfo -instance AttrInfo WebSettingsPrintBackgroundsPropertyInfo where - type AttrAllowedOps WebSettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = WebSettingsK - type AttrGetType WebSettingsPrintBackgroundsPropertyInfo = Bool - type AttrLabel WebSettingsPrintBackgroundsPropertyInfo = "WebSettings::print-backgrounds" - attrGet _ = getWebSettingsPrintBackgrounds - attrSet _ = setWebSettingsPrintBackgrounds - attrConstruct _ = constructWebSettingsPrintBackgrounds - --- VVV Prop "resizable-text-areas" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "resizable-text-areas" - -setWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "resizable-text-areas" val - -constructWebSettingsResizableTextAreas :: Bool -> IO ([Char], GValue) -constructWebSettingsResizableTextAreas val = constructObjectPropertyBool "resizable-text-areas" val - -data WebSettingsResizableTextAreasPropertyInfo -instance AttrInfo WebSettingsResizableTextAreasPropertyInfo where - type AttrAllowedOps WebSettingsResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsResizableTextAreasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsResizableTextAreasPropertyInfo = WebSettingsK - type AttrGetType WebSettingsResizableTextAreasPropertyInfo = Bool - type AttrLabel WebSettingsResizableTextAreasPropertyInfo = "WebSettings::resizable-text-areas" - attrGet _ = getWebSettingsResizableTextAreas - attrSet _ = setWebSettingsResizableTextAreas - attrConstruct _ = constructWebSettingsResizableTextAreas - --- VVV Prop "respect-image-orientation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsRespectImageOrientation obj = liftIO $ getObjectPropertyBool obj "respect-image-orientation" - -setWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsRespectImageOrientation obj val = liftIO $ setObjectPropertyBool obj "respect-image-orientation" val - -constructWebSettingsRespectImageOrientation :: Bool -> IO ([Char], GValue) -constructWebSettingsRespectImageOrientation val = constructObjectPropertyBool "respect-image-orientation" val - -data WebSettingsRespectImageOrientationPropertyInfo -instance AttrInfo WebSettingsRespectImageOrientationPropertyInfo where - type AttrAllowedOps WebSettingsRespectImageOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = WebSettingsK - type AttrGetType WebSettingsRespectImageOrientationPropertyInfo = Bool - type AttrLabel WebSettingsRespectImageOrientationPropertyInfo = "WebSettings::respect-image-orientation" - attrGet _ = getWebSettingsRespectImageOrientation - attrSet _ = setWebSettingsRespectImageOrientation - attrConstruct _ = constructWebSettingsRespectImageOrientation - --- VVV Prop "sans-serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" - -setWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val - -constructWebSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val - -data WebSettingsSansSerifFontFamilyPropertyInfo -instance AttrInfo WebSettingsSansSerifFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSansSerifFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsSansSerifFontFamilyPropertyInfo = "WebSettings::sans-serif-font-family" - attrGet _ = getWebSettingsSansSerifFontFamily - attrSet _ = setWebSettingsSansSerifFontFamily - attrConstruct _ = constructWebSettingsSansSerifFontFamily - --- VVV Prop "serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" - -setWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val - -constructWebSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val - -data WebSettingsSerifFontFamilyPropertyInfo -instance AttrInfo WebSettingsSerifFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSerifFontFamilyPropertyInfo = T.Text - type AttrLabel WebSettingsSerifFontFamilyPropertyInfo = "WebSettings::serif-font-family" - attrGet _ = getWebSettingsSerifFontFamily - attrSet _ = setWebSettingsSerifFontFamily - attrConstruct _ = constructWebSettingsSerifFontFamily - --- VVV Prop "spell-checking-languages" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsSpellCheckingLanguages obj = liftIO $ getObjectPropertyString obj "spell-checking-languages" - -setWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSpellCheckingLanguages obj val = liftIO $ setObjectPropertyString obj "spell-checking-languages" val - -constructWebSettingsSpellCheckingLanguages :: T.Text -> IO ([Char], GValue) -constructWebSettingsSpellCheckingLanguages val = constructObjectPropertyString "spell-checking-languages" val - -data WebSettingsSpellCheckingLanguagesPropertyInfo -instance AttrInfo WebSettingsSpellCheckingLanguagesPropertyInfo where - type AttrAllowedOps WebSettingsSpellCheckingLanguagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSpellCheckingLanguagesPropertyInfo = T.Text - type AttrLabel WebSettingsSpellCheckingLanguagesPropertyInfo = "WebSettings::spell-checking-languages" - attrGet _ = getWebSettingsSpellCheckingLanguages - attrSet _ = setWebSettingsSpellCheckingLanguages - attrConstruct _ = constructWebSettingsSpellCheckingLanguages - --- VVV Prop "tab-key-cycles-through-elements" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> m Bool -getWebSettingsTabKeyCyclesThroughElements obj = liftIO $ getObjectPropertyBool obj "tab-key-cycles-through-elements" - -setWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () -setWebSettingsTabKeyCyclesThroughElements obj val = liftIO $ setObjectPropertyBool obj "tab-key-cycles-through-elements" val - -constructWebSettingsTabKeyCyclesThroughElements :: Bool -> IO ([Char], GValue) -constructWebSettingsTabKeyCyclesThroughElements val = constructObjectPropertyBool "tab-key-cycles-through-elements" val - -data WebSettingsTabKeyCyclesThroughElementsPropertyInfo -instance AttrInfo WebSettingsTabKeyCyclesThroughElementsPropertyInfo where - type AttrAllowedOps WebSettingsTabKeyCyclesThroughElementsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = WebSettingsK - type AttrGetType WebSettingsTabKeyCyclesThroughElementsPropertyInfo = Bool - type AttrLabel WebSettingsTabKeyCyclesThroughElementsPropertyInfo = "WebSettings::tab-key-cycles-through-elements" - attrGet _ = getWebSettingsTabKeyCyclesThroughElements - attrSet _ = setWebSettingsTabKeyCyclesThroughElements - attrConstruct _ = constructWebSettingsTabKeyCyclesThroughElements - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" - -setWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val - -constructWebSettingsUserAgent :: T.Text -> IO ([Char], GValue) -constructWebSettingsUserAgent val = constructObjectPropertyString "user-agent" val - -data WebSettingsUserAgentPropertyInfo -instance AttrInfo WebSettingsUserAgentPropertyInfo where - type AttrAllowedOps WebSettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsUserAgentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsUserAgentPropertyInfo = WebSettingsK - type AttrGetType WebSettingsUserAgentPropertyInfo = T.Text - type AttrLabel WebSettingsUserAgentPropertyInfo = "WebSettings::user-agent" - attrGet _ = getWebSettingsUserAgent - attrSet _ = setWebSettingsUserAgent - attrConstruct _ = constructWebSettingsUserAgent - --- VVV Prop "user-stylesheet-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsUserStylesheetUri obj = liftIO $ getObjectPropertyString obj "user-stylesheet-uri" - -setWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsUserStylesheetUri obj val = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" val - -constructWebSettingsUserStylesheetUri :: T.Text -> IO ([Char], GValue) -constructWebSettingsUserStylesheetUri val = constructObjectPropertyString "user-stylesheet-uri" val - -data WebSettingsUserStylesheetUriPropertyInfo -instance AttrInfo WebSettingsUserStylesheetUriPropertyInfo where - type AttrAllowedOps WebSettingsUserStylesheetUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = WebSettingsK - type AttrGetType WebSettingsUserStylesheetUriPropertyInfo = T.Text - type AttrLabel WebSettingsUserStylesheetUriPropertyInfo = "WebSettings::user-stylesheet-uri" - attrGet _ = getWebSettingsUserStylesheetUri - attrSet _ = setWebSettingsUserStylesheetUri - attrConstruct _ = constructWebSettingsUserStylesheetUri - --- VVV Prop "zoom-step" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> m Float -getWebSettingsZoomStep obj = liftIO $ getObjectPropertyFloat obj "zoom-step" - -setWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> Float -> m () -setWebSettingsZoomStep obj val = liftIO $ setObjectPropertyFloat obj "zoom-step" val - -constructWebSettingsZoomStep :: Float -> IO ([Char], GValue) -constructWebSettingsZoomStep val = constructObjectPropertyFloat "zoom-step" val - -data WebSettingsZoomStepPropertyInfo -instance AttrInfo WebSettingsZoomStepPropertyInfo where - type AttrAllowedOps WebSettingsZoomStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebSettingsZoomStepPropertyInfo = (~) Float - type AttrBaseTypeConstraint WebSettingsZoomStepPropertyInfo = WebSettingsK - type AttrGetType WebSettingsZoomStepPropertyInfo = Float - type AttrLabel WebSettingsZoomStepPropertyInfo = "WebSettings::zoom-step" - attrGet _ = getWebSettingsZoomStep - attrSet _ = setWebSettingsZoomStep - attrConstruct _ = constructWebSettingsZoomStep - -type instance AttributeList WebSettings = '[ '("auto-load-images", WebSettingsAutoLoadImagesPropertyInfo), '("auto-resize-window", WebSettingsAutoResizeWindowPropertyInfo), '("auto-shrink-images", WebSettingsAutoShrinkImagesPropertyInfo), '("cursive-font-family", WebSettingsCursiveFontFamilyPropertyInfo), '("default-encoding", WebSettingsDefaultEncodingPropertyInfo), '("default-font-family", WebSettingsDefaultFontFamilyPropertyInfo), '("default-font-size", WebSettingsDefaultFontSizePropertyInfo), '("default-monospace-font-size", WebSettingsDefaultMonospaceFontSizePropertyInfo), '("editing-behavior", WebSettingsEditingBehaviorPropertyInfo), '("enable-accelerated-compositing", WebSettingsEnableAcceleratedCompositingPropertyInfo), '("enable-caret-browsing", WebSettingsEnableCaretBrowsingPropertyInfo), '("enable-default-context-menu", WebSettingsEnableDefaultContextMenuPropertyInfo), '("enable-developer-extras", WebSettingsEnableDeveloperExtrasPropertyInfo), '("enable-display-of-insecure-content", WebSettingsEnableDisplayOfInsecureContentPropertyInfo), '("enable-dns-prefetching", WebSettingsEnableDnsPrefetchingPropertyInfo), '("enable-dom-paste", WebSettingsEnableDomPastePropertyInfo), '("enable-file-access-from-file-uris", WebSettingsEnableFileAccessFromFileUrisPropertyInfo), '("enable-frame-flattening", WebSettingsEnableFrameFlatteningPropertyInfo), '("enable-fullscreen", WebSettingsEnableFullscreenPropertyInfo), '("enable-html5-database", WebSettingsEnableHtml5DatabasePropertyInfo), '("enable-html5-local-storage", WebSettingsEnableHtml5LocalStoragePropertyInfo), '("enable-hyperlink-auditing", WebSettingsEnableHyperlinkAuditingPropertyInfo), '("enable-java-applet", WebSettingsEnableJavaAppletPropertyInfo), '("enable-media-stream", WebSettingsEnableMediaStreamPropertyInfo), '("enable-mediasource", WebSettingsEnableMediasourcePropertyInfo), '("enable-offline-web-application-cache", WebSettingsEnableOfflineWebApplicationCachePropertyInfo), '("enable-page-cache", WebSettingsEnablePageCachePropertyInfo), '("enable-plugins", WebSettingsEnablePluginsPropertyInfo), '("enable-private-browsing", WebSettingsEnablePrivateBrowsingPropertyInfo), '("enable-running-of-insecure-content", WebSettingsEnableRunningOfInsecureContentPropertyInfo), '("enable-scripts", WebSettingsEnableScriptsPropertyInfo), '("enable-site-specific-quirks", WebSettingsEnableSiteSpecificQuirksPropertyInfo), '("enable-smooth-scrolling", WebSettingsEnableSmoothScrollingPropertyInfo), '("enable-spatial-navigation", WebSettingsEnableSpatialNavigationPropertyInfo), '("enable-spell-checking", WebSettingsEnableSpellCheckingPropertyInfo), '("enable-universal-access-from-file-uris", WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo), '("enable-webaudio", WebSettingsEnableWebaudioPropertyInfo), '("enable-webgl", WebSettingsEnableWebglPropertyInfo), '("enable-xss-auditor", WebSettingsEnableXssAuditorPropertyInfo), '("enforce-96-dpi", WebSettingsEnforce96DpiPropertyInfo), '("fantasy-font-family", WebSettingsFantasyFontFamilyPropertyInfo), '("html5-local-storage-database-path", WebSettingsHtml5LocalStorageDatabasePathPropertyInfo), '("javascript-can-access-clipboard", WebSettingsJavascriptCanAccessClipboardPropertyInfo), '("javascript-can-open-windows-automatically", WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("media-playback-allows-inline", WebSettingsMediaPlaybackAllowsInlinePropertyInfo), '("media-playback-requires-user-gesture", WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimum-font-size", WebSettingsMinimumFontSizePropertyInfo), '("minimum-logical-font-size", WebSettingsMinimumLogicalFontSizePropertyInfo), '("monospace-font-family", WebSettingsMonospaceFontFamilyPropertyInfo), '("print-backgrounds", WebSettingsPrintBackgroundsPropertyInfo), '("resizable-text-areas", WebSettingsResizableTextAreasPropertyInfo), '("respect-image-orientation", WebSettingsRespectImageOrientationPropertyInfo), '("sans-serif-font-family", WebSettingsSansSerifFontFamilyPropertyInfo), '("serif-font-family", WebSettingsSerifFontFamilyPropertyInfo), '("spell-checking-languages", WebSettingsSpellCheckingLanguagesPropertyInfo), '("tab-key-cycles-through-elements", WebSettingsTabKeyCyclesThroughElementsPropertyInfo), '("user-agent", WebSettingsUserAgentPropertyInfo), '("user-stylesheet-uri", WebSettingsUserStylesheetUriPropertyInfo), '("zoom-step", WebSettingsZoomStepPropertyInfo)] - --- VVV Prop "copy-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -getWebViewCopyTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList -getWebViewCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" Gtk.TargetList - -data WebViewCopyTargetListPropertyInfo -instance AttrInfo WebViewCopyTargetListPropertyInfo where - type AttrAllowedOps WebViewCopyTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewCopyTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewCopyTargetListPropertyInfo = WebViewK - type AttrGetType WebViewCopyTargetListPropertyInfo = Gtk.TargetList - type AttrLabel WebViewCopyTargetListPropertyInfo = "WebView::copy-target-list" - attrGet _ = getWebViewCopyTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "custom-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewCustomEncoding obj = liftIO $ getObjectPropertyString obj "custom-encoding" - -setWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> T.Text -> m () -setWebViewCustomEncoding obj val = liftIO $ setObjectPropertyString obj "custom-encoding" val - -constructWebViewCustomEncoding :: T.Text -> IO ([Char], GValue) -constructWebViewCustomEncoding val = constructObjectPropertyString "custom-encoding" val - -data WebViewCustomEncodingPropertyInfo -instance AttrInfo WebViewCustomEncodingPropertyInfo where - type AttrAllowedOps WebViewCustomEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewCustomEncodingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebViewCustomEncodingPropertyInfo = WebViewK - type AttrGetType WebViewCustomEncodingPropertyInfo = T.Text - type AttrLabel WebViewCustomEncodingPropertyInfo = "WebView::custom-encoding" - attrGet _ = getWebViewCustomEncoding - attrSet _ = setWebViewCustomEncoding - attrConstruct _ = constructWebViewCustomEncoding - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () -setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructWebViewEditable :: Bool -> IO ([Char], GValue) -constructWebViewEditable val = constructObjectPropertyBool "editable" val - -data WebViewEditablePropertyInfo -instance AttrInfo WebViewEditablePropertyInfo where - type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK - type AttrGetType WebViewEditablePropertyInfo = Bool - type AttrLabel WebViewEditablePropertyInfo = "WebView::editable" - attrGet _ = getWebViewEditable - attrSet _ = setWebViewEditable - attrConstruct _ = constructWebViewEditable - --- VVV Prop "encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewEncoding obj = liftIO $ getObjectPropertyString obj "encoding" - -data WebViewEncodingPropertyInfo -instance AttrInfo WebViewEncodingPropertyInfo where - type AttrAllowedOps WebViewEncodingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewEncodingPropertyInfo = WebViewK - type AttrGetType WebViewEncodingPropertyInfo = T.Text - type AttrLabel WebViewEncodingPropertyInfo = "WebView::encoding" - attrGet _ = getWebViewEncoding - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "full-content-zoom" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewFullContentZoom obj = liftIO $ getObjectPropertyBool obj "full-content-zoom" - -setWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> Bool -> m () -setWebViewFullContentZoom obj val = liftIO $ setObjectPropertyBool obj "full-content-zoom" val - -constructWebViewFullContentZoom :: Bool -> IO ([Char], GValue) -constructWebViewFullContentZoom val = constructObjectPropertyBool "full-content-zoom" val - -data WebViewFullContentZoomPropertyInfo -instance AttrInfo WebViewFullContentZoomPropertyInfo where - type AttrAllowedOps WebViewFullContentZoomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewFullContentZoomPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewFullContentZoomPropertyInfo = WebViewK - type AttrGetType WebViewFullContentZoomPropertyInfo = Bool - type AttrLabel WebViewFullContentZoomPropertyInfo = "WebView::full-content-zoom" - attrGet _ = getWebViewFullContentZoom - attrSet _ = setWebViewFullContentZoom - attrConstruct _ = constructWebViewFullContentZoom - --- VVV Prop "icon-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewIconUri :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewIconUri obj = liftIO $ getObjectPropertyString obj "icon-uri" - -data WebViewIconUriPropertyInfo -instance AttrInfo WebViewIconUriPropertyInfo where - type AttrAllowedOps WebViewIconUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewIconUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewIconUriPropertyInfo = WebViewK - type AttrGetType WebViewIconUriPropertyInfo = T.Text - type AttrLabel WebViewIconUriPropertyInfo = "WebView::icon-uri" - attrGet _ = getWebViewIconUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "im-context" - -- Type: TInterface "Gtk" "IMContext" - -- Flags: [PropertyReadable] - -getWebViewImContext :: (MonadIO m, WebViewK o) => o -> m Gtk.IMContext -getWebViewImContext obj = liftIO $ getObjectPropertyObject obj "im-context" Gtk.IMContext - -data WebViewImContextPropertyInfo -instance AttrInfo WebViewImContextPropertyInfo where - type AttrAllowedOps WebViewImContextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewImContextPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewImContextPropertyInfo = WebViewK - type AttrGetType WebViewImContextPropertyInfo = Gtk.IMContext - type AttrLabel WebViewImContextPropertyInfo = "WebView::im-context" - attrGet _ = getWebViewImContext - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "load-status" - -- Type: TInterface "WebKit" "LoadStatus" - -- Flags: [PropertyReadable] - -getWebViewLoadStatus :: (MonadIO m, WebViewK o) => o -> m LoadStatus -getWebViewLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" - -data WebViewLoadStatusPropertyInfo -instance AttrInfo WebViewLoadStatusPropertyInfo where - type AttrAllowedOps WebViewLoadStatusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewLoadStatusPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewLoadStatusPropertyInfo = WebViewK - type AttrGetType WebViewLoadStatusPropertyInfo = LoadStatus - type AttrLabel WebViewLoadStatusPropertyInfo = "WebView::load-status" - attrGet _ = getWebViewLoadStatus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "paste-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -getWebViewPasteTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList -getWebViewPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" Gtk.TargetList - -data WebViewPasteTargetListPropertyInfo -instance AttrInfo WebViewPasteTargetListPropertyInfo where - type AttrAllowedOps WebViewPasteTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewPasteTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewPasteTargetListPropertyInfo = WebViewK - type AttrGetType WebViewPasteTargetListPropertyInfo = Gtk.TargetList - type AttrLabel WebViewPasteTargetListPropertyInfo = "WebView::paste-target-list" - attrGet _ = getWebViewPasteTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "progress" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -getWebViewProgress :: (MonadIO m, WebViewK o) => o -> m Double -getWebViewProgress obj = liftIO $ getObjectPropertyDouble obj "progress" - -data WebViewProgressPropertyInfo -instance AttrInfo WebViewProgressPropertyInfo where - type AttrAllowedOps WebViewProgressPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewProgressPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewProgressPropertyInfo = WebViewK - type AttrGetType WebViewProgressPropertyInfo = Double - type AttrLabel WebViewProgressPropertyInfo = "WebView::progress" - attrGet _ = getWebViewProgress - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "self-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebViewSelfScrolling :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewSelfScrolling obj = liftIO $ getObjectPropertyBool obj "self-scrolling" - -constructWebViewSelfScrolling :: Bool -> IO ([Char], GValue) -constructWebViewSelfScrolling val = constructObjectPropertyBool "self-scrolling" val - -data WebViewSelfScrollingPropertyInfo -instance AttrInfo WebViewSelfScrollingPropertyInfo where - type AttrAllowedOps WebViewSelfScrollingPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewSelfScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewSelfScrollingPropertyInfo = WebViewK - type AttrGetType WebViewSelfScrollingPropertyInfo = Bool - type AttrLabel WebViewSelfScrollingPropertyInfo = "WebView::self-scrolling" - attrGet _ = getWebViewSelfScrolling - attrSet _ = undefined - attrConstruct _ = constructWebViewSelfScrolling - --- VVV Prop "settings" - -- Type: TInterface "WebKit" "WebSettings" - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewSettings :: (MonadIO m, WebViewK o) => o -> m WebSettings -getWebViewSettings obj = liftIO $ getObjectPropertyObject obj "settings" WebSettings - -setWebViewSettings :: (MonadIO m, WebViewK o, WebSettingsK a) => o -> a -> m () -setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val - -constructWebViewSettings :: (WebSettingsK a) => a -> IO ([Char], GValue) -constructWebViewSettings val = constructObjectPropertyObject "settings" val - -data WebViewSettingsPropertyInfo -instance AttrInfo WebViewSettingsPropertyInfo where - type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewSettingsPropertyInfo = WebSettingsK - type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK - type AttrGetType WebViewSettingsPropertyInfo = WebSettings - type AttrLabel WebViewSettingsPropertyInfo = "WebView::settings" - attrGet _ = getWebViewSettings - attrSet _ = setWebViewSettings - attrConstruct _ = constructWebViewSettings - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" - -data WebViewTitlePropertyInfo -instance AttrInfo WebViewTitlePropertyInfo where - type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK - type AttrGetType WebViewTitlePropertyInfo = T.Text - type AttrLabel WebViewTitlePropertyInfo = "WebView::title" - attrGet _ = getWebViewTitle - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "transparent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewTransparent :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewTransparent obj = liftIO $ getObjectPropertyBool obj "transparent" - -setWebViewTransparent :: (MonadIO m, WebViewK o) => o -> Bool -> m () -setWebViewTransparent obj val = liftIO $ setObjectPropertyBool obj "transparent" val - -constructWebViewTransparent :: Bool -> IO ([Char], GValue) -constructWebViewTransparent val = constructObjectPropertyBool "transparent" val - -data WebViewTransparentPropertyInfo -instance AttrInfo WebViewTransparentPropertyInfo where - type AttrAllowedOps WebViewTransparentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewTransparentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewTransparentPropertyInfo = WebViewK - type AttrGetType WebViewTransparentPropertyInfo = Bool - type AttrLabel WebViewTransparentPropertyInfo = "WebView::transparent" - attrGet _ = getWebViewTransparent - attrSet _ = setWebViewTransparent - attrConstruct _ = constructWebViewTransparent - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" - -data WebViewUriPropertyInfo -instance AttrInfo WebViewUriPropertyInfo where - type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK - type AttrGetType WebViewUriPropertyInfo = T.Text - type AttrLabel WebViewUriPropertyInfo = "WebView::uri" - attrGet _ = getWebViewUri - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "view-mode" - -- Type: TInterface "WebKit" "WebViewViewMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewViewMode :: (MonadIO m, WebViewK o) => o -> m WebViewViewMode -getWebViewViewMode obj = liftIO $ getObjectPropertyEnum obj "view-mode" - -setWebViewViewMode :: (MonadIO m, WebViewK o) => o -> WebViewViewMode -> m () -setWebViewViewMode obj val = liftIO $ setObjectPropertyEnum obj "view-mode" val - -constructWebViewViewMode :: WebViewViewMode -> IO ([Char], GValue) -constructWebViewViewMode val = constructObjectPropertyEnum "view-mode" val - -data WebViewViewModePropertyInfo -instance AttrInfo WebViewViewModePropertyInfo where - type AttrAllowedOps WebViewViewModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewViewModePropertyInfo = (~) WebViewViewMode - type AttrBaseTypeConstraint WebViewViewModePropertyInfo = WebViewK - type AttrGetType WebViewViewModePropertyInfo = WebViewViewMode - type AttrLabel WebViewViewModePropertyInfo = "WebView::view-mode" - attrGet _ = getWebViewViewMode - attrSet _ = setWebViewViewMode - attrConstruct _ = constructWebViewViewMode - --- VVV Prop "viewport-attributes" - -- Type: TInterface "WebKit" "ViewportAttributes" - -- Flags: [PropertyReadable] - -getWebViewViewportAttributes :: (MonadIO m, WebViewK o) => o -> m ViewportAttributes -getWebViewViewportAttributes obj = liftIO $ getObjectPropertyObject obj "viewport-attributes" ViewportAttributes - -data WebViewViewportAttributesPropertyInfo -instance AttrInfo WebViewViewportAttributesPropertyInfo where - type AttrAllowedOps WebViewViewportAttributesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewViewportAttributesPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewViewportAttributesPropertyInfo = WebViewK - type AttrGetType WebViewViewportAttributesPropertyInfo = ViewportAttributes - type AttrLabel WebViewViewportAttributesPropertyInfo = "WebView::viewport-attributes" - attrGet _ = getWebViewViewportAttributes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "web-inspector" - -- Type: TInterface "WebKit" "WebInspector" - -- Flags: [PropertyReadable] - -getWebViewWebInspector :: (MonadIO m, WebViewK o) => o -> m WebInspector -getWebViewWebInspector obj = liftIO $ getObjectPropertyObject obj "web-inspector" WebInspector - -data WebViewWebInspectorPropertyInfo -instance AttrInfo WebViewWebInspectorPropertyInfo where - type AttrAllowedOps WebViewWebInspectorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewWebInspectorPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewWebInspectorPropertyInfo = WebViewK - type AttrGetType WebViewWebInspectorPropertyInfo = WebInspector - type AttrLabel WebViewWebInspectorPropertyInfo = "WebView::web-inspector" - attrGet _ = getWebViewWebInspector - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "window-features" - -- Type: TInterface "WebKit" "WebWindowFeatures" - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewWindowFeatures :: (MonadIO m, WebViewK o) => o -> m WebWindowFeatures -getWebViewWindowFeatures obj = liftIO $ getObjectPropertyObject obj "window-features" WebWindowFeatures - -setWebViewWindowFeatures :: (MonadIO m, WebViewK o, WebWindowFeaturesK a) => o -> a -> m () -setWebViewWindowFeatures obj val = liftIO $ setObjectPropertyObject obj "window-features" val - -constructWebViewWindowFeatures :: (WebWindowFeaturesK a) => a -> IO ([Char], GValue) -constructWebViewWindowFeatures val = constructObjectPropertyObject "window-features" val - -data WebViewWindowFeaturesPropertyInfo -instance AttrInfo WebViewWindowFeaturesPropertyInfo where - type AttrAllowedOps WebViewWindowFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewWindowFeaturesPropertyInfo = WebWindowFeaturesK - type AttrBaseTypeConstraint WebViewWindowFeaturesPropertyInfo = WebViewK - type AttrGetType WebViewWindowFeaturesPropertyInfo = WebWindowFeatures - type AttrLabel WebViewWindowFeaturesPropertyInfo = "WebView::window-features" - attrGet _ = getWebViewWindowFeatures - attrSet _ = setWebViewWindowFeatures - attrConstruct _ = constructWebViewWindowFeatures - --- VVV Prop "zoom-level" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Float -getWebViewZoomLevel obj = liftIO $ getObjectPropertyFloat obj "zoom-level" - -setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Float -> m () -setWebViewZoomLevel obj val = liftIO $ setObjectPropertyFloat obj "zoom-level" val - -constructWebViewZoomLevel :: Float -> IO ([Char], GValue) -constructWebViewZoomLevel val = constructObjectPropertyFloat "zoom-level" val - -data WebViewZoomLevelPropertyInfo -instance AttrInfo WebViewZoomLevelPropertyInfo where - type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Float - type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK - type AttrGetType WebViewZoomLevelPropertyInfo = Float - type AttrLabel WebViewZoomLevelPropertyInfo = "WebView::zoom-level" - attrGet _ = getWebViewZoomLevel - attrSet _ = setWebViewZoomLevel - attrConstruct _ = constructWebViewZoomLevel - -type instance AttributeList WebView = '[ '("app-paintable", GtkA.WidgetAppPaintablePropertyInfo), '("border-width", GtkA.ContainerBorderWidthPropertyInfo), '("can-default", GtkA.WidgetCanDefaultPropertyInfo), '("can-focus", GtkA.WidgetCanFocusPropertyInfo), '("child", GtkA.ContainerChildPropertyInfo), '("composite-child", GtkA.WidgetCompositeChildPropertyInfo), '("copy-target-list", WebViewCopyTargetListPropertyInfo), '("custom-encoding", WebViewCustomEncodingPropertyInfo), '("double-buffered", GtkA.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("encoding", WebViewEncodingPropertyInfo), '("events", GtkA.WidgetEventsPropertyInfo), '("expand", GtkA.WidgetExpandPropertyInfo), '("full-content-zoom", WebViewFullContentZoomPropertyInfo), '("hadjustment", GtkA.ScrollableHadjustmentPropertyInfo), '("halign", GtkA.WidgetHalignPropertyInfo), '("has-default", GtkA.WidgetHasDefaultPropertyInfo), '("has-focus", GtkA.WidgetHasFocusPropertyInfo), '("has-tooltip", GtkA.WidgetHasTooltipPropertyInfo), '("height-request", GtkA.WidgetHeightRequestPropertyInfo), '("hexpand", GtkA.WidgetHexpandPropertyInfo), '("hexpand-set", GtkA.WidgetHexpandSetPropertyInfo), '("hscroll-policy", GtkA.ScrollableHscrollPolicyPropertyInfo), '("icon-uri", WebViewIconUriPropertyInfo), '("im-context", WebViewImContextPropertyInfo), '("is-focus", GtkA.WidgetIsFocusPropertyInfo), '("load-status", WebViewLoadStatusPropertyInfo), '("margin", GtkA.WidgetMarginPropertyInfo), '("margin-bottom", GtkA.WidgetMarginBottomPropertyInfo), '("margin-end", GtkA.WidgetMarginEndPropertyInfo), '("margin-left", GtkA.WidgetMarginLeftPropertyInfo), '("margin-right", GtkA.WidgetMarginRightPropertyInfo), '("margin-start", GtkA.WidgetMarginStartPropertyInfo), '("margin-top", GtkA.WidgetMarginTopPropertyInfo), '("name", GtkA.WidgetNamePropertyInfo), '("no-show-all", GtkA.WidgetNoShowAllPropertyInfo), '("opacity", GtkA.WidgetOpacityPropertyInfo), '("parent", GtkA.WidgetParentPropertyInfo), '("paste-target-list", WebViewPasteTargetListPropertyInfo), '("progress", WebViewProgressPropertyInfo), '("receives-default", GtkA.WidgetReceivesDefaultPropertyInfo), '("resize-mode", GtkA.ContainerResizeModePropertyInfo), '("scale-factor", GtkA.WidgetScaleFactorPropertyInfo), '("self-scrolling", WebViewSelfScrollingPropertyInfo), '("sensitive", GtkA.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", GtkA.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", GtkA.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", GtkA.WidgetTooltipTextPropertyInfo), '("transparent", WebViewTransparentPropertyInfo), '("uri", WebViewUriPropertyInfo), '("vadjustment", GtkA.ScrollableVadjustmentPropertyInfo), '("valign", GtkA.WidgetValignPropertyInfo), '("vexpand", GtkA.WidgetVexpandPropertyInfo), '("vexpand-set", GtkA.WidgetVexpandSetPropertyInfo), '("view-mode", WebViewViewModePropertyInfo), '("viewport-attributes", WebViewViewportAttributesPropertyInfo), '("visible", GtkA.WidgetVisiblePropertyInfo), '("vscroll-policy", GtkA.ScrollableVscrollPolicyPropertyInfo), '("web-inspector", WebViewWebInspectorPropertyInfo), '("width-request", GtkA.WidgetWidthRequestPropertyInfo), '("window", GtkA.WidgetWindowPropertyInfo), '("window-features", WebViewWindowFeaturesPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)] - --- VVV Prop "fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen" - -setWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesFullscreen obj val = liftIO $ setObjectPropertyBool obj "fullscreen" val - -constructWebWindowFeaturesFullscreen :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesFullscreen val = constructObjectPropertyBool "fullscreen" val - -data WebWindowFeaturesFullscreenPropertyInfo -instance AttrInfo WebWindowFeaturesFullscreenPropertyInfo where - type AttrAllowedOps WebWindowFeaturesFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesFullscreenPropertyInfo = Bool - type AttrLabel WebWindowFeaturesFullscreenPropertyInfo = "WebWindowFeatures::fullscreen" - attrGet _ = getWebWindowFeaturesFullscreen - attrSet _ = setWebWindowFeaturesFullscreen - attrConstruct _ = constructWebWindowFeaturesFullscreen - --- VVV Prop "height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesHeight obj = liftIO $ getObjectPropertyCInt obj "height" - -setWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val - -constructWebWindowFeaturesHeight :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesHeight val = constructObjectPropertyCInt "height" val - -data WebWindowFeaturesHeightPropertyInfo -instance AttrInfo WebWindowFeaturesHeightPropertyInfo where - type AttrAllowedOps WebWindowFeaturesHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebWindowFeaturesHeightPropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesHeightPropertyInfo = Int32 - type AttrLabel WebWindowFeaturesHeightPropertyInfo = "WebWindowFeatures::height" - attrGet _ = getWebWindowFeaturesHeight - attrSet _ = setWebWindowFeaturesHeight - attrConstruct _ = constructWebWindowFeaturesHeight - --- VVV Prop "locationbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible" - -setWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesLocationbarVisible obj val = liftIO $ setObjectPropertyBool obj "locationbar-visible" val - -constructWebWindowFeaturesLocationbarVisible :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val - -data WebWindowFeaturesLocationbarVisiblePropertyInfo -instance AttrInfo WebWindowFeaturesLocationbarVisiblePropertyInfo where - type AttrAllowedOps WebWindowFeaturesLocationbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesLocationbarVisiblePropertyInfo = Bool - type AttrLabel WebWindowFeaturesLocationbarVisiblePropertyInfo = "WebWindowFeatures::locationbar-visible" - attrGet _ = getWebWindowFeaturesLocationbarVisible - attrSet _ = setWebWindowFeaturesLocationbarVisible - attrConstruct _ = constructWebWindowFeaturesLocationbarVisible - --- VVV Prop "menubar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible" - -setWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesMenubarVisible obj val = liftIO $ setObjectPropertyBool obj "menubar-visible" val - -constructWebWindowFeaturesMenubarVisible :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val - -data WebWindowFeaturesMenubarVisiblePropertyInfo -instance AttrInfo WebWindowFeaturesMenubarVisiblePropertyInfo where - type AttrAllowedOps WebWindowFeaturesMenubarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesMenubarVisiblePropertyInfo = Bool - type AttrLabel WebWindowFeaturesMenubarVisiblePropertyInfo = "WebWindowFeatures::menubar-visible" - attrGet _ = getWebWindowFeaturesMenubarVisible - attrSet _ = setWebWindowFeaturesMenubarVisible - attrConstruct _ = constructWebWindowFeaturesMenubarVisible - --- VVV Prop "scrollbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesScrollbarVisible obj = liftIO $ getObjectPropertyBool obj "scrollbar-visible" - -setWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesScrollbarVisible obj val = liftIO $ setObjectPropertyBool obj "scrollbar-visible" val - -constructWebWindowFeaturesScrollbarVisible :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesScrollbarVisible val = constructObjectPropertyBool "scrollbar-visible" val - -data WebWindowFeaturesScrollbarVisiblePropertyInfo -instance AttrInfo WebWindowFeaturesScrollbarVisiblePropertyInfo where - type AttrAllowedOps WebWindowFeaturesScrollbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesScrollbarVisiblePropertyInfo = Bool - type AttrLabel WebWindowFeaturesScrollbarVisiblePropertyInfo = "WebWindowFeatures::scrollbar-visible" - attrGet _ = getWebWindowFeaturesScrollbarVisible - attrSet _ = setWebWindowFeaturesScrollbarVisible - attrConstruct _ = constructWebWindowFeaturesScrollbarVisible - --- VVV Prop "statusbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible" - -setWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesStatusbarVisible obj val = liftIO $ setObjectPropertyBool obj "statusbar-visible" val - -constructWebWindowFeaturesStatusbarVisible :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val - -data WebWindowFeaturesStatusbarVisiblePropertyInfo -instance AttrInfo WebWindowFeaturesStatusbarVisiblePropertyInfo where - type AttrAllowedOps WebWindowFeaturesStatusbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesStatusbarVisiblePropertyInfo = Bool - type AttrLabel WebWindowFeaturesStatusbarVisiblePropertyInfo = "WebWindowFeatures::statusbar-visible" - attrGet _ = getWebWindowFeaturesStatusbarVisible - attrSet _ = setWebWindowFeaturesStatusbarVisible - attrConstruct _ = constructWebWindowFeaturesStatusbarVisible - --- VVV Prop "toolbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool -getWebWindowFeaturesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible" - -setWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () -setWebWindowFeaturesToolbarVisible obj val = liftIO $ setObjectPropertyBool obj "toolbar-visible" val - -constructWebWindowFeaturesToolbarVisible :: Bool -> IO ([Char], GValue) -constructWebWindowFeaturesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val - -data WebWindowFeaturesToolbarVisiblePropertyInfo -instance AttrInfo WebWindowFeaturesToolbarVisiblePropertyInfo where - type AttrAllowedOps WebWindowFeaturesToolbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesToolbarVisiblePropertyInfo = Bool - type AttrLabel WebWindowFeaturesToolbarVisiblePropertyInfo = "WebWindowFeatures::toolbar-visible" - attrGet _ = getWebWindowFeaturesToolbarVisible - attrSet _ = setWebWindowFeaturesToolbarVisible - attrConstruct _ = constructWebWindowFeaturesToolbarVisible - --- VVV Prop "width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesWidth obj = liftIO $ getObjectPropertyCInt obj "width" - -setWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val - -constructWebWindowFeaturesWidth :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesWidth val = constructObjectPropertyCInt "width" val - -data WebWindowFeaturesWidthPropertyInfo -instance AttrInfo WebWindowFeaturesWidthPropertyInfo where - type AttrAllowedOps WebWindowFeaturesWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebWindowFeaturesWidthPropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesWidthPropertyInfo = Int32 - type AttrLabel WebWindowFeaturesWidthPropertyInfo = "WebWindowFeatures::width" - attrGet _ = getWebWindowFeaturesWidth - attrSet _ = setWebWindowFeaturesWidth - attrConstruct _ = constructWebWindowFeaturesWidth - --- VVV Prop "x" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesX obj = liftIO $ getObjectPropertyCInt obj "x" - -setWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesX obj val = liftIO $ setObjectPropertyCInt obj "x" val - -constructWebWindowFeaturesX :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesX val = constructObjectPropertyCInt "x" val - -data WebWindowFeaturesXPropertyInfo -instance AttrInfo WebWindowFeaturesXPropertyInfo where - type AttrAllowedOps WebWindowFeaturesXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesXPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebWindowFeaturesXPropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesXPropertyInfo = Int32 - type AttrLabel WebWindowFeaturesXPropertyInfo = "WebWindowFeatures::x" - attrGet _ = getWebWindowFeaturesX - attrSet _ = setWebWindowFeaturesX - attrConstruct _ = constructWebWindowFeaturesX - --- VVV Prop "y" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesY obj = liftIO $ getObjectPropertyCInt obj "y" - -setWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesY obj val = liftIO $ setObjectPropertyCInt obj "y" val - -constructWebWindowFeaturesY :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesY val = constructObjectPropertyCInt "y" val - -data WebWindowFeaturesYPropertyInfo -instance AttrInfo WebWindowFeaturesYPropertyInfo where - type AttrAllowedOps WebWindowFeaturesYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebWindowFeaturesYPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WebWindowFeaturesYPropertyInfo = WebWindowFeaturesK - type AttrGetType WebWindowFeaturesYPropertyInfo = Int32 - type AttrLabel WebWindowFeaturesYPropertyInfo = "WebWindowFeatures::y" - attrGet _ = getWebWindowFeaturesY - attrSet _ = setWebWindowFeaturesY - attrConstruct _ = constructWebWindowFeaturesY - -type instance AttributeList WebWindowFeatures = '[ '("fullscreen", WebWindowFeaturesFullscreenPropertyInfo), '("height", WebWindowFeaturesHeightPropertyInfo), '("locationbar-visible", WebWindowFeaturesLocationbarVisiblePropertyInfo), '("menubar-visible", WebWindowFeaturesMenubarVisiblePropertyInfo), '("scrollbar-visible", WebWindowFeaturesScrollbarVisiblePropertyInfo), '("statusbar-visible", WebWindowFeaturesStatusbarVisiblePropertyInfo), '("toolbar-visible", WebWindowFeaturesToolbarVisiblePropertyInfo), '("width", WebWindowFeaturesWidthPropertyInfo), '("x", WebWindowFeaturesXPropertyInfo), '("y", WebWindowFeaturesYPropertyInfo)] - diff --git a/GI/WebKitSignals.hs b/GI/WebKitSignals.hs deleted file mode 100644 --- a/GI/WebKitSignals.hs +++ /dev/null @@ -1,824 +0,0 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-orphans #-} - -{-# LANGUAGE DataKinds, FlexibleInstances, - TypeFamilies, MultiParamTypeClasses, - TypeOperators #-} - -module GI.WebKitSignals where - -import Data.GI.Base.Properties (GObjectNotifySignalInfo) -import Data.GI.Base.Signals -import Data.GI.Base.Overloading - -import qualified GI.GObjectSignals as GObject -import qualified GI.GtkSignals as Gtk -import GI.WebKit - -type instance SignalList DOMAttr = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMAudioTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMAudioTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMBarInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMBarProp = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMBatteryManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMBlob = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCDATASection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCSSRule = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCSSRuleList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCSSStyleDeclaration = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCSSStyleSheet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCSSValue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMCharacterData = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMComment = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMConsole = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMApplicationCache = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMImplementation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMMimeType = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMMimeTypeArray = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMNamedFlowCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMPlugin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMPluginArray = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMSecurityPolicy = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMSelection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMSettableTokenList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMStringList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMStringMap = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMTokenList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMWindow = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDOMWindowCSS = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDocument = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDocumentFragment = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMDocumentType = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMEntityReference = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMEventTarget = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMFile = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMFileList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMGamepad = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMGamepadList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMGeolocation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLAnchorElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLAppletElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLAreaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLAudioElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLBRElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLBaseElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLBaseFontElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLBodyElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLButtonElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLCanvasElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLDListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLDetailsElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLDirectoryElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLDivElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLDocument = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLEmbedElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLFieldSetElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLFontElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLFormElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLFrameElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLFrameSetElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLHRElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLHeadElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLHeadingElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLHtmlElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLIFrameElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLImageElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLInputElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLKeygenElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLLIElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLLabelElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLLegendElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLLinkElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLMapElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLMarqueeElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLMediaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLMenuElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLMetaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLModElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLOListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLObjectElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLOptGroupElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLOptionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLOptionsCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLParagraphElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLParamElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLPreElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLPropertiesCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLQuoteElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLScriptElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLSelectElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLStyleElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableCaptionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableCellElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableColElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableRowElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTableSectionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTextAreaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLTitleElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLUListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHTMLVideoElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMHistory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMKeyboardEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMLocation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMediaController = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMediaError = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMediaList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMediaQueryList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMemoryInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMessagePort = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMicroDataItemValue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMMouseEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNamedNodeMap = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNavigator = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNode = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNodeFilter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNodeIterator = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMNodeList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMObject = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPerformance = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPerformanceEntry = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPerformanceEntryList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPerformanceNavigation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPerformanceTiming = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMProcessingInstruction = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMPropertyNodeList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMRange = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMScreen = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMShadowRoot = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStorage = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStorageInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStorageQuota = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStyleMedia = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStyleSheet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMStyleSheetList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMText = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTextTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTextTrackCue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTextTrackCueList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTextTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTimeRanges = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTouch = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTrackEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMTreeWalker = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMUIEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMValidityState = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMVideoPlaybackQuality = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMVideoTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMVideoTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMWebKitNamedFlow = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMWebKitPoint = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMWheelEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMXPathExpression = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMXPathNSResolver = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DOMXPathResult = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data DownloadErrorSignalInfo -instance SignalInfo DownloadErrorSignalInfo where - type HaskellCallbackType DownloadErrorSignalInfo = DownloadErrorCallback - connectSignal _ = connectDownloadError - -type instance SignalList Download = '[ '("error", DownloadErrorSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data FaviconDatabaseIconLoadedSignalInfo -instance SignalInfo FaviconDatabaseIconLoadedSignalInfo where - type HaskellCallbackType FaviconDatabaseIconLoadedSignalInfo = FaviconDatabaseIconLoadedCallback - connectSignal _ = connectFaviconDatabaseIconLoaded - -type instance SignalList FaviconDatabase = '[ '("icon-loaded", FaviconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList FileChooserRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList GeolocationPolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList HitTestResult = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data IconDatabaseIconLoadedSignalInfo -instance SignalInfo IconDatabaseIconLoadedSignalInfo where - type HaskellCallbackType IconDatabaseIconLoadedSignalInfo = IconDatabaseIconLoadedCallback - connectSignal _ = connectIconDatabaseIconLoaded - -type instance SignalList IconDatabase = '[ '("icon-loaded", IconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList NetworkRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList NetworkResponse = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList SecurityOrigin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data SoupAuthDialogCurrentToplevelSignalInfo -instance SignalInfo SoupAuthDialogCurrentToplevelSignalInfo where - type HaskellCallbackType SoupAuthDialogCurrentToplevelSignalInfo = SoupAuthDialogCurrentToplevelCallback - connectSignal _ = connectSoupAuthDialogCurrentToplevel - -type instance SignalList SoupAuthDialog = '[ '("current-toplevel", SoupAuthDialogCurrentToplevelSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList SpellChecker = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList ViewportAttributes = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebBackForwardList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebDataSource = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data WebFrameClearedSignalInfo -instance SignalInfo WebFrameClearedSignalInfo where - type HaskellCallbackType WebFrameClearedSignalInfo = WebFrameClearedCallback - connectSignal _ = connectWebFrameCleared - -data WebFrameHoveringOverLinkSignalInfo -instance SignalInfo WebFrameHoveringOverLinkSignalInfo where - type HaskellCallbackType WebFrameHoveringOverLinkSignalInfo = WebFrameHoveringOverLinkCallback - connectSignal _ = connectWebFrameHoveringOverLink - -data WebFrameInsecureContentRunSignalInfo -instance SignalInfo WebFrameInsecureContentRunSignalInfo where - type HaskellCallbackType WebFrameInsecureContentRunSignalInfo = WebFrameInsecureContentRunCallback - connectSignal _ = connectWebFrameInsecureContentRun - -data WebFrameLoadCommittedSignalInfo -instance SignalInfo WebFrameLoadCommittedSignalInfo where - type HaskellCallbackType WebFrameLoadCommittedSignalInfo = WebFrameLoadCommittedCallback - connectSignal _ = connectWebFrameLoadCommitted - -data WebFrameResourceContentLengthReceivedSignalInfo -instance SignalInfo WebFrameResourceContentLengthReceivedSignalInfo where - type HaskellCallbackType WebFrameResourceContentLengthReceivedSignalInfo = WebFrameResourceContentLengthReceivedCallback - connectSignal _ = connectWebFrameResourceContentLengthReceived - -data WebFrameResourceLoadFailedSignalInfo -instance SignalInfo WebFrameResourceLoadFailedSignalInfo where - type HaskellCallbackType WebFrameResourceLoadFailedSignalInfo = WebFrameResourceLoadFailedCallback - connectSignal _ = connectWebFrameResourceLoadFailed - -data WebFrameResourceLoadFinishedSignalInfo -instance SignalInfo WebFrameResourceLoadFinishedSignalInfo where - type HaskellCallbackType WebFrameResourceLoadFinishedSignalInfo = WebFrameResourceLoadFinishedCallback - connectSignal _ = connectWebFrameResourceLoadFinished - -data WebFrameResourceRequestStartingSignalInfo -instance SignalInfo WebFrameResourceRequestStartingSignalInfo where - type HaskellCallbackType WebFrameResourceRequestStartingSignalInfo = WebFrameResourceRequestStartingCallback - connectSignal _ = connectWebFrameResourceRequestStarting - -data WebFrameResourceResponseReceivedSignalInfo -instance SignalInfo WebFrameResourceResponseReceivedSignalInfo where - type HaskellCallbackType WebFrameResourceResponseReceivedSignalInfo = WebFrameResourceResponseReceivedCallback - connectSignal _ = connectWebFrameResourceResponseReceived - -data WebFrameScrollbarsPolicyChangedSignalInfo -instance SignalInfo WebFrameScrollbarsPolicyChangedSignalInfo where - type HaskellCallbackType WebFrameScrollbarsPolicyChangedSignalInfo = WebFrameScrollbarsPolicyChangedCallback - connectSignal _ = connectWebFrameScrollbarsPolicyChanged - -data WebFrameTitleChangedSignalInfo -instance SignalInfo WebFrameTitleChangedSignalInfo where - type HaskellCallbackType WebFrameTitleChangedSignalInfo = WebFrameTitleChangedCallback - connectSignal _ = connectWebFrameTitleChanged - -type instance SignalList WebFrame = '[ '("cleared", WebFrameClearedSignalInfo), '("hovering-over-link", WebFrameHoveringOverLinkSignalInfo), '("insecure-content-run", WebFrameInsecureContentRunSignalInfo), '("load-committed", WebFrameLoadCommittedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("resource-content-length-received", WebFrameResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebFrameResourceLoadFailedSignalInfo), '("resource-load-finished", WebFrameResourceLoadFinishedSignalInfo), '("resource-request-starting", WebFrameResourceRequestStartingSignalInfo), '("resource-response-received", WebFrameResourceResponseReceivedSignalInfo), '("scrollbars-policy-changed", WebFrameScrollbarsPolicyChangedSignalInfo), '("title-changed", WebFrameTitleChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebHistoryItem = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data WebInspectorAttachWindowSignalInfo -instance SignalInfo WebInspectorAttachWindowSignalInfo where - type HaskellCallbackType WebInspectorAttachWindowSignalInfo = WebInspectorAttachWindowCallback - connectSignal _ = connectWebInspectorAttachWindow - -data WebInspectorCloseWindowSignalInfo -instance SignalInfo WebInspectorCloseWindowSignalInfo where - type HaskellCallbackType WebInspectorCloseWindowSignalInfo = WebInspectorCloseWindowCallback - connectSignal _ = connectWebInspectorCloseWindow - -data WebInspectorDetachWindowSignalInfo -instance SignalInfo WebInspectorDetachWindowSignalInfo where - type HaskellCallbackType WebInspectorDetachWindowSignalInfo = WebInspectorDetachWindowCallback - connectSignal _ = connectWebInspectorDetachWindow - -data WebInspectorFinishedSignalInfo -instance SignalInfo WebInspectorFinishedSignalInfo where - type HaskellCallbackType WebInspectorFinishedSignalInfo = WebInspectorFinishedCallback - connectSignal _ = connectWebInspectorFinished - -data WebInspectorInspectWebViewSignalInfo -instance SignalInfo WebInspectorInspectWebViewSignalInfo where - type HaskellCallbackType WebInspectorInspectWebViewSignalInfo = WebInspectorInspectWebViewCallback - connectSignal _ = connectWebInspectorInspectWebView - -data WebInspectorShowWindowSignalInfo -instance SignalInfo WebInspectorShowWindowSignalInfo where - type HaskellCallbackType WebInspectorShowWindowSignalInfo = WebInspectorShowWindowCallback - connectSignal _ = connectWebInspectorShowWindow - -type instance SignalList WebInspector = '[ '("attach-window", WebInspectorAttachWindowSignalInfo), '("close-window", WebInspectorCloseWindowSignalInfo), '("detach-window", WebInspectorDetachWindowSignalInfo), '("finished", WebInspectorFinishedSignalInfo), '("inspect-web-view", WebInspectorInspectWebViewSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("show-window", WebInspectorShowWindowSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebNavigationAction = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebPlugin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebPluginDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebPolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data WebResourceContentLengthReceivedSignalInfo -instance SignalInfo WebResourceContentLengthReceivedSignalInfo where - type HaskellCallbackType WebResourceContentLengthReceivedSignalInfo = WebResourceContentLengthReceivedCallback - connectSignal _ = connectWebResourceContentLengthReceived - -data WebResourceLoadFailedSignalInfo -instance SignalInfo WebResourceLoadFailedSignalInfo where - type HaskellCallbackType WebResourceLoadFailedSignalInfo = WebResourceLoadFailedCallback - connectSignal _ = connectWebResourceLoadFailed - -data WebResourceLoadFinishedSignalInfo -instance SignalInfo WebResourceLoadFinishedSignalInfo where - type HaskellCallbackType WebResourceLoadFinishedSignalInfo = WebResourceLoadFinishedCallback - connectSignal _ = connectWebResourceLoadFinished - -data WebResourceResponseReceivedSignalInfo -instance SignalInfo WebResourceResponseReceivedSignalInfo where - type HaskellCallbackType WebResourceResponseReceivedSignalInfo = WebResourceResponseReceivedCallback - connectSignal _ = connectWebResourceResponseReceived - -type instance SignalList WebResource = '[ '("content-length-received", WebResourceContentLengthReceivedSignalInfo), '("load-failed", WebResourceLoadFailedSignalInfo), '("load-finished", WebResourceLoadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("response-received", WebResourceResponseReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebSettings = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data WebViewCloseWebViewSignalInfo -instance SignalInfo WebViewCloseWebViewSignalInfo where - type HaskellCallbackType WebViewCloseWebViewSignalInfo = WebViewCloseWebViewCallback - connectSignal _ = connectWebViewCloseWebView - -data WebViewConsoleMessageSignalInfo -instance SignalInfo WebViewConsoleMessageSignalInfo where - type HaskellCallbackType WebViewConsoleMessageSignalInfo = WebViewConsoleMessageCallback - connectSignal _ = connectWebViewConsoleMessage - -data WebViewContextMenuSignalInfo -instance SignalInfo WebViewContextMenuSignalInfo where - type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback - connectSignal _ = connectWebViewContextMenu - -data WebViewCopyClipboardSignalInfo -instance SignalInfo WebViewCopyClipboardSignalInfo where - type HaskellCallbackType WebViewCopyClipboardSignalInfo = WebViewCopyClipboardCallback - connectSignal _ = connectWebViewCopyClipboard - -data WebViewCreatePluginWidgetSignalInfo -instance SignalInfo WebViewCreatePluginWidgetSignalInfo where - type HaskellCallbackType WebViewCreatePluginWidgetSignalInfo = WebViewCreatePluginWidgetCallback - connectSignal _ = connectWebViewCreatePluginWidget - -data WebViewCreateWebViewSignalInfo -instance SignalInfo WebViewCreateWebViewSignalInfo where - type HaskellCallbackType WebViewCreateWebViewSignalInfo = WebViewCreateWebViewCallback - connectSignal _ = connectWebViewCreateWebView - -data WebViewCutClipboardSignalInfo -instance SignalInfo WebViewCutClipboardSignalInfo where - type HaskellCallbackType WebViewCutClipboardSignalInfo = WebViewCutClipboardCallback - connectSignal _ = connectWebViewCutClipboard - -data WebViewDatabaseQuotaExceededSignalInfo -instance SignalInfo WebViewDatabaseQuotaExceededSignalInfo where - type HaskellCallbackType WebViewDatabaseQuotaExceededSignalInfo = WebViewDatabaseQuotaExceededCallback - connectSignal _ = connectWebViewDatabaseQuotaExceeded - -data WebViewDocumentLoadFinishedSignalInfo -instance SignalInfo WebViewDocumentLoadFinishedSignalInfo where - type HaskellCallbackType WebViewDocumentLoadFinishedSignalInfo = WebViewDocumentLoadFinishedCallback - connectSignal _ = connectWebViewDocumentLoadFinished - -data WebViewDownloadRequestedSignalInfo -instance SignalInfo WebViewDownloadRequestedSignalInfo where - type HaskellCallbackType WebViewDownloadRequestedSignalInfo = WebViewDownloadRequestedCallback - connectSignal _ = connectWebViewDownloadRequested - -data WebViewEditingBeganSignalInfo -instance SignalInfo WebViewEditingBeganSignalInfo where - type HaskellCallbackType WebViewEditingBeganSignalInfo = WebViewEditingBeganCallback - connectSignal _ = connectWebViewEditingBegan - -data WebViewEditingEndedSignalInfo -instance SignalInfo WebViewEditingEndedSignalInfo where - type HaskellCallbackType WebViewEditingEndedSignalInfo = WebViewEditingEndedCallback - connectSignal _ = connectWebViewEditingEnded - -data WebViewEnteringFullscreenSignalInfo -instance SignalInfo WebViewEnteringFullscreenSignalInfo where - type HaskellCallbackType WebViewEnteringFullscreenSignalInfo = WebViewEnteringFullscreenCallback - connectSignal _ = connectWebViewEnteringFullscreen - -data WebViewFrameCreatedSignalInfo -instance SignalInfo WebViewFrameCreatedSignalInfo where - type HaskellCallbackType WebViewFrameCreatedSignalInfo = WebViewFrameCreatedCallback - connectSignal _ = connectWebViewFrameCreated - -data WebViewGeolocationPolicyDecisionCancelledSignalInfo -instance SignalInfo WebViewGeolocationPolicyDecisionCancelledSignalInfo where - type HaskellCallbackType WebViewGeolocationPolicyDecisionCancelledSignalInfo = WebViewGeolocationPolicyDecisionCancelledCallback - connectSignal _ = connectWebViewGeolocationPolicyDecisionCancelled - -data WebViewGeolocationPolicyDecisionRequestedSignalInfo -instance SignalInfo WebViewGeolocationPolicyDecisionRequestedSignalInfo where - type HaskellCallbackType WebViewGeolocationPolicyDecisionRequestedSignalInfo = WebViewGeolocationPolicyDecisionRequestedCallback - connectSignal _ = connectWebViewGeolocationPolicyDecisionRequested - -data WebViewHoveringOverLinkSignalInfo -instance SignalInfo WebViewHoveringOverLinkSignalInfo where - type HaskellCallbackType WebViewHoveringOverLinkSignalInfo = WebViewHoveringOverLinkCallback - connectSignal _ = connectWebViewHoveringOverLink - -data WebViewIconLoadedSignalInfo -instance SignalInfo WebViewIconLoadedSignalInfo where - type HaskellCallbackType WebViewIconLoadedSignalInfo = WebViewIconLoadedCallback - connectSignal _ = connectWebViewIconLoaded - -data WebViewLeavingFullscreenSignalInfo -instance SignalInfo WebViewLeavingFullscreenSignalInfo where - type HaskellCallbackType WebViewLeavingFullscreenSignalInfo = WebViewLeavingFullscreenCallback - connectSignal _ = connectWebViewLeavingFullscreen - -data WebViewLoadCommittedSignalInfo -instance SignalInfo WebViewLoadCommittedSignalInfo where - type HaskellCallbackType WebViewLoadCommittedSignalInfo = WebViewLoadCommittedCallback - connectSignal _ = connectWebViewLoadCommitted - -data WebViewLoadErrorSignalInfo -instance SignalInfo WebViewLoadErrorSignalInfo where - type HaskellCallbackType WebViewLoadErrorSignalInfo = WebViewLoadErrorCallback - connectSignal _ = connectWebViewLoadError - -data WebViewLoadFinishedSignalInfo -instance SignalInfo WebViewLoadFinishedSignalInfo where - type HaskellCallbackType WebViewLoadFinishedSignalInfo = WebViewLoadFinishedCallback - connectSignal _ = connectWebViewLoadFinished - -data WebViewLoadProgressChangedSignalInfo -instance SignalInfo WebViewLoadProgressChangedSignalInfo where - type HaskellCallbackType WebViewLoadProgressChangedSignalInfo = WebViewLoadProgressChangedCallback - connectSignal _ = connectWebViewLoadProgressChanged - -data WebViewLoadStartedSignalInfo -instance SignalInfo WebViewLoadStartedSignalInfo where - type HaskellCallbackType WebViewLoadStartedSignalInfo = WebViewLoadStartedCallback - connectSignal _ = connectWebViewLoadStarted - -data WebViewMimeTypePolicyDecisionRequestedSignalInfo -instance SignalInfo WebViewMimeTypePolicyDecisionRequestedSignalInfo where - type HaskellCallbackType WebViewMimeTypePolicyDecisionRequestedSignalInfo = WebViewMimeTypePolicyDecisionRequestedCallback - connectSignal _ = connectWebViewMimeTypePolicyDecisionRequested - -data WebViewMoveCursorSignalInfo -instance SignalInfo WebViewMoveCursorSignalInfo where - type HaskellCallbackType WebViewMoveCursorSignalInfo = WebViewMoveCursorCallback - connectSignal _ = connectWebViewMoveCursor - -data WebViewNavigationPolicyDecisionRequestedSignalInfo -instance SignalInfo WebViewNavigationPolicyDecisionRequestedSignalInfo where - type HaskellCallbackType WebViewNavigationPolicyDecisionRequestedSignalInfo = WebViewNavigationPolicyDecisionRequestedCallback - connectSignal _ = connectWebViewNavigationPolicyDecisionRequested - -data WebViewNavigationRequestedSignalInfo -instance SignalInfo WebViewNavigationRequestedSignalInfo where - type HaskellCallbackType WebViewNavigationRequestedSignalInfo = WebViewNavigationRequestedCallback - connectSignal _ = connectWebViewNavigationRequested - -data WebViewNewWindowPolicyDecisionRequestedSignalInfo -instance SignalInfo WebViewNewWindowPolicyDecisionRequestedSignalInfo where - type HaskellCallbackType WebViewNewWindowPolicyDecisionRequestedSignalInfo = WebViewNewWindowPolicyDecisionRequestedCallback - connectSignal _ = connectWebViewNewWindowPolicyDecisionRequested - -data WebViewOnloadEventSignalInfo -instance SignalInfo WebViewOnloadEventSignalInfo where - type HaskellCallbackType WebViewOnloadEventSignalInfo = WebViewOnloadEventCallback - connectSignal _ = connectWebViewOnloadEvent - -data WebViewPasteClipboardSignalInfo -instance SignalInfo WebViewPasteClipboardSignalInfo where - type HaskellCallbackType WebViewPasteClipboardSignalInfo = WebViewPasteClipboardCallback - connectSignal _ = connectWebViewPasteClipboard - -data WebViewPopulatePopupSignalInfo -instance SignalInfo WebViewPopulatePopupSignalInfo where - type HaskellCallbackType WebViewPopulatePopupSignalInfo = WebViewPopulatePopupCallback - connectSignal _ = connectWebViewPopulatePopup - -data WebViewPrintRequestedSignalInfo -instance SignalInfo WebViewPrintRequestedSignalInfo where - type HaskellCallbackType WebViewPrintRequestedSignalInfo = WebViewPrintRequestedCallback - connectSignal _ = connectWebViewPrintRequested - -data WebViewRedoSignalInfo -instance SignalInfo WebViewRedoSignalInfo where - type HaskellCallbackType WebViewRedoSignalInfo = WebViewRedoCallback - connectSignal _ = connectWebViewRedo - -data WebViewResourceContentLengthReceivedSignalInfo -instance SignalInfo WebViewResourceContentLengthReceivedSignalInfo where - type HaskellCallbackType WebViewResourceContentLengthReceivedSignalInfo = WebViewResourceContentLengthReceivedCallback - connectSignal _ = connectWebViewResourceContentLengthReceived - -data WebViewResourceLoadFailedSignalInfo -instance SignalInfo WebViewResourceLoadFailedSignalInfo where - type HaskellCallbackType WebViewResourceLoadFailedSignalInfo = WebViewResourceLoadFailedCallback - connectSignal _ = connectWebViewResourceLoadFailed - -data WebViewResourceLoadFinishedSignalInfo -instance SignalInfo WebViewResourceLoadFinishedSignalInfo where - type HaskellCallbackType WebViewResourceLoadFinishedSignalInfo = WebViewResourceLoadFinishedCallback - connectSignal _ = connectWebViewResourceLoadFinished - -data WebViewResourceRequestStartingSignalInfo -instance SignalInfo WebViewResourceRequestStartingSignalInfo where - type HaskellCallbackType WebViewResourceRequestStartingSignalInfo = WebViewResourceRequestStartingCallback - connectSignal _ = connectWebViewResourceRequestStarting - -data WebViewResourceResponseReceivedSignalInfo -instance SignalInfo WebViewResourceResponseReceivedSignalInfo where - type HaskellCallbackType WebViewResourceResponseReceivedSignalInfo = WebViewResourceResponseReceivedCallback - connectSignal _ = connectWebViewResourceResponseReceived - -data WebViewRunFileChooserSignalInfo -instance SignalInfo WebViewRunFileChooserSignalInfo where - type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback - connectSignal _ = connectWebViewRunFileChooser - -data WebViewScriptAlertSignalInfo -instance SignalInfo WebViewScriptAlertSignalInfo where - type HaskellCallbackType WebViewScriptAlertSignalInfo = WebViewScriptAlertCallback - connectSignal _ = connectWebViewScriptAlert - -data WebViewScriptConfirmSignalInfo -instance SignalInfo WebViewScriptConfirmSignalInfo where - type HaskellCallbackType WebViewScriptConfirmSignalInfo = WebViewScriptConfirmCallback - connectSignal _ = connectWebViewScriptConfirm - -data WebViewScriptPromptSignalInfo -instance SignalInfo WebViewScriptPromptSignalInfo where - type HaskellCallbackType WebViewScriptPromptSignalInfo = WebViewScriptPromptCallback - connectSignal _ = connectWebViewScriptPrompt - -data WebViewSelectAllSignalInfo -instance SignalInfo WebViewSelectAllSignalInfo where - type HaskellCallbackType WebViewSelectAllSignalInfo = WebViewSelectAllCallback - connectSignal _ = connectWebViewSelectAll - -data WebViewSelectionChangedSignalInfo -instance SignalInfo WebViewSelectionChangedSignalInfo where - type HaskellCallbackType WebViewSelectionChangedSignalInfo = WebViewSelectionChangedCallback - connectSignal _ = connectWebViewSelectionChanged - -data WebViewShouldApplyStyleSignalInfo -instance SignalInfo WebViewShouldApplyStyleSignalInfo where - type HaskellCallbackType WebViewShouldApplyStyleSignalInfo = WebViewShouldApplyStyleCallback - connectSignal _ = connectWebViewShouldApplyStyle - -data WebViewShouldBeginEditingSignalInfo -instance SignalInfo WebViewShouldBeginEditingSignalInfo where - type HaskellCallbackType WebViewShouldBeginEditingSignalInfo = WebViewShouldBeginEditingCallback - connectSignal _ = connectWebViewShouldBeginEditing - -data WebViewShouldChangeSelectedRangeSignalInfo -instance SignalInfo WebViewShouldChangeSelectedRangeSignalInfo where - type HaskellCallbackType WebViewShouldChangeSelectedRangeSignalInfo = WebViewShouldChangeSelectedRangeCallback - connectSignal _ = connectWebViewShouldChangeSelectedRange - -data WebViewShouldDeleteRangeSignalInfo -instance SignalInfo WebViewShouldDeleteRangeSignalInfo where - type HaskellCallbackType WebViewShouldDeleteRangeSignalInfo = WebViewShouldDeleteRangeCallback - connectSignal _ = connectWebViewShouldDeleteRange - -data WebViewShouldEndEditingSignalInfo -instance SignalInfo WebViewShouldEndEditingSignalInfo where - type HaskellCallbackType WebViewShouldEndEditingSignalInfo = WebViewShouldEndEditingCallback - connectSignal _ = connectWebViewShouldEndEditing - -data WebViewShouldInsertNodeSignalInfo -instance SignalInfo WebViewShouldInsertNodeSignalInfo where - type HaskellCallbackType WebViewShouldInsertNodeSignalInfo = WebViewShouldInsertNodeCallback - connectSignal _ = connectWebViewShouldInsertNode - -data WebViewShouldInsertTextSignalInfo -instance SignalInfo WebViewShouldInsertTextSignalInfo where - type HaskellCallbackType WebViewShouldInsertTextSignalInfo = WebViewShouldInsertTextCallback - connectSignal _ = connectWebViewShouldInsertText - -data WebViewShouldShowDeleteInterfaceForElementSignalInfo -instance SignalInfo WebViewShouldShowDeleteInterfaceForElementSignalInfo where - type HaskellCallbackType WebViewShouldShowDeleteInterfaceForElementSignalInfo = WebViewShouldShowDeleteInterfaceForElementCallback - connectSignal _ = connectWebViewShouldShowDeleteInterfaceForElement - -data WebViewStatusBarTextChangedSignalInfo -instance SignalInfo WebViewStatusBarTextChangedSignalInfo where - type HaskellCallbackType WebViewStatusBarTextChangedSignalInfo = WebViewStatusBarTextChangedCallback - connectSignal _ = connectWebViewStatusBarTextChanged - -data WebViewTitleChangedSignalInfo -instance SignalInfo WebViewTitleChangedSignalInfo where - type HaskellCallbackType WebViewTitleChangedSignalInfo = WebViewTitleChangedCallback - connectSignal _ = connectWebViewTitleChanged - -data WebViewUndoSignalInfo -instance SignalInfo WebViewUndoSignalInfo where - type HaskellCallbackType WebViewUndoSignalInfo = WebViewUndoCallback - connectSignal _ = connectWebViewUndo - -data WebViewUserChangedContentsSignalInfo -instance SignalInfo WebViewUserChangedContentsSignalInfo where - type HaskellCallbackType WebViewUserChangedContentsSignalInfo = WebViewUserChangedContentsCallback - connectSignal _ = connectWebViewUserChangedContents - -data WebViewViewportAttributesChangedSignalInfo -instance SignalInfo WebViewViewportAttributesChangedSignalInfo where - type HaskellCallbackType WebViewViewportAttributesChangedSignalInfo = WebViewViewportAttributesChangedCallback - connectSignal _ = connectWebViewViewportAttributesChanged - -data WebViewViewportAttributesRecomputeRequestedSignalInfo -instance SignalInfo WebViewViewportAttributesRecomputeRequestedSignalInfo where - type HaskellCallbackType WebViewViewportAttributesRecomputeRequestedSignalInfo = WebViewViewportAttributesRecomputeRequestedCallback - connectSignal _ = connectWebViewViewportAttributesRecomputeRequested - -data WebViewWebViewReadySignalInfo -instance SignalInfo WebViewWebViewReadySignalInfo where - type HaskellCallbackType WebViewWebViewReadySignalInfo = WebViewWebViewReadyCallback - connectSignal _ = connectWebViewWebViewReady - -data WebViewWindowObjectClearedSignalInfo -instance SignalInfo WebViewWindowObjectClearedSignalInfo where - type HaskellCallbackType WebViewWindowObjectClearedSignalInfo = WebViewWindowObjectClearedCallback - connectSignal _ = connectWebViewWindowObjectCleared - -type instance SignalList WebView = '[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("close-web-view", WebViewCloseWebViewSignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("console-message", WebViewConsoleMessageSignalInfo), '("context-menu", WebViewContextMenuSignalInfo), '("copy-clipboard", WebViewCopyClipboardSignalInfo), '("create-plugin-widget", WebViewCreatePluginWidgetSignalInfo), '("create-web-view", WebViewCreateWebViewSignalInfo), '("cut-clipboard", WebViewCutClipboardSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("database-quota-exceeded", WebViewDatabaseQuotaExceededSignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("document-load-finished", WebViewDocumentLoadFinishedSignalInfo), '("download-requested", WebViewDownloadRequestedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("editing-began", WebViewEditingBeganSignalInfo), '("editing-ended", WebViewEditingEndedSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("entering-fullscreen", WebViewEnteringFullscreenSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("frame-created", WebViewFrameCreatedSignalInfo), '("geolocation-policy-decision-cancelled", WebViewGeolocationPolicyDecisionCancelledSignalInfo), '("geolocation-policy-decision-requested", WebViewGeolocationPolicyDecisionRequestedSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("hovering-over-link", WebViewHoveringOverLinkSignalInfo), '("icon-loaded", WebViewIconLoadedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("leaving-fullscreen", WebViewLeavingFullscreenSignalInfo), '("load-committed", WebViewLoadCommittedSignalInfo), '("load-error", WebViewLoadErrorSignalInfo), '("load-finished", WebViewLoadFinishedSignalInfo), '("load-progress-changed", WebViewLoadProgressChangedSignalInfo), '("load-started", WebViewLoadStartedSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mime-type-policy-decision-requested", WebViewMimeTypePolicyDecisionRequestedSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("move-cursor", WebViewMoveCursorSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("navigation-policy-decision-requested", WebViewNavigationPolicyDecisionRequestedSignalInfo), '("navigation-requested", WebViewNavigationRequestedSignalInfo), '("new-window-policy-decision-requested", WebViewNewWindowPolicyDecisionRequestedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("onload-event", WebViewOnloadEventSignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("paste-clipboard", WebViewPasteClipboardSignalInfo), '("populate-popup", WebViewPopulatePopupSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("print-requested", WebViewPrintRequestedSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("redo", WebViewRedoSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resource-content-length-received", WebViewResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebViewResourceLoadFailedSignalInfo), '("resource-load-finished", WebViewResourceLoadFinishedSignalInfo), '("resource-request-starting", WebViewResourceRequestStartingSignalInfo), '("resource-response-received", WebViewResourceResponseReceivedSignalInfo), '("run-file-chooser", WebViewRunFileChooserSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("script-alert", WebViewScriptAlertSignalInfo), '("script-confirm", WebViewScriptConfirmSignalInfo), '("script-prompt", WebViewScriptPromptSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("select-all", WebViewSelectAllSignalInfo), '("selection-changed", WebViewSelectionChangedSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("should-apply-style", WebViewShouldApplyStyleSignalInfo), '("should-begin-editing", WebViewShouldBeginEditingSignalInfo), '("should-change-selected-range", WebViewShouldChangeSelectedRangeSignalInfo), '("should-delete-range", WebViewShouldDeleteRangeSignalInfo), '("should-end-editing", WebViewShouldEndEditingSignalInfo), '("should-insert-node", WebViewShouldInsertNodeSignalInfo), '("should-insert-text", WebViewShouldInsertTextSignalInfo), '("should-show-delete-interface-for-element", WebViewShouldShowDeleteInterfaceForElementSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("status-bar-text-changed", WebViewStatusBarTextChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("title-changed", WebViewTitleChangedSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("undo", WebViewUndoSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("user-changed-contents", WebViewUserChangedContentsSignalInfo), '("viewport-attributes-changed", WebViewViewportAttributesChangedSignalInfo), '("viewport-attributes-recompute-requested", WebViewViewportAttributesRecomputeRequestedSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("web-view-ready", WebViewWebViewReadySignalInfo), '("window-object-cleared", WebViewWindowObjectClearedSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList WebWindowFeatures = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - diff --git a/gi-webkit.cabal b/gi-webkit.cabal --- a/gi-webkit.cabal +++ b/gi-webkit.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-webkit -version: 0.2.4.11 +version: 0.2.4.12 synopsis: WebKit bindings description: Bindings for WebKit, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,20 +14,222 @@ library default-language: Haskell2010 - exposed-modules: GI.WebKit, GI.WebKitAttributes, GI.WebKitSignals + default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations + exposed-modules: GI.WebKit.Types + GI.WebKit + GI.WebKit.Callbacks + GI.WebKit.Constants + GI.WebKit.Enums + GI.WebKit.Flags + GI.WebKit.Functions + GI.WebKit.Interfaces + GI.WebKit.Interfaces.DOMEventTarget + GI.WebKit.Interfaces.SpellChecker + GI.WebKit.Objects + GI.WebKit.Objects.DOMAttr + GI.WebKit.Objects.DOMAudioTrack + GI.WebKit.Objects.DOMAudioTrackList + GI.WebKit.Objects.DOMBarInfo + GI.WebKit.Objects.DOMBarProp + GI.WebKit.Objects.DOMBatteryManager + GI.WebKit.Objects.DOMBlob + GI.WebKit.Objects.DOMCDATASection + GI.WebKit.Objects.DOMCSSRule + GI.WebKit.Objects.DOMCSSRuleList + GI.WebKit.Objects.DOMCSSStyleDeclaration + GI.WebKit.Objects.DOMCSSStyleSheet + GI.WebKit.Objects.DOMCSSValue + GI.WebKit.Objects.DOMCharacterData + GI.WebKit.Objects.DOMComment + GI.WebKit.Objects.DOMConsole + GI.WebKit.Objects.DOMDOMApplicationCache + GI.WebKit.Objects.DOMDOMImplementation + GI.WebKit.Objects.DOMDOMMimeType + GI.WebKit.Objects.DOMDOMMimeTypeArray + GI.WebKit.Objects.DOMDOMNamedFlowCollection + GI.WebKit.Objects.DOMDOMPlugin + GI.WebKit.Objects.DOMDOMPluginArray + GI.WebKit.Objects.DOMDOMSecurityPolicy + GI.WebKit.Objects.DOMDOMSelection + GI.WebKit.Objects.DOMDOMSettableTokenList + GI.WebKit.Objects.DOMDOMStringList + GI.WebKit.Objects.DOMDOMStringMap + GI.WebKit.Objects.DOMDOMTokenList + GI.WebKit.Objects.DOMDOMWindow + GI.WebKit.Objects.DOMDOMWindowCSS + GI.WebKit.Objects.DOMDatabase + GI.WebKit.Objects.DOMDocument + GI.WebKit.Objects.DOMDocumentFragment + GI.WebKit.Objects.DOMDocumentType + GI.WebKit.Objects.DOMElement + GI.WebKit.Objects.DOMEntityReference + GI.WebKit.Objects.DOMEvent + GI.WebKit.Objects.DOMFile + GI.WebKit.Objects.DOMFileList + GI.WebKit.Objects.DOMGamepad + GI.WebKit.Objects.DOMGamepadList + GI.WebKit.Objects.DOMGeolocation + GI.WebKit.Objects.DOMHTMLAnchorElement + GI.WebKit.Objects.DOMHTMLAppletElement + GI.WebKit.Objects.DOMHTMLAreaElement + GI.WebKit.Objects.DOMHTMLAudioElement + GI.WebKit.Objects.DOMHTMLBRElement + GI.WebKit.Objects.DOMHTMLBaseElement + GI.WebKit.Objects.DOMHTMLBaseFontElement + GI.WebKit.Objects.DOMHTMLBodyElement + GI.WebKit.Objects.DOMHTMLButtonElement + GI.WebKit.Objects.DOMHTMLCanvasElement + GI.WebKit.Objects.DOMHTMLCollection + GI.WebKit.Objects.DOMHTMLDListElement + GI.WebKit.Objects.DOMHTMLDetailsElement + GI.WebKit.Objects.DOMHTMLDirectoryElement + GI.WebKit.Objects.DOMHTMLDivElement + GI.WebKit.Objects.DOMHTMLDocument + GI.WebKit.Objects.DOMHTMLElement + GI.WebKit.Objects.DOMHTMLEmbedElement + GI.WebKit.Objects.DOMHTMLFieldSetElement + GI.WebKit.Objects.DOMHTMLFontElement + GI.WebKit.Objects.DOMHTMLFormElement + GI.WebKit.Objects.DOMHTMLFrameElement + GI.WebKit.Objects.DOMHTMLFrameSetElement + GI.WebKit.Objects.DOMHTMLHRElement + GI.WebKit.Objects.DOMHTMLHeadElement + GI.WebKit.Objects.DOMHTMLHeadingElement + GI.WebKit.Objects.DOMHTMLHtmlElement + GI.WebKit.Objects.DOMHTMLIFrameElement + GI.WebKit.Objects.DOMHTMLImageElement + GI.WebKit.Objects.DOMHTMLInputElement + GI.WebKit.Objects.DOMHTMLKeygenElement + GI.WebKit.Objects.DOMHTMLLIElement + GI.WebKit.Objects.DOMHTMLLabelElement + GI.WebKit.Objects.DOMHTMLLegendElement + GI.WebKit.Objects.DOMHTMLLinkElement + GI.WebKit.Objects.DOMHTMLMapElement + GI.WebKit.Objects.DOMHTMLMarqueeElement + GI.WebKit.Objects.DOMHTMLMediaElement + GI.WebKit.Objects.DOMHTMLMenuElement + GI.WebKit.Objects.DOMHTMLMetaElement + GI.WebKit.Objects.DOMHTMLModElement + GI.WebKit.Objects.DOMHTMLOListElement + GI.WebKit.Objects.DOMHTMLObjectElement + GI.WebKit.Objects.DOMHTMLOptGroupElement + GI.WebKit.Objects.DOMHTMLOptionElement + GI.WebKit.Objects.DOMHTMLOptionsCollection + GI.WebKit.Objects.DOMHTMLParagraphElement + GI.WebKit.Objects.DOMHTMLParamElement + GI.WebKit.Objects.DOMHTMLPreElement + GI.WebKit.Objects.DOMHTMLPropertiesCollection + GI.WebKit.Objects.DOMHTMLQuoteElement + GI.WebKit.Objects.DOMHTMLScriptElement + GI.WebKit.Objects.DOMHTMLSelectElement + GI.WebKit.Objects.DOMHTMLStyleElement + GI.WebKit.Objects.DOMHTMLTableCaptionElement + GI.WebKit.Objects.DOMHTMLTableCellElement + GI.WebKit.Objects.DOMHTMLTableColElement + GI.WebKit.Objects.DOMHTMLTableElement + GI.WebKit.Objects.DOMHTMLTableRowElement + GI.WebKit.Objects.DOMHTMLTableSectionElement + GI.WebKit.Objects.DOMHTMLTextAreaElement + GI.WebKit.Objects.DOMHTMLTitleElement + GI.WebKit.Objects.DOMHTMLUListElement + GI.WebKit.Objects.DOMHTMLVideoElement + GI.WebKit.Objects.DOMHistory + GI.WebKit.Objects.DOMKeyboardEvent + GI.WebKit.Objects.DOMLocation + GI.WebKit.Objects.DOMMediaController + GI.WebKit.Objects.DOMMediaError + GI.WebKit.Objects.DOMMediaList + GI.WebKit.Objects.DOMMediaQueryList + GI.WebKit.Objects.DOMMemoryInfo + GI.WebKit.Objects.DOMMessagePort + GI.WebKit.Objects.DOMMicroDataItemValue + GI.WebKit.Objects.DOMMouseEvent + GI.WebKit.Objects.DOMNamedNodeMap + GI.WebKit.Objects.DOMNavigator + GI.WebKit.Objects.DOMNode + GI.WebKit.Objects.DOMNodeFilter + GI.WebKit.Objects.DOMNodeIterator + GI.WebKit.Objects.DOMNodeList + GI.WebKit.Objects.DOMObject + GI.WebKit.Objects.DOMPerformance + GI.WebKit.Objects.DOMPerformanceEntry + GI.WebKit.Objects.DOMPerformanceEntryList + GI.WebKit.Objects.DOMPerformanceNavigation + GI.WebKit.Objects.DOMPerformanceTiming + GI.WebKit.Objects.DOMProcessingInstruction + GI.WebKit.Objects.DOMPropertyNodeList + GI.WebKit.Objects.DOMRange + GI.WebKit.Objects.DOMScreen + GI.WebKit.Objects.DOMShadowRoot + GI.WebKit.Objects.DOMStorage + GI.WebKit.Objects.DOMStorageInfo + GI.WebKit.Objects.DOMStorageQuota + GI.WebKit.Objects.DOMStyleMedia + GI.WebKit.Objects.DOMStyleSheet + GI.WebKit.Objects.DOMStyleSheetList + GI.WebKit.Objects.DOMText + GI.WebKit.Objects.DOMTextTrack + GI.WebKit.Objects.DOMTextTrackCue + GI.WebKit.Objects.DOMTextTrackCueList + GI.WebKit.Objects.DOMTextTrackList + GI.WebKit.Objects.DOMTimeRanges + GI.WebKit.Objects.DOMTouch + GI.WebKit.Objects.DOMTrackEvent + GI.WebKit.Objects.DOMTreeWalker + GI.WebKit.Objects.DOMUIEvent + GI.WebKit.Objects.DOMValidityState + GI.WebKit.Objects.DOMVideoPlaybackQuality + GI.WebKit.Objects.DOMVideoTrack + GI.WebKit.Objects.DOMVideoTrackList + GI.WebKit.Objects.DOMWebKitNamedFlow + GI.WebKit.Objects.DOMWebKitPoint + GI.WebKit.Objects.DOMWheelEvent + GI.WebKit.Objects.DOMXPathExpression + GI.WebKit.Objects.DOMXPathNSResolver + GI.WebKit.Objects.DOMXPathResult + GI.WebKit.Objects.Download + GI.WebKit.Objects.FaviconDatabase + GI.WebKit.Objects.FileChooserRequest + GI.WebKit.Objects.GeolocationPolicyDecision + GI.WebKit.Objects.HitTestResult + GI.WebKit.Objects.IconDatabase + GI.WebKit.Objects.NetworkRequest + GI.WebKit.Objects.NetworkResponse + GI.WebKit.Objects.SecurityOrigin + GI.WebKit.Objects.SoupAuthDialog + GI.WebKit.Objects.ViewportAttributes + GI.WebKit.Objects.WebBackForwardList + GI.WebKit.Objects.WebDataSource + GI.WebKit.Objects.WebDatabase + GI.WebKit.Objects.WebFrame + GI.WebKit.Objects.WebHistoryItem + GI.WebKit.Objects.WebInspector + GI.WebKit.Objects.WebNavigationAction + GI.WebKit.Objects.WebPlugin + GI.WebKit.Objects.WebPluginDatabase + GI.WebKit.Objects.WebPolicyDecision + GI.WebKit.Objects.WebResource + GI.WebKit.Objects.WebSettings + GI.WebKit.Objects.WebView + GI.WebKit.Objects.WebWindowFeatures + GI.WebKit.Structs + GI.WebKit.Structs.DOMEventTargetClass + GI.WebKit.Structs.WebPluginMIMEType pkgconfig-depends: webkitgtk-3.0 >= 2.4 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.11 && < 1, - gi-atk >= 0.2.16.11 && < 0.2.17, - gi-glib >= 0.2.44.11 && < 0.2.45, - gi-gobject >= 0.2.44.11 && < 0.2.45, - gi-gdk >= 0.3.16.11 && < 0.3.17, - gi-gdkpixbuf >= 0.2.31.11 && < 0.2.32, - gi-gio >= 0.2.44.11 && < 0.2.45, - gi-gtk >= 0.3.16.11 && < 0.3.17, - gi-javascriptcore >= 0.2.4.11 && < 0.2.5, - gi-soup >= 0.2.50.11 && < 0.2.51, - gi-cairo >= 0.1.14.11 && < 0.1.15, + haskell-gi-base >= 0.12 && < 1, + gi-atk >= 0.2.16.12 && < 0.2.17, + gi-glib >= 0.2.44.12 && < 0.2.45, + gi-gobject >= 0.2.44.12 && < 0.2.45, + gi-gdk >= 0.3.16.12 && < 0.3.17, + gi-gdkpixbuf >= 0.2.31.12 && < 0.2.32, + gi-gio >= 0.2.44.12 && < 0.2.45, + gi-gtk >= 0.3.16.12 && < 0.3.17, + gi-javascriptcore >= 0.2.4.12 && < 0.2.5, + gi-soup >= 0.2.50.12 && < 0.2.51, + gi-cairo >= 0.1.14.12 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,